TJaMStartImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last changed by Doug Wyatt, 7-Oct-81 11:16:29
Michael Plass, February 14, 1985 12:29:14 pm PST
DIRECTORY
TJaMInternal USING [Frame],
TJaMOps USING [InstallReason];
TJaMStartImpl:
PROGRAM
EXPORTS TJaMOps = {
installMax: CARDINAL = 20;
InstallEntry: TYPE = PROC[TJaMOps.InstallReason,TJaMInternal.Frame];
InstallTable: TYPE = ARRAY[0..installMax) OF InstallEntry;
installLen: CARDINAL ← 0;
installs: InstallTable;
Install:
PUBLIC
PROC[proc:
PROC[TJaMOps.InstallReason,TJaMInternal.Frame]] = {
IF NOT installLen<installMax THEN ERROR;
installs[installLen] ← proc;
installLen ← installLen + 1;
};
ForEachInstalled:
PUBLIC
PROC[why: TJaMOps.InstallReason, frame: TJaMInternal.Frame] = {
FOR i: CARDINAL IN[0..installLen) DO installs[i][why,frame] ENDLOOP;
};
}.