Text preview for : IODefs.mesa_Oct77.pdf part of xerox IODefs.mesa Oct77 xerox mesa 3.0_1977 listing IODefs.mesa_Oct77.pdf



Back to : IODefs.mesa_Oct77.pdf | Home

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.