StreamsA.mesa_Sep78.pdf part of xerox StreamsA.mesa Sep78 StreamsA.mesa_Sep78.pdf, xerox mesa 4.0_1978 listing Mesa_4_System StreamsA.mesa

Text preview for : StreamsA.mesa_Sep78.pdf part of xerox StreamsA.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_System StreamsA.mesa_Sep78.pdf

Back to : StreamsA.mesa_Sep78.pdf | Home

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]