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.0 required=5.0 tests=BAYES_00,FORGED_HOTMAIL_RCVD2,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,35edde140291c79e
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Received: by 10.68.130.100 with SMTP id od4mr352004pbb.2.1335798288161;
        Mon, 30 Apr 2012 08:04:48 -0700 (PDT)
Path: 
 r9ni116143pbh.0!nntp.google.com!news1.google.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From: gautier_niouzes@hotmail.com
Newsgroups: comp.lang.ada
Subject: Re: Can Ada iterate over Nd array?
Date: Mon, 30 Apr 2012 07:48:21 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <6137402.748.1335797301842.JavaMail.geo-discussion-forums@vbkv21>
References: <slrnjphkhm.h4f.oka.sux@localhost.localdomain>
 <jnan0d$i2m$1@tornado.tornevall.net>
 <slrnjphp76.i6m.oka.sux@localhost.localdomain>
 <393172.2032.1335455290715.JavaMail.geo-discussion-forums@yntt13>
 <jncps9$65t$1@munin.nbi.dk> <wccsjfpl2tt.fsf@shell01.TheWorld.com>
 <4f9ba943$0$9504$9b4e6d93@newsspool1.arcor-online.net>
 <3358586.638.1335605749902.JavaMail.geo-discussion-forums@vbbfk16>
NNTP-Posting-Host: 206.122.158.4
Mime-Version: 1.0
X-Trace: posting.google.com 1335798288 26282 127.0.0.1 (30 Apr 2012 15:04:48
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 30 Apr 2012 15:04:48 +0000 (UTC)
In-Reply-To: 
 <3358586.638.1335605749902.JavaMail.geo-discussion-forums@vbbfk16>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=206.122.158.4;
 posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG
User-Agent: G2/1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Date: 2012-04-30T07:48:21-07:00
List-Id: <comp.lang.ada>

Am Samstag, 28. April 2012 11:35:49 UTC+2 schrieb bj=F6rn lundin:
> We use a 5 dimensional array for selecting locations
> In our wms/wcs system.  Warehouse control system, that is.=20
> A location is described by a 5- coordinat system
> Store
> Rack
> Stack
> Level
> Depth
>=20
> This was designed around 1990 so today we might have used other
> Techniques. Dbacces was slow then,=20
> --
> Bj=F6rn Lundin

Sounds familiar (mutatis mutandis)... Here is:

  type Aggregator is record
    loc              : Locator_String;
    [ some other data ]
  end record;

  type Aggregator_array is array(Integer range <>) of Aggregator;

  type Aggregator_stack(max: Natural) is record
    top : Natural:=3D 0;
    item: Aggregator_array(1..max);
  end record;

  type Monster is
        array(Coverage_type,
              Risk_type,
              Struct_mod_type)
  of
        Aggregator_stack(max);

from a tool which is used to compact data - without loss of important infor=
mation, of course :-).
Each cell, agg(cov,ris,smo).item(idx) is of type Aggregator...=20
The first 3 index types are short enumerated types.

G.