Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!swrinde!ucsd!ucbvax!hplabs!hpfcso!steve-t
From: steve-t@hpfcso.HP.COM (Steve Taylor)
Newsgroups: comp.sys.hp
Subject: Re: HP9000 Pascal Buglist / Wishlist
Message-ID: <7370011@hpfcso.HP.COM>
Date: 5 Oct 89 16:55:10 GMT
References: <2258@mva.cs.liv.ac.uk>
Organization: Hewlett-Packard, Fort Collins, CO, USA
Lines: 34

/ comp.sys.hp / rkl@mva.cs.liv.ac.uk / writes:
} The rest of these points are a wishlist for HP Pascal:
} 2. Constant assignment to arrays (and other types ?) in the var section
}    --------------------------------------------------------------------
}    Again, I miss this lovely construct:
}    var fred : array [ 1..2 , 1..2 ] of integer :=
}               ( ( 17 , 6 ) , ( 13 , -2 ) ) ;
}    It saves having to put the data in a text file (or 100's of assignments).

You might try using structured constants:

	PROGRAM test (OUTPUT);
	TYPE
	  fred_row  = ARRAY [ 1..2 ] OF INTEGER;
	  fred_type = ARRAY [ 1..2 ] OF fred_row;
	CONST
	  fred_first = fred_type [ fred_row [ 17, 6 ], fred_row [ 13, -2 ] ];
	VAR
	  fred : fred_type;
	BEGIN
	  fred := fred_first;
	  writeln ( fred[1,1], fred[1,2], fred[2,1], fred[2,2] );
	END.

When I run this (on a Pascal Workstation), I get:

          17           6          13          -2

						Regards,  Steve Taylor

NOT A STATEMENT, OFFICIAL OR OTHERWISE, OF THE HEWLETT-PACKARD COMPANY.

PS.  My first attempt at a response got away unedited.  I deleted it, but it
     may have been sent before I could catch it.  If so, my apologies.