Gramatica de objetos entrega, Prolog

Language: Layout:

objeto :- write('{'),aux1, write('}').
aux1 :- read(X),(X='atributo'->atributo;
                 X='fin'->write('')). 
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).
valorarreglo :-read(Y),(Y='cadena'->cadena;
                 Y='numero'->numero;
                 Y='objeto'->objeto;
                 Y='arreglo'->arreglo;
                 Y='true'->verdadero;
                 Y='false'->falso).  
atributo :- read(X),write('"'),write(X),write('"'), write(':'),valorobjeto(X),aux2.

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('')).
aux4 :- read(X),(X='valor'->write(','),valorarreglo,aux4;
                 X='fin'->write('')). 
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.
sebastian.
atributo.
industria.
numero.
3.

atributo.
tecnicas.

objeto.
atributo.
insumoA.
arreglo.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
45.
atributo.
precio.
numero.
1340.70.

fin.
fin.

valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
50.
atributo.
precio.
numero.
1560.90.
fin.
fin.
fin.

atributo.
insumoB.
arreglo.
valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
45.
atributo.
precio.
numero.
1290.50.

fin.
fin.

valor.
objeto.
atributo.
embarque.
objeto.
atributo.
cantidad.
numero.
40.
atributo.
precio.
numero.
1720.40.

fin.
fin.
fin.

atributo.
mercancias.
objeto.
atributo.
cantidad.
numero.
80.
fin.

atributo.
bancos.
objeto.
atributo.
saldo.
numero.
2800.
fin.
fin.

atributo.
financieras.

objeto.
atributo.
activo.

objeto.
atributo.
infraestructura.
numero.
5000.

atributo.
bancos.
numero.
5000.

atributo.
insumoA.
numero.
5000.

atributo.
insumoB.
numero.
5000.

atributo.
enproceso.
numero.
5000.

atributo.
mercancias.
numero.
5000.

atributo.
clientes.
numero.
5000.
fin.

atributo.
pasivo.

objeto.
atributo.
hipotecas.
numero.
5000.

atributo.
proveedores.
numero.
5000.
fin.

atributo.
capital.

objeto.
atributo.
capitalsocial.
numero.
5000.

atributo.
utilidades.
numero.
5000.
fin.
fin.
fin.
fin.

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