
DIRECTORY
NodeStyle USING [DataEntry, DataList, RealInit0, overflow, RealCode, RealParam, Ref, TabStop, LeaderTabStop, RuleTabStop, RulesTabStop, TabRealParam],
Real USING [Round],
RefTab USING [Create, Ref, Update, UpdateAction],
TJaM USING [Equal];

NodeStyleImpl: CEDAR MONITOR
IMPORTS Real, RefTab, TJaM
EXPORTS NodeStyle
~ BEGIN OPEN NodeStyle;
GetReal: PUBLIC PROC [ref: Ref, param: RealParam] RETURNS [value: REAL м 0.0] ~ {
code: RealCode;
IF (code м ref.real[param]) # overflow THEN RETURN [realArray[code]];
RETURN [GetRealOverflow[ref,param]];
};

GetInt: PUBLIC PROC [ref: Ref, param: RealParam] RETURNS [value: INTEGER] ~ {
code: RealCode;
IF (code м ref.real[param]) # overflow THEN RETURN [intArray[code]];
RETURN [GetIntOverflow[ref,param]];
};

GetRealOverflow: PROC [ref: Ref, param: RealParam] RETURNS [value: REAL м 0.0] ~ {
code: RealCode м ref.real[param];
IF code # overflow THEN RETURN [realArray[code]];
FOR x: DataList м ref.dataList, x.next UNTIL x=NIL DO
WITH x SELECT FROM
xx: REF DataEntry.real => { IF xx.param = param THEN RETURN [xx.value] };
ENDCASE => NULL;
ENDLOOP;
ERROR -- failed to find it on the data list --
};

GetIntOverflow: PROC [ref: Ref, param: RealParam] RETURNS [value: INTEGER] ~ {
code: RealCode м ref.real[param];
IF code # overflow THEN RETURN [intArray[code]];
FOR x: DataList м ref.dataList, x.next UNTIL x=NIL DO
WITH x SELECT FROM
xx: REF DataEntry.real => { IF xx.param = param THEN RETURN [xx.valueI] };
ENDCASE => NULL;
ENDLOOP;
ERROR -- failed to find it on the data list --
};

realArray: PUBLIC REF ARRAY RealCode OF RealInit0 м NEW[ARRAY RealCode OF RealInit0];
intArray: PUBLIC REF ARRAY RealCode OF INTEGER м NEW[ARRAY RealCode OF INTEGER];
nextFreeRealCode: RealCode м 1;
overflowCount: INT м 0;
realTableOverflow: PUBLIC ERROR ~ CODE;

IntegerValue: PUBLIC PROC [value: REAL м 0.0] RETURNS [INTEGER] ~ {
RETURN [SELECT value FROM
> lastIntegerAsReal => LAST[INTEGER],
< firstIntegerAsReal => FIRST[INTEGER],
ENDCASE => INTEGER[Real.Round[value]]];
};
lastIntegerAsReal: REAL м LAST[INTEGER];
firstIntegerAsReal: REAL м FIRST[INTEGER];
EnterReal: PUBLIC ENTRY PROC [value: REAL м 0.0] RETURNS [code: RealCode] ~ {
ENABLE UNWIND => NULL;
code м nextFreeRealCode;
FOR c: RealCode IN [FIRST[RealCode]..nextFreeRealCode) DO
IF realArray[c]=value THEN { code м c; EXIT };
ENDLOOP;
SELECT code FROM
< nextFreeRealCode => NULL; -- already was in realArray
= overflow => { -- realArray is full
overflowCount м overflowCount+1;
ERROR realTableOverflow;
};
= nextFreeRealCode => { -- enter in realArray
nextFreeRealCode м nextFreeRealCode+1;
realArray[code] м value;
intArray[code] м IntegerValue[value];
};
ENDCASE => ERROR;
};

