Pseudo Interprete (basico) en-linea con PHP Al momento tengo es codigo:
Código PHP:
<?
$archivo = file("prog.txt");
$lineas = count($archivo);
$contenido = "<?\n";
for($i=0; $i < $lineas; $i++)
{
$codigo[] = explode ("\t", $archivo[$i]);
$operacion = $codigo[$i][1][0].$codigo[$i][1][1];
$op1 = $codigo[$i][1][2].$codigo[$i][1][3].$codigo[$i][1][4];
$op2 = $codigo[$i][1][5].$codigo[$i][1][6].$codigo[$i][1][7];
$op3 = $codigo[$i][1][8].$codigo[$i][1][9].$codigo[$i][1][10];
if (eregi("^[+]", $operacion))
{
echo "Operador +";
switch ($operacion[1])
{
case 0:
$contenido .= '$var_' . "$op3=$op1;\n";
print " <i>Mover</i>";
break;
case 1:
print " <i>Sumar</i>";
break;
case 2:
print " <i>Multiplicar</i>";
break;
case 3:
print " <i>Elevar al cuadrado</i>";
break;
case 4:
print " <i>Comparar por igual</i>";
break;
case 5:
print " <i>Comparar por mayor</i>";
break;
case 6:
print " <i>Extraer elemento i de un vector</i>";
break;
case 7:
print " <i>Incremente i y pruebe</i>";
break;
case 8:
$contenido .= "?><form action=\"\"><input type=text name=\"\$var_$op3\"></input> </form>\n<?";
print " <i>Lectura desde teclado</i>";
break;
case 9:
print " <i>Stop</i>";
break;
default:
print " <i>ERROR</i>";
}
}
elseif (eregi("^[-]", $operacion))
{
echo "Operador -";
switch ($operacion[1])
{
case 0:
$contenido .= '$var_' . $codigo[$i][0] . "=$op1$op2$op3;\n";
print " <i>Asignar</i>";
break;
case 1:
print " <i>Restar</i>";
break;
case 2:
print " <i>Dividir</i>";
break;
case 3:
print " <i>Sacar raiz cuadrada</i>";
break;
case 4:
print " <i>Comparar por diferente</i>";
break;
case 5:
print " <i>Comparar por menor</i>";
break;
case 6:
print " <i>Poner un valor en la posicion i de un vector</i>";
break;
case 7:
print " <i>No definido</i>";
break;
case 8:
print " <i>Impresion en pantalla</i>";
break;
case 9:
print " <i>Definicion de zonas</i>";
break;
default:
print " <i>ERROR</i>";
}
}
else
{
echo "ERROR OPERADOR NO VALIDO";
}
echo "<br>";
}
$contenido .= "?>\n";
$fp = fopen("traycomp.php","w+");
fwrite($fp, $contenido);
fclose($fp);
?> Tabla de como funciona el psuedo lenguaje:
http://descargas.portalquito.com/tablapsc.doc
Programa ejemplo escrito es el pseudo lenguaje:
http://descargas.portalquito.com/prog.txt
Espero su ayuda. Gracias!
