Base de conocimientos, Prolog

Base de conocimientos

objeto:- write('{ '), read(X), (X = 'atributo' -> atributo; write(' ')), write('}').
atributo:- read(X), write('"'), write(X), write('":'), tipoatributo(X), otro.
tipoatributo(M):- read(X), (X='metodo'->metodo(M); (X='numero'->numero; (X='cadena'->cadena; (X='objeto'->objeto; (X='arreglo'->arreglo;write('errorTipoDato')))))).
otro:- read(X), (X='atributo'->write(', '), atributo; write('')).
cadena:- read(X), write('"'), write(X), write('"'). 
numero:- read(X), write(X).
arreglo:-  write('['), read(X), (X = 'valor'->tipovalor; write('')), write(']').
tipovalor:- read(X),(X='numero'->numero; (X='cadena'->cadena; (X='objeto'->objeto; (X='arreglo'->arreglo;write('errorTipoDato'))))),otrovalor.
otrovalor:- read(X), (X='valor'->write(','), tipovalor; X='finarray'->write('')).
metodo(M):- write('"function() {'),a2,write(' return '), write(M), write(';}"').
a2:- read(X), (X = 'decision' -> decision ; (X = 'asignacion' -> asignacion ; (X='fin' -> write(''); (write('ERROR: '), write(X))))).
asignacion:- read(X), write(X), write('='), read(Y), write(Y), write(';'),a2.
decision:- write('if('),condicion,write(')'), verdadero,falso.
condicion:- read(X), write(X).
verdadero:- write('{'),a2,write('}').
falso:- write('else {'),a2,write('}').
:- objeto.


run \| edit \| history \| help	0