DIRECTORY Ascii, Atom, Environment, Real, RefText, Rope, SafeStorage, Scaled, UFFontDirReader, UnifiedFonts, UFFileManager, MessageWindow, IO;
UnifiedFontsImpl: CEDAR MONITOR IMPORTS Atom, RefText, Rope, SafeStorage, Scaled, UFFontDirReader, UFFileManager, MessageWindow, IO EXPORTS UnifiedFonts =
BEGIN OPEN UnifiedFonts;
BadFontFileFormat: PUBLIC ERROR = CODE;
pZone: PUBLIC ZONE _ SafeStorage.NewZone[initialSize: 0];
rotationFuzz: REAL = 1/3600.0;
fontDirFileName: ROPE _ "Default.FontDir";
fontHead: FONT _ NIL;  -- all FONTs are linked together, starting here.
defaultFont: FONT;
DefaultFont: PROCEDURE RETURNS [font: FONT] = {
formattingClassInit: REF initProcRec _ NARROW[Atom.GetProp[atom: $Strike, prop: $FontFormattingClass]];
graphicsClassInit: REF initProcRec _ NARROW[Atom.GetProp[atom: $Strike, prop: $FontGraphicsClass]];
IF defaultFont#NIL THEN RETURN [defaultFont];
font _ pZone.NEW[FontRec];
font.name _ "Default";
font.requestedTransformation _ font.actualTransformation _ [10, 0];
font.deviceType _ $Screen;
font.nsCodeTable _ UFFileManager.KeyOf["Ascii.codeScheme"];
font.formattingKey _ font.graphicsKey _ UFFileManager.KeyOf["[Indigo]<Tioga>Strikefonts>Tioga10.strike"];
formattingClassInit.init[font];
graphicsClassInit.init[font];
InitFontBoundingBox[font];
font.bitmapCacheable _ Area[font.fontBoundingBox]<areaLimit;
defaultFont _ font;
};
initProcRec: TYPE = RECORD [
init: PROC [font: FONT]
];
RegisterFontFormattingClass: PUBLIC PROC [flavor: ATOM, init: PROC [font: FONT]] = {
Atom.PutProp[atom: flavor, prop: $FontFormattingClass, val: pZone.NEW[initProcRec _ [init: init]]];
};
RegisterFontGraphicsClass: PUBLIC PROCEDURE [flavor: ATOM, init: PROC [font: FONT]] = {
Atom.PutProp[atom: flavor, prop: $FontGraphicsClass, val: pZone.NEW[initProcRec _ [init: init]]];
};
areaLimit: REAL _ 80*80;
Area: PROC [b: Box] RETURNS [area: REAL] = {
OPEN b;
area _ (ymax-ymin)*(xmax-xmin);
IF area<0 THEN ERROR;
};
CopyRope: PROCEDURE [rope: ROPE] RETURNS [ROPE] = {
i: INT _ -1;
CharProc: PROCEDURE RETURNS [CHAR] = {RETURN[rope.Fetch[i_i+1]]};
RETURN[Rope.FromProc[len: rope.Length[], p: CharProc]];
};
TrustAsRope: PROCEDURE [text: REF] RETURNS [ROPE] = TRUSTED {
RETURN[LOOPHOLE[text]];
};
Create: PUBLIC PROCEDURE [fontName: RopeOrRefText, transformation: Transformation, deviceType: DeviceType] RETURNS [font: FONT] = {
name: ROPE _ IF ISTYPE[fontName, REF TEXT] THEN TrustAsRope[fontName] ELSE NARROW[fontName];
TestForMatch: UFFontDirReader.ExamineProc = {
IF deviceType # candidateDeviceType THEN RETURN [FALSE];
IF transformation.scale < candidateMinSize OR transformation.scale > candidateMaxSize THEN RETURN [FALSE];
IF NOT name.Equal[RefText.TrustTextAsRope[candidateFontName], FALSE] THEN RETURN [FALSE];
IF candidateRotation >= 0 AND ABS[candidateRotation - transformation.rotation] >= rotationFuzz THEN RETURN [FALSE];
RETURN [TRUE];
};
RememberFont: ENTRY PROC = {font.link _ fontHead; fontHead _ font};
SaveResult: UFFontDirReader.ResultProc = {
formattingClassInit: REF initProcRec _ NARROW[Atom.GetProp[atom: metricsType, prop: $FontFormattingClass]];
graphicsClassInit: REF initProcRec _ NARROW[Atom.GetProp[atom: graphicsType, prop: $FontGraphicsClass]];
font _ pZone.NEW[FontRec];
font.name _ CopyRope[name]; -- So it is OK to trust a REF TEXT as a ROPE
font.requestedTransformation _ font.actualTransformation _ transformation;
IF candidateSize # 0.0 THEN font.actualTransformation.scale _ candidateSize;
IF candidateRotation >= 0 THEN font.actualTransformation.rotation _ candidateRotation;
font.deviceType _ candidateDeviceType;
font.nsCodeTable _ codeScheme;
font.formattingKey _ metricsName;
font.graphicsKey _ graphicsName;
formattingClassInit.init[font];
graphicsClassInit.init[font];
InitFontBoundingBox[font];
font.bitmapCacheable _ Area[font.fontBoundingBox]<areaLimit;
RememberFont[];
quit _ TRUE;
};
LookAmongExistingFonts: ENTRY PROC RETURNS [FONT _ NIL] = {
FOR f: FONT _ fontHead, f.link UNTIL f=NIL DO
IF deviceType=f.deviceType AND transformation = f.requestedTransformation AND name.Equal[f.name, FALSE] THEN RETURN[f];
ENDLOOP;
};
font _ LookAmongExistingFonts[];
IF font=NIL THEN UFFontDirReader.EnumerateFontDirectory[fontDirFileName, TestForMatch, SaveResult];
IF font=NIL THEN {
msg: ROPE _ IO.PutFToRope[
"Default substituted for %g font %g at %gbp, %g",
IO.rope[Atom.GetPName[deviceType]],
IO.rope[CopyRope[name]],
IO.real[transformation.scale],
IO.real[transformation.rotation]
];
MessageWindow.Append[msg, TRUE];
font _ DefaultFont[];
};
};
InitFontBoundingBox: PROCEDURE [font: FONT] = {
bb: Box _ [0,0,0,0];
FOR c: CHAR IN [font.bc..font.ec] DO
cbb: Box _ BoundingBox[font, c];
bb.xmin _ MIN[bb.xmin, cbb.xmin];
bb.ymin _ MIN[bb.ymin, cbb.ymin];
bb.xmax _ MAX[bb.xmax, cbb.xmax];
bb.ymax _ MAX[bb.ymax, cbb.ymax];
ENDLOOP;
font.fontBoundingBox _ bb;
};
EasyTransformations: PUBLIC PROCEDURE [fontName: REF, deviceType: DeviceType, transformationProc: TransformationProc] = {
name: ROPE _ IF ISTYPE[fontName, REF TEXT] THEN TrustAsRope[fontName] ELSE NARROW[fontName];
TestForMatch: UFFontDirReader.ExamineProc = {
IF deviceType # candidateDeviceType THEN RETURN [FALSE];
IF NOT name.Equal[RefText.TrustTextAsRope[candidateFontName], FALSE] THEN RETURN [FALSE];
IF candidateSize=0 AND candidateRotation=-360 THEN candidateRotation_0;
RETURN [transformationProc[[scale: candidateSize, rotation: candidateRotation]]];
};
IgnoreResult: UFFontDirReader.ResultProc = {quit _ TRUE};
UFFontDirReader.EnumerateFontDirectory[fontDirFileName, TestForMatch, IgnoreResult];
};
GetPressFontSpecification: PUBLIC PROCEDURE [font: FONT] RETURNS[pfs: PressFontSpecification] = {
};
GetLigatureOrKern: PUBLIC PROCEDURE [font: FONT, char1, char2: CHAR] RETURNS [ligatureOrKern: LigatureOrKern] = {
RETURN[font.fontFormattingClass.ligKernProc[font, char1, char2]];
};
NSCode: PUBLIC PROCEDURE [font: FONT, char: CHAR] RETURNS [nsCode: INT] = {
IF NOT font.fontGraphicsClass.containsProc[font, char] THEN RETURN[nonexistentNSCode]
ELSE TRUSTED {
fontFile: UFFileManager.FontFile _ UFFileManager.Open[font.nsCodeTable];
p: LONG POINTER TO CARDINAL _ fontFile.Pointer[] + LOOPHOLE[char, NAT];
IF NOT fontFile.InBounds[p] THEN RETURN[nonexistentNSCode];
RETURN[p^];
};
};
FindCharCode: PROCEDURE [font: FONT, nsCode: INT] RETURNS [char: CHAR] = TRUSTED {
fontFile: UFFileManager.FontFile _ UFFileManager.Open[font.nsCodeTable];
code: CARDINAL _ nsCode;
p: LONG POINTER TO CARDINAL _ fontFile.Pointer[];
IF NOT fontFile.InBounds[p, font.ec - '\000] THEN RETURN['\000];
IF (p+code)^ = code THEN RETURN['\000 + code];
FOR i: NAT IN [font.bc - '\000 .. font.ec - '\000] DO
IF (p+i)^ = code THEN RETURN['\000 + i];
ENDLOOP;
RETURN['\000];
};
GetWidthArray: PUBLIC PROCEDURE [font: FONT, minimum, undefined: FixedUnit] RETURNS [REF READONLY ARRAY CHAR OF FixedUnit] = {
GetCache: ENTRY PROCEDURE = INLINE {IF font.cachedWidthsMinimum = minimum AND font.cachedWidthsUndefined = undefined THEN cachedWidths _ font.cachedWidths};
SetCache: ENTRY PROCEDURE = INLINE {font.cachedWidths _ cachedWidths; font.cachedWidthsMinimum _ minimum; font.cachedWidthsUndefined _ undefined};
cachedWidths: REF ARRAY CHAR OF FixedUnit _ NIL;
GetCache[];
IF cachedWidths = NIL THEN {
cachedWidths _ pZone.NEW[ARRAY CHAR OF FixedUnit];
FOR c: CHAR IN [FIRST[CHAR]..font.bc) DO cachedWidths[c] _ undefined ENDLOOP;
FOR c: CHAR IN [font.bc..font.ec] DO
cachedWidths[c] _ minimum.Max[Scaled.FromReal[Width[font, c]]]
ENDLOOP;
FOR c: CHAR IN (font.ec..LAST[CHAR]] DO cachedWidths[c] _ undefined ENDLOOP;
SetCache[];
};
RETURN[cachedWidths];
};
AtomValuePair: TYPE = RECORD [atom: ATOM, value: REF ANY];
PutProp: PUBLIC ENTRY PROCEDURE [font: FONT, name: ATOM, value: REF ANY] = {
list: LIST OF AtomValuePair _ NARROW[font.propertyList];
FOR a: LIST OF AtomValuePair _ list, a.rest UNTIL a=NIL DO
IF a.first.atom = name THEN {a.first.value _ value; RETURN};
ENDLOOP;
font.propertyList _ list _ CONS[[name, value], list];
};
GetProp: PUBLIC ENTRY PROCEDURE [font: FONT, name: ATOM] RETURNS [value: REF ANY] = {
FOR a: LIST OF AtomValuePair _ NARROW[font.propertyList], a.rest UNTIL a=NIL DO
IF a.first.atom = name THEN {value _ a.first.value; RETURN};
ENDLOOP;
value _ NIL;
};
Name: PUBLIC PROCEDURE [font: FONT] RETURNS [fontName: ROPE] = {RETURN[font.name]};
NextCharacterDirection: PUBLIC PROCEDURE [font: FONT] RETURNS [Direction] = {RETURN[right]};
NextLineDirection: PUBLIC PROCEDURE [font: FONT] RETURNS [Direction] = {RETURN[down]};
FormattingBox: PUBLIC PROCEDURE [font: FONT, char: CHAR] RETURNS [Box] = {RETURN[font.fontFormattingClass.formattingBoxProc[font, char]]};
FormattingMetric: PUBLIC PROCEDURE [font: FONT, metric: ATOM, char: CHAR _ '\000] RETURNS [REAL] = {RETURN[font.fontFormattingClass.formattingMetricProc[font, metric, char]]};
BoundingBox: PUBLIC PROCEDURE [font: FONT, char: CHAR] RETURNS [Box] = {RETURN[IF char IN [font.bc..font.ec] THEN font.fontGraphicsClass.boundingBoxProc[font, char] ELSE [Real.MinusZero, Real.MinusZero, Real.MinusZero, Real.MinusZero]]};
WidthVector: PUBLIC PROCEDURE [font: FONT, char: CHAR] RETURNS [Vec] = {RETURN[IF char IN [font.bc..font.ec] THEN font.fontGraphicsClass.widthVectorProc[font, char] ELSE [Real.MinusZero, Real.MinusZero]]};
ActualTransformation: PUBLIC PROCEDURE [font: FONT] RETURNS [Transformation] = {RETURN[font.actualTransformation]};
RequestedTransformation: PUBLIC PROCEDURE [font: FONT] RETURNS [Transformation] = {RETURN[font.requestedTransformation]};
Contains: PUBLIC PROCEDURE [font: FONT, char: CHAR] RETURNS [BOOLEAN] = {RETURN[font.fontGraphicsClass.containsProc[font, char]]};
CharCode: PUBLIC PROCEDURE [font: FONT, nsCode: INT] RETURNS [char: CHAR] = {RETURN[IF nsCode < 255 AND NSCode[font, '\000 + nsCode] = nsCode THEN '\000 + nsCode ELSE FindCharCode[font, nsCode]]};
DrawChar: PUBLIC PROCEDURE [font: FONT, char: CHAR, context: Context] = {IF char IN [font.bc..font.ec] THEN font.fontGraphicsClass.drawCharProc[font, char, context]};
Width: PUBLIC PROCEDURE [font: FONT, char: CHAR] RETURNS [REAL] = {box: Box _ FormattingBox[font, char]; RETURN[box.xmax-box.xmin]};
END. 
–UnifiedFontsImpl.mesa
Written November 1, 1982 4:53 pm
Last edited by Michael Plass, February 25, 1983 1:19 pm
Always want to return something.
ΚΥ˜Jš
œ™Jš
œ ™ J™7IunitšΟk	œ‚
œ
˜Ž
šΟnœœ
œ
œZœ
œ˜š
Jšœ
œ˜Kšœœ
œœ
˜'Kšœœ
œ'˜9Kšœœ˜Kšœœ˜*Kšœ
œœΟc0˜GKšœ
œ
˜šžœ	œ
œœ˜/Icodešœœœ:˜gLšœœœ8˜cJšœ
œ
œ
œ˜-Jšœ
œ
˜Jš
œ˜Jš
œC˜CJš
œ˜Jš
œ;˜;Jš
œi˜iJš
œ˜Lš
œ˜L˜L˜<Jš
œ˜J˜—šœ
œœ˜Lšœœœ
˜L˜—šžœœ
œ
œœœ˜TLšœBœ˜cLš
œ˜—šžœœ
	œ
œœœ˜WLšœ@œ˜aLš
œ˜—Kšœœ	˜šžœœ
œœ˜,Jšœ˜Jš
œ˜Jšœœ
œ
˜Jš
œ˜—š
žœ	œœœœ˜3Jšœœ˜Jš
žœ	œ
œœœ˜AJšœ1˜7Jš
œ˜—šžœ	œœœœœ˜=Jšœ
œ˜Jš
œ˜—š
žœœ
	œSœœ˜ƒ
Lšœœœ
œœ
œœœ
œ˜\šžœ!˜-Lšœ"œ
œœ˜8Lš
œ)œ)œ
œœ˜jLšœ
œ8œœ
œœ˜YLšœœ
œ>œ
œœ˜sLšœœ˜L˜—Lšžœœ
œ+˜Cšž
œ ˜*Lšœœœ>˜kLšœœœ=˜hLšœ
œ
˜LšœŸ,˜HLš
œJ˜JLšœœ1˜LLšœœ8˜VLš
œ&˜&Lš
œ˜Lš
œ!˜!Lš
œ ˜ Lš
œ˜Lš
œ˜L˜L˜<Lš
œ˜Lšœœ
˜L˜—šžœœ
œ
œœœ˜;š	œœœœ
˜-Jšœœ,œœœ
œ˜wJšœ
˜—J˜—Lš
œ ˜ Lšœœ
œS˜cšœœ˜J™ šœœœ˜Jš
œ2˜2Jšœ!˜#Jšœ˜Jšœ˜Jšœ˜ J˜—Jšœœ˜ Jš
œ˜Jš
œ˜—L˜—šžœ	œœ˜/J˜šœœ
œ˜$Jš
œ ˜ Jšœ
œ˜!Jšœ
œ˜!Jšœ
œ˜!Jšœ
œ˜!Jšœ
˜—Jš
œ˜Jš
œ˜—šžœœœE˜yLšœœœ
œœ
œœœ
œ˜\š
œ-˜-Lšœ"œ
œœ˜8Lšœ
œ8œœ
œœ˜YLšœœœ˜GLšœK˜QL˜—Lšœ3œ˜9Lš
œT˜TL˜—šžœœœœ!˜aL˜—šžœœ
	œœœœ%˜qLšœ;˜AL˜—šžœœ
	œœœœ
œ˜KLšœ
œ1œ
œ˜Ušœ
œ˜Jš
œH˜HJš
œœ
œ
œ
œœœ˜GJšœ
œœ
œ˜;Jšœ˜Jš
œ˜—Lš
œ˜—šžœ	œœ
œœœœ˜RJš
œH˜HJšœœ
˜Jš	œœ
œ
œ
œ˜1Jšœ
œ'œ
œ˜@Jšœœ
œ˜.šœœ
œ&˜5Jšœœ
œ˜(Jšœ
˜—Jšœ˜L˜—šž
œœ
	œœ!œœ
œ
œ
œ
œ˜~Jšžœœ
	œœœ$œ(œ#˜œ
Jšžœœ
	œœp˜’
Jšœœ
œ
œ
œ
œ
˜0J˜šœœ
œ˜Jš	œœ
œ
œ
œ˜2Jšœœ
œœ
œœœ
˜Mšœœ
œ˜$Jš
œ>˜>Jšœ
˜—Jšœœ
œœ
œœœ
˜LJ˜Jš
œ˜—Jšœ˜Jš
œ˜—Kšœœœœ	œ
œ˜:šžœœ
œ
	œœœ	œ
œ˜LJšœœ
œœ˜8šœœ
œœœ
˜:Jšœœœ˜<Jšœ
˜—Jšœœ˜5Jš
œ˜—šžœœ
œ
	œœœœ	œ
œ˜Uš
œœ
œœœœ
˜OJšœœœ˜<Jšœ
˜—Jšœœ
˜Jš
œ˜—Kšžœœ
	œœœœœ
˜SJšžœœ
	œœœœ	˜\Jšžœœ
	œœœœ˜VJšž
œœ
	œœœœžœ
œ:˜Š
Jšžœœ
	œœ
œœ
œœœE˜―
Jšžœœ
	œœœœ
œ
œœœ4œD˜ν
Jšžœœ
	œœœœ
œ
œœœ4œ$˜Ν
Jšžœœ
	œœœœ˜sJšžœœ
	œœœœ ˜yJšžœœ
	œœœœœœ3˜‚
Jšžœœ
	œœ
œœœœ
œœ'œœ˜Δ
Jšžœœ
	œœœœœœ;˜¦
Jšžœœ
	œœœœœ+œ˜„
Kšœ˜——…—'j3Υ