FIA 24 2, Prolog - rextester

Language: Layout:

objeto :- write('{'), aux, write('}').
aux :- read(X),(X='atributo'->atributo;
                X='fin'->write('');
                write('error '),write(X)).
atributo :- read(C),write('"'),write(C),write('"'), write(':'),
            valor(C), a1.
a1 :- read(X),(X='atributo'-> write(','),atributo;
               X='fin'->write('');
               write('error '), write(X)).
cadena :- read(C),write('"'),write(C),write('"').
valor(C) :- read(T),(T='cadena'->cadena;
                  T='numero'-> read(N),write(N);
                  T='objeto'->objeto;
                  T='arreglo'->arreglo;
                  T='metodo'->metodo(C);
                  write('error'),write(T)).
arreglo :- write('['), aux2, write(']').
aux2 :- read(X),(X='atributo'->atributo;
                X='fin'->write('');
                write('error '),write(X)).
metodo(M) :- write('"function() {'), instruccion, write('return '), write(M), write(';}"').         
instruccion :-  read(I),(I='asignacion'->asignacion, instruccion;
                         I='decision'->decision, instruccion;
                         I='fin'->write('');
                write('error '),write(X)).

:- objeto.

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