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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f849b,b8d52151b7b306d2
X-Google-Attributes: gidf849b,public
X-Google-Thread: 103376,a00006d3c4735d70
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-12-30 13:35:11 PST
Path: 
 archiver1.google.com!news2.google.com!newsfeed2.dallas1.level3.net!news.level3.com!crtntx1-snh1.gtei.net!news.gtei.net!newsfeed1.easynews.com!easynews.com!easynews!cyclone1.gnilink.net!spamkiller2.gnilink.net!nwrdny02.gnilink.net.POSTED!c2bfcbcf!not-for-mail
Subject: Re: Certified C compilers for safety-critical embedded systems
Newsgroups: comp.arch.embedded,comp.lang.ada
References: <3fe00b82.90228601@News.CIS.DFN.DE> <3FE026A8.3CD6A3A@yahoo.com>
 <x0%Db.16$_l6.25998@news.uswest.net>
 <3bf1uvg2ntadvahfud2rg6ujk24sora6gr@4ax.com>
 <2u3auvogde8ktotlaq0ldiaska3g416gus@4ax.com> <bs62ph$giu$1@newshost.mot.com>
 <20619edc.0312221020.3fd1b4ee@posting.google.com>
 <b5feuv06s2nmpakq0o1b7v0kpd450v3eli@4ax.com>
 <20619edc.0312222106.3b369547@posting.google.com>
 <45cs9hAbLc6$EAAx@phaedsys.demon.co.uk> <3fe9f0d7.104475725@News.CIS.DFN.DE>
 <FaLTFYBFof6$EAVI@phaedsys.demon.co.uk>
 <5802069.JsgInS3tXa@linux1.krischik.com>
 <1072464162.325936@master.nyc.kbcfp.com>
 <1563361.SfB03k3vvC@linux1.krischik.com>
 <11LvOkBBXw7$EAJw@phaedsys.demon.co.uk> <3ff0687f.528387944@News.CIS.DFN.DE>
 <1086072.fFeiH4ICbz@linux1.krischik.com> <3ff18d4d.603356952@News.CIS.DFN.DE>
 <1731094.1f7Irsyk1h@linux1.krischik.com> <3ff1b8ef.614528516@News.CIS.DFN.DE>
From: Ed Falis <falis@verizon.net>
Content-Type: text/plain; format=flowed; charset=utf-8
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Message-ID: <opr00jfeq48wdn3j@news.verizon.net>
User-Agent: Opera7.23/Linux M2 build 518
Date: Tue, 30 Dec 2003 21:35:10 GMT
NNTP-Posting-Host: 141.154.32.99
X-Complaints-To: abuse@verizon.net
X-Trace: nwrdny02.gnilink.net 1072820110 141.154.32.99 (Tue,
 30 Dec 2003 16:35:10 EST)
NNTP-Posting-Date: Tue, 30 Dec 2003 16:35:10 EST
Xref: archiver1.google.com comp.arch.embedded:6396 comp.lang.ada:3965
Date: 2003-12-30T21:35:10+00:00
List-Id: <comp.lang.ada>

On Tue, 30 Dec 2003 19:20:50 GMT, Dave Hansen <iddw@hotmail.com> wrote:

>    int key;
>    extern int get_key(void);
>    extern void process(int);
>    #define EXIT_KEY  'X'
>
>    while ( (key = get_key()) != EXIT_KEY )
>       process(key);
>
> How do you do that in Ada?
>


with Get_Key, Process;
--  Assuming appropriate declarations elsewhere

procedure Do_it is
     Key: Character;
     Exit_Key : constant Character := 'X';
begin
    loop
        Key := Get_Key;
    exit when Key = Exit_Key;
       Process (Key);
    end loop;
end Do_It;

An extra few lines.

- Ed