DIRECTORY
Ascii, Char, Imager, ImagerFont, ImagerPrivate, ImagerTransformation, IO, Prop, RefTab, Rope, ImagerXCMap;

ImagerXCFontMapImpl: CEDAR PROGRAM
IMPORTS Char, Imager, ImagerFont, ImagerTransformation, IO, Prop, RefTab, Rope, ImagerXCMap
EXPORTS Imager, ImagerXCMap
~ BEGIN OPEN ImagerXCMap;
Class: TYPE ~ ImagerPrivate.Class;
ClassRep: PUBLIC TYPE ~ ImagerPrivate.ClassRep; -- export to Imager

BoundOutputMap: TYPE ~ REF BoundOutputMapRep;
BoundOutputMapRep: TYPE ~ RECORD [newFont: ImagerFont.Font, map: Map];

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

SaveEntry: TYPE ~ RECORD [
curFont: ImagerFont.Font,
curBoundOutputMap: BoundOutputMap,
curMappedFont: ImagerFont.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, $ImagerXCMapFilter, data];
class: Class ~ NEW[ClassRep м oldClassн];
class.type м $ImagerXCMapFilter;
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: Imager.Context, font: ImagerFont.Font] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $ImagerXCMapFilter]];
subst: BoundOutputMap м NARROW[data.fontTable.Fetch[font].val];
IF subst = NIL THEN {
oldName: Rope.ROPE ~ ImagerFont.Name[font];
fme: FontMapEntry;
newFont: ImagerFont.Font;
canPrint: BOOL ~ data.msg#NIL;
printing: BOOL м canPrint AND data.verbose;
FOR p: FontMap м data.fontMap, p.rest UNTIL p=NIL DO
IF Rope.Equal[oldName, p.first.inputName, FALSE] THEN {
fme м p.first;
EXIT;
};
REPEAT
FINISHED => fme м [inputName: oldName, outputName: oldName, map: cs0Map, scale: 1.0, warn: FALSE];
ENDLOOP;
IF fme.warn AND canPrint THEN printing м TRUE;
IF fme.warn AND printing THEN data.msg.PutRope[" WARNING:"];
IF printing THEN data.msg.PutF[" (%g =>%g", IO.rope[oldName], IO.rope[fme.outputName]];
newFont м ImagerFont.Find[fme.outputName ! Imager.Warning =>
{IF printing THEN data.msg.PutF1[" {%g}", IO.rope[error.explanation]]; RESUME}];
newFont м ImagerFont.Modify[newFont, ImagerTransformation.PostScale[font.charToClient, fme.scale]];
IF printing THEN data.msg.PutRope[")"];
subst м NEW [BoundOutputMapRep м [newFont, fme.map]];
[] м data.fontTable.Store[font, subst];
};
data.curFont м font;
IF subst = NIL THEN ERROR;
IF data.curMappedFont#subst.newFont THEN {
Imager.SetFont[data.c, subst.newFont];
data.curMappedFont м subst.newFont;
};
data.curBoundOutputMap м subst;
};

MyShow: PROC[context: Imager.Context, string: ImagerFont.XStringProc, xrel: BOOL] ~ {
myString: ImagerFont.XStringProc ~ {
myCharAction: ImagerFont.XCharProc ~ {
IF Char.Set[char]=0 THEN char м data.curBoundOutputMap.map[VAL[Char.Code[char]]];
charAction[char];
};
string[myCharAction];
};
data: Data ~ NARROW[Imager.GetProp[context, $ImagerXCMapFilter]];
Imager.Show[data.c, myString, xrel];
};

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

MySave: PROC[context: Imager.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: Imager.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: Imager.Context] RETURNS[ImagerFont.Font] ~ {
data: Data ~ NARROW[Imager.GetProp[context, $ImagerXCMapFilter]];
RETURN [data.curFont]
};
tiogaToXC: PUBLIC FontMap; -- maps Tioga fonts to XC equivalents
pressToXC: PUBLIC FontMap; -- maps Press fonts to XC equivalents
tiogaAndPressToXC: PUBLIC FontMap; -- maps Tioga & Press fonts to XC equivalents

