DIRECTORYClassIncreek USING [Increek, NewStdIncreek],Process USING [GetCurrent],RefTab USING [Create, Ref, Store],TIPPrivate,TIPUser;TIPUserImpl: CEDAR PROGRAMIMPORTS ClassIncreek, Process, RefTab, TIPUserEXPORTS TIPUser, TIPPrivateSHARES TIPUser = BEGIN OPEN TIPUser, TIPPrivate;predTable: PUBLIC RefTab.Ref _ RefTab.Create[]; -- table for user defined predicatesCreateClient: PUBLIC PROC [notify: TIPNotifyProc _ NIL, buttons: TIPButtonProc _ NIL]RETURNS [self: TIPClient] = TRUSTED BEGINself _ NEW[TIPClientRec _ [notifyProc: notify,buttonProc: buttons,parseInfo: CreateParseInfo[],matcher:]];self.matcher _ LOOPHOLE[Process.GetCurrent[]];	-- so is never NIL when MatchProcess beginsself.matcher _ FORK MatchProcess[self];END;DestroyClient: PUBLIC PROC [self: TIPClient] = TRUSTED BEGINself.matcher _ NIL;	-- force matcher to terminateEND;CreateParseInfo: PUBLIC PROC [parseTable: TIPTable _ NIL] RETURNS [new: TIPParseInfo] =TRUSTED BEGINnew _ NEW[TIPParseInfoRec _ [inCreek: ClassIncreek.NewStdIncreek[],localCreek: ClassIncreek.NewStdIncreek[],timeCreek: ClassIncreek.NewStdIncreek[],creekStack: ALL[ClassIncreek.NewStdIncreek[]],tableHead: parseTable]];END;PushTIPTable: PUBLIC PROC [user: TIPClient, table: TIPTable, opaque: BOOLEAN] = BEGINt: TIPTable;FOR t _ table, t.link UNTIL t.link=NIL DO ENDLOOP;t.link _ user.parseInfo.tableHead;user.parseInfo.tableHead _ table;table.opaque _ opaque;END;PopTIPTable: PUBLIC PROC [user: TIPClient] RETURNS [old: TIPTable] = BEGINIF (old_user.parseInfo.tableHead)#NIL THENuser.parseInfo.tableHead _ user.parseInfo.tableHead.link;END;RegisterTIPPredicate: PUBLIC PROC [key: ATOM, p: TIPPredicate] = BEGIN[] _ RefTab.Store[predTable, key, NEW[TIPPredicate _ p]];END;END.  &  TIPUserImpl.mesa; Edit by McGregor, June 3, 1983 5:46 pmLast Edited by: Maxwell, January 3, 1983 11:06 amgarbage collector will get old table unless the client keeps a referencea user-defined predicate may be included in the enables list of a TIPTable via thisassociation mechanism.Êw  –"Mesa" style˜ JšÏc8™8Jšœ1™1J™ šÏk	˜	Jšœžœ˜,Jšœžœ˜Jšœžœ˜"J˜J˜J˜ —Jšœž˜J˜ Jšžœ'˜.Jšžœ˜Jšžœžœžœ˜0J˜ Jšœžœ$˜TJ˜ š
Ïnœžœžœžœžœ˜Ušžœžœž˜)šœžœ˜J˜J˜J˜Jšœ˜J˜—Jšœžœ+˜ZJšœžœ˜'Jšžœ˜J˜ ——š	Ÿœžœžœžœž˜<Jšœžœ˜1Jšžœ˜J˜ —š
Ÿœžœžœžœžœ˜WJšž˜šœžœ˜J˜&J˜)J˜(Jšœžœ˜.J˜J˜—Jšžœ˜J˜ —š	Ÿœžœžœ,žœž˜UJ˜Jš
žœžœžœžœžœ˜2J˜"J˜!J˜Jšžœ˜J˜ —š	Ÿœžœžœžœž˜JJšH™Hšžœ žœž˜*J˜9—Jšžœ˜J˜ —š	Ÿœžœžœžœž˜FJšS™SJš™Jšœ"žœ˜9Jšžœ˜J˜ —Jšžœ˜J˜ J˜ J˜ — …—    ô  
‘  