
DIRECTORY
TJaM,
TJaMPrivate;

TJaMControlImpl: CEDAR PROGRAM
IMPORTS TJaM, TJaMPrivate
EXPORTS TJaM
~ BEGIN OPEN TJaM, TJaMPrivate;

FrameImplRep: PUBLIC TYPE ~ TJaMPrivate.FrameImplRep;

NewFrame: PUBLIC PROC RETURNS[Frame] ~ {
stack: Stack ~ NewStack[200];
dictStack: DictStack ~ NewDictStack[20];
sysDict: Dict ~ NewDict[17];
impl: FrameImpl ~ NEW[FrameImplRep ¬ [stack: stack, dictStack: dictStack, sysDict: sysDict]];
frame: Frame ~ NEW[FrameRep ¬ [impl: impl]];
Begin[frame, sysDict];
RETURN[frame];
};

Register: PUBLIC PROC[frame: Frame, name: ATOM, proc: CommandProc, data: REF] ~ {
found: BOOL; dict: Dict;
[found, dict] ¬ Where[frame, name];
IF found THEN WITH Get[dict, name] SELECT FROM
cmd: Cmd => { cmd.proc ¬ proc; cmd.data ¬ data };
ENDCASE;
Def[frame, name, NEW[CmdRep ¬ [proc: proc, data: data, name: name]]];
};

SysDict: PUBLIC PROC [frame: Frame] RETURNS [Dict] ~ {
impl: FrameImpl ~ frame.impl;
RETURN[impl.sysDict];
};

ApplyTrue: CommandProc ~ { PushBool[frame, TRUE] };
ApplyFalse: CommandProc ~ { PushBool[frame, FALSE] };
ApplySysDict: CommandProc ~ { PushDict[frame, SysDict[frame]] };

RegisterPrimitive[".true", ApplyTrue];
RegisterPrimitive[".false", ApplyFalse];
RegisterPrimitive[".sysdict", ApplySysDict];

END.
   Æ  
TJaMControlImpl.mesa
Copyright Ó 1985, 1986, 1991, 1992 by Xerox Corporation.  All rights reserved.
Maureen Stone, February 14, 1985 7:32:14 pm PST
Doug Wyatt, December 27, 1992 1:46 pm PST
 Êà  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ
ÏeœC™NK™/K™)—K˜ šÏk	˜	Kšœ˜Kšœ˜—K˜ KšÐblœžœž˜Kšžœ˜Kšžœ˜Kšœžœžœ˜K˜ Kšœžœžœ˜5K˜ šÏnœžœžœžœ˜(Kšœ˜Kšœ(˜(K˜KšœžœH˜]Kšœžœ˜,K˜Kšžœ˜K˜K˜ —š
 œžœžœžœžœ˜QKšœžœ˜K˜#š	žœžœžœžœž˜.K˜1Kšžœ˜—Kšœžœ1˜EK˜K˜ —š œžœžœžœ˜6K˜Kšžœ˜K˜K˜ —Kš 	œ"žœ˜3Kš 
œ"žœ˜5Kš œ4˜@K˜ Kšœ&˜&Kšœ(˜(Kšœ,˜,K˜ Kšžœ˜— …—    à  †  