
DIRECTORY Rope, SpellingLooks, TextLooks, UserProfile;

SpellingLooksImpl: CEDAR PROGRAM IMPORTS Rope, UserProfile EXPORTS SpellingLooks = {

ROPE: TYPE = Rope.ROPE;
ROPEList: TYPE = LIST OF ROPE;
Looks: TYPE = TextLooks.Looks;

StyleNote: TYPE = RECORD [
style: ROPE,
unwordlich: Looks м TextLooks.noLooks];

StyleNotes: TYPE = LIST OF StyleNote;

styleNotes: StyleNotes м NIL;
globalVerboten: Looks м TextLooks.noLooks;

Wordlich: PUBLIC PROC [style: ROPE, looks: Looks] RETURNS [wordlich: BOOL] = {
perThisStyle: StyleNotes;
IF Intersects[globalVerboten, looks] THEN RETURN [FALSE];
perThisStyle м FindStyle[style];
IF perThisStyle # NIL AND Intersects[perThisStyle.first.unwordlich, looks] THEN RETURN [FALSE];
wordlich м TRUE;
};

FindStyle: PROC [style: ROPE] RETURNS [styleNote: StyleNotes] = {
FOR styleNote м styleNotes, styleNote.rest WHILE styleNote # NIL DO
IF Rope.Equal[styleNote.first.style, style, FALSE] THEN RETURN;
ENDLOOP;
};

Intersects: PROC [l1, l2: Looks] RETURNS [intersects: BOOL] = INLINE {
FOR l: TextLooks.Look IN TextLooks.Look DO
IF l1[l] AND l2[l] THEN RETURN [TRUE];
ENDLOOP;
intersects м FALSE};

NoteProfile: PROC [reason: UserProfile.ProfileChangeReason] --UserProfile.ProfileChangedProc-- = {
profileNotes: ROPEList м UserProfile.ListOfTokens[key: "SpellingTool.NonWordLooks", default: LIST ["cedar~dugm"]];
globalVerboten м TextLooks.noLooks;
styleNotes м NIL;
FOR rl: ROPEList м profileNotes, rl.rest WHILE rl # NIL DO
spec: ROPE м rl.first;
style, looks: ROPE;
sep: INT м spec.Find["~"];
IF sep >= 0
THEN {style м spec.Substr[len: sep]; looks м spec.Substr[start: sep+1]}
ELSE {style м NIL; looks м spec};
IF style.Equal["*"] OR style.Length[] = 0
THEN globalVerboten м ORLooks[globalVerboten, looks]
ELSE {
perThisStyle: StyleNotes м FindStyle[style];
IF perThisStyle = NIL THEN perThisStyle м styleNotes м CONS[[style], styleNotes];
perThisStyle.first.unwordlich м ORLooks[perThisStyle.first.unwordlich, looks];
};
ENDLOOP;
};

ORLooks: PROC [urLooks: Looks, inRope: ROPE] RETURNS [moreLooks: Looks] = {
moreLooks м urLooks;
FOR i: INT IN [0 .. inRope.Length[]) DO
c: CHAR м inRope.Fetch[i];
IF c IN TextLooks.Look THEN moreLooks[c] м TRUE;
ENDLOOP;
};

UserProfile.CallWhenProfileChanges[NoteProfile];

}.
   ║  
SpellingLooksImpl.Mesa
Copyright ╙ 1987, 1992 by Xerox Corporation.  All rights reserved.
Spreitzer, February 27, 1985 9:03:31 pm PST
Tim Diebert: January 26, 1987 5:03:15 pm PST
Э╩U  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ
╧eЬ7ЩBKЩ+KЩ,ЧKШ KЪ╧k	Ь-Ш6KШ Ъ
╨bxЬЮЬЮЬЮЬЮЬШTKШ KЪЮЬЮЬЮЬШKЪ	Ь
ЮЬЮЬЮЬЮЬШKЪЬЮЬШKШ ЪЬЮЬЮЬШKЪЬЮЬШKШ'ЧKШ KЪЬЮЬЮЬЮЬШ%KШ KЪЬЮЬШKШ*KШ Ъ╧nЬЮЬЮЬ	ЮЬЮЬЮЬШNKЪЬШKЪЮЬ#ЮЬЮЬЮЬШ9KШ KЪЮЬЮЬЮЬ2ЮЬЮЬЮЬШ_KЪЬЮЬШKШЧKШ Ъа	ЬЮЬ	ЮЬЮЬШAЪЮЬ(ЮЬЮЬЮШCKЪЮЬ*ЮЬЮЬЮЬШ?KЪЮЬШЧKШЧKШ Ъ
а
ЬЮЬЮЬЮЬЮЬШFЪЮЬЮЬЮШ*KЪ
ЮЬЮЬЮЬЮЬЮЬШ&KЪЮЬШЧKЪЬЮЬШЧKШ ЪаЬЮЬ+╧c"ЬШbKЪЬ]ЮЬШrKШ#KЪЬЮЬШЪЮЬ&ЮЬЮЬЮШ:KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШЪЮЬ	ШKЪЮЬCШGKЪЮЬ
ЮЬШ!ЧЪЮЬЮЬШ)KЪЮЬ0Ш4ЪЮЬШKШ,KЪЮЬЮЬЮЬЮЬШQKШNKШЧЧKЪЮЬШЧKШЧKШ ЪаЬЮЬЮЬЮЬШKKШЪЮЬЮЬЮЬЮШ'KЪЬЮЬШKЪЮЬЮЬЮЬЮЬШ0KЪЮЬШЧKШЧKШ KЪЬ0Ш0KШ KШЧЧ ЕЧ    ╩  ┘  