Re: Latin_1 and portability

[Jeffrey Carter <spam@spam.com>]

Xavier Serrand wrote:

> For return (or enter)
> 
> when using Text_Io.Get_Immediate (E);
> 
> on UNIX or Linux Suse Character'Pos (E) = 10
> on Windows 2000 Character'Pos (E) = 13

You could write

if Text_IO.End_Of_Line then
    Text_IO.Skip_Line;
    -- End of line processing
else
    Text_IO.Get_Immediate (E);
    -- Normal character processing
end if;

or

Text_IO.Get_Immediate (E);

case E is
when Latin_1.CR | Latin_1.LF =>
    -- End of line processing
when ... -- other special cases
when others =>
    -- Normal character processing
end case;

-- 
Jeff Carter
"Perfidious English mouse-dropping hoarders."
Monty Python & the Holy Grail
10