<> <> <> <> <> <> DIRECTORY Basics USING [LowHalf], JaMBasic USING [Object], JaMFnsDefs USING [], JaMInternal USING [Frame], JaMOps USING [defaultFrame, Error, GetAbort, GetStream, MakeStream, MakeString, Pop, PopBoolean, PopInteger, PopReal, PopStream, PopString, Push, PushBoolean, PushInteger, PushReal, rangechk, RegisterImplicit, SetAbort, StartJaM, StringText], StreamDefs USING [StreamHandle]; JaMFnsDefsImpl: PROGRAM IMPORTS Basics, JaMOps EXPORTS JaMFnsDefs = { OPEN JaMInternal, JaMBasic; StreamHandle: TYPE = StreamDefs.StreamHandle; Register: PUBLIC PROC[string: LONG STRING, proc: PROC] = { frame: Frame _ JaMOps.defaultFrame; JaMOps.RegisterImplicit[frame,string,proc]; }; JaMExec: PUBLIC PROC[string: LONG STRING] = { frame: Frame _ JaMOps.defaultFrame; ob: string Object _ JaMOps.MakeString[string]; ob.tag _ X; JaMOps.Push[frame.execstk, ob]; }; PushInteger: PUBLIC PROC[i: INTEGER] = { frame: Frame _ JaMOps.defaultFrame; JaMOps.PushInteger[frame.opstk,i]; }; PopInteger: PUBLIC PROC RETURNS[INTEGER] = { frame: Frame _ JaMOps.defaultFrame; i: INT _ JaMOps.PopInteger[frame.opstk]; IF i IN[FIRST[INTEGER]..LAST[INTEGER]] THEN RETURN[Basics.LowHalf[i]] ELSE ERROR JaMOps.Error[JaMOps.rangechk]; }; PushLongInteger: PUBLIC PROC[i: INT] = { frame: Frame _ JaMOps.defaultFrame; JaMOps.PushInteger[frame.opstk,i]; }; PopLongInteger,GetLongInteger: PUBLIC PROC RETURNS[INT] = { frame: Frame _ JaMOps.defaultFrame; RETURN[JaMOps.PopInteger[frame.opstk]]; }; PushReal: PUBLIC PROC[r: REAL] = { frame: Frame _ JaMOps.defaultFrame; JaMOps.PushReal[frame.opstk,r]; }; PopReal,GetReal: PUBLIC PROC RETURNS[REAL] = { frame: Frame _ JaMOps.defaultFrame; RETURN[JaMOps.PopReal[frame.opstk]]; }; PushBoolean: PUBLIC PROC[b: BOOL] = { frame: Frame _ JaMOps.defaultFrame; JaMOps.PushBoolean[frame.opstk,b]; }; PopBoolean: PUBLIC PROC RETURNS[BOOL] = { frame: Frame _ JaMOps.defaultFrame; RETURN[JaMOps.PopBoolean[frame.opstk]]; }; PushString: PUBLIC PROC[s: LONG STRING] = { frame: Frame _ JaMOps.defaultFrame; ob: string Object _ JaMOps.MakeString[s]; JaMOps.Push[frame.opstk,ob]; }; PopString: PUBLIC PROC[s: LONG STRING] = { frame: Frame _ JaMOps.defaultFrame; ob: string Object _ JaMOps.PopString[frame.opstk]; WHILE s.maxlength