-- File CIFIODefs.mesa
-- Written by Dan Fitzpatrick and Martin Newell, June 1980
-- Last updated: August 20, 1980 1:51 PM

-- CIF I/O Routines

DIRECTORY

StreamDefs: FROM "StreamDefs" USING[StreamHandle];

CIFIODefs: DEFINITIONS =

BEGIN
OPEN StreamDefs;

ReadStringDirect: PUBLIC PROCEDURE [t: STRING, s: StreamHandle];

ReadLineDirect: PUBLIC PROCEDURE [t: STRING, s: StreamHandle];

WriteStringDirect: PUBLIC PROCEDURE [t: STRING, s: StreamHandle];

WriteLineDirect: PUBLIC PROCEDURE [t: STRING, s: StreamHandle];

ReadLong: PUBLIC PROCEDURE [s: StreamHandle] RETURNS [LONG UNSPECIFIED];

ReadShort: PUBLIC PROCEDURE [s: StreamHandle] RETURNS [UNSPECIFIED];

WriteLong: PUBLIC PROCEDURE [n:LONG UNSPECIFIED, s: StreamHandle];

WriteShort: PUBLIC PROCEDURE [n:UNSPECIFIED, s: StreamHandle];

PutShort: PUBLIC PROCEDURE [i: UNSPECIFIED, s: StreamHandle];

GetShort: PUBLIC PROCEDURE [s:StreamHandle] RETURNS [UNSPECIFIED];

PutLong: PUBLIC PROCEDURE [i: LONG UNSPECIFIED, s: StreamHandle];

GetLong: PUBLIC PROCEDURE [s:StreamHandle] RETURNS [LONG UNSPECIFIED];

PutReal: PROCEDURE [r: REAL, s:StreamHandle];

GetReal: PROCEDURE [s:StreamHandle] RETURNS [r: REAL];

DeleteFile: PUBLIC PROCEDURE [s:STRING];

WriteLongDecimal: PUBLIC PROCEDURE[n: LONG CARDINAL];

END.