-- File CIFExtIODefs.mesa
-- Written by Dan Fitzpatrick, June 1980
-- Last updated: December 21, 1981 2:57 PM

-- CIF Circuit Extractor I/O Routines

DIRECTORY

StreamDefs: FROM "StreamDefs" USING[DiskHandle, StreamHandle];

CIFExtIODefs: 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];

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];

OpenFile: PUBLIC PROCEDURE [str:STRING, ch:CHARACTER] RETURNS[stream:DiskHandle];

CloseStream: PUBLIC PROCEDURE [stream:DiskHandle];

DeleteFile: PUBLIC PROCEDURE [s:STRING];

END.