Arreglos de objetos, Prolog

Language: Layout:

objeto :- write('{'), read(X), (X='atributo'->atributo;
                                write('')), write('}').
atributo:- cadena, write(':'), valor,a1.
a1 :- read(X), (X='atributo'->write(','),atributo;
                    X='fin'->write('')).
valor :- read(X), (X='numero'->numero;
                    X='cadena'->cadena;
                    X='metodo'->metodo;
                    X='arreglo'->arreglo;
                    X='objeto'->objeto).
metodo:- write('"function() {'),instruccion,write('return a;}"').
arreglo:- write('['), auxarreglo, write(']').
auxarreglo:- read(X), (X='fin'->write('');
                            X='valor'->valor,auxarreglo2;
                            write('error '), write(X) ).
auxarreglo2:- read(X), (X='fin'->write('');
                            X='valor'->write(', '),valor,auxarreglo2;
                            write('error2 '), write(X) ).
                            
instruccion:- read(X), (X='asignacion'->asignacion;
                    X='decision'->decision;
                    X='fin'->write('')).
decision:- write('if ('),read(X),write(X),write(')'),verdadero.
verdadero:- write('{'),instruccion,write('}').
asignacion:- read(X),write(X),write('='),read(Y),write(Y),write(';'),instruccion.                    
cadena:- write('"'),read(X),write(X),write('"').
numero:- read(X),write(X).
:- objeto.

[ - ] Show input
Absolute running time: 0.25 sec, cpu time: 0.15 sec, memory peak: 7 Mb, absolute service time: 0,33 sec