<> <> <> <> <> <> DIRECTORY TJaMStreamDefs USING [StreamHandle]; TJaMFnsDefs: DEFINITIONS = { StreamHandle: TYPE = TJaMStreamDefs.StreamHandle; Register: PROC[string: LONG STRING, proc: PROC]; DoRegistered: PROC[string: LONG STRING]; TJaMExec: PROC[LONG STRING]; PushInteger: PROC[INTEGER]; PopInteger: PROC RETURNS[INTEGER]; PushLongInteger: PROC[LONG INTEGER]; PopLongInteger,GetLongInteger: PROC RETURNS[LONG INTEGER]; PushReal: PROC[REAL]; PopReal,GetReal: PROC RETURNS[REAL]; PushBoolean: PROC[BOOLEAN]; PopBoolean: PROC RETURNS[BOOLEAN]; PushString: PROC[LONG STRING]; PopString: PROC[LONG STRING]; StringOverflow: SIGNAL[s: LONG STRING] RETURNS[ns: LONG STRING]; PushStream: PROC[StreamHandle]; PopStream: PROC RETURNS[StreamHandle]; Pop: PROC; GetTJaMBreak: PROC RETURNS[BOOLEAN]; SetTJaMBreak: PROC[flag: BOOLEAN _ TRUE]; }.