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,FREEMAIL_FROM
	autolearn=ham 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 03:40:03 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!msunews!not-for-mail
From: "Chad R. Meiners" <crmeiners@hotmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Ideas for Ada 200X "left hand side" repeater.
Date: Tue, 17 Jun 2003 06:37:59 -0400
Organization: Michigan State University
Message-ID: <bcmr29$2ffi$1@msunews.cl.msu.edu>
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>
 <bcminn$kof9m$1@ID-77047.news.dfncis.de>
NNTP-Posting-Host: arctic.cse.msu.edu
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:39320
Date: 2003-06-17T06:37:59-04:00
List-Id: <comp.lang.ada>


"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote in message
news:bcminn$kof9m$1@ID-77047.news.dfncis.de...
> Looks like a label. It could be:
>
> <<Pixel>> Screen.Buffer(i) := Pixel + 1;

It was inspired by the label, but I definitely did not want to overload the
label; hence, the []'s instead of <<>>'s

> however, it gets a bit tricky:
>
> <<Pixel>>
>    Screen.Buffer(i) := Pixel + 1;
>    ...
>    Pixel := Pixel + 1; -- Illegal, Pixel is out of scope
>    ...
>    goto Pixel; -- OK

Of course that could look like
<<Write_ith_Pixel>>
  [Pixel] Screen.Buffer(i) := Pixel + 1;
 ...
 Pixel := Pixel + 1; -- Illegal, Pixel is out of scope
 ...
 goto Write_ith_Pixel; -- OK

which appears to me to have a nice balance of verbosity and conciseness.

-CRM