<> <> <> <> DIRECTORY BansheeStatus USING [Type], Interpress USING [Master], LSEPFace USING [BandBufferCount], PaperHandling USING [BannerMode, PrintOrder], PaperTypes USING [Paper], PrincOps USING [PageCount], PrintingState USING [Type]; BansheeEngine: CEDAR DEFINITIONS = BEGIN <> Job: TYPE = RECORD [ banner: PaperHandling.BannerMode _ oncePerDocument, printOrder: PaperHandling.PrintOrder _ lastPageOutFirst, copyCount: CARDINAL _ 1, document: Interpress.Master, -- for lack of anyting bettter for BandBLTImage.Handle, firstPage: CARDINAL _ 0, -- pages don't include banner sheet lastPage: CARDINAL _ LAST[CARDINAL]]; -- and numbering is zero-relative JobHandle: TYPE = REF Job; DisplayDigit: TYPE = MACHINE DEPENDENT {zero(0), one, two, three, four, five, six, seven, eight, nine, A, L, C, d, E, F, blank(20H)}; <> maximumBufferSize: PrincOps.PageCount = 16 * LAST[LSEPFace.BandBufferCount]; minimumBufferSize: PrincOps.PageCount = 16 * FIRST[LSEPFace.BandBufferCount]; <> Beep: PROCEDURE[]; <> Display: PROCEDURE [digitLS, digitMS: DisplayDigit]; <> GetPageBalance: PROCEDURE RETURNS [balance: CARDINAL]; <> GetPaperSize: PROCEDURE RETURNS [paperSize: PaperTypes.Paper]; <> GetPrintingState: PROCEDURE RETURNS [state: PrintingState.Type]; <> GetStatus: PROCEDURE RETURNS [status: BansheeStatus.Type]; <> Initialize: PROCEDURE [bufferSize: PrincOps.PageCount, enableUnlimited: BOOLEAN]; <> <> SetJob: PROCEDURE [job: JobHandle]; <> SetPrintingState: PROCEDURE [state: PrintingState.Type]; <> WaitPrintingState: PROCEDURE [targetState: PrintingState.Type, targetEqual: BOOLEAN] RETURNS [state: PrintingState.Type]; <> WaitStatus: PROCEDURE RETURNS [status: BansheeStatus.Type]; <> END... LOG Who / When / What. Strickberger / 9-Nov-84 15:12:00 / Created. Strickberger / 28-Jan-85 16:22:43 / Update to new BansheeFace. Jacks / 20-Jun-85 17:44:32 / Added copyright notice; updated to PS Euclid interfaces. Strickberger / 24-Jun-85 14:32:23 / Update to Pilot 12.0. Strickberger / 17-Sep-85 18:35:12 / Added enableUnlimited parameter to Initialize. Strickberger / 114-Oct-85 16:29:28 / GetPaperSize returns PaperTypes.Paper instead of PaperTypes.PaperSize.