xerox IODefs.mesa Oct77 free download

File name IODefs.mesa_Oct77.pdf

iodEFS.mESA 24-0CT-77 18:30:50 Page 1 -- IODefs.Mesa Edited by Wick on August 27, 1977 6:03 PM DIRECTORY StreamDefs: FROM "streamdefs"; DEFINITIONS FROM StreamDefs; IODefs: DEFINITIONS = BEGIN -- some control characters NUL: CHARACTER = OC; ControlA: CHARACTER lC; ControlB: CHARACTER = 2C; ControlC: CHARACTER = 3C; ControlD: CHARACTER 4C; ControlE: CHARACTER = 5C; ControlF: CHARACTER 6C; ControlG. BEL: CHARACTER = 7C; ControlH. BS: CHARACTER = 10C; Controll, TAB: CHARACTER = l1C; ControlJ. IF: CHARACTER = 12C; ControlK: CHARACTER = 13C; Controll. FF: CHARACTER = 14C; ControlM. CR: CHARACTER = 15C; ControlN: CHARACTER = 16C; ControlO: CHARACTER 17C; ControlP: CHARACTER 20C; ControlQ: CHARACTER 21C; ControlR: CHARACTER 22C; ControlS: CHARACTER 23C; ControlT: CHARACTER 24C; ControlU: CHARACTER = 25C; ControlV: CHARACTER 26C; ControlW: CHARACTER = 27C; ControlX: CHARACTER 30C; ControlY: CHARACTER 31C; ControlZ: CHARACTER 32C; ESC: CHARACTER = 33C; SP: CHARACTER = 40C: DEL: CHARACTER = 177C; -- numerical output formatting NumberFormat: TYPE = RECORD [ base: [2 .. 36]. zerofill. unsigned: BOOLEAN, columns: [0 .. 255]]; GetlnputStream. GetOutputStream: PROCEDURE RETURNS [StreamHandle]; Newline: PROCEDURE RETURNS [BOOLEAN]; ReadChar: PROCEDURE RETURNS [CHARACTER]; WriteChar: PROCEDURE [CHARACTER]; ReadEditedString: PROCEDURE [ STRING. PROCEOURE[CHARACTER]RETURNS[BOOLEAN]. BOOLEAN] RETURNS [CHARACTER]; ReadString: PROCrDURE [STRING. PROCEDUR[[CIIARACTER]RETURNS[BOOlEAN]]: WriLeSLring: PROCEDURE [STRING]; Rubout. Inv,lidNumberBase: SIGNAL; I ineOverflow: SIGNAl [5: STRING] RrTURNS ens: STRING]; ReadID. Readl ine. WriteLine: PROCEDURr [STRING]; OulNumber: PROCmURr [SLreamHandle. UNSP[CIflrD. Numberfol'mat]: WriLeNumber: PROCFOURf [UNSP[ClfrrO. NumberFormat]: ReadNumber: PROCrOURr [defauIL: UNSPECIFlfD. radix: CARDINAL] RrlURNS [UNSPECIfIED]: ReadOclal: PROCrDURr RfTURNS [UNSprCIfIfO]: WrileOclal: PROCrOURr [UNSprCrrIfO]; ReadDecimal: PROCrDURr RrTURNS [INTrGFR]; WI' i leDec imal: PRocrDuRr [INTrGrR]: iodEFS.mESA 24-0CT-77 18:30:50 Page 2 StreamIO: PROGRAM [Input, Output: StreamHandle]: END.