
DIRECTORY
Imager USING [ClassRep, Context, ContextRep, GetProp, SetFont, Show, Warning],
ImagerFont USING [Find, Font, MapText, Modify, XChar, XStringProc, Name],
ImagerFontFilter USING [CharacterCodeMap, FontMap, OutputMap],
ImagerPrivate USING [Class, ClassRep],
Prop USING [Put, PropList],
IO,
RefTab USING [Create, Fetch, Ref, Store],
Rope;

ImagerFontFilterImpl: CEDAR PROGRAM
IMPORTS Imager, ImagerFont, Prop, IO, RefTab, Rope
EXPORTS ImagerFontFilter, Imager
~ BEGIN OPEN ImagerFontFilter;
ROPE: TYPE ~ Rope.ROPE;
Font: TYPE ~ ImagerFont.Font;
XChar: TYPE ~ ImagerFont.XChar;
XStringProc: TYPE ~ ImagerFont.XStringProc;
Context: TYPE ~ Imager.Context;
Class: TYPE ~ ImagerPrivate.Class;
ClassRep: PUBLIC TYPE ~ ImagerPrivate.ClassRep; -- export to Imager

BoundOutputMap: TYPE ~ LIST OF BoundOutputMapEntry;
BoundOutputMapEntry: TYPE ~ RECORD [newFont: ImagerFont.Font, charMap: CharacterCodeMap];

Data: TYPE ~ REF DataRep;
DataRep: TYPE ~ RECORD[
c: Imager.Context,
curFont: Font м NIL,
curBoundOutputMap: BoundOutputMap м NIL,
curMappedFont: Font м NIL,
fontMap: FontMap,
fontTable: RefTab.Ref,
saveStack: LIST OF SaveEntry,
msg: IO.STREAM,
verbose: BOOL
];

SaveEntry: TYPE ~ RECORD [
curFont: Font,
curBoundOutputMap: BoundOutputMap,
curMappedFont: Font,
ref: REF
];

FilterFonts: PUBLIC PROC [c: Imager.Context, fontMap: FontMap, msg: IO.STREAM, verbose: BOOL] RETURNS [context: Imager.Context] ~ {
oldClass: Class ~ c.class;
data: Data ~ NEW[DataRep м [c: c, fontMap: fontMap, fontTable: RefTab.Create[], msg: msg, verbose: verbose]];
props: Prop.PropList ~ Prop.Put[c.propList, $FontFilter, data];
class: Class ~ NEW[ClassRep м oldClassн];
class.type м $FontFilter;
class.Save м MySave;
class.Restore м MyRestore;
class.SetFont м MySetFont;
class.GetFont м MyGetFont;
class.Show м MyShow;
class.ShowText м MyShowText;
context м NEW[Imager.ContextRep м [class: class, state: c.state, data: c.data, propList: props]];
};

MySetFont: PROC[context: Context, font: Font] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $FontFilter]];
subst: BoundOutputMap м NARROW[data.fontTable.Fetch[font].val];
IF subst = NIL THEN {
oldName: ROPE ~ ImagerFont.Name[font];
outputMap: OutputMap м NIL;
h: BoundOutputMap ~ LIST[[NIL,NIL]];
t: BoundOutputMap м h;
canPrint: BOOL ~ data.msg#NIL;
printing: BOOL м canPrint AND data.verbose;
warn: BOOL м FALSE;
FOR p: FontMap м data.fontMap, p.rest UNTIL p=NIL DO
IF Rope.Equal[oldName, p.first.inputName, FALSE] THEN {
outputMap м p.first.output;
warn м p.first.warn;
EXIT;
};
ENDLOOP;
IF outputMap = NIL THEN {
charMap: CharacterCodeMap ~ LIST[[bc: 0, ec: WORD.LAST, newbc: 0]];
outputMap м LIST[[newName: oldName, charMap: charMap]];
};
IF warn AND canPrint THEN printing м TRUE;
IF warn AND printing THEN data.msg.PutRope[" WARNING:"];
IF printing THEN data.msg.PutF1[" (%g =>", IO.rope[oldName]];
FOR o: OutputMap м outputMap, o.rest UNTIL o=NIL DO
newFont: Font;
note: ROPE м NIL;
IF printing THEN data.msg.PutF1[" %g", IO.rope[o.first.newName]];
newFont м ImagerFont.Find[o.first.newName ! Imager.Warning =>
{IF printing THEN data.msg.PutF1[" {%g}", IO.rope[error.explanation]]; RESUME}];
newFont м ImagerFont.Modify[newFont, font.charToClient];
t.rest м LIST[[newFont: newFont, charMap: o.first.charMap]];
t м t.rest;
ENDLOOP;
IF printing THEN data.msg.PutRope[")"];
subst м h.rest;
[] м data.fontTable.Store[font, subst];
};
data.curFont м font;
IF subst = NIL THEN ERROR;
data.curBoundOutputMap м subst;
data.curMappedFont м NIL;
};