SetReal: PUBLIC PROC [ref: Ref, param: RealParam, value: REAL м 0.0] ~ {
ref.real[param] м EnterReal[value !
realTableOverflow => {
ref.real[param] м overflow;
ref.dataList м ConsDataListReal[param, value, ref.dataList];
CONTINUE }
];
};
GetTabLoc: PUBLIC PROC [stop: TabStop, s:Ref] RETURNS [REAL м 0.0] ~ {
code: RealCode;
IF (code м stop.loc) # overflow THEN RETURN [realArray[code]];
RETURN [GetTabOverflow[s,stop,loc]];
};

GetTabLocI: PUBLIC PROC [stop: TabStop, s:Ref] RETURNS [INTEGER] ~ {
code: RealCode;
IF (code м stop.loc) # overflow THEN RETURN [intArray[code]];
RETURN [GetTabIntOverflow[s,stop,loc]];
};

GetTabLeaderSpacing: PUBLIC PROC [stop: LeaderTabStop, s:Ref] RETURNS [REAL м 0.0] ~ {
code: RealCode;
IF (code м stop.spacing) # overflow THEN RETURN [realArray[code]];
RETURN [GetTabOverflow[s,stop,spacing]];
};
GetTabLeaderSpacingI: PUBLIC PROC [stop: LeaderTabStop, s:Ref] RETURNS [INTEGER] ~ {
code: RealCode;
IF (code м stop.spacing) # overflow THEN RETURN [intArray[code]];
RETURN [GetTabIntOverflow[s,stop,spacing]];
};
GetTabRuleWeight: PUBLIC PROC [stop: RuleTabStop, s:Ref] RETURNS [REAL м 0.0] ~ {
code: RealCode;
IF (code м stop.weight) # overflow THEN RETURN [realArray[code]];
RETURN [GetTabOverflow[s,stop,weight]];
};
GetTabRuleWeightI: PUBLIC PROC [stop: RuleTabStop, s:Ref] RETURNS [INTEGER] ~ {
code: RealCode;
IF (code м stop.weight) # overflow THEN RETURN [intArray[code]];
RETURN [GetTabIntOverflow[s,stop,weight]];
};
GetTabRuleVShift: PUBLIC PROC [stop: RuleTabStop, s:Ref] RETURNS [REAL м 0.0] ~ {
code: RealCode;
IF (code м stop.vshift) # overflow THEN RETURN [realArray[code]];
RETURN [GetTabOverflow[s,stop,vshift]];
};
GetTabRuleVShiftI: PUBLIC PROC [stop: RuleTabStop, s:Ref] RETURNS [INTEGER] ~ {
code: RealCode;
IF (code м stop.vshift) # overflow THEN RETURN [intArray[code]];
RETURN [GetTabIntOverflow[s,stop,vshift]];
};
GetTabRealCode: PUBLIC PROC [ref: Ref, stop: TabStop, which: TabRealParam,
value: REAL м 0.0]
RETURNS [code: RealCode] ~ {
code м EnterReal[value ! realTableOverflow => {
code м overflow;
ref.dataList м ConsDataListTab[stop, which, value, ref.dataList];
CONTINUE }];
};

GetRulesTabCount: PUBLIC PROC [stop: RulesTabStop] RETURNS [count: INTEGER] ~ {
RETURN [stop.rules.length];
};

GetRulesTabInfo: PUBLIC PROC [stop: RulesTabStop, num: INTEGER]
RETURNS [weight, vshift: REAL] ~ {
weight м stop.rules.array[num].weight;
vshift м stop.rules.array[num].vshift };

GetRulesTabInfoI: PUBLIC PROC [stop: RulesTabStop, num: INTEGER]
RETURNS [weight, vshift: INTEGER] ~ {
weight м IntegerValue[stop.rules.array[num].weight];
vshift м IntegerValue[stop.rules.array[num].vshift] };

GetTabOverflow: PROC [ref: Ref, stop: TabStop, which: TabRealParam]
RETURNS [value: REAL м 0.0] ~ {
FOR x: DataList м ref.dataList, x.next UNTIL x=NIL DO
WITH x SELECT FROM
xx: REF DataEntry.tab => { IF xx.tabStop=stop AND xx.which=which THEN RETURN [xx.value] };
ENDCASE => NULL;
ENDLOOP;
ERROR -- failed to find it on the data list --
};

