Codificador de JSON, Prolog

Codificador de JSON

%Cada elemento "String" tiene asignada un atributo "value" {string:value}.
objeto :- write('{'),aux1,write('}').
aux1 :- read(Elemento),(Elemento='atributo'->atributo,aux2;
                        Elemento='fin'->write('');
                        write('error '),write(Elemento)).

%Separa los atributos con comas
aux2 :- read(Elemento),(Elemento='atributo'->write(','),atributo,aux2;
                        Elemento='fin'->write('');
                        write('error '),write(Elemento)).

%Escribe el atributo asignado dentro de comillas dobles seguidas de dos puntos.
atributo :- read(Nbatributo),write('"'),
                             write(Nbatributo),
                             write('"'),
                             write(':'), valor.

%Ésta sentencia IF valida que tipo "value" se selecciona.
valor :- read(Tipoatributo),(Tipoatributo='cadena'->cadena;
                             Tipoatributo='objeto'->objeto;
                             Tipoatributo='numero'->read(Numero),write(Numero);
                             Tipoatributo='arreglo'->arreglo;
                             write('error '),write(Tipoatributo)).

%Se escribe la cadena asignada entre comillas.
cadena :- read(Cadena),write('"'),
                       write(Cadena),
                       write('"').
                           
arreglo :- write('['),aux3,write(']').
aux3 :- read(Elemento),(Elemento='valor'->valor,aux4;
                        Elemento='fin'->write('');
                        write('error '),write(Elemento)).

%Separa los atributos con comas el arreglo
aux4 :- read(Elemento),(Elemento='valor'->write(','),valor,aux4;
                        Elemento='fin'->write('');
                        write('error '),write(Elemento)).

:- objeto.


run \| edit \| history \| help	1