Re: Ada Characters?

[Jim Rogers <jimmaureenrogers@worldnet.att.net>]

Wannabe h4x0r wrote:

> I'm trying to figure out how to get my Ada program to single out ASCII
> control codes without hosing the output of the rest of the text file. 
> 
> Basically, I'm doing it like this...
> with Ada.Characters; use Ada.Characters.Handling;
> 
> 	TEXT : string(1..200);
> 	chk_char: character;  -- Check to see if this is a control character.
> 	chk_result : boolean;
> 	
> and the code goes like this ...
> 
> 	for l in TEXT'range loop
> 		chk_char := TEXT(l);
> 		chk_result := Is_control(chk_char);
> 			if chk_result is True then
> 				if <how do I check to see if it's a NL(new line) character?> then
> 					NEW_LINE;
> 				else
> 					NULL;
> 				end if;
> 			else
> 				Put(chk_char); --Put each character individually
> 			end if;
> 	end loop;


with Ada.Characters.Latin_1;
with Ada.Characters.Handling; use Ada.Characters.Handling;

...

for l in TEXT'range loop
    chk_char := TEXT(l);
    if Is_Control(chk_char) then
       if chk_char = Ada.Characters.Latin_1.LF then
          Ada.Text_IO.Put(chk_char);
       end if;
     else
       Ada.Text_IO.Put(chk_char);
     end if;
end loop;

Jim Rogers