JSON con asignaciones y decisiones dentro de una función, Prolog

JSON con asignaciones y decisiones dentro de una función

objeto :- write('{'),key,write('}').
key :- read(X),(X='fin'->write('');X='halt'->write('');
                X='otro'->write(','),key;
                write('"'),write(X),write('"'),
                write(':'),valor).
valor :- read(X),(X='cadena'->cadena; 
                  X='numero'->numero; 
                  X='objeto'->objeto;
                  X='funcion'->funcion),key.
numero :- read(X),write(X).
cadena :- read(X), write('"'),write(X),write('"').
funcion :- write('"function(){'),instruccion,
           write('return '),read(Y),write(Y),write(';'),
           write('}"').
instruccion :- read(X),(X='asignacion'->asignacion;
                        X='decision'->decision;                                                
                        X='fin'->write('')).
decision :- write('if('),read(X),write(X),write(')'),verdadero,falso,instruccion.
            
verdadero :-write('{'),instruccion,write('}').
falso :- write(' else{'),instruccion,write('} '). 
asignacion :- numero,write('='),numero,write('; '),instruccion.
:- objeto.


run \| edit \| history \| help	0