[Cyan]<PreISLCedar>JaM>JaMTS.mesa!1

///jamimager/JaMTS.mesa

Interface to JaMTSImpl used by JaMImager and JaMGraphics

Maureen Stone January 31, 1984 2:58:55 pm PST

DIRECTORY

ReadEvalPrint USING [Handle],

JaM USING [State],

Rope USING [ROPE];

JaMTS: CEDAR DEFINITIONS = {

JaMData: TYPE = REF JaMDataRec;

JaMDataRec: TYPE = RECORD[state: JaM.State, input: Rope.ROPE];

CreateJaMTS: PROC [name: Rope.ROPE, commandLine: Rope.ROPE, searchRules: LIST OF REF ANY] RETURNS[ReadEvalPrint.Handle];

GetLastHandle: PROC RETURNS[ReadEvalPrint.Handle];

data: JaMData ← NARROW[GetLastHandle[].clientData];