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-25 15:12:54 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!nntp.cs.ubc.ca!freenix!teaser.fr!newsfeed.stueberl.de!eusc.inter.net!cs.tu-berlin.de!uni-duisburg.de!not-for-mail
From: Georg Bauhaus <sb463ba@d2-hrz.uni-duisburg.de>
Newsgroups: comp.lang.ada
Subject: Re: proposal for new assignment operators
Date: Wed, 25 Jun 2003 22:12:52 +0000 (UTC)
Organization: GMUGHDU
Message-ID: <bdd6p4$dht$2@a1-hrz.uni-duisburg.de>
References: <bebbba07.0306242223.1f86b3f7@posting.google.com>
 <CIkBNO94w0ls@eisner.encompasserve.org>
 <slrnbfj40v.3su.randhol+abuse@kiuk0152.chembio.ntnu.no>
NNTP-Posting-Host: d2-hrz.uni-duisburg.de
X-Trace: a1-hrz.uni-duisburg.de 1056579172 13885 134.91.1.15 (25 Jun 2003
 22:12:52 GMT)
X-Complaints-To: usenet@news.uni-duisburg.de
NNTP-Posting-Date: Wed, 25 Jun 2003 22:12:52 +0000 (UTC)
User-Agent: tin/1.5.8-20010221 ("Blue Water") (UNIX) (HP-UX/B.11.00
 (9000/831))
Xref: archiver1.google.com comp.lang.ada:39745
Date: 2003-06-25T22:12:52+00:00
List-Id: <comp.lang.ada>

Preben Randhol <randhol+abuse@pvv.org> wrote:
: Larry Kilgallen wrote:
:> 
:> For all I care, such operators could be !@#$^#$%^#$%, I would not
:> understand them any less.  Please do not assume that we all came
: 
: But wouldn't it be more fun to write and read Ada programs if we could
: have:
: 
:   :-)
:   :-(
:   :-/
:   :-P
:  >:-{
:  <:-)
: 
: and similar smilies as syntaxes ;-)

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;