Face: TYPE = RECORD [source, dest: Rope.ROPE];

TiogaMapping: TYPE ~ RECORD [family: Rope.ROPE, sizes: LIST OF NAT, target: Rope.ROPE];
tiogaMappings: LIST OF TiogaMapping м LIST [
["AMTeX", LIST [10], "Terminal"],
["APL", LIST [14], "Classic"],
["Asterisk", LIST [10], "Modern"],
["Classic", LIST [8, 10, 12, 14], "Classic"],
["Cream", LIST [10, 12], "Modern"],
["Cyrillic", LIST [10, 12], "Classic"],
["EightBitTimesRoman", LIST [10], "TimesRoman"],
["Gacha", LIST [8, 10, 12], "Terminal"],
["Hebrew", LIST [14], "Classic"],
["Helvetica", LIST [6, 7, 8, 9, 10, 11, 12, 13, 14, 16, 18], "Helvetica"],
["Hippo", LIST [8, 10, 12, 18], "Classic"],
["Logo", LIST [12, 14, 18, 20, 24, 26], "Logotypes-Xerox"],
["Math", LIST [8, 10, 12], "Classic"],
["OldEnglish", LIST [10, 18], "Classic"],
["ReverseGacha", LIST [10], "Terminal"],
["Sail", LIST [10, 12], "Classic"],
["TimesRoman", LIST [8, 9, 10, 11, 12, 13, 14, 16, 18], "TimesRoman"],
["Tioga", LIST [10], "Classic"],
["XeroxLogotypes", LIST [48], "Logotypes-Xerox"]];
tiogaFaces: LIST OF Face м LIST [ ["", ""], ["I", "-italic"], ["B", "-bold"], ["BI", "-bold-italic"] ];

PressMapping: TYPE ~ RECORD [family: Rope.ROPE, target: Rope.ROPE];
pressMappings: LIST OF PressMapping м LIST [
["Classic", "Classic"],
["ClassicPiOne", "Classic"],
["Gacha", "Terminal"],
["Helvetica", "Helvetica"],
["Hippo", "Classic"],
["Laurel", "Classic"],
["Math", "Classic"],
["Modern", "Modern"],
["ModernPiOne", "Modern"],
["OldEnglish", "Classic"],
["TimesRoman", "TimesRoman"],
["XeroxBook", "Terminal"],
["XeroxLogotypes", "Logotypes-Xerox"]];
pressFaces: LIST OF Face м LIST [ ["-mrr", ""], ["-mir", "-italic"], ["-brr", "-bold"], ["-bir", "-bold-italic"] ];

