
DIRECTORY
NodeStyle USING [NameParam, RealParam, Style, StyleKind],
Rope USING [ROPE],
Tioga USING [Looks],
TJaM USING [Cmd, CommandProc, Dict, Array, Frame, Object];

NodeStyleWorks: CEDAR DEFINITIONS ~ BEGIN

ROPE: TYPE ~ Rope.ROPE;
Object: TYPE ~ TJaM.Object;
Frame: TYPE ~ TJaM.Frame;
Style: TYPE ~ NodeStyle.Style;
StyleKind: TYPE ~ NodeStyle.StyleKind; -- { screen, print, base }
Ref: TYPE ~ Style; -- synonym for compatibility
OfStyle: TYPE ~ StyleKind; -- synonym for compatibility
defaultFrame: Frame;
GetFrame: PROC [style: Ref, styleName: ATOM, kind: OfStyle] RETURNS [frame: Frame];

FreeFrame: PROC [frame: Frame, styleName: ATOM, kind: OfStyle];

StyleForFrame: PROC [frame: Frame] RETURNS [style: Ref];
InitDict: PROC [name: ATOM, size: CARDINAL м 100] RETURNS [dictionary: TJaM.Dict];
GetStyleDict: PROC [frame: Frame, styleName: ATOM, kind: OfStyle, def: Rope.ROPE м NIL]
RETURNS [d: TJaM.Dict];
BadStyleFile: PROC [frame: Frame, styleName: ATOM];
RunStyle: PROC [frame: Frame, styleName: ATOM] RETURNS [ok: BOOL];
RunStyleString: PROC [frame: Frame, styleName: ATOM, def: Rope.ROPE] RETURNS [ok: BOOL];

sysdict: TJaM.Dict;  -- system dictionary
userdict: TJaM.Dict;  -- user dictionary with helpful stuff and errordefs
styledict: TJaM.Dict; -- style dictionary has Tioga style machinery names

stylesDicts: REF ARRAY OfStyle OF TJaM.Dict;
bindingDict: TJaM.Dict;  -- TiogaBindingDictionary
attachmentsDict: TJaM.Dict;  -- TiogaAttachedStylesDictionary

ForEachAttachedStyle: PROC [dictName: ATOM,
proc: PROC [attached: ATOM] RETURNS [stop: BOOL]];
ExecuteName: PROC [frame: Frame, name: ATOM] RETURNS [ok: BOOL];
ExecuteNameInStyle: PROC [ref: Ref, kind: OfStyle, styleRule: ATOM] RETURNS [ok: BOOL];
ExecuteObjectInStyle: PROC [ref: Ref, kind: OfStyle, object: Object] RETURNS [ok: BOOL];
ExecuteLooksInStyle: PROC [ref: Ref, kind: OfStyle, looks: Tioga.Looks] RETURNS [ok: BOOL];

WhoIsExecuting: SIGNAL RETURNS [executingName: ATOM м NIL]; -- for error messages
Where: SIGNAL RETURNS [ROPE м NIL]; -- for error messages

StyleError: PROC [frame: Frame, num: INTEGER]; -- number of things to print

load: TJaM.Cmd;
get: TJaM.Cmd;
run: TJaM.Cmd;
LoadProc: TYPE ~ PROC [frame: Frame, p: Param, style: Ref];
StoreProc: TYPE ~ PROC [frame: Frame, p: Param, style: Ref];
AddRealProc: TYPE ~ PROC [frame: Frame, inc: REAL, p: Param, style: Ref];
PercentProc: TYPE ~ PROC [frame: Frame, percent: REAL, p: Param, style: Ref];
SetNameProc: TYPE ~ PROC [frame: Frame, name: ATOM, p: Param, style: Ref];

Param: TYPE ~ REF ParamRec;
ParamRec: TYPE ~ RECORD [
ops: Ops,
opName: ATOM,
data: SELECT kind: OfParam FROM
name => [ param: NodeStyle.NameParam ],
real => [ param: NodeStyle.RealParam ],
glue => [ size, stretch, shrink: NodeStyle.RealParam ],
color => [ hue, saturation, brightness: NodeStyle.RealParam ],
misc => [],
ENDCASE
];