MapChar: PROC [data: Data, charCode: WORD] RETURNS [f: Font, tchar: WORD] ~ {
boundMap: BoundOutputMap ~ data.curBoundOutputMap;
FOR b: BoundOutputMap м boundMap, b.rest UNTIL b = NIL DO
FOR c: CharacterCodeMap м b.first.charMap, c.rest UNTIL c = NIL DO
IF charCode IN [c.first.bc..c.first.ec] THEN {
f м b.first.newFont;
tchar м c.first.newbc+(charCode-c.first.bc);
RETURN;
};
ENDLOOP;
ENDLOOP;
f м boundMap.first.newFont;
tchar м charCode;
IF data.msg#NIL THEN data.msg.PutF[" WARNING: (%03BB|%03BB) not in %g", IO.int[charCode/256], IO.int[charCode MOD 256], IO.rope[ImagerFont.Name[data.curFont]]];
};

MyShow: PROC[context: Context, string: XStringProc, xrel: BOOL] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $FontFilter]];
short: NAT ~ 100;
long: NAT ~ NAT15.LAST;
buf: ARRAY [0..short) OF WORD;
xbuf: REF ARRAY [short..long) OF WORD м NIL;
nChars: NAT м 0;
i: NAT м 0;
myCharAction: PROC [char: XChar] ~ {
IF nChars = short THEN xbuf м NEW[ARRAY [short..long) OF WORD];
IF nChars < short THEN buf[nChars] м LOOPHOLE[char]
ELSE {
IF xbuf = NIL THEN xbuf м NEW[ARRAY [short..long) OF WORD];
xbuf[nChars] м LOOPHOLE[char];
};
nChars м nChars + 1;
};
C: PROC [index: NAT] RETURNS [WORD] ~ INLINE {RETURN [IF index < short THEN buf[index] ELSE xbuf[index]]};
deltaChars: NAT м 0;
f: Font м NIL;
myString: XStringProc ~ {
c: WORD;
[f, c] м MapChar[data, C[i]];
deltaChars м 0;
DO
ff: Font;
charAction[LOOPHOLE[c]];
deltaChars м deltaChars + 1;
IF i+deltaChars = nChars THEN EXIT;
[ff, c] м MapChar[data, C[i+deltaChars]];
IF ff # f THEN EXIT;
ENDLOOP;
};
string[myCharAction];
UNTIL i = nChars DO
[f, ----] м MapChar[data, C[i]];
IF f # data.curMappedFont THEN {
Imager.SetFont[data.c, f];
data.curMappedFont м f;
};
Imager.Show[data.c, myString, xrel];
i м i + deltaChars;
ENDLOOP;
};

MyShowText: PROC [context: Context, text: REF READONLY TEXT, start, len: NAT, xrel: BOOL] ~ {
string: XStringProc ~ { ImagerFont.MapText[text, start, len, charAction] };
Imager.Show[context, string, xrel];
};

MySave: PROC[context: Context, all: BOOL] RETURNS [REF] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $FontFilter]];
cClass: Class ~ data.c.class;
data.saveStack м CONS[[
curFont: data.curFont, 
curBoundOutputMap: data.curBoundOutputMap, 
curMappedFont: data.curMappedFont,
ref: cClass.Save[context, all]
], data.saveStack];
RETURN [data.saveStack]
};

MyRestore: PROC[context: Context, ref: REF] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $FontFilter]];
cClass: Class ~ data.c.class;
IF NOT (ref=NIL OR ref = data.saveStack) THEN ERROR;
cClass.Restore[context, data.saveStack.first.ref];
data.curMappedFont м data.saveStack.first.curMappedFont;
data.curBoundOutputMap м data.saveStack.first.curBoundOutputMap;
data.curFont м data.saveStack.first.curFont;
data.saveStack м data.saveStack.rest;
};

MyGetFont: PROC[context: Context] RETURNS[Font] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $FontFilter]];
RETURN [data.curFont]
};


END.
  ,  ImagerFontFilterImpl.mesa
Copyright ╙ 1985, 1989, 1992 by Xerox Corporation.  All rights reserved.
Michael Plass, September 15, 1989 1:14:45 pm PDT
Last changed by Pavel on January 18, 1988 2:52:37 pm PST
Jean-Marc Frailong January 20, 1988 11:56:16 am PST
Willie-s, April 2, 1992 7:30 pm PST

