Isan , Prolog - rextester

Language: Layout:

/*Luna Ramírez*/

progra:- write('{') ,read(X), (X='atributo' -> opvalor, write('}');
                                               write('}')).                                               
opvalor:- read(X), (X='cadena' -> cadena,write(':'),cadena,valor; 
                    X='numero' -> cadena,write(':'),numero,valor; 
                    X='objeto' -> cadena,write(':'),progra,valor; 
                    X='array' -> cadena,write(':'),array,valor;
                    X='metodo' -> cadena,write(':'),metodo,valor;
                    X='' -> write('')).
valor:- read(X), (X='cadena' -> write(','),cadena,write(':'),cadena,valor; 
                    X='numero' -> write(','),cadena,write(':'),numero,valor; 
                    X='objeto' -> write(','),cadena,write(':'),progra,valor;
                     X='array' -> write(','),cadena,write(':'),array,valor;
                     X='metodo' -> write(','),cadena,write(':'),metodo,valor;
                    X='' -> write('')).
cadena:- read(X), write('"'),write(X),write('"').
numero:- read(X), write(X).
array:- write('['),parray,write(']').
vparray:- read(X), (X='cadena' -> cadena,ovarray; 
                    X='numero' -> numero,ovarray; 
                    X='objeto' -> progra,ovarray; 
                    X='array' -> array,ovarray;
                    X='' -> write('')).
ovarray:- read(X), (X='cadena' -> write(','),cadena,ovarray; 
                    X='numero' -> write(','),numero,ovarray; 
                    X='objeto' -> write(','),progra,ovarray;
                     X='array' -> write(','),array,ovarray;
                    X='' -> write('')).
metodo:- write('"function() {'),instruccion,write('}"').
instruccion:- read(X), (X='asignacion'->asignacion,instruccion;
                        X='decision'->decision,instruccion;
                        X=''->write('');
                        X='fin'->write(' return '),read(Y),write(Y),write(';')).
asignacion:- numero,write('='),numero,write('; ').                     
decision:- write('if ('),numero,write(')'), write('{'),instruccion,write('}'),write('else{'),instruccion,write('}').
:- progra.

[ - ] Show input
Absolute running time: 0.35 sec, cpu time: 0.2 sec, memory peak: 7 Mb, absolute service time: 0,48 sec