From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,a82f86f344c98f79
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,UTF8
Date: Tue, 12 Sep 2006 10:35:28 +0200
From: Manuel Collado <m.collado@fi.upm.es>
User-Agent: Thunderbird 1.5 (Windows/20051201)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Avatox 1.1: Trouble with encoding in Windows
References: <45051d37@news.upm.es>
 <45053aec$0$5142$9b4e6d93@newsspool1.arcor-online.net> <4505696b@news.upm.es>
 <wlhNg.16117$E02.6197@newsb.telia.net>
 <12e86$4505f9ec$41f0a638$6342@API-DIGITAL.COM>
In-Reply-To: <12e86$4505f9ec$41f0a638$6342@API-DIGITAL.COM>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
NNTP-Posting-Host: 138.100.242.201
Message-ID: <45067150@news.upm.es>
X-Trace: 12 Sep 2006 10:35:28 +0100, 138.100.242.201
Path: 
 g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!130.59.10.21.MISMATCH!kanaga.switch.ch!switch.ch!news.rediris.es!news.upm.es!138.100.242.201
Xref: g2news2.google.com comp.lang.ada:6562
Date: 2006-09-12T10:35:28+02:00
List-Id: <comp.lang.ada>

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