InitFontMaps: PROC [] RETURNS [] ~ {
tiogaToXC м NIL;
FOR tms: LIST OF TiogaMapping м tiogaMappings, tms.rest UNTIL tms=NIL DO
map: Map м GetFamilyMap[tms.first.family];
FOR faces: LIST OF Face м tiogaFaces, faces.rest UNTIL faces=NIL DO
dest: Rope.ROPE м IO.PutFR["Xerox/XC1-2-2/%g%g", IO.rope[tms.first.target], IO.rope[faces.first.dest]];
FOR sizes: LIST OF NAT м tms.first.sizes, sizes.rest UNTIL sizes=NIL DO
source: Rope.ROPE м IO.PutFR["Xerox/TiogaFonts/%g%g%g", IO.rope[tms.first.family], IO.int[sizes.first], IO.rope[faces.first.source]];
tiogaToXC м CONS [ [inputName: source, outputName: dest, map: map, scale: sizes.first, warn: FALSE], tiogaToXC];
ENDLOOP;
ENDLOOP;
ENDLOOP;
pressToXC м NIL;
FOR tms: LIST OF PressMapping м pressMappings, tms.rest UNTIL tms=NIL DO
map: Map м GetFamilyMap[tms.first.family];
FOR faces: LIST OF Face м tiogaFaces, faces.rest UNTIL faces=NIL DO
dest: Rope.ROPE м IO.PutFR["Xerox/XC1-2-2/%g%g", IO.rope[tms.first.target], IO.rope[faces.first.dest]];
source: Rope.ROPE м IO.PutFR["Xerox/PressFonts/%g%g", IO.rope[tms.first.family], IO.rope[faces.first.source]];
pressToXC м CONS [ [inputName: source, outputName: dest, map: map, scale: 1.0, warn: FALSE], pressToXC];
ENDLOOP;
ENDLOOP;
tiogaAndPressToXC м NIL;
FOR fm: FontMap м tiogaToXC, fm.rest UNTIL fm=NIL DO
tiogaAndPressToXC м CONS [fm.first, tiogaAndPressToXC];
ENDLOOP;
FOR fm: FontMap м pressToXC, fm.rest UNTIL fm=NIL DO
tiogaAndPressToXC м CONS [fm.first, tiogaAndPressToXC];
ENDLOOP;
};


InitFontMaps[];


END.
  ╩  
ImagerXCFontMapImpl.mesa
Copyright ╙ 1987, 1992 by Xerox Corporation.  All rights reserved.
Jean-Marc Frailong February 4, 1988 7:15:23 pm PST
Michael Plass, September 15, 1989 1:18:23 pm PDT

Provides font substitution for Tioga & Press fonts
Implementation is split because of compiler storage overflow.
Willie-s, April 6, 1992 12:58 pm PDT

