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: 103376,d89e2d213646aec8
X-Google-Attributes: gid103376,public
Path: 
 g2news1.google.com!news1.google.com!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread1.news.pas.earthlink.net.POSTED!a6202946!not-for-mail
From: Jeffrey Carter <spam@spam.com>
Organization: jrcarter commercial-at acm [period | full stop] org
User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.4) Gecko/20030624
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Mneson announcement and help request
References: <mailman.28.1086105372.391.comp.lang.ada@ada-france.org>
	<oVavc.34141$js4.3916@attbi_s51>
	<mailman.30.1086145552.391.comp.lang.ada@ada-france.org><c9kd3v$i1n$1@a1-hrz.uni-duisburg.de>
 <mailman.34.1086176483.391.comp.lang.ada@ada-france.org>
 <c9l0vo$pq3$1@sparta.btinternet.com>
In-Reply-To: <c9l0vo$pq3$1@sparta.btinternet.com>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <Xyxvc.19956$Tn6.3068@newsread1.news.pas.earthlink.net>
Date: Thu, 03 Jun 2004 04:12:39 GMT
NNTP-Posting-Host: 63.184.32.80
X-Complaints-To: abuse@earthlink.net
X-Trace: newsread1.news.pas.earthlink.net 1086235959 63.184.32.80 (Wed,
 02 Jun 2004 21:12:39 PDT)
NNTP-Posting-Date: Wed, 02 Jun 2004 21:12:39 PDT
Xref: g2news1.google.com comp.lang.ada:1049
Date: 2004-06-03T04:12:39+00:00
List-Id: <comp.lang.ada>

Martin Dowie wrote:

> Standard idiom:                         MAA Idiom:
> 
> while not End_Of_File (Current_Input)   begin
> loop                                       loop
>    Get_Immediate (C);                         Get_Immediate (C);
> end loop;                                  end loop;
>                                         exception
>                                            when End_Error =>
>                                               null;  -- End of file
>                                         end;

The standard idiom should be

loop
    exit when End_Of_File (Current_Input);

    Get_Immediate (C);
end loop;

which eliminates the calls to "not". In addition, it uses positive 
logic, rather than the negative logic required by while, which is easier 
to read and understand.

-- 
Jeff Carter
"You couldn't catch clap in a brothel, silly English K...niggets."
Monty Python & the Holy Grail
19