// ---------------- FUNCIONES DE LIBRERIA

function esVacio(s) {
	return ((s==null) || (s.length ==0));
}

function esBlanco (s) {
	var i;
	if (esVacio(s)) return true;
	for(i=0; i< s.length; i++) {
		var c=s.charAt(i);
		if (c!=' ' && c!='\t' && c!='\r' && c!='\n') 
         return false;
	}
	return true; 
}


function esEmail (s){
   if (esBlanco(s)) 
       return false;
    var arroba = s.indexOf("@");
	//aquí fuerzo a que delante de la arroba exista al menos un caracter
    if (arroba < 1) 
        return false;
	//no debe existir más que una @        
        var otrarroba= s.substring(arroba+1).indexOf("@");
        if (otrarroba > 0)
                return false;
	//a continuación de la @ no aparece '.' ó blanco
        if ((s.charAt(arroba+1)==".") || (s.charAt(arroba+1)==" ") ) 
                return false;
	//debe terminar en alfabético tras el último punto
        ultpunto=s.lastIndexOf(".");
        if ((ultpunto<(s.length-1)) && (ultpunto>2) && (esAlfabetico(s.substring(ultpunto+1))) )
                return true;
}

function esAlfabetico (s) {
	var i;
	if (esVacio(s)) return false;
	else {
		for(i=0;i< s.length; i++) {
			var c=s.charAt(i);
			if (((c>='a') && (c<='z')) || ((c>='A') && (c<='Z')))
				continue;
			else return false;
		}
		return true;
		}
}

 function Numero(v){
	var ok=1, i;
	var check=".0123456789";
	for(i=0;i<v.length && ok==1;i++){
		ok=0;
		for(j=0;j<check.length && ok==0;j++){
			if (check.charAt(j) == v.charAt(i))
				ok=1;
		}
	}
	if (ok==0) return false;
	return true;
 }


// Con extresiones regulares
function validarEmail(valor) {
    if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(valor)) {return true; }
    else { return false; }
} // function validarEmail(valor)