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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,81054609038e88e3
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news2.google.com!proxad.net!newsfeed.stueberl.de!newsfeed01.sul.t-online.de!newsmm00.sul.t-online.de!t-online.de!news.t-online.com!not-for-mail
From: Oliver Kellogg <okellogg@freenet.de>
Newsgroups: comp.lang.ada
Subject: Re: Literate Programming in Ada, AdaDoc, AdaBrowse
Date: Sun, 10 Oct 2004 10:28:24 +0200
Organization: T-Online
Message-ID: <ckaro6$e98$03$1@news.t-online.com>
References: <2sqmccF1oit5sU1@uni-berlin.de> <uwtxz3dfd.fsf@act-europe.fr>
 <2sr4jaF1od20uU1@uni-berlin.de> <en_9d.105655$dP1.391322@newsc.telia.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8Bit
X-Trace: news.t-online.com 1097396806 03 14632 2aMnXiA1lvZDpU6 041010 08:26:46
X-Complaints-To: usenet-abuse@t-online.de
X-ID: ZkrebvZD8e7mOSG20EZKOAGoc27s3XrijF8bHaXcsTmA9NhiT2eMY0
User-Agent: KNode/0.7.90
Xref: g2news1.google.com comp.lang.ada:4981
Date: 2004-10-10T10:28:24+02:00
List-Id: <comp.lang.ada>

Bj�rn Persson wrote:

>>   if Error_Detected then
>>      Put_Line (Current_Error, "Error in $LINE{} $FILE{}");
>>   else
>>      ...
> 
> I think this would be done better with functions:
> 
>     if Error_Detected then
>        Put_Line (Current_Error, "Error on line " & ECLAT.Line_Number &
>                                 " in " & ECLAT.File_Name & '.');
>     else
>        ...
> 

Minor quibble: This notation blurs the distinction between parse time
and run time evaluation, is that intentional?

Oliver M. Kellogg