Re: Can Ada iterate over Nd array?

[gautier_niouzes@hotmail.com]

Am Samstag, 28. April 2012 11:35:49 UTC+2 schrieb björn lundin:
> We use a 5 dimensional array for selecting locations
> In our wms/wcs system.  Warehouse control system, that is. 
> A location is described by a 5- coordinat system
> Store
> Rack
> Stack
> Level
> Depth
> 
> This was designed around 1990 so today we might have used other
> Techniques. Dbacces was slow then, 
> --
> Björn 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:= 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 information, of course :-).
Each cell, agg(cov,ris,smo).item(idx) is of type Aggregator... 
The first 3 index types are short enumerated types.

G.