-- PDInterpOutputRavenImpl.mesa -- Copyright (C) 1984, Xerox Corporation. All rights reserved. -- Michael Plass, 20-Sep-84 12:34:40 -- DIRECTORY Environment, PDFileFormat, PDInterpBasic, PDInterpOutput, PDInterpBitmap, RavenSlotDriver, PDInterpSysCalls, PDQueue, Process; PDInterpOutputRavenImpl: PROGRAM IMPORTS PDInterpBitmap, RavenSlotDriver, PDInterpSysCalls, PDQueue, Process EXPORTS PDInterpOutput = BEGIN bitsPerWord: NAT = Environment.bitsPerWord; currentHerald: PDFileFormat.Herald; currentStartImage: PDFileFormat.StartImage; currentBandNumber: NAT _ 0; bandWords: INT _ 0; band: PDInterpBitmap.BitmapDesc _ [sOrigin: 0, fOrigin: 0, sMin: 0, fMin: 0, sSize: 0, fSize: 0, pointer: NIL, rast: 0, lines: 0]; bandWordsAllocated: INT _ 0; CurrentBandDesc: PROC RETURNS [PDInterpBitmap.BitmapDesc] = { band.sOrigin _ currentHerald.bandSSize*(currentBandNumber+currentStartImage.passBands); PDInterpBitmap.Clear[band]; RETURN [band] }; StartImage: PUBLIC PROC [herald: PDFileFormat.Herald, startImage: PDFileFormat.StartImage, request: PDQueue.Request] RETURNS [PDInterpBitmap.BitmapDesc] = { rast: NAT = (startImage.fSizePage+bitsPerWord-1)/bitsPerWord; lines: INT = herald.bandSSize; words: INT = rast*lines; currentHerald _ herald; currentStartImage _ startImage; currentBandNumber _ 0; IF words > bandWordsAllocated THEN { IF band.pointer # NIL THEN PDInterpSysCalls.FreeSpace[band.pointer]; band.pointer _ PDInterpSysCalls.AllocateSpace[words]; bandWordsAllocated _ words; }; band.sOrigin _ 0; band.fOrigin _ startImage.fMinPage; band.sMin _ 0; band.fMin _ 0; band.sSize _ herald.bandSSize; band.fSize _ rast*bitsPerWord; band.rast _ rast; band.lines _ herald.bandSSize; bandWords _ words; RETURN [CurrentBandDesc[]] }; -- EndBand: PUBLIC PROC RETURNS [PDInterpBitmap.BitmapDesc] = { RavenSlotDriver.HyperStore[ sourcePtr: band.pointer, destOffset: bandWords*currentBandNumber, wordCount: bandWords ]; currentBandNumber _ currentBandNumber + 1; RETURN [CurrentBandDesc[]] }; EndImage: PUBLIC PROC [request: PDQueue.Request] = { PrintPage[]; }; PrintPage: PROC = { successCode: RavenSlotDriver.SuccessCode; slowMargin: CARDINAL _ currentHerald.bandSSize*currentStartImage.passBands; fastMargin: CARDINAL _ band.fOrigin; numberOfLines: CARDINAL _ currentHerald.bandSSize*currentStartImage.nBands; scanLineLength: CARDINAL _ band.fSize; FOR copyNum: CARDINAL IN [0..currentHerald.copies) DO DO s:RavenSlotDriver.PrinterStatus; successCode _ RavenSlotDriver.PrintPage[ slowMargin: slowMargin, fastMargin: fastMargin, numberOfLines: numberOfLines, scanLineLength: scanLineLength, paperSource: top, paperStacking: aligned ]; SELECT successCode FROM warning => EXIT; error => { WHILE (s_RavenSlotDriver.GetStatus[])#standBy DO IF s = warming THEN Process.Pause[Process.MsecToTicks[10000]]; ENDLOOP }; ENDCASE => EXIT; -- ok ENDLOOP; ENDLOOP; }; ReprintLastPage: PUBLIC PROC [copies: CARDINAL] = { IF currentHerald.password # PDFileFormat.passwordValue THEN RETURN; currentHerald.copies _ copies; PrintPage[]; }; currentHerald.password _ 0; END.