xerox StreamsA.mesa Sep78 free download

File name StreamsA.mesa_Sep78.pdf

StreamsA.mesa 2-Sep-78 13:58:17 Page 1 -- StreamsA.Mesa Edited by Sandman on May 19, 1978 8:25 AM DIRECTORY AltoDefs: FROM "altodefs" USING [ CharsPerPage, CharsPerWord, PageCount, PageNumber, PageSize], AltoFileDefs: FROM "altofiledefs" USING [eofDA, FA, fillinDA, FP, vDA], BFSDefs: FROM "bfsdefs" USING [ActOnPages, GetNextDA, WritePages], DiskDefs: FROM "diskdefs" USING [DiskRequest], InlineDefs: FROM "inlinedefs" USING [BITAND, BITSHIFT, COPY], MiscDefs: FROM "miscdefs" USING [Zero], SegmentDefs: FROM "segmentdefs" USING [UpdateFileLength], StreamDefs: FROM "streamdefs" USJNG [ DiskHandle, StreamErrorCode, StreamHandle], SystemDefs: FROM "systemdefs" USING [AllocateHeapNode, FreeHeapNode]; DEFINITIONS FROM AltoDefs, AltoF;leDefs, StreamDefs; StreamsA: PROGRAM IMPORTS BFSDefs, M;scDefs, SegmentDefs, SystemDefs EXPORTS StreamDefs SHARES StreamDefs, SegmentDefs m BEGIN StreamError: PUBLIC SIGNAL [stream:StreamHandle, error:StreamErrorCode] m CODE; -- block mode transfers direction: TYPE = {in,out}; the fast stream overflow handler; should only be called from the fast stream get, put, and endof routines. It always supplies a new count (which may be zero, in which case get and/or put is replaced with an error routine). -- Cleanup makes the disk look like the stream, unless the -- current page ;s not full and you didn't ask for a flush. Fixup: PROCEDURE [stream:StreamHandle]