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=unavailable autolearn_force=no version=3.4.4
Path: 
 border1.nntp.ams3.giganews.com!border1.nntp.ams2.giganews.com!border3.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!news2.euro.net!novso.com!nerim.net!usenet-fr.net!feeder1-2.proxad.net!proxad.net!feeder2-2.proxad.net!newsfeed.arcor.de!newsspool3.arcor-online.net!news.arcor.de.POSTED!not-for-mail
User-Agent: NewsTap/3.5.5 (iPad)
From: Georg Bauhaus <rm-host.bauhaus@maps.arcor.de>
Newsgroups: comp.lang.ada
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
Message-ID: 
 <984821833395507830.672948rm-host.bauhaus-maps.arcor.de@news.arcor.de>
Subject: Re: The future of Spark . Spark 2014 : a wreckage
References: <1d4tuwlfdnz2j$.18l68s96x3vjj.dlg@40tude.net>
Date: 14 Jul 2013 15:57:20 GMT
Organization: Arcor
NNTP-Posting-Date: 14 Jul 2013 17:57:20 CEST
NNTP-Posting-Host: cd8b5b88.newsspool4.arcor-online.net
X-Trace: DXC=Hd>BnahYcP?D]ncZ]`hZ; 14IUK<Cl32<14Fo<]lROoR18kF<OcfhCO;
 nJn2oIPGFQ2PCY\c7>ejV87>\MG; 7[4T8L_<U`Gf^765
X-Complaints-To: usenet-abuse@arcor.de
X-Original-Bytes: 1588
Xref: number.nntp.dca.giganews.com comp.lang.ada:182514
Date: 2013-07-14T17:57:20+02:00
List-Id: <comp.lang.ada>

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote:

> I don't see how adding optional exception contracts should disrupt
> anything.

Aren't exceptions already part of contracts? Implied, though.

procedure Op (x : in out T)
  with Post => Foo(x) or else False;

For clarity, 

  C_E: Boolean renames False;

procedure Op (x : in out T)
  with Post => Foo(x) or else C_E;


Or, if there seems no way of telling clients about
preventive measures, but they should
nevertheless be aware of exceptions,

procedure Op (x : in out T)
  with Post => Random or else C_E;