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,585fd78267abd80c
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!194.25.134.126.MISMATCH!newsfeed01.sul.t-online.de!t-online.de!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Tue, 29 Jul 2008 16:49:53 +0200
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Thunderbird 2.0.0.16 (Macintosh/20080707)
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: On pragma Precondition etc.
References: <4889886d$0$18827$9b4e6d93@newsspool2.arcor-online.net>
 <Pine.LNX.4.64.0807251224010.10913@medsec1.medien.uni-weimar.de>
 <f9112d8f-1c5a-4533-88ed-b4c22d108ac8@q5g2000prf.googlegroups.com>
 <6etsi6F8mbmbU2@mid.individual.net> <488efc8d$1@news.post.ch>
 <py8uf7h03ctg$.qp3cvq1pos4a$.dlg@40tude.net>
 <488f26e8$0$20705$9b4e6d93@newsspool4.arcor-online.net>
In-Reply-To: <488f26e8$0$20705$9b4e6d93@newsspool4.arcor-online.net>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <488f2e11$0$20707$9b4e6d93@newsspool4.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 29 Jul 2008 16:49:53 CEST
NNTP-Posting-Host: 449c0db5.newsspool4.arcor-online.net
X-Trace: 
 DXC=F8F7T\MNG9OE4ZB2flKORA4IUK<Cl32<A4Fo<]lROoRAFl8W>\BH3YBDeE^@Kok;oF;9OJDO8_SKFNSZ1n^B98iJ\nn\G9[LX=O
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:1376
Date: 2008-07-29T16:49:53+02:00
List-Id: <comp.lang.ada>

Georg Bauhaus schrieb:

> For the Class Invariant, Randy Brukardt has mentioned
> 
>    for T'Constraint use Function_Name;
> 

Hmmm...  There is Foo'Result, already, in GNAT's "experimental"
edition. So,


    function Foo(X, Y: Integer) return Whatever;
    --  The bar of (x, y)

    for Foo'Precondition use X > Y;

Or,

    for Foo'Precondition use
       local_name => expression {, local_name => expression} ;


Or, reusing Assert and exception mechnisms

    for Foo'Precondition use
       expression with "message"
      {, expression with "another message"} ;


Should we be wanting parentheses around the aggregates of
boolean expressions?  :)


--
Georg Bauhaus
Y A Time Drain  http://www.9toX.de