GetTabIntOverflow: PROC [ref: Ref, stop: TabStop, which: TabRealParam]
RETURNS [value: INTEGER] ~ {
FOR x: DataList м ref.dataList, x.next UNTIL x=NIL DO
WITH x SELECT FROM
xx: REF DataEntry.tab => { IF xx.tabStop=stop AND xx.which=which THEN RETURN [xx.valueI] };
ENDCASE => NULL;
ENDLOOP;
ERROR -- failed to find it on the data list --
};

PointsPerPica: PUBLIC REAL м 12.0;
PointsPerInch: PUBLIC REAL м 1.0/0.0138370; -- 72.27
PointsPerCentimeter: PUBLIC REAL м PointsPerInch/2.540;
PointsPerMillimeter: PUBLIC REAL м PointsPerCentimeter/10;
PointsPerDidot: PUBLIC REAL м PointsPerCentimeter/26.60;
PointsPerFil: PUBLIC REAL м 10000.0;
PointsPerFill: PUBLIC REAL м PointsPerFil*PointsPerFil;
PointsPerFilll: PUBLIC REAL м PointsPerFill*PointsPerFil;

canonicalizeDataLists: BOOL м TRUE;
dataListTable: RefTab.Ref м RefTab.Create[];

consStats: RECORD [calls, finds, allocs, real, tab: INT м 0];

ConsDataListObject: PUBLIC PROC [name: ATOM, object: REF, dataList: DataList] RETURNS [newDataList: DataList м NIL] ~ {
IF canonicalizeDataLists THEN {
Update: RefTab.UpdateAction = {
tops: LIST OF DataList м NARROW[val];
FOR each: LIST OF DataList м tops, each.rest UNTIL each = NIL DO
WITH each.first SELECT FROM
xx: REF DataEntry.object => {
IF xx.name = name AND TJaM.Equal[xx.object, object] THEN {
newDataList м each.first;
consStats.finds м consStats.finds + 1;
RETURN [op: none]
};
};
ENDCASE => NULL;
ENDLOOP;
newDataList м NEW[DataEntry.object м [dataList, object[name, object]]];
tops м CONS[newDataList, tops];
consStats.allocs м consStats.allocs + 1;
RETURN [op: store, new: tops]
};
consStats.calls м consStats.calls + 1;
FOR x: DataList м dataList, x.next UNTIL x = NIL DO
WITH x SELECT FROM
xx: REF DataEntry.object => {
IF xx.name = name THEN {
IF TJaM.Equal[xx.object, object] THEN RETURN [dataList] ELSE EXIT;
};
};
ENDCASE => NULL;
ENDLOOP;
RefTab.Update[x: dataListTable, key: dataList, action: Update]
};
IF newDataList = NIL THEN {
newDataList м NEW[DataEntry.object м [dataList, object[name, object]]];
};
};

ConsDataListReal: PROC [param: RealParam, value: REAL, dataList: DataList] RETURNS [DataList] ~ {
consStats.real м consStats.real + 1;
RETURN [NEW[DataEntry.real м [dataList, real[param, value, IntegerValue[value]]]]];
};

ConsDataListTab: PROC [tabStop: TabStop, which: TabRealParam, value: REAL, dataList: DataList] RETURNS [DataList] ~ {
consStats.tab м consStats.tab + 1;
RETURN [NEW[DataEntry.tab м [dataList, tab[tabStop, which, value, IntegerValue[value]]]]];
};


END.
   Ш  
NodeStyleImpl.mesa
Copyright ╙ 1985, 1987, 1988, 1991, 1992 by Xerox Corporation.  All rights reserved.
Written by Bill Paxton, January 1981
Bill Paxton, December 1, 1982 7:38 am
Maxwell, January 6, 1983 8:46 am
Russ Atkinson, March 7, 1985 3:34:46 am PST
Plass, March 14, 1985 5:00:54 pm PST
Rick Beach, March 21, 1985 2:32:26 pm PST
Michael Plass, November 17, 1987 2:21:05 pm PST
Doug Wyatt, February 26, 1992 5:49 pm PST
Implements JaM commands for style rules and commands to load styles.