Э╩Р  Ц(cedarcode) styleХNewlineDelimiter
Ш ЩIcodeЪЬ
╧eЬ=ЩHKЩ0KЩ8KЩ3KЩ#KЩ ЧЪ╧k	Ш	KЪЬЮЬBШNKЪЬЮЬ9ШIKЪЬЮЬ(Ш>KЪЬЮЬШ&KЪЬЮЬШKЪЮЬШKЪЬЮЬШ)KЪЬШЧKШ KЪ╨lnЬЮШ#KЪЮЬЮЬШ2KЪЮЬШ ЪЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШ+KЪЬ	ЮЬШKЪЬЮЬШ"KЪЬ
ЮЬЮЬ╧cШCKШ KЪЬЮЬЮЬЮЬШ3ЪЬЮЬЮЬ7ШYKШ ЧKЪЬЮЬЮЬ	ШЪЬ	ЮЬЮЬШKЪЬШKЪЬЮЬШKЪЬ$ЮЬШ(KЪЬЮЬШKЪЬШKЪЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬ	ЮШKЪЬШKШ ЧЪЬЮЬЮЬШKЪЬШKЪЬ"Ш"KЪЬШKЪЬЮШKЪЬШKШ ЧЪ╧nЬЮЬЮЬ,ЮЬЮЬЮЬЮЬШГKЪЬШKЪЬЮЬ]ШmKЪЬ?Ш?KЪЬЮЬШ)KШKШKШKШKШKШKШKЪЬ
ЮЬTШaKЪЬШKШ ЧЪб	ЬЮЬ"Ш1KЪЬЮЬ'Ш:KЪЬЮЬ!Ш?ЪЮЬ	ЮЬЮЬШKЪЬ	ЮЬШ&KЪЬЮЬШKЪЬЮЬЮЬЮЬШ$KШKЪЬ
ЮЬЮЬШKЪЬ
ЮЬЮЬШ+KЪЬЮЬЮЬШЪЮЬ#ЮЬЮЬЮШ4ЪЮЬ(ЮЬЮЬШ7KШKШKЪЮЬШKЪЬШЧKЪЮЬШЧЪЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬШCKЪЬЮЬ'Ш7KЪЬШЧKЪЮЬЮЬ
ЮЬЮЬШ*KЪЮЬЮЬ
ЮЬШ8KЪЮЬ
ЮЬЮЬШ=ЪЮЬ"ЮЬЮЬЮШ3KЪЬШKЪЬЮЬЮЬШKЪЮЬ	ЮЬЮЬШAШ=KЪ	ЬЮЬ	ЮЬЮЬЮЬШPЧKШ8KЪЬ	ЮЬ/Ш<KШKЪЮЬШЧKЪЮЬ
ЮЬШ'KШKШ'KЪЬШЧKШKЪЮЬ	ЮЬЮЬЮЬШKШKЪЬЮЬШKЪЬШKШ ЧЪ
бЬЮЬЮЬЮЬЮЬШMKЪЬ2Ш2ЪЮЬ&ЮЬЮЬЮШ9ЪЮЬ/ЮЬЮЬЮШBЪЮЬ
ЮЬЮЬШ.KШKШ,KЪЮЬШKЪЬШЧKЪЮЬШЧKЪЮЬШЧKШKШKЪЮЬ
ЮЬЮЬ4ЮЬЮЬЮЬЮЬ&ШаKЪЬШKШ ЧЪбЬЮЬ.ЮЬШCKЪЬЮЬ'Ш:KЪЬЮЬШKЪЬЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬЮЬЮЬШ,KЪЬЮЬШKЪЬЮЬШЪЬЮЬШ$KЪЮЬЮЬЮЬЮЬЮЬЮЬШ?KЪЮЬЮЬЮЬШ3ЪЮЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ;KЪЬЮЬШKЪЬШЧKШKЪЬШЧKЪбЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШjKЪЬЮЬШKЪЬ
ЮЬШЪЬШKЪЬЮЬШKШKШЪЮШKШ	KЪЬЮЬШKШKЪЮЬЮЬЮЬШ#KШ)KЪЮЬЮЬЮЬШKЪЮЬШЧKЪЬШЧKЪЬШЪЮЬЮШKШ ЪЮЬЮЬШ KЪЬШKШKЪЬШЧKЪЬ$Ш$KШKЪЮЬШЧKЪЬШKШ ЧЪб
ЬЮЬЮЬЮЬЮЬЮЬЮЬШ^KЪЬKШKKШ#KШKШ ЧЪ
бЬЮЬЮЬЮЬЮЬШ;KЪЬЮЬ'Ш:KЪЬШЪЬЮЬШKЪЬШKЪЬ+Ш+KЪЬ"Ш"KЪЬШKЪЬШЧKЪЮЬШKЪЬШKШ ЧЪб	ЬЮЬЮЬШ/KЪЬЮЬ'Ш:KЪЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬШ4KЪЬ2Ш2KШ8KШ@KШ,KШ%KЪЬШKШ ЧЪб	ЬЮЬЮЬ
Ш3KЪЬЮЬ'Ш:KЪЮЬШKЪЬШKШ ЧЧKШ KЪЮЬШЧ ЕЧ    &  "т  