BD_2, Prolog - rextester

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.
basedatos.
arreglo.
valor.
objeto.
atributo.
abono.
objeto.
atributo.
idempresa.
arreglo.
valor.
numero.
97.
valor.
numero.
97.
valor.
numero.
97.
valor.
numero.
173.
valor.
numero.
173.
fin.

atributo.
idasiento.
arreglo.
valor.
numero.
1.
valor.
numero.
1.
valor.
numero.
2.
valor.
numero.
3.
valor.
numero.
3.
fin.

atributo.
idabono.
arreglo.
valor.
numero.
1.
valor.
numero.
2.
valor.
numero.
3.
valor.
numero.
4.
valor.
numero.
5.
fin.

atributo.
idcuenta.
arreglo.
valor.
numero.
5.
valor.
numero.
6.
valor.
numero.
7.
valor.
numero.
8.
valor.
numero.
11.
fin.

atributo.
monto.
arreglo.
valor.
cadena.
1384.22.
valor.
cadena.
495.34.
valor.
cadena.
1879.42.
valor.
numero.
100.
valor.
numero.
10.
fin.
fin.
fin.

valor.
objeto.
atributo.
asiento.
objeto.
atributo.
idempresa.
arreglo.
valor.
numero.
97.
valor.
numero.
97.
valor.
numero.
173.
fin.

atributo.
idasiento.
arreglo.
valor.
numero.
1.
valor.
numero.
2.
valor.
numero.
3.
fin.

atributo.
fecasiento.
arreglo.
valor.
cadena.
2021-06-09.
valor.
cadena.
2021-06-09.
valor.
cadena.
2021-06-19.
fin.

atributo.
idoperacion.
arreglo.
valor.
numero.
6.
valor.
numero.
7.
valor.
numero.
4.
fin.

atributo.
monto.
arreglo.
valor.
cadena.
1879.56.
valor.
cadena.
1879.42.
valor.
cadena.
110.00.
fin.
fin.
fin.

valor.
objeto.
atributo.
cargo.
objeto.
atributo.
idempresa.
arreglo.
fin.

atributo.
idasiento.
arreglo.
fin.

atributo.
idcargo.
arreglo.
fin.
fin.
fin.

valor.
objeto.
atributo.
cuenta.
objeto.
atributo.
idcuenta.
arreglo.
valor.
numero.
1.
fin.
fin.
fin.
fin.
fin.

[ - ] Show input
Absolute running time: 0.39 sec, cpu time: 0.27 sec, memory peak: 7 Mb, absolute service time: 0,56 sec