OfParam: TYPE ~ { name, real, glue, color, misc };

Ops: TYPE ~ REF OpsRec;
OpsRec: TYPE ~ RECORD [
Load: LoadProc, Store: StoreProc, AddReal: AddRealProc,
Percent: PercentProc, SetName: SetNameProc
];
DoStyleOp: PROC [frame: Frame, p: Param];
StoreError: StoreProc;
AddRealError: AddRealProc;
PercentError: PercentProc;
SetNameError: SetNameProc;
nameOps: Ops;
LoadNameParam: LoadProc;
SetNameParam: SetNameProc;
NameError: PROC [frame: Frame, name: ATOM, p: Param];
realOps: Ops;
RealOpLoad: LoadProc;
RealOpSetReal: StoreProc;
RealOpAddReal: AddRealProc;
RealOpPercent: PercentProc;
glueOps: Ops;
GlueOpLoad: LoadProc;
GlueOpSetReal: StoreProc;
GlueOpAddReal: AddRealProc;
GlueOpPercent: PercentProc;
colorOps: Ops;
ColorOpLoad: LoadProc;
ColorOpSetReal: StoreProc;
ColorOpAddReal: AddRealProc;
ColorOpPercent: PercentProc;
GetCommand: PROC [frame: Frame, name: ATOM] RETURNS [TJaM.Cmd];

ForceLowerName: PUBLIC PROC [n: ATOM] RETURNS [ATOM];
ForceLowerRope: PUBLIC PROC [r: ROPE] RETURNS [ROPE];
PopName: PROC [frame: Frame] RETURNS [name: ATOM];

TryToPopName: PROC [frame: Frame] RETURNS [name: ATOM, ok: BOOL];

TryToPopReal: PROC [frame: Frame] RETURNS [value: REAL м 0.0, ok: BOOL];

TryToPopRope: PROC [frame: Frame] RETURNS [rope: ROPE, ok: BOOL];

TypeCheckName: PROC [obj: Object] RETURNS [ATOM];

TypeCheckDict: PROC [obj: Object] RETURNS [TJaM.Dict];

TypeCheckCommand: PROC [obj: Object] RETURNS [TJaM.Cmd];
SpecialOpArray: PROC [name: ATOM, op: Object] RETURNS [key: ATOM, array: TJaM.Array];
StyleParamKey: PROC [name: ATOM] RETURNS [key: ATOM];
RegisterStyleCommand: PROC [frame: Frame, name: ATOM, proc: TJaM.CommandProc];
RegisterStyleLiteral: PROC [frame: Frame, name: ATOM];
RegisterWorks1: PROC [frame: Frame];
RegisterWorks2: PROC [frame: Frame];
RegisterWorks3: PROC [frame: Frame];
RegisterWorks4: PROC [frame: Frame];
StartTheWorks: PROC;


END.
   М  
NodeStyleWorks.mesa
Copyright ╙ 1985, 1986, 1987, 1991, 1992 by Xerox Corporation.  All rights reserved.
Written by Bill Paxton, January 1981
Last changed by Bill Paxton, December 21, 1982 9:49 am
Last Edited by: Maxwell, January 6, 1983 8:08 am
Michael Plass, November 20, 1987 4:47:09 pm PST
Rick Beach, March 27, 1985 9:38:55 am PST
Doug Wyatt, January 30, 1992 6:33 pm PST
This is where the style machinery lives.

Execution Frames for Style Machinery

Style Dictionaries
Create a dictionary and name it in the system dictionary, .sysdict

names are TiogaBaseStylesDictionary, TiogaPrintStylesDictionary, TiogaScreenStylesDictionary
Executing Style Rules
Types for Implementing Style Commands
Implementing Style Operations
Named Attribute Parameter Operations
Real Parameter Operations
Glue Parameter Operations
Color Parameter Operations
Support Procs


