🚀 go-pugleaf

DM> How does one express dynamic allocation of single and
DM> multi-dimensional arrays in Modula-2?  How does one pass a dynamically
DM> allocated multi-dimensional array as an argument to a procedure?
DM>
DM> For example, if a two or three dimensional array of INTEGERs resides i
DM> file on disk, and the dimensions of the data set are specified at the
DM> beginning of the file, how can the file be loaded and manipulated
DM> using a Modula-2 program?
DM>
DM> My references on Modula-2 lead me to believe that this elementary
DM> operation is difficult or impossible to solve elegantly or portably in
DM> Modula-2.

Via user defined datatypes, sir, user defined datatypes, user defined
datatypes.

You'll have to write your own opaque data sturctures to accomplish what you
want.

To begin,

TYPE
  MultiDimArray   = ARRAY [1..100] [1..100] [A..Z] OF CARDINALS;

  aMultiDimArray  = POINTER TO MultiDimArray;

VAR
  Array : aMultiDimArray;

BEGIN
  ALLOCATE(Array, SIZE(Array^));

  (* Do your stuffs... *)

  DEALLOCATE(Array, SIZE(Array^));

END.


Good Health.

Changhao.