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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,38fc011071df5a27
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-06-17 01:15:53 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!newsfeed.vmunix.org!fu-berlin.de!uni-berlin.de!dialin-145-254-039-079.arcor-ip.NET!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: Ideas for Ada 200X "left hand side" repeater.
Date: Tue, 17 Jun 2003 10:18:38 +0200
Organization: At home
Message-ID: <bcminn$kof9m$1@ID-77047.news.dfncis.de>
References: <slrnbebc2b.ht.randhol+abuse@kiuk0152.chembio.ntnu.no>
 <bebbba07.0306101640.19178e81@posting.google.com>
 <3EE7CC70.E1FD3A67@adaworks.com>
 <bebbba07.0306121116.33e4741@posting.google.com>
 <bcbu9i$hgu5j$1@ID-175126.news.dfncis.de> <AwvGa.1228118$F1.143267@sccrnsc04>
 <3EECA772.4B662024@adaworks.com> <hYmHa.6881$Hb.124073@news4.e.nsc.no>
 <BB13C10D.350A%yaldnifw@blueyonder.co.uk>
 <bcl1pu$jscm4$1@ID-175126.news.dfncis.de>
 <BB13CDB9.3516%yaldnifw@blueyonder.co.uk>
 <bcl4o8$kkj68$1@ID-175126.news.dfncis.de>
 <eIydnQ7dD_77h3OjXTWJiA@gbronline.com> <bclnfn$1ga0$1@msunews.cl.msu.edu>
Reply-To: mailbox@dmitry-kazakov.de
NNTP-Posting-Host: dialin-145-254-039-079.arcor-ip.net (145.254.39.79)
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
X-Trace: fu-berlin.de 1055837752 21773622 145.254.39.79 (16 [77047])
User-Agent: KNode/0.7.1
Xref: archiver1.google.com comp.lang.ada:39312
Date: 2003-06-17T10:18:38+02:00
List-Id: <comp.lang.ada>

Chad R. Meiners wrote:

> Or how about
> 
> [Pixel] Screen.Buffer(i) := Pixel + 1;
> 
> where [Pixel] gives an idem name "Pixel" for Screen.Buffer(i) which can be
> used (in place of its variable) until it falls out of scope at the
> semi-colon.

Looks like a label. It could be:

<<Pixel>> Screen.Buffer(i) := Pixel + 1;

however, it gets a bit tricky:

<<Pixel>>
   Screen.Buffer(i) := Pixel + 1;
   ...
   Pixel := Pixel + 1; -- Illegal, Pixel is out of scope
   ...
   goto Pixel; -- OK

-- 
Regards,
Dmitry A. Kazakov
www.dmitry-kazakov.de