DIRECTORYIO USING [STREAM],Rope USING [ROPE];PressReader: DEFINITIONS = BEGINROPE: TYPE = Rope.ROPE;Handle: TYPE = REF PressReaderRec;PressReaderRec: TYPE;DocumentDirectory: PUBLIC TYPE = REF DocumentDirectoryRec;DocumentDirectoryRec: PUBLIC TYPE = RECORD [passwd: INT,nRecs: INT,nParts: INT,pdStart: INT,pdRecs: INT,backP: INT,date: LONG CARDINAL,fCopy: INT,lCopy: INT,fPage: INT,lPage: INT,fileName: ROPE,creator: ROPE,dateText: ROPE ];PartDirectoryEntry: PUBLIC TYPE = RECORD [partType: PartType,typeNumber: INT,partStart: INT,partRecs: INT,padding: INT ];PartType: PUBLIC TYPE = { private, printedPage, fontDirectory, other };FontDirectoryEntry: PUBLIC TYPE = RECORD [length: INT,fontSet: INT,font: INT,firstChar: INT,lastChar: INT,family: ROPE,face: FontFace,source: INT,size: INT,rotation: INT ];FontFace: PUBLIC TYPE = RECORD [encoding: INT,weight: {medium, bold, light},slope: {regular, italic},expansion: {regular, condensed, expanded}];EntityTrailer: PUBLIC TYPE = RECORD [entityType: INT,fontSet: INT,dataStart: INT,dataLength: INT,Xe: INT,Ye: INT,xLeft: INT,yBottom: INT,width: INT,height: INT,length:INT ];Dots: TYPE = RECORD [file: IO.STREAM,numberPages: NAT,pageNumber: NAT,byteOffset: INT,length: INT ];OpenPressFile: PROCEDURE [name: ROPE] RETURNS [handle: Handle];GetDocumentDirectory: PROCEDURE [Handle] RETURNS [DocumentDirectory];GetParts: PUBLIC PROCEDURE [handle: Handle, partNumber: INT, pageProc: PageProc _ NIL, fontDirectoryProc: FontDirectoryProc _ NIL];GetFonts: PUBLIC PROCEDURE [handle: Handle, fontEntryProc: FontEntryProc];GetPage: PUBLIC PROCEDURE [handle: Handle, entityProc: EntityProc];GetCommands: PUBLIC PROCEDURE [handle: Handle, commandProcs: CommandProcs];GetObject: PROCEDURE [handle: Handle, objectProcs: ObjectProcs];GetDots: PROCEDURE [handle: Handle, dotProcs: DotProcs];ClosePressFile: PROCEDURE [Handle];PageProc: TYPE = PROCEDURE [handle: Handle, partDirectoryEntry: PartDirectoryEntry];FontDirectoryProc: TYPE = PROCEDURE [handle: Handle, partDirectoryEntry: PartDirectoryEntry];FontEntryProc: TYPE = PROCEDURE [fontDirectoryEntry: FontDirectoryEntry];EntityProc: TYPE = PROCEDURE [handle: Handle, entityTrailer: EntityTrailer];ShowCharactersProc: TYPE = PROCEDURE [opCode: {showCharactersShort, showCharactersAndSkip, showCharacters,  showCharacterImmediate},length: INT,text: ROPE];SkipProc: TYPE = PROCEDURE [opCode: {skipCharacters, skipControlBytes, skipControlBytesImmediate,  skipCharactersShort},length: INT];SpacingProc: TYPE = PROCEDURE [opCode: {setSpaceX, setSpaceY, setSpaceXShort, setSpaceYShort, resetSpace},value: INT];SpaceProc: TYPE = PROCEDURE;PositionProc: TYPE = PROCEDURE [opCode: {setX, setY}, value: INT];ColorProc: TYPE = PROCEDURE [opCode: {setHue, setSaturation, setBrightness}, value: INT];FontProc: TYPE = PROCEDURE [font: INT];NoOpProc: TYPE = PROCEDURE;ShowRectangleProc: TYPE = PROCEDURE [width, height: INT];CopyProc: TYPE = PROCEDURE [value: INT];AlternativeProc: TYPE = PROCEDURE [types: CARDINAL, elBytes, dlBytes: INT];ShowObjectProc: TYPE = PROCEDURE [handle: Handle, length: INT];ShowDotsProc: TYPE = PROCEDURE [handle: Handle, opCode: {showDots, showDotsOpaque}, length: INT];BadProc: TYPE = PROCEDURE [opCode, command, data: INT];MoveToProc: TYPE = PROCEDURE [x,y: INT];DrawToProc: TYPE = PROCEDURE [x,y: INT];DrawCurveProc: TYPE = PROCEDURE [cX, cY, bX, bY, aX, aY: REAL]; SetCodingProc: TYPE = PROCEDURE [code, dots, lines: INT];SetModeProc: TYPE = PROCEDURE [mode: INT];SetWindowProc: TYPE = PROCEDURE [pd,dd,pl,dl: INT];SetSizeProc: TYPE = PROCEDURE [width, height: INT];DotsFollowProc: TYPE = PROCEDURE [dots: Dots];ObjectProcs: TYPE = RECORD[moveToProc: MoveToProc _ NIL,drawToProc: DrawToProc _ NIL,drawCurveProc: DrawCurveProc _ NIL ];DotProcs: TYPE = RECORD[setCoding: SetCodingProc _ NIL,setMode: SetModeProc _ NIL,setWindow: SetWindowProc _ NIL,setSize: SetSizeProc _ NIL,dotsFollow: DotsFollowProc _ NIL ];CommandProcs: TYPE = RECORD[showCharactersProc: ShowCharactersProc_ NIL,skipProc: SkipProc _ NIL,spacingProc: SpacingProc _ NIL,spaceProc: SpaceProc _ NIL,positionProc: PositionProc _ NIL,colorProc: ColorProc _ NIL,fontProc: FontProc _ NIL,noOpProc: NoOpProc _ NIL,showRectangleProc: ShowRectangleProc _ NIL,showObjectProc: ShowObjectProc _ NIL,showDotsProc: ShowDotsProc _ NIL,copyProc: CopyProc _ NIL,alternativeProc: AlternativeProc _ NIL,badProc: BadProc  _ NIL ];PressReaderError: ERROR [errorCode: ErrorCode];ErrorCode: PUBLIC TYPE = {FileNotAvailableForRead,FileNotAPressFile,BadHandle,BadPartType,PartNotFound,NoFontDirectoryPart,CurrentPartNotAPage,NoEntity,NotAtObject,NotAtDots,AbortedBecauseGetFailed };END.   Ь  PressReader.mesaLast Modified by Shore; November 22, 1982 11:47 amLast Modified by Wyatt; December 1, 1983 4:53 pmThis is for applications that wish to read Press filesFor an explanation of Press files see "Press File Format"Filed on [Maxc]<PrintingDocs>PressFormat.Press.The expected way of using it is as follows:open the press file using OpenPressFileread the document directory using GetDocumentDirectory(this can be done at any time once the file is open)read the parts using GetPartsthe PageProc may wish to call GetPagethe EntityProc may wish to call GetCommandsthe appropriate member of CommandProcs gets called for each commandthe ShowObjectProc may wish to call GetObjectthe appropriate member of ObjectProcs gets called for each object commandthe ShowDotsProc may wish to call GetDotsthe appropriate member of DotProcs gets called for each dot commandthe FontDirectoryProc may wish to call GetFontsthe FontEntryProc gets called for each font in the font directorythe FontEntryProc may wish to call GetObject for a graphically defined fontthe appropriate member of ObjectProcs gets called for each object commandclose the press file with ClosePressFilenote that GetFonts can actually be called at any time after the file is openOpen's file for reading, checks that it is a Press fileERRORS: Error[FileNotAvailableForRead, FileNotAPressFile, AbortedBecauseGetFailed]Returns the file's Document DirectoryERRORS: Error[BadHandle, AbortedBecauseGetFailed]calls pageProc or fontDirectoryProc (depending on part type) for the specified part,if partNumber = 0 then pageProc is called for each Printed Page part andfontDirectoryProc for the Font Directory in the order in which they occur in the Press fileERRORS: Error[BadHandle, BadPartType, PartNotFound, AbortedBecauseGetFailed]calls fontEntryProc for each Font Entry in the Font Directorymay call objectProcs for a graphically defined fontERRORS: Error[BadHandle, NoFontDirectoryPart, AbortedBecauseGetFailed]calls entityProc for each entity in the (current) printed page,thus, GetPage should be called from within a GetParts pageProcERRORS: Error[BadHandle, CurrentPartNotAPage, AbortedBecauseGetFailed]calls members of commandProcs for each command in the (current) entity,thus GetCommands should be called from within a GetPage entityProc, else NoEntity is raisedERRORS: Error[BadHandle, NoEntity, AbortedBecauseGetFailed]calls members of ObjectProcs for each object command,thus GetObject should be called from within a GetCommands showObjectProcERRORS: Error[BadHandle, NotAtObject, AbortedBecauseGetFailed];calls members of DotProcs for each dots command,thus GetDots should be called from within a GetCommands showDotsProcpassUpDots allows the dots in the file to be skippedERRORS: Error[BadHandle, NotAtDots, AbortedBecauseGetFailed];called when Press file reading is completecalled (from GetParts) for each printedPage partcalled (from GetParts) for the fontDirectory partcalled (from GetFonts) for each font directory entrycalled (from GetPage) for each entity on a pagethe following procedure types make up a CommandProcs record,they are called (from GetCommands) for the entity commandsChange LogCreated by Shore; June 1982Changed by Shore; August 22, 1982 3:28 pmconverted to formatted Tioga filerevisions for Cedar 3.3Changed by Shore; August 26, 1982 12:29 ammade Dots and Objects one level deeper to permit exit actions by the CommandsChanged by Shore; September 2, 1982 9:08 ammade Parts individually gettable (partNumber parameter to GetParts)Changed by Shore; September 3, 1982 5:08 pmnow pass up DotsChanged by Shore; November 14, 1982 2:58 pmchanged to Cedar.Style and added formatsЭ╩	║  Ц"Cedar" styleШ head1Ъ╧cЩJЪЭ2Щ2JЪЭ0Щ0JЩ ЧJЪЭ6Щ6ЪЭ9Щ9JЪЭ/Щ/ЧЪЭ+Щ+JЪЭ╨cnЩ'ЪЭ"ЮЩ6JЪЭ4Щ4ЧЪЭЮЩЪЭЮЩ%ЪЭ ЮЩ+JЪЭCЩCЪЭ$Ю	Щ-JЪЭIЩIЧЪЭ"ЮЩ)JЪЭCЩCЧЧЧЪЭ'ЮЩ/ЪЭAЩAЪЭ#Ю	ЭЩKJЪЭIЩIЧЧЧЧJЪЭЮЩ(JШ JЪЭ
ЮЭ:ЩLunitЪ╧k	Ш	JЪЯЬЯЬЯЬШJЪЬЯЬЯЬШЧЧЪ╧nЬЯЬЯШ JЪЯЬЯЬЯЬШJШ JЪЬЯЬЯЬШ"JЪЬЯЬШJШ JЪЬЯЬЯЬЯЬШ:ЪЬЯЬЯЬЯЬШ,JЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬ	ЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬ
ЯЬШJЪЬ	ЯЬШJЪЬ
ЯЬШЧЪЬЯЬЯЬЯЬШ*JЪЬШJЪЬЯЬШJЪЬЯЬШJЪЬ
ЯЬШJЪЬ	ЯЬШЧLЪЬ
ЯЬЯЬ2ШGЪЬЯЬЯЬЯЬШ*JЪЬЯЬШJЪЬ	ЯЬШJЪЬЯЬШ
JЪЬЯЬШJЪЬ
ЯЬШJЪЬЯЬШJЪЬШJЪЬЯЬШJЪЬЯЬШ
JЪЬ
ЯЬШЧЪЬ
ЯЬЯЬЯЬШ JЪЬ
ЯЬШJЪЬШJЪЬШJЪЬ+Ш+ЧЪЬЯЬЯЬЯЬШ%JЪЬЯЬШJЪЬ	ЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬ	ЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШЧЪЬЯЬЯЬШJЪЬЯЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШЧЪаЬЯ	ЬЯЬЯЬШ?JЪЭ7Щ7JЪЭRЩRЧЪаЬЯ	Ь
ЯЬШEJЪЭ%Щ%JЪЭ1Щ1ЧЪаЬЯЬЯ	ЬЯЬЯЬ)ЯЬШГJЪЭTЩTJЪЭHЩHJЪЭ[Щ[JЪЭLЩLЧЪаЬЯЬЯ	Ь0ШJJЪЭ=Щ=JЪЭ3Щ3JЪЭFЩFЧЪаЬЯЬЯ	Ь*ШCJЪЭ?Щ?JЪЭ>Щ>JЪЭFЩFЧЪаЬЯЬЯ	Ь.ШKJЪЭGЩGJЪЭ[Щ[JЪЭ;Щ;ЧЪа	ЬЯ	Ь,Ш@JЪЭ5Щ5JЪЭHЩHJЪЭ?Щ?ЧЪаЬЯ	Ь&Ш8JЪЭ0Щ0JЪЭDЩDJЪЭ4Щ4JЪЭ=Щ=ЧЪаЬЯ	Ь
Ш#JЪЭ*Щ*ЧJШ ЪаЬЯЬЯ	Ь:ШTJЪЭ0Щ0ЧЪаЬЯЬЯ	Ь:Ш]JЪЭ1Щ1ЧЪаЬЯЬЯ	Ь*ШIJЪЭ4Щ4ЧЪа
ЬЯЬЯ	Ь0ШLJЪЭ/Щ/ЧJШ JЪЭ<Щ<ЪЭ:Щ:ЪаЬЯЬЯ	ЬШ&JЪЬ^Ш^JЪЬЯЬШJЪЬЯЬШЧЪаЬЯЬЯ	ЬШJЪЬ\Ш\JЪЬЯЬШЧЪаЬЯЬЯ	ЬШJЪЬKШKJЪЬЯЬШЧLЪа	ЬЯЬЯ	ЬШLЪаЬЯЬЯ	ЬЯЬШBLЪа	ЬЯЬЯ	Ь9ЯЬШYLЪаЬЯЬЯ	ЬЯЬШ'LЪаЬЯЬЯ	ЬШLЪаЬЯЬЯ	ЬЯЬШ9LЪаЬЯЬЯ	Ь	ЯЬШ(LЪ
аЬЯЬЯ	Ь	ЯЬЯЬШKLЪаЬЯЬЯ	ЬЯЬШ?LЪаЬЯЬЯ	Ь>ЯЬШaLЪаЬЯЬЯ	ЬЯЬШ7LЪа
ЬЯЬЯ	ЬЯЬШ(LЪа
ЬЯЬЯ	ЬЯЬШ(LЪаЬЯЬЯ	ЬЯЬШ@LЪаЬЯЬЯ	ЬЯЬШ9LЪаЬЯЬЯ	ЬЯЬШ*LЪаЬЯЬЯ	ЬЯЬШ3LЪаЬЯЬЯ	ЬЯЬШ3LЪаЬЯЬЯ	ЬШ.ЧЪЬЯЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШ%ЧЪЬ
ЯЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШ#ЧЪЬЯЬЯЬШJЪЬ(ЯЬШ,JЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬЯЬШ!JЪЬЯЬШJЪЬЯЬШJЪЬЯЬШJЪЬ'ЯЬШ+JЪЬ!ЯЬШ%JЪЬЯЬШ!JЪЬЯЬШJЪЬ#ЯЬШ'JЪЬЯЬШЧLЪЬЯЬШ/ЪЬЯЬЯЬШJЪЬШJЪЬШJЪЬ
Ш
JЪЬШJЪЬШJЪЬШJЪЬШJЪЬ	Ш	JШJШ
JЪЬШЧJШ JЪЯЬШЧЪЭ
Щ
JЪЬЩJЩ Щ)JЩ!JЩЧJЩ Щ*JЩMЧJЩ Щ+JЩCЧJЩ Щ+JЩЧJЩ Щ+JЩ(ЧЧЧ ЕЧ    о  +  