diff --git a/Files.obn b/Files.obn
index 873866687e733ff8b031b030fdc7e87cee65be15..651bff944c0c527489e94f1d461c970d502fe39a 100644 (file)
--- a/Files.obn
+++ b/Files.obn
MODULE Files;
+IMPORT SYSTEM;
+
TYPE
File* = POINTER TO Handle;
PROCEDURE Base*(VAR r : Rider) : File;
BEGIN RETURN NIL END Base;
-(* PROCEDURE Read*(VAR r : Rider; VAR x : SYSTEM.BYTE); *)
-PROCEDURE Read*(VAR r : Rider; VAR x : SHORTINT);
+PROCEDURE Read*(VAR r : Rider; VAR x : SYSTEM.BYTE);
END Read;
PROCEDURE ReadInt*(VAR R : Rider; VAR x : INTEGER);
PROCEDURE ReadBool*(VAR R : Rider; VAR x : BOOLEAN);
END ReadBool;
-(* PROCEDURE ReadBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT); *)
-PROCEDURE ReadBytes (VAR r : Rider; VAR x : ARRAY OF SHORTINT; n : LONGINT);
+PROCEDURE ReadBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT);
END ReadBytes;
-(* PROCEDURE Write*(VAR r: Rider; x: SYSTEM.BYTE); *)
-PROCEDURE Write*(VAR r : Rider; x : SHORTINT);
+PROCEDURE Write*(VAR r: Rider; x: SYSTEM.BYTE);
END Write;
PROCEDURE WriteInt*(VAR R : Rider; x : INTEGER);
PROCEDURE WriteBool*(VAR R : Rider; x : BOOLEAN);
END WriteBool;
-(* PROCEDURE WriteBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT); *)
-PROCEDURE WriteBytes*(VAR r : Rider; VAR x : ARRAY OF SHORTINT; n : LONGINT);
+PROCEDURE WriteBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT);
END WriteBytes;
END Files.