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-Thread: 103376,fccea7ca608399cd
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news1.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed00.sul.t-online.de!t-online.de!feeder.news-service.com!multikabel.net!newsfeed10.multikabel.net!feeder4.cambrium.nl!feed.tweaknews.nl!news.netcologne.de!newsfeed-hp2.netcologne.de!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Vector of Vectors.
Newsgroups: comp.lang.ada
User-Agent: 40tude_Dialog/2.0.15.1
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Reply-To: mailbox@dmitry-kazakov.de
Organization: cbb software GmbH
References: <496e8418$0$25733$4d3efbfe@news.sover.net>
 <aqxbl.525097$yE1.73554@attbi_s21>  <6t8gc1F9ej88U1@mid.individual.net>
 <HeNbl.470657$TT4.98639@attbi_s22> <wccab9s6z2q.fsf@shell01.TheWorld.com>
 <c6b25ab4-ffc8-49e5-8ab3-18e3bc21b897@35g2000pry.googlegroups.com>
Date: Sat, 17 Jan 2009 11:51:45 +0100
Message-ID: <1k65xsljjpsa9$.1e4pcvnzbjpag.dlg@40tude.net>
NNTP-Posting-Date: 17 Jan 2009 11:51:46 CET
NNTP-Posting-Host: 8110306a.newsspool3.arcor-online.net
X-Trace: 
 DXC=X57CL57BP`^I?44J>Z[:RQMcF=Q^Z^V3X4Fo<]lROoRQ^YC2XCjHcbYS7H=QbWHU8VDNcfSJ;bb[UIRnRBaCd<M^gDW4Be\OF2[j6S??eCYZUQ
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:4378
Date: 2009-01-17T11:51:46+01:00
List-Id: <comp.lang.ada>

On Sat, 17 Jan 2009 02:20:28 -0800 (PST), Ivan Levashew wrote:

> Downwards closures is rather easy way to write write-only Ada code.
> 
> I've specified the order in which I wrote every line. There are just 2
> levels here.
> 
> 1 declare
> 5    procedure ...(...) is
> 9       procedure ...(...) is
> ...
> 10      begin
> 12         Iterate (..., ...'Acess);
> 11      end ...;
> 6    begin
> 8       Update_Element (..., ...'Access);
> 7    end ...;
> 2 begin
> 4   Iterate (...., ...'Access);
> 3 end;
> 
> Do you read in the same order?
> 
> I'd like to have a syntax like this:
> 
> Iterate (..., ..., new procedure (...) is
>    begin
> ...
>    end;);
> 
> Procedure name should be optional, I think.

And the next step is

   for Element in Vector loop
      -- place "new procedure" here!
   end loop;

There is nothing better for iteration than loops. Downward closures are
meant for different stuff.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de