Codificador de arreglos y objetos, Prolog

Language: Layout:

objeto :- write('{'), auxobjeto, write('}').

auxobjeto :- read(X), (X='fin'->write('');
                           X='atributo'->atributo,auxobjeto2;
                           write('errorauxobjeto '), write(X) ).
    auxobjeto2 :- read(X), (X='fin'->write('');
                           X='atributo'->write(', '),atributo,auxobjeto2;
                           write('errorauxobjeto2 '), write(X) ).
                      
    valor :- read(X), (X='numero'->numero;
                       X='cadena'->cadena;
                       X='objeto'->objeto;
                       X='arreglo'->arreglo;
                       X='fin'->write('');
                       /*X='atributo'->atributo;*/
                       write('errorvalor '), write(X) ).
                       
    atributo :- cadena, write(':'), valor.                   
    numero :- read(X), write(X).
    cadena :- read(X), write('"'), write(X), write('"').
    arreglo :- write('['), auxarreglo, write(']').
    
    auxarreglo :- read(X), (X='fin'->write('');
                            X='valor'->valor,auxarreglo2;
                            write('error '), write(X) ).
    auxarreglo2 :- read(X), (X='fin'->write('');
                            X='valor'->write(', '),valor,auxarreglo2;
                            write('error2 '), write(X) ).
                            
    :- objeto.

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