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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9037b89465cfa891
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-02-19 22:28:59 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!news.gtei.net!newsfeed.mathworks.com!wn13feed!worldnet.att.net!204.127.198.203!attbi_feed3!attbi.com!rwcrnsc53.POSTED!not-for-mail
From: tmoran@acm.org
Newsgroups: comp.lang.ada
Subject: Re: dynamic arrays in a record ?
References: <a5589416.0302192057.45e8c413@posting.google.com>
X-Newsreader: Tom's custom newsreader
Message-ID: <KA_4a.185668$be.174334@rwcrnsc53>
NNTP-Posting-Host: 12.234.13.56
X-Complaints-To: abuse@attbi.com
X-Trace: rwcrnsc53 1045722538 12.234.13.56 (Thu, 20 Feb 2003 06:28:58 GMT)
NNTP-Posting-Date: Thu, 20 Feb 2003 06:28:58 GMT
Organization: AT&T Broadband
Date: Thu, 20 Feb 2003 06:28:58 GMT
Xref: archiver1.google.com comp.lang.ada:34251
Date: 2003-02-20T06:28:58+00:00
List-Id: <comp.lang.ada>

> Is there any easy way to put a dynamic array in a record?
Do you mean something like:

procedure testbb is
  subtype board_sizes is integer range 1 .. 10;
  type cells is range -1 .. 1;

  type board_array is array (board_sizes range <>, board_sizes range <>)
  of cells;

  type boarda(ew, ns : board_sizes) is record
    aboard: board_array(1 .. ew, 1 .. ns);
    userscore : integer;
    compscore : integer;
  end record;

  type boardb(ew, ns : board_sizes := 1) is record
    aboard: board_array(1 .. ew, 1 .. ns);
    userscore : integer;
    compscore : integer;
  end record;

  a : boarda(4,5);
  b : boardb(2,3);
  c : boardb;
  east, north : board_sizes;
begin
  east := 1;  -- get these from user
  north := 2;
  c := (ew=>east, ns => north,
        aboard=>(1 .. east=>(1 .. north=> -1)),
        userscore=>7,compscore=>8);
end testbb;