public void CompararValor(EscritorC escritor, string variable)
{
//(!this.EsDeSalidaOEntradaSalida);
string diferencia = "AUX" + variable;
string varPrecision = "PR" + variable;
string iterador = "IT" + variable;
switch (Definicion.Tipo)
{
case Tipo.UInt8:
case Tipo.UInt16:
case Tipo.UInt32:
case Tipo.UInt64:
case Tipo.Int8:
case Tipo.Int16:
case Tipo.Int32:
case Tipo.Int64:
escritor.If(variable + " != " + Valor);
escritor.PrintfValorDistintoConDiferencia(variable, Valor);
escritor.WriteLine("cantErrores++;");
escritor.FinIf();
break;
case Tipo.Char:
escritor.If(variable + " != " + "'" + Valor + "'");
escritor.PrintfValorDistintoChar(variable, Valor);
escritor.WriteLine("cantErrores++;");
escritor.FinIf();
break;
case Tipo.Booleano:
escritor.If("(" + variable + " == " + "0 && " + Valor + "!=0)||(" + variable + " != " +
"0 && " + Valor + "==0)");
escritor.PrintfValorDistinto(variable, Valor);
escritor.WriteLine("cantErrores++;");
escritor.FinIf();
break;
case Tipo.Float32:
// Realiza la resta entre ambos operandos y si la misma dio un resultado menor que
// 10^precision entonces los considera iguales
MA.EliminarAsteriscos(ref diferencia);
MA.EliminarCorchetes(ref diferencia);
MA.EliminarAsteriscos(ref varPrecision);
MA.EliminarCorchetes(ref varPrecision);
escritor.WriteLine("float " + diferencia + " = (" + variable + ") - (" + Valor + ");");
escritor.WriteLine(diferencia + " = (" + diferencia + " >= 0) ? " + diferencia + " : -" +
diferencia + ";");
escritor.WriteLine("float " + varPrecision + " = pow((float)10, -" + Definicion.Precision + ");");
escritor.If(diferencia + " >= " + varPrecision);
escritor.PrintfValorDistintoFloatConDiferencia(variable, Valor, diferencia);
escritor.WriteLine("cantErrores++;");
escritor.FinIf();
break;
case Tipo.Float64:
MA.EliminarAsteriscos(ref diferencia);
MA.EliminarCorchetes(ref diferencia);
MA.EliminarAsteriscos(ref varPrecision);
MA.EliminarCorchetes(ref varPrecision);
escritor.WriteLine("float " + diferencia + " = (" + variable + ") - (" + Valor + ");");
escritor.WriteLine(diferencia + " = (" + diferencia + " >= 0) ? " + diferencia + " : -" +
diferencia + ";");
escritor.WriteLine("double " + varPrecision + " = pow((double)10, -" + Definicion.Precision + ");");
escritor.If(diferencia + " >= " + varPrecision);
escritor.PrintfValorDistintoFloatConDiferencia(variable, Valor, diferencia);
escritor.WriteLine("cantErrores++;");
escritor.FinIf();
break;
case Tipo.CadenaC:
escritor.WriteLine("char " + diferencia + "[] = \"" + Valor + "\";");
escritor.WriteLine("int " + iterador + ";");
escritor.For(iterador + "=0", diferencia + "[" + iterador + "]!=0 && " +
variable + "[" + iterador + "]!=0", iterador + "++");
escritor.If(variable + "[" + iterador + "] != " + diferencia + "[" +
iterador + "]");
escritor.PrintfValorDeStringDistintos(variable, iterador, diferencia);
escritor.WriteLine("cantErrores++;");
escritor.FinIf();
escritor.FinFor();
break;
case Tipo.CadenaPascal:
break;
}
}