Filtering imager context
FontMap initialization
Create tiogaToXC
Create pressToXC
Create tiogaAndPressToXC
Э╩	C  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ7ЩBKЩ2KЩ0KЩ KЩ2KЩ=KЩ$KЩ ЧЪ╧k	Ш	KЪЬFЮЬ"ШjЧKШ KЪ╨blЬЮЬЮШ"KЪЮЬ1ЮЬ!Ш[KЪЮЬШKЪЬЮЬЮШheadЩKЪЬЮЬШ"ЪЬ
ЮЬЮЬ╧cШCKШ ЧKЪЬЮЬЮЬШ-ЪЬЮЬЮЬ&ШFKШ ЧKЪЬЮЬЮЬ	ШЪЬ	ЮЬЮЬШKЪЬШKЪЬЮЬШKЪЬ$ЮЬШ(KЪЬ!ЮЬШ%KЪЬШKЪЬа+ШBKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬ	ЮШKЪЬШKШ ЧЪЬЮЬЮЬШKЪЬШKЪЬ"Ш"KЪЬШKЪЬЮШKЪЬШKШ ЧЪ╧nЬЮЬЮЬ,ЮЬЮЬЮЬЮЬШГKЪЬШKЪЬЮЬ]ШmKЪЬFШFKЪЬЮЬШ)KШ KШKШKШKШKШKШKЪЬ
ЮЬTШaKЪЬШKШ ЧЪб	ЬЮЬ4ШCKЪЬЮЬ.ШAKЪЬЮЬ!Ш?ЪЮЬ	ЮЬЮЬШKЪЬЮЬШ+KЪЬШKЪЬШKЪЬ
ЮЬЮЬШKЪЬ
ЮЬЮЬШ+ЪЮЬ#ЮЬЮЬЮШ4ЪЮЬ(ЮЬЮЬШ7KШKЪЮЬШKЪЬШЧЪЮШKЪЮЬSЮЬШbЧKЪЮЬШЧKЪЮЬ
ЮЬ
ЮЬЮЬШ.KЪЮЬ
ЮЬ
ЮЬШ<KЪЮЬ
ЮЬЮЬЮЬШWШ<KЪ	ЬЮЬ	ЮЬЮЬЮЬШPЧKШcKЪЮЬ
ЮЬШ'KЪЬЮЬ*Ш5KШ'KЪЬШЧKШKЪЮЬ	ЮЬЮЬЮЬШЪЮЬ!ЮЬШ*KЪЬ&Ш&KШ#KЪЬШЧKШKЪЬШKШ ЧЪбЬЮЬ@ЮЬШUЪЬ$Ш$ЪЬ&Ш&KЪЮЬЮЬ#ЮЬШQKЪЬШKЪЬШЧKЪЬШKЪЬШЧKЪЬЮЬ.ШAKЪЬ$Ш$KЪЬШKШ ЧЪб
ЬЮЬ!ЮЬЮЬЮЬЮЬЮЬШdKЪЬVШVKШ#KШKШ ЧЪ
бЬЮЬЮЬЮЬЮЬШBKЪЬЮЬ'Ш:KЪЬШЪЬЮЬШKЪЬШKЪЬ+Ш+KЪЬ"Ш"KЪЬШKЪЬШЧKЪЮЬШKЪЬШKШ ЧЪб	ЬЮЬЮЬШ6KЪЬЮЬ'Ш:KЪЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬШ4KЪЬ2Ш2KШ8KШ@KШ,KШ%KЪЬШKШ ЧЪб	ЬЮЬЮЬШEKЪЬЮЬ.ШAKЪЮЬШKЪЬШЧЧЩKЪЬЮЬ
а%Ш@KЪЬЮЬ
а%Ш@ЪЬЮЬ
а-ШPKШ ЧЪЬЮЬЮЬЮЬШ.KШ ЧKЪЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШWЪЬЮЬЮЬЮЬШ,KЪЬ
ЮЬШ!KЪЬЮЬШKЪЬЮЬШ"KЪЬЮЬШ-KЪЬ
ЮЬШ#KЪЬЮЬШ'KЪЬЮЬШ0KЪЬ
ЮЬШ(KЪЬЮЬШ!KЪЬЮЬ8ШJKЪЬ
ЮЬШ+KЪЬ	ЮЬ.Ш;KЪЬ	ЮЬШ&KЪЬЮЬШ)KЪЬЮЬШ(KЪЬ	ЮЬШ#KЪЬЮЬ3ШFKЪЬ
ЮЬШ KЪЬЮЬШ2ЧЪЬЮЬЮЬЮЬHШgKШ ЧKЪ	ЬЮЬЮЬЮЬЮЬШCЪЬЮЬЮЬЮЬШ,KЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬ'Ш'ЧЪЬЮЬЮЬЮЬTШsKШ ЧЪбЬЮЬЮЬШ$ЩKЪЬЮЬШЪЮЬЮЬЮЬ(ЮЬЮЬЮШHKШ*ЪЮЬЮЬЮЬЮЬЮЬЮШCKЪ	ЬЮЬЮЬЮЬЮЬШgЪЮЬЮЬЮЬЮЬЮЬЮЬЮШGKЪЬЮЬЮЬ"ЮЬЮЬЮЬШЕKЪЬЮЬMЮЬШpKЪЮЬШЧKЪЮЬШЧKЪЮЬШЧЧЩKЪЬЮЬШЪЮЬЮЬЮЬ(ЮЬЮЬЮШHKШ*ЪЮЬЮЬЮЬЮЬЮЬЮШCKЪ	ЬЮЬЮЬЮЬЮЬШgKЪ	ЬЮЬЮЬ ЮЬЮЬШnKЪЬЮЬEЮЬШhKЪЮЬШЧKЪЮЬШЧЧЪЬЩKЪЬЮЬШЪЮЬ"ЮЬЮЬЮШ4KЪЬЮЬШ7KЪЮЬШЧЪЮЬ"ЮЬЮЬЮШ4KЪЬЮЬШ7KЪЮЬШЧЧKШKШ ЧKШ KШKШ ЧKШ KЪЮЬШЧ ЕЧ    Ю  *л  