Real Parameters
array of real-valued distances
parallel array of integer-valued distances

next free entry in realArray
reserve entry 0 for 0.0

Tabs


For num in [0..RulesTabCount), returns the weight and vshift values for that rule.
Dimensions
DataList maintainence
It is desireable to canonicalize the dataList, so that the style cache hit rate is large, even in the presence of many StyleParams
[found: BOOL, val: RefTab.Val] RETURNS [op: RefTab.UpdateOperation _ none, new: RefTab.Val _ NIL]
This is for overflow reals; if this happens often, should canonicalize here as well
This is for overflow tab stops; if this happens often, should canonicalize here as well
 Э╩  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬIЩTKЪЬ$Щ$KЪЬ%Щ%KЩ KЩ+KЩ$JЩ)KЩ/KЩ)ЧKШ KЪЬDЩDKЩ Ъ╧k	Ш	KЪЬ
ЮЬЗШЦKЪЬЮЬ	ШKЪЬЮЬ%Ш1KЪЬЮЬ	ШЧKШ KЪ╧nЬЮЬЮШKЪЮЬШKЪЮЬ
ШKЪЬЮЬЮЬШheadЪЬЩЪ
ЯЬЮЬЮЬЮЬ	ЮЬШQKШKЪЮЬ%ЮЬЮЬШEKЪЮЬШ$KЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬ	ЮЬШMKШKЪЮЬ%ЮЬЮЬШDKЪЮЬШ#KЪЬШKШ ЧЪЯЬЮЬЮЬ	ЮЬШRKШ!KЪЮЬЮЬЮЬШ1ЪЮЬ$ЮЬЮЬЮШ5ЪЮЬЮЬЮШKЪ	ЬЮЬЮЬЮЬЮЬШIKЪЮЬЮЬШЧKЪЮЬШЧKЪЮЬ╧c(Ш.KЪЬШKШ ЧЪЯЬЮЬЮЬ	ЮЬШNKШ!KЪЮЬЮЬЮЬШ0ЪЮЬ$ЮЬЮЬЮШ5ЪЮЬЮЬЮШKЪ	ЬЮЬЮЬЮЬЮЬШJKЪЮЬЮЬШЧKЪЮЬШЧKЪЮЬа(Ш.KЪЬШЧKШ ЪЬЮЬЮЬЮЬ
ЮЬЮЬЮЬ
ЮЬШUKЪаЩЧЪЬ
ЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬ
ЮЬЮЬШPKЪЬ*Щ*KЩ ЧЪЬШKЪЬЩKЪЬЩЧKЪЬЮЬШKЪЬЮЬЮЬЮЬШ'KШ ЪЯЬЮЬЮЬ	ЮЬЮЬЮЬШCЪЮЬЮЬЮШKЪЬЮЬЮЬШ%KЪЬЮЬЮЬШ'KЪЮЬЮЬШ'ЧKЪЬШЧKЪЬЮЬЮЬЮЬШ(ЪЬЮЬЮЬЮЬШ*KЩ ЧЪЯ	ЬЮЬЮЬЮЬ	ЮЬЮЬШMKЪЮЬЮЬЮЬШKШЪЮЬЮЬЮЬЮШ9KЪЮЬЮЬЮЬШ.KЪЮЬШЧЪЮЬЮШKЪЬЮЬаШ7ЪЬаШ$KЪЬ Ш KЪЮЬШKЪЬШЧЪЬаШ-KШ&KШKШ%KШЧKЪЮЬЮЬШЧKЪЬШKШ ЧЪЯЬЮЬЮЬ%ЮЬШHЪЬ#Ш#ЪЬШKЪЬШKЪЬ<Ш<KЪЮЬШ
ЧKЪЬШЧKЪЬШЧЧЩЪ
Я	ЬЮЬЮЬЮЬЮЬШFKШKЪЮЬЮЬЮЬШ>KЪЮЬШ$KЪЬШKШ ЧЪ
Я
ЬЮЬЮЬЮЬЮЬШDKШKЪЮЬЮЬЮЬШ=KЪЮЬ!Ш'KЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШVKШKЪЮЬ"ЮЬЮЬШBKЪЮЬ"Ш(KЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШTKШKЪЮЬ"ЮЬЮЬШAKЪЮЬ%Ш+KЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШQKШKЪЮЬ!ЮЬЮЬШAKЪЮЬ!Ш'KЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШOKШKЪЮЬ!ЮЬЮЬШ@KЪЮЬ$Ш*KЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШQKШKЪЮЬ!ЮЬЮЬШAKЪЮЬ!Ш'KЪЬШKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШOKШKЪЮЬ!ЮЬЮЬШ@KЪЮЬ$Ш*KЪЬШKЩ ЧЪ
ЯЬЮЬЮЬ7ЮЬЮЬШzЪЬ/Ш/KЪЬШKЪЬAШAKЪЮЬШKЪЬШЧKШ ЧЪ
ЯЬЮЬЮЬЮЬ	ЮЬШOKЪЮЬШKЪЬШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШbKЩRKЪЬ&Ш&KЪЬ(Ш(KШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШfKЪЬ4Ш4KЪЬ6Ш6KШ ЧЪЯЬЮЬ0ЮЬ	ЮЬШcЪЮЬ$ЮЬЮЬЮШ5ЪЮЬЮЬЮШKЪЬЮЬЮЬЮЬЮЬЮЬШZKЪЮЬЮЬШЧKЪЮЬШЧKЪЮЬа(Ш.KЪЬШKШ ЧЪЯЬЮЬ0ЮЬ	ЮЬШcЪЮЬ$ЮЬЮЬЮШ5ЪЮЬЮЬЮШKЪЬЮЬЮЬЮЬЮЬЮЬШ[KЪЮЬЮЬШЧKЪЮЬШЧKЪЮЬа(Ш.KЪЬШKШ ЧЧЪЬ
Щ
KЪЬЮЬЮЬШ"KЪЬЮЬЮЬаШ4KЪЬЮЬЮЬШ7KЪЬЮЬЮЬШ:KЪЬЮЬЮЬШ8KЪЬЮЬЮЬШ$KЪЬЮЬЮЬШ7KЪЬЮЬЮЬШ9ЧЩЩВKШ ЧKЪЬЮЬЮЬШ#Ш,KШ ЧKЪЬЮЬ#ЮЬШ=KШ ЪЯЬЮЬЮЬЮЬ
ЮЬЮЬЮЬШwЪЮЬЮЬШХStartOfExpansione -- [found: BOOL, val: RefTab.Val] RETURNS [op: RefTab.UpdateOperation _ none, new: RefTab.Val _ NIL]ЪЯЬШKЪ╨ckaЩaKЪЬЮЬЮЬЮЬШ%ЪЮЬЮЬЮЬЮЬЮЬЮШ@ЪЮЬЮЬЮШЪЬЮЬШЪЮЬЮЬЮЬШ:KЪЬШKЪЬ&Ш&KЪЮЬШKЪЬШЧKШЧKЪЮЬЮЬШЧKЪЮЬШЧKЪЬЮЬ6ШGKЪЬЮЬШKЪЬ(Ш(KЪЮЬШKШЧKЪЬ&Ш&ЪЮЬ ЮЬЮЬЮШ3ЪЮЬЮЬЮШЪЬЮЬШЪЮЬЮЬШKЪ
ЮЬЮЬЮЬЮЬЮЬШBKЪЬШЧKШЧKЪЮЬЮЬШЧKЪЮЬШЧKЪЬ>Ш>KЪЬШЧЪЮЬЮЬЮЬШKЪЬЮЬ6ШGKЪЬШЧKЪЬШKШ ЧЪЯЬЮЬЮЬЮЬШaKЩSKЪЬ$Ш$KЪЮЬЮЬHШSKЪЬШKШ ЧЪЯЬЮЬ0ЮЬЮЬШuKЩWKЪЬ"Ш"KЪЮЬЮЬOШZKЪЬШЧKШ ЧKШ KШ KЪЮЬШЧ ЕЧ        0░  