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=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,d2f0af5e440b367f
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-26 22:56:51 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!nntp.cs.ubc.ca!freenix!enst.fr!not-for-mail
From: christoph.grein@eurocopter.com
Newsgroups: comp.lang.ada
Subject: Re: proposal for new assignment operators
Date: Fri, 27 Jun 2003 07:35:06 +0200 (MET DST)
Organization: ENST, France
Message-ID: <mailman.17.1056693410.8204.comp.lang.ada@ada.eu.org>
Reply-To: grein@egypt.otn.eurocopter.de
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: TEXT/plain; charset=ISO-8859-1
Content-Transfer-Encoding: QUOTED-PRINTABLE
X-Trace: avanie.enst.fr 1056693410 21030 137.194.161.2 (27 Jun 2003 05:56:50
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Fri, 27 Jun 2003 05:56:50 +0000 (UTC)
To: comp.lang.ada@ada.eu.org
Return-Path: <christoph.grein@eurocopter.com>
X-Authentication-Warning: mail.eurocopter.com: uucp set sender to
	<christoph.grein@eurocopter.com> using -f
Content-MD5: KGbDY69uKEErZSICfCi2jQ==
X-Mailer: dtmail 1.2.1 CDE Version 1.2.1 SunOS 5.6 sun4u sparc 
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: comp.lang.ada mail to news gateway  <comp.lang.ada.ada.eu.org>
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=subscribe>
Xref: archiver1.google.com comp.lang.ada:39799
Date: 2003-06-27T07:35:06+02:00

Georg Bauhaus schrieb:

> Preben Randhol <randhol+abuse@pvv.org> wrote:
> : Georg Bauhaus wrote:
> :> But we are close to that already, here is an excerpt from a =
working program:
> :>=20
> :>    case a*(%$%) is
> :>       when o.O          =3D> A :=3D+ ('o');
> :>       when (8-v)|12#8B# =3D> OM(O.%/%(0,-0));
> :>       when 2!2:0:..2:1: =3D> null;
> :>       when others       =3D> << oO >> O.oo (O.o>o.O);
> :>    end case;
> :>=20
> :=20
> : I don't believe this is from a *working* program.
>
> o.K.
>
> procedure glub is
>
>    procedure OM(o: natural) is
>    begin
>       null;
>    end OM;
>
>    a: Natural :=3D 1;
>    v: constant :=3D 1;
>
>    package o is
>       o: constant :=3D 17;
>       procedure oo (o: Boolean);
>       function "/"(o,oo: Natural) return natural;
>       function "*"(left: Natural; right: String) return Natural;
>       function "+"(o: Character) return Natural;
>    end o;
>    package body o is
>       procedure oo (o: Boolean) is begin null; end oo;
>       function "/"(o,oo: Natural) return Natural is
>       begin
>          return 0;
>       end "/";
>       function "*"(left: Natural; right: String) return Natural is
>       begin
>          return 1;
>       end "*";
>       function "+"(o: Character) return Natural is
>       begin
>          return 5;
>       end "+";
>    end o;
>
>    use o;
>
> begin
>    case a*(%$%) is
>       when o.O          =3D> A :=3D+ ('o');
>       when (8-v)|12#8B# =3D> OM(O.%/%(0,-0));
>       when 2!2:0:..2:1: =3D> null;
>       when others       =3D> << oO >> O.oo (O.o>o.O);
>    end case;
>
> end glub;

Georg, I thought you were kidding when you said this was from a working =
program. Now I'm=20
standing with awe in front of this little gem. I'll keep it in my store =
forever :-)

Das ist das sch=F6nste verr=FCckte Ada-Programm, das ich je gesehen =
habe :-)