Re: Avatox 1.1: Trouble with encoding in Windows

[Manuel Collado <m.collado@fi.upm.es>]

Marc A. Criley escribió:
> ...
> (Manuel, if you'd be so kind as to send me a standalone compilable 
> example of Ada code that uses an alternate character set that I could 
> use as an Avatox test case, I would be most grateful.)

Here you are:

----------------------------------------------------------------
-- Detección de años bisiestos

-- NOTE: This program contains non-ASCII characters in comments,
-- string literals, and even identifiers. It compiles OK with
-- GNAT 3.15p and GNAT GPL 2005 on Windows XP.
-- (Encoding = WINDOWS-1252 or ISO-8859-1 or LATIN1)

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;

procedure Bisiesto is
    Año: Integer;
begin
    loop
       Put_Line( "¿Año? (0 para terminar)" );
       Get( Año );
       exit when Año <= 0;
       Put( Año );
       if Año mod 4 /= 0 or else (Año mod 100 = 0 and then Año mod 400 /= 
0) then
          Put( " no" );
       end if;
       Put_Line( " es bisiesto" );
    end loop;
end Bisiesto;
----------------------------------------------------------------

Regards.
-- 
Manuel Collado