DIRECTORY Atom, Ascii, FileIO, IO, RefText, Rope, UFFileManager, UFFontDirReader, UserTerminal; UFFontDirReaderImpl: CEDAR PROGRAM IMPORTS Atom, FileIO, IO, RefText, Rope, UFFileManager, UserTerminal EXPORTS UFFontDirReader = BEGIN OPEN UFFontDirReader; EnumerateFontDirectory: PUBLIC PROCEDURE [fontDirectoryName: ROPE, examine: ExamineProc, result: ResultProc] = { stream: IO.STREAM _ FileIO.Open[fontDirectoryName]; inputBuffer: REF TEXT _ RefText.ObtainScratch[128]; fontName: REF TEXT _ RefText.ObtainScratch[64]; codeScheme: REF TEXT _ RefText.ObtainScratch[64]; metricsName: REF TEXT _ RefText.ObtainScratch[64]; graphicsName: REF TEXT _ RefText.ObtainScratch[64]; deviceType: DeviceType _ $Ideal; metricsType: ATOM _ $Nil; graphicsType: ATOM _ $Nil; rotation: REAL _ 0; size, plusSize, minusSize: REAL _ 0; cp: NAT _ 0; locationOfBufferStart: INT _ 0; tokenStart, tokenLength: NAT _ 0; Error: PROC = { stream: IO.STREAM _ FileIO.Open["UnifiedFonts.errorLog", append]; stream.PutF["%g Error at position %g in file %g", IO.time[], IO.int[locationOfBufferStart+tokenStart], IO.rope[fontDirectoryName]]; stream.Close; TRUSTED {UserTerminal.BlinkDisplay[]}; }; GetToken: PROC = { c: CHAR; tokenStart _ tokenStart+tokenLength; tokenLength _ 0; WHILE tokenStart {GetToken[]; dimn _ dimn*72/25.4}; Match["cm"] => {GetToken[]; dimn _ dimn*72/2.54}; Match["in"] => {GetToken[]; dimn _ dimn*72}; Match["bp"] => {GetToken[]}; Match["pt"] => {GetToken[]; dimn _ dimn*72/72.27}; ENDCASE => NULL; }; TokenAsReal: PROC [] RETURNS [real: REAL] = { c: CHAR _ ' ; i: NAT _ tokenStart; num: REAL _ 0; denom: REAL _ 1; WHILE i < inputBuffer.length AND (c _ inputBuffer[i]) IN ['0..'9] DO num _ 10.0*num + (c-'0); i _ i+1; ENDLOOP; IF c='. THEN {i _ i+1; c _ ' ; WHILE i < inputBuffer.length AND (c _ inputBuffer[i]) IN ['0..'9] DO num _ 10.0*num + (c-'0); denom _ 10.0*denom; i _ i+1; ENDLOOP; } ELSE IF c='/ THEN {i _ i+1; denom _ 0; WHILE i < inputBuffer.length AND (c _ inputBuffer[i]) IN ['0..'9] DO denom _ 10.0*denom + (c-'0); i _ i+1; ENDLOOP; }; tokenLength _ i-tokenStart; IF denom=0.0 THEN {Error[]; denom_1}; IF tokenLength=0 THEN Error[]; real _ num/denom; }; Save: PROC [r: REF TEXT] = { r.length _ 0; RefText.Append[to: r, from: inputBuffer, start: tokenStart, len: tokenLength]; }; RefillBuffer[]; GetToken[]; WHILE tokenLength>0 DO SELECT TRUE FROM Match["DEVICE:"] => {GetToken[]; SELECT TRUE FROM Match["Ideal"] => deviceType _ $Ideal; Match["Spruce"] => deviceType _ $Spruce; Match["Press"] => deviceType _ $Press; Match["Ideal"] => deviceType _ $Screen; ENDCASE => deviceType _ AtomFromToken[]; GetToken[] }; Match["SIZE:"] => {GetToken[]; IF Match["ANY"] THEN {GetToken[]; size _ minusSize _ 0; plusSize _ 1000000.0} ELSE { size _ plusSize _ minusSize _ GetDimn[]; DO SELECT TRUE FROM Match["+"] => {GetToken[]; plusSize _ size + GetDimn[]}; Match["-"] => {GetToken[]; minusSize _ size - GetDimn[]}; Match["+-"] => {r: REAL; GetToken[]; r _ GetDimn[]; plusSize _ size + r; minusSize _ size - r}; ENDCASE => EXIT; ENDLOOP; }; }; Match["ROTATION:"] => {GetToken[]; IF Match["ANY"] THEN rotation _ -360.0 ELSE rotation _ TokenAsReal[]; GetToken[] }; Match["FONTNAME:"] => {GetToken[]; Save[fontName]; GetToken[]}; Match["CODESCHEME:"] => {GetToken[]; Save[codeScheme]; GetToken[]}; Match["METRICS:"] => {GetToken[]; metricsType _ SELECT TRUE FROM Match["TFM"] => $Tfm, Match["STRIKE"] => $Strike, ENDCASE => AtomFromToken[]; GetToken[]; Save[metricsName]; GetToken[]; }; Match["GRAPHICS:"] => {GetToken[]; graphicsType _ SELECT TRUE FROM Match["PRESS"] => $Press, Match["STRIKE"] => $Strike, Match["SD"] => $Sd, ENDCASE => AtomFromToken[]; GetToken[]; Save[graphicsName]; GetToken[]; }; Match["DEFINEFONT"] => { GetToken[]; IF examine[ candidateFontName: fontName, candidateSize: size, candidateMaxSize: plusSize, candidateMinSize: minusSize, candidateRotation: rotation, candidateDeviceType: deviceType ] THEN { quit: BOOLEAN _ result[ candidateFontName: fontName, candidateSize: size, candidateMaxSize: plusSize, candidateMinSize: minusSize, candidateRotation: rotation, candidateDeviceType: deviceType, metricsType: metricsType, codeScheme: UFFileManager.KeyOfRefText[codeScheme], metricsName: UFFileManager.KeyOfRefText[metricsName], graphicsType: graphicsType, graphicsName: UFFileManager.KeyOfRefText[graphicsName] ]; IF quit THEN EXIT; }; }; ENDCASE => {Error[]; EXIT}; ENDLOOP; RefText.ReleaseScratch[inputBuffer]; RefText.ReleaseScratch[fontName]; RefText.ReleaseScratch[codeScheme]; RefText.ReleaseScratch[metricsName]; RefText.ReleaseScratch[graphicsName]; stream.Close[]; }; END. @UFFontDirReaderImpl.mesa Written January 14, 1983 2:01 pm Last edited by Michael Plass, July 22, 1983 12:00 pm Last edited by Doug Wyatt, September 30, 1983 5:59 pm Gets the next token into inputBuffer[tokenStart] .. inputBuffer[tokenLength-1] Not called often; makes a atom with first char caps, rest lower case. ‌تسکJڑœ™Jڑœ ™ J™4J™5Iunitڑدk œ‌œ>ک_ڑœ‌œ‌ک"Jڑ‌œ‌œ,کDJڑ‌œکJڑœ‌œ‌œکڑدnœ‌œ‌ œ‌œ/کpIcodeڑœ‌œ‌œ"ک3Lڑœ ‌œ‌œک3Lڑœ ‌œ‌œک/Lڑœ‌œ‌œک1Lڑœ ‌œ‌œک2Lڑœ‌œ‌œک3Lک Lڑœ ‌œکLڑœ‌œکLڑœ ‌œکLڑœ‌œک$Lڑœ‌œکLڑœ‌œکLڑœ‌œک!ڑ‍œ‌œکLڑœ‌œ‌œ0کALڑœ2‌œ ‌œ(‌œکƒLڑœ ک Lڑ‌œک&Lڑœک—ڑ‍œ‌œکLڑœN™NLڑœ‌œکLک$Lکڑ‌œ‌œ(‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ ‌کڑLڑœکLڑ‌œ!‌œک7Lڑ‌œک—ڑ‌œ+‌œ‌œ4‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ ‌ک¶LڑœکLڑ‌œ/‌œکELڑ‌œک—Lک—ڑ‍œ‌œکڑ‌œ‌œ‌œ‌ک!Jڑœ+ک+Jڑ‌œک—Lڑœ!ک!Lڑœ9ک9LڑœکLڑœ/ک/Lک—ڑ‍ œ‌œ‌œ‌œک,L™ELڑœ ‌œ‌œک2LڑœکLڑœ,ک,ڑ‌œ‌œ‌œ‌ک(Jڑœ,ک,Jڑ‌œک—Lڑœ4ک4Lڑœ$ک$Lک—ڑ‍œ‌œ‌œ‌œ‌œ‌œ ‌œکALڑœ‌œکLڑ‌œ‌œ‌œ‌œک0ڑ‌œ‌œ‌œ‌ک Jڑ‌œ‌œ‌œ‌œک-JکJڑ‌œک—Lڑ‌œ‌œک Lک—ڑ‍œ‌œ‌œ‌œک)LڑœکLڑœکڑ‌œ‌œ‌کJڑœ1ک1Jڑœ1ک1Jڑœ,ک,JڑœکJڑœ2ک2Jڑ‌œ‌œک—Lک—ڑ‍œ‌œ‌œ‌œک-Lڑœ‌œک Lڑœ‌œکLڑœ‌œکLڑœ‌œکڑ‌œ‌œ‌œ ‌کDLکLکLڑ‌œک—ڑ‌œ‌œکڑ‌œ‌œ‌œ ‌کDLکLکLکLڑ‌œک—Lک—ڑ‌œ‌œ‌œک&ڑ‌œ‌œ‌œ ‌کDLکLکLڑ‌œک—Lک—LکLڑ‌œ ‌œک%Lڑ‌œ‌œ کLڑœکLک—ڑ‍œ‌œ‌œ‌œکLک LڑœNکNLک—LڑœکLڑœکڑ‌œ‌کLڑ‌œ‌œ‌کڑœ ک Lڑ‌œ‌œ‌کLڑœ&ک&Lڑœ(ک(Lڑœ&ک&Lڑœ'ک'Lڑ‌œ!ک(Lڑœ ک Lڑœک—ڑœکLڑ‌œ‌œ9کMڑ‌œکLڑœ(ک(ڑ‌œ‌œ‌œ‌کJڑœ8ک8Jڑœ9ک9Jڑœ‌œHک_Jڑ‌œ‌œکJڑ‌œک—Jک—Lڑœک—ڑœ"ک"Lڑ‌œ‌œ‌œکELڑœ ک Lڑœک—Lڑœ?ک?LڑœCکCڑœ!ک!ڑœکLڑ‌œ‌œ‌کLڑœکLڑœکLڑ‌œک—Lڑœ*ک*Lڑœک—ڑœ"ک"ڑœکLڑ‌œ‌œ‌کLڑœکLڑœکLڑœکLڑ‌œک—Lڑœ+ک+Lڑœک—ڑœکLڑœکڑ‌œ کLڑœکLڑœکLڑœکLڑœکLڑœکLڑœکLک—ڑ‌œکڑœ‌œ کLڑœکLڑœکLڑœکLڑœکLڑœکLڑœ ک LڑœکLڑœ3ک3Lڑœ5ک5LڑœکLڑœ6ک6Lک—Lڑ‌œ‌œ‌œکLک—Lڑœک—Lڑ‌œ‌œکLڑ‌œک—Lڑœ$ک$Lڑœ!ک!Lڑœ#ک#Lڑœ$ک$Lڑœ%ک%LکLک—Kڑ‌œک——…—ض é