PROLOG evaluacion, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').
aux1 :- read(X),(X='atributo'->atributo;
                 X='fin'->write('')).
atributo :- read(X),write('"'),write(X),write('"'), write(':'),valoratributo(X),aux2.
arreglo :- write('['),aux3, write(']').
aux2 :- read(X),(X='atributo'->write(','),atributo;
                 X='fin'->write('')).
aux3 :- read(X),(X='valor'->valorarreglo,aux4;
                 X='fin'->write('')).
aux4 :- read(X),(X='valor'->write(','),valorarreglo,aux4;
                 X='fin'->write('')).
cadena :- read(X),write('"'),write(X),write('"').
numero :- read(X),write(X).
valoratributo(M) :-read(T),(T='cadena'->cadena;
                 T='numero'->numero;
                 T='arreglo'->arreglo;
                 T='metodo'->metodo(M);
                 T='objeto'->objeto).

valorarreglo :-read(T),(T='cadena'->cadena;
                 T='numero'->numero;
                 T='arreglo'->arreglo;
                 T='objeto'->objeto).
metodo(M) :- write('"function() {'),instruccion,write('return '),write(M),write(' }"').
instruccion :-read(I),(I='asignacion'->asignacion,instruccion;
                       I='decision'->decision,instruccion;
                       I='fin'->write('')).
asignacion :- numero,write('='),numero,write(';').
decision :- write('if ('),condicion,write('){'),instruccion,write('}'),aux5.
aux5 :- read(I),(I='sino'->falso;
                 I='fin'->write('')).
falso :- write('else {'), instruccion, write('}').
condicion :- numero.
:- objeto.

atributo.
bd.
arreglo.
valor.
objeto.
atributo.
abono.
objeto.
atributo.
idempresa.
numero.
5.
fin.
fin.

valor.
objeto.
atributo.
asiento.
objeto.
atributo.
fecasiento.
cadena.
2021-06-09.
fin.
fin.

valor.
objeto.
atributo.
cargo.
objeto.
atributo.
idasiento.
numero.
3.
fin.
fin.

valor.
objeto.
atributo.
cuenta.
objeto.
atributo.
nbcuenta.
numero.
11.
fin.
fin.

valor.
objeto.
atributo.
embarque.
objeto.
atributo.
idembarque.
numero.
100.
fin.
fin.

valor.
objeto.
atributo.
empresa.
objeto.
atributo.
idempresa.
numero.
100.
fin.
fin.

valor.
objeto.
atributo.
encadenamiento.
objeto.
atributo.
idindustiracompra.
numero.
12.
fin.
fin.

valor.
objeto.
atributo.
industria.
objeto.
atributo.
idindustria.
numero.
6.
fin.
fin.

valor.
objeto.
atributo.
asiento.
objeto.
atributo.
fecasiento.
cadena.
industriaA.
fin.
fin.

valor.
objeto.
atributo.
mercancia.
objeto.
atributo.
idorden.
numero.
1.
fin.
fin.

valor.
objeto.
atributo.
operacion.
objeto.
atributo.
idoperacion.
numero.
10.
fin.
fin.

valor.
objeto.
atributo.
rubro.
objeto.
atributo.
idrubro.
numero.
3.
fin.
fin.

valor.
objeto.
atributo.
semiembarques.
objeto.
atributo.
mercado.
cadena.
mexico.
fin.
fin.

fin.
fin.

[ - ] Show input
Absolute running time: 0.32 sec, cpu time: 0.17 sec, memory peak: 7 Mb, absolute service time: 0,45 sec