xerox Display.mesa Oct77 free download

File name Display.mesa_Oct77.pdf

display.mESA 24-0CT-77 18:23:01 Page 1 -- File: display.mesa Edited by: Johnsson, September 27, 1977 11:23 AM DIRECTORY SystemDefs: FROM "systemdefs", StreamDefs: FRO~I "streamdefs", RectangleDefs: FROM "rectangledefs"; DEFINITIONS FROM StreamDefs, RectangleDefs; Display: PROGRAM IMPORTS Rectang1eOefs, StreamDefs, SystemDefs EXPORTS StreamDefs SHARES StreamDefs = BEGIN -- CHARACTER constants NUL: CIIARACTER = OC; TAB: CHARACTER = l1C; CR: CHARACTER = 15C; BackSpace: CHARACTER = 10C; Contl'olA: CHARACTrR = lC; Space: CHARACTER = 40C; MaxCharCode: CHARACTER = 377C; -- GLOBAL PUBLIC Data defau1tdisp1aystream: PUBLIC DisplayHandle ~ NIL; disp1aystreams: Disp1ayHandle ~ NIL; -- Mesa Display Stream Routines CreateOisp1ayStream: PUBLIC PROCEDURE [rectangle: Rptr] RETURNS[DisplayHandle] BEGIN -- declare locals ds: DisplayHandle; -- now create stream structure and init it ds ~ SystemDefs.AllocateHeapNode[SIZE[Display StreamObject]]; ds~ ~ StreamObject[ResetDisplayStream. GetNOP. PutbackNOP. WriteDisp1ayChar. EndoFNOP. ')estroyDisplayStream. Display[ ...