Support for initializing style parameters
Э╩ё  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬIЩTKЪЬ$Щ$KЪЬ6Щ6KЪЬ0Щ0KЩ/JЩ)KЩ(KШ Щ(KЩ ЧЧЪ╧k	Ш	KЪЬ
ЮЬ*Ш9KЪЬЮЬЮЬШKЪЬЮЬ	ШKЪЬЮЬ0Ш:ЧKШ Ъ╧nЬЮЬЮЬЮШ)KШ KЪЮЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬ╧cШAKЪЬЮЬ
аШ/KЪЬ	ЮЬаШ7ЧheadЩ$ШKЩ ЧЪЯЬЮЬЮЬЮЬШSKШ ЧЪЯ	ЬЮЬЮЬШ?KШ ЧKЪЯЬЮЬЮЬШ8ЧЩЪ
ЯЬЮЬЮЬЮЬЮЬШRKЩBKЩ ЧKЪЯЬЮЬЮЬЮЬЮЬЮЬШoKЪЯЬЮЬЮЬШ3KЪ
ЯЬЮЬЮЬЮЬЮЬШBKЪЯЬЮЬЮЬЮЬЮЬЮЬШXKШ KЪЬаШ)KЪЬа3ШIЪЬа3ШIKШ ЧЪЬЮЬЮЬ	ЮЬШ,KЩ\ЧKЪЬаШ2KЪЬа Ш=KШ KЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШ^ЧЩKЪ
ЯЬЮЬЮЬЮЬЮЬШ@KЪ
ЯЬЮЬ&ЮЬЮЬЮЬШWKЪЯЬЮЬ+ЮЬЮЬШXЪЯЬЮЬ/ЮЬЮЬШ[KШ ЧKЪЯЬЮЬЮЬЮЬЮЬаШQЪЯЬЮЬЮЬЮЬЮЬаШ9KШ ЧЪЯ
ЬЮЬЮЬаШKKШ ЧKЪЬШKЪЬШKЪЬШЧЩ%KЪЬ
ЮЬЮЬ&Ш;KЪЬЮЬЮЬ&Ш<KЪЬЮЬЮЬЮЬШIKЪЬЮЬЮЬЮЬШMKЪЬЮЬЮЬЮЬШJKШ KЪЬЮЬЮЬ
ШЪЬ
ЮЬЮЬШKШ	KЪЬЮЬШЪЬЮЬЮШKШ'KШ'KШ7KШ>KШKЪЮШЧЪЬШKШ ЧЧKЪЬ	ЮЬ%Ш2KШ KЪЬЮЬЮЬШЪЬЮЬЮЬШKШ7KШ*KШЧЧЪЬЩKЪЯ	ЬЮЬШ)KЪЯ
ЬШKЪЯЬШKЪЯЬШKЪЯЬШЪЬ$Щ$KЪЬШKЪЯЬШKЪЯЬШKЪЯ	ЬЮЬЮЬШ5ЧЪЬЩKЪЬШKЪЯ
ЬШKЪЯЬШKЪЯЬШKЪЯЬШЧЪЬЩKЪЬШKЪЯ
ЬШKЪЯЬШKЪЯЬШKЪЯЬШЧЪЬЩKЪЬШKЪЯЬШKЪЯЬШKЪЯЬШKЪЯЬШЧЧЩЪЯ
ЬЮЬЮЬЮЬШ?KШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШ5KЩ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШ5KЩ ЧЪЯЬЮЬЮЬЮЬШ2KШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШAKШ ЧЪ
ЯЬЮЬЮЬ	ЮЬЮЬШHKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШAKШ ЧЪЯЬЮЬЮЬЮЬШ1KШ ЧЪЯЬЮЬЮЬШ6KШ ЧKЪЯЬЮЬЮЬШ8ЧЪЬ)Щ)KЪЯЬЮЬЮЬЮЬЮЬЮШUKЪ
ЯЬЮЬЮЬЮЬЮЬШ5KЪЯЬЮЬЮЬШNKЪЯЬЮЬЮЬШ6KЪЯЬЮЬШ$KЪЯЬЮЬШ$KЪЯЬЮЬШ$KЪЯЬЮЬШ$ЪЯЬЮЬШKШ ЧЧKШ KЪЮЬШЧ ЕЧ    t  ё  