--File: JaMArrayDefs.mesa
--Written by: John Warnock,March 2, 1979
--Last changed by Doug Wyatt, March 29, 1980 1:19 PM

DIRECTORY
JaMMasterDefs: FROM "JaMMasterDefs" USING [Object, Stack];

JaMArrayDefs: DEFINITIONS =
BEGIN OPEN JaMMasterDefs;

JaMArray:PROGRAM;

Array: PUBLIC PROCEDURE;
ArrayPut: PUBLIC PROCEDURE;
ArrayGet: PUBLIC PROCEDURE;
ArrayPart: PUBLIC PROCEDURE;
ArrayAtom: PUBLIC PROCEDURE[aob:ArrayType Object,stk:Stack] RETURNS[BOOLEAN];
ArrayStore: PUBLIC PROCEDURE;
-- expects opstk: (ob0, ob1, ... , obn-1, array) array of length n
-- returns opstk: (array)
ArrayLoad: PUBLIC PROCEDURE;
-- expects opstk: (array) array of length n
-- returns opstk: (array[0], array[1], ... , array[n-1], array)

END.