Добавлен модуль SYSTEM и тип SYSTEM.TYPE

[dsw-obn.git] / Files.obn

diff --git a/Files.obn b/Files.obn
index 873866687e733ff8b031b030fdc7e87cee65be15..651bff944c0c527489e94f1d461c970d502fe39a 100644 (file)
--- a/Files.obn
+++ b/Files.obn
@@ -1,5 +1,7 @@
 MODULE Files;
 
+IMPORT SYSTEM;
+
 TYPE
   File* = POINTER TO Handle;
 
@@ -46,8 +48,7 @@ BEGIN RETURN 0 END Pos;
 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);
@@ -74,12 +75,10 @@ END ReadSet;
 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);
@@ -106,8 +105,7 @@ END WriteSet;
 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.