----------------------------------------------------------------------------------------------------
--AUTOR:    David Alfonso Gaspar (1º Ing. Informatica)
--PROYECTO: Ejemplo de Intr. a la programacion
--FICHERO:  mayusdeclase.adb
--FECHA:    Octubre 1999
--MODIFICADO POR:
--FECHAS DE MODIFICACION:
--DESCRIPCION: Este programa lee una frase escrita por el usuario y la modifica. Tras poner un
--             punto y pulsar Enter, el programa da la frase por terminada y la pone a continuacion
--             conviertiendo en mayuscula la primera letra de cada palabra en caso de que no lo sea.
--      
with Ada.text_io, Ada.Integer_text_IO;
use Ada.text_io, Ada.Integer_text_IO;


procedure mayusdeclase is

	-- CONSTANTES
	--DIFERENCIA: constant integer := 32;
	DIFERENCIA: constant integer := character'pos('a') - character'pos('A'); -- Mejor as´i.
	
	-- VARIABLES
	letra: character;
	letraAnterior: character;
	
begin
	put("Introduce una frase terminada con un punto: ");
	letraAnterior := ' ';
	while letraAnterior /= '.' loop
		get(letra);
		if (letraAnterior = ' ') then
			if (letra >= 'a') AND (letra <= 'z') then
				letra := character'val(character'pos(letra) - DIFERENCIA);
			end if;
		end if;
		put(letra);
		letraAnterior := letra;
	end loop;
end mayusdeclase;