Codificador JSON Acosta Rodriguez Luis Manuel, Prolog

Language: Layout:

objeto:- write('{ '), read(X), a1(X), write('}').                                 
a1(X):- X = 'atributo' -> atributo;  write(' ').                                   
atributo:- read(X), write('"'), write(X), write('":'), tipoatributo(X), otro.

tipoatributo(M):- read(X), (X = 'metodo' -> metodo(M);  X = 'numero' -> numero; X = 'cadena' -> cadena;  X= 'arreglo' -> arreglo; (X = 'objeto' -> objeto; write('error') )).
otro:- read(X), X = 'atributo' -> write(', '), atributo; write(' ').
%arreglo:- write('['),read(X),(X='arreglo'->arreglo;write(X)),write(']').
arreglo:- write('['), otroarr, write(']'). /*otroarr.*/ /*write('",'),write('"'),write(']').*/ 
%otroarr:- tipoatributo(_X), a1(X).
%a5:- read(Z), write(Z), Z= 'otroarr' -> otroarr; write('').
otroarr:- read(X), write('"'), write(X), write('"'), agreg.  
agreg:- read(X), (X= 'otroarr' -> write(','),otroarr;write('')), read(X), X='arreglo' -> write(','), arreglo;write('').
%arreglo:- write('['),read(X), (X='arreglo'->arreglo;write(',')),write(']').
cadena:- read(X), write('"'), write(X), write('"'). 
numero:- read(X), write(X).
metodo(M):- write('"function() {'),a2,write(' return '), write(M), write(';}"').
a2:- read(X), (X='decision'->decision;a3(X)).
a3(X):- X='asignacion' -> asignacion;(a4(X)).
a4(X):- X='fin' -> write('');(write('ERROR: '),write(X)).
asignacion:- read(X), write(X), write('='), read(Y), write(Y), write(';'),a2.
decision:- write('if('),condicion,write(')'), verdadero,falso.
condicion:- read(X), write(X).
verdadero:- write('{'),a2,write('}').
falso:- write('else {'),a2,write('}').

:- objeto.

[ - ] Show input
Absolute running time: 0.34 sec, cpu time: 0.16 sec, memory peak: 7 Mb, absolute service time: 0,44 sec