LOCO 0.0, 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(':'),valorobjeto(X),aux2.

valorobjeto(M):-read(Y),(Y='cadena'->cadena;
                 Y='numero'->numero;
                 Y='objeto'->objeto;
                 Y='arreglo'->arreglo;
                 Y='metodo'->metodo(M);
                 Y='true'->verdadero;
                 Y='false'->falso).

aux2 :- read(X),(X='atributo'->write(','),atributo;
                 X='fin'->write('')). 
cadena :- read(X),write('"'),write(X),write('"').
numero :- read(N),write(N).
arreglo :- write('['),aux3,write(']').
aux3 :- read(X),(X='valor'->valorarreglo,aux4;
                 X='fin'->write('didid')).
aux4 :- read(X),(X='valor'->write(','),valorarreglo,aux4;
                 X='fin'->write('')). 
valorarreglo :-read(Y),(Y='cadena'->cadena;
                 Y='numero'->numero;
                 Y='objeto'->objeto;
                 Y='arreglo'->arreglo;
                 Y='true'->verdadero;
                 Y='false'->falso).
verdadero :- write('true').
falso :- write('false').
metodo(M) :- write('"function() {'),instruccion, write('return '),write(M),write('}"').
asignacion :- read(X),write(X),write('='),read(Y),write(Y),write(';').
aux5 :- read(X),(X='sinosi'->write('else '),decision;
                 X='sino'->write('else {'),instruccion,write('}');
                 X='fin'->write('')).
decision :- write('if ('),read(C),write(C),write(') {'),instruccion,write('}'),aux5.
instruccion :- read(I),(I='asignacion'->asignacion,instruccion;
                 I='decision' ->decision,instruccion;
                 I='fin'->write('')).

:- objeto.

atributo. empresa. objeto.
atributo. nbempresa. cadena. 1.
atributo. balance. objeto.
atributo. activo. objeto.
atributo. infraestructura. numero. 0.
atributo. bancos. numero. 0.
atributo. insumoA. cadena. math.random()*100.
atributo. insumoB. cadena. sumar_el_atributo_cantidad_de_los_embarques_del_almacenB.
atributo. enproceso. numero. 0.
atributo. mercancias. numero. 0.
atributo. clientes. numero. 0.
fin. atributo. pasivo. objeto.
fin. atributo. capital. objeto.
atributo. capitalsocial. numero. 0.
atributo. utilidades. numero. 0.
fin. fin. atributo. almacenA. objeto.
atributo. maxA. numero. 5000.
atributo. totalA. cadena. sumatoria_de_cantidad.
atributo. unitarioA. cadena. sumatoria_de_precio_entre_sumatoria_de_cantidad.
atributo. inventario. arreglo.
valor. objeto. atributo. embarque. objeto.
atributo. cantidad. numero. 256.
atributo. precio. numero. 2226.28.
fin. fin. valor. objeto. atributo. embarque. objeto.
atributo. cantidad. numero. 219.
atributo. precio. numero. 2182.24.
fin. fin. valor. objeto. atributo. embarque. objeto.
atributo. cantidad. numero. 269.
atributo. precio. numero. 2022.39.
fin. fin. fin. fin.
atributo. almacenB. objeto.
atributo. maxB. numero. 5000.
atributo. totalB. cadena. sumatoria_de_cantidad.
atributo. unitarioB. cadena. sumatoria_de_precio_entre_sumatoria_de_cantidad.
atributo. inventario. arreglo.
valor. objeto. atributo. embarque. objeto.
atributo. cantidad. numero. 193.
atributo. precio. numero. 2274.22.
fin. fin. valor. objeto. atributo. embarque. objeto.
atributo. cantidad. numero. 216.
atributo. precio. numero. 2271.08.
fin. fin. fin. fin. fin. fin.

[ - ] Show input
Absolute running time: 0.4 sec, cpu time: 0.23 sec, memory peak: 7 Mb, absolute service time: 0,46 sec