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,d2f0af5e440b367f
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-26 09:32:53 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.ems.psu.edu!news.cis.ohio-state.edu!news.maxwell.syr.edu!uio.no!ntnu.no!not-for-mail
From: Preben Randhol <randhol+abuse@pvv.org>
Newsgroups: comp.lang.ada
Subject: Re: proposal for new assignment operators
Date: Thu, 26 Jun 2003 16:32:53 +0000 (UTC)
Organization: Norwegian university of science and technology
Message-ID: <slrnbfm817.ovp.randhol+abuse@kiuk0152.chembio.ntnu.no>
References: <bebbba07.0306242223.1f86b3f7@posting.google.com>
 <CIkBNO94w0ls@eisner.encompasserve.org>
 <slrnbfj40v.3su.randhol+abuse@kiuk0152.chembio.ntnu.no>
 <bdd6p4$dht$2@a1-hrz.uni-duisburg.de>
NNTP-Posting-Host: kiuk0152.chembio.ntnu.no
X-Trace: tyfon.itea.ntnu.no 1056645173 14496 129.241.83.78 (26 Jun 2003
 16:32:53 GMT)
X-Complaints-To: usenet@itea.ntnu.no
NNTP-Posting-Date: Thu, 26 Jun 2003 16:32:53 +0000 (UTC)
User-Agent: slrn/0.9.7.4 (Linux)
Xref: archiver1.google.com comp.lang.ada:39776
Date: 2003-06-26T16:32:53+00:00
List-Id: <comp.lang.ada>

Georg Bauhaus wrote:
> But we are close to that already, here is an excerpt from a working program:
> 
>    case a*(%$%) is
>       when o.O          => A :=+ ('o');
>       when (8-v)|12#8B# => OM(O.%/%(0,-0));
>       when 2!2:0:..2:1: => null;
>       when others       => << oO >> O.oo (O.o>o.O);
>    end case;
> 

I don't believe this is from a *working* program.


-- 
Ada95 is good for you.
http://www.crystalcode.com/codemage/MainMenu/Coding/Ada/IntroducingAda.php