el objeto sector industrial, Prolog

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('')).
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('}"').
instruccion :- read(I),(I='asignacion'->asignacion,instruccion;
                 I='decision' ->decision,instruccion;
                 I='fin'->write('')).
asignacion :- read(X),write(X),write('='),read(Y),write(Y),write(';').
decision :- write('if ('),read(C),write(C),write(') {'),instruccion,write('}'),aux5.
aux5 :- read(X),(X='sino'->write('else {'),instruccion,write('}');
                 X='fin'->write('')).
:- objeto.

atributo. escenario. cadena. nbescenario. 
atributo. metadatos. objeto. fin. 
atributo. economia. arreglo.
valor. objeto. 
atributo. industria. cadena. nbindustria. 
atributo. metadatos. objeto. fin.
atributo. funcion.  arreglo.
valor. objeto. atributo. insumo. cadena. idvendedora. atributo. coef. cadena. coeficiente. fin.
valor. objeto. atributo. insumo. cadena. idvendedora. atributo. coef. cadena. coeficiente. fin.
fin. 
atributo. mercados. arreglo.
valor. objeto. atributo. mercado. cadena. nbmercado. atributo. moneda. cadena. nbmoneda.
atributo. metadatos. objeto. atributo. tipoCambio. cadena. tipCambio. fin.

atributo. competidores. arreglo. 
valor. objeto. atributo. empresa. cadena. nbempresa.
atributo. metadatos. objeto. fin.
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. planta. arreglo. 
valor. objeto. 
atributo. almacen. cadena. almacenA. 
atributo. max. numero. 5000.
atributo. actual. cadena. sumatoria_de_cantidad.
atributo. unitarioAlmacen. cadena. sumatoria_de_precio_entre_sumatoria_de_cantidad.
atributo. inventario. arreglo.
valor. objeto. atributo. embarque. cadena. idembarque. atributo. cantidad. numero. 256. 
atributo.  costo. numero. 2226.28. atributo. costoUnitario. 
metodo. asignacion. costoUnitario. this.precio/this.cantidad. fin. fin.
valor. objeto. atributo. embarque. cadena. idembarque. atributo. cantidad. numero. 256. 
atributo.  costo. numero. 2352.36. atributo. costoUnitario. 
metodo. asignacion. costoUnitario. this.precio/this.cantidad. fin. fin.
fin. fin.

fin. fin. fin. fin. fin.
fin. fin. fin.

[ - ] Show input
Absolute running time: 0.38 sec, cpu time: 0.26 sec, memory peak: 7 Mb, absolute service time: 0,52 sec