/* Lectura de una frase y transformación en átomos */

leer_frase(Palabras):-
		get0(Caracter),
		leer_resto(Caracter,Palabras).

/* El punto "." indica el fin de la frase */
leer_resto(46,[]):- !.      

/* Se omite el espacio en blanco */
leer_resto(32,Palabras):- 		
		!,
		leer_frase(Palabras).


/* Lee los caracteres de la palabra actual */

leer_resto(Caracter,[Palabra|Palabras]):-
		leer_caracteres(Caracter,Caracteres,Siguiente_caracter),
		name(Palabra,Caracteres),
		leer_resto(Siguiente_caracter,Palabras).


/* Fin de palabra: 46 = punto "." */
leer_caracteres(46,[],46):- !.		

/* Fin de palabra: 32 = espacio en blanco */
leer_caracteres(32,[],32):- !. 		


leer_caracteres(Caracter,[Caracter|Caracteres],Siguiente_caracter):- 
	
	get0(Nuevo_Caracter),
	
	leer_caracteres(Nuevo_Caracter,Caracteres,Siguiente_caracter).




