Object with array, Prolog

Object with array

objeto :- write('{'),aux1, write('}').
aux1 :- read(X), (X='atributo' ->atributo,aux2;
                  X='fin'->write('');
                  write('te equivocaste 1'),write(X)).
aux2 :- read(X), (X='atributo' ->write(' , '), atributo,aux2;
                  X='fin'->write('');
                  write('te equivocaste 2'),write(X)).
                  
aux3 :- read(X), (X='valor' ->valor,aux4;
                  X='fin'->write('');
                  write('te equivocaste 3'),write(X)).
aux4 :- read(X), (X='valor' ->write(' , '), valor,aux4;
                  X='fin'->write('');
                  write('te equivocaste 4'),write(X)).
atributo :- read(Nbatributo), write('"'),write(Nbatributo),write('":'), valor.
arreglo :- write('['),aux3, write(']').
valor :- read(X), (X='objeto' ->objeto; 
                  X='arreglo' ->arreglo;
                  X='cadena'->read(Cadena), write('"'),write(Cadena),write('"');
                  X='numero'->read(Numero),write(Numero);
                  write('te equivocaste 5'),write(X)).
:- objeto.


run \| edit \| history \| help	0