JSON_25-08, Prolog

Language: Layout:

%commands to the interpreter are submitted from stdin input 
% ('show input' box below)
%'halt.' will be automatically appended to stdin input.
%swi-prolog 7.6.4

object :- write('{'), read(X), (X='attribute' -> attribute;
                                write('')), a1,
                                write('}').
a1 :- read(X), (X='attribute' -> write(','), attribute,a1;
                X= 'end'-> write('')).
attribute :- string, write(':'), value.
value :- read(X), (X= 'string' ->string;
                   X= 'number' ->number; 
                   X= 'object' ->object;
                   X= 'method' ->method).
string :- read(X), write('"'), write(X), write('"').
number :- read(X), write(X).
method :- write('"function() {'), instruction, write('}"').
instruction :- read(X), (X= 'assignment' ->assignment, instruction;
                         X= 'decision' ->decision, instruction;
                         X= 'endsub' -> write('');
                         X= 'endm' ->write(' return '), read(Y), write(Y), write(';')).
decision :- write('if( '), number, write(')'), verdadero.
verdadero :- write('{'), instruction, write('}').

assignment :- number, write('='), number, write(';').
:- object.

[ - ] Show input
Absolute running time: 0.66 sec, cpu time: 0.33 sec, memory peak: 7 Mb, absolute service time: 0,81 sec