DEADSOFTWARE

Исправлены опережающие объявления локальных типов-записей, добавлены модули Oberon...
[dsw-obn.git] / rtl / java / Files.obn
1 MODULE Files;
3 IMPORT SYSTEM;
5 TYPE
6 File* = POINTER TO Handle;
8 Handle = RECORD END;
10 Rider* = RECORD
11 eof* : BOOLEAN;
12 res* : LONGINT;
13 END;
15 PROCEDURE Old*(name : ARRAY OF CHAR) : File;
16 BEGIN RETURN NIL END Old;
18 PROCEDURE New*(name : ARRAY OF CHAR) : File;
19 BEGIN RETURN NIL END New;
21 PROCEDURE Register*(f : File);
22 END Register;
24 PROCEDURE Close*(f : File);
25 END Close;
27 PROCEDURE Purge*(f : File);
28 END Purge;
30 PROCEDURE Delete*(name : ARRAY OF CHAR; VAR res : INTEGER);
31 END Delete;
33 PROCEDURE Rename*(old, new : ARRAY OF CHAR; VAR res : INTEGER);
34 END Rename;
36 PROCEDURE Length*(f : File) : LONGINT;
37 BEGIN RETURN 0 END Length;
39 PROCEDURE GetDate*(f : File; VAR t, d : LONGINT);
40 END GetDate;
42 PROCEDURE Set*(VAR r : Rider; f : File; pos : LONGINT);
43 END Set;
45 PROCEDURE Pos*(VAR r : Rider) : LONGINT;
46 BEGIN RETURN 0 END Pos;
48 PROCEDURE Base*(VAR r : Rider) : File;
49 BEGIN RETURN NIL END Base;
51 PROCEDURE Read*(VAR r : Rider; VAR x : SYSTEM.BYTE);
52 END Read;
54 PROCEDURE ReadInt*(VAR R : Rider; VAR x : INTEGER);
55 END ReadInt;
57 PROCEDURE ReadLInt*(VAR R : Rider; VAR x : LONGINT);
58 END ReadLInt;
60 PROCEDURE ReadReal*(VAR R : Rider; VAR x : REAL);
61 END ReadReal;
63 PROCEDURE ReadLReal*(VAR R : Rider; VAR x : LONGREAL);
64 END ReadLReal;
66 PROCEDURE ReadNum*(VAR R : Rider; VAR x : LONGINT);
67 END ReadNum;
69 PROCEDURE ReadString*(VAR R : Rider; VAR x : ARRAY OF CHAR);
70 END ReadString;
72 PROCEDURE ReadSet*(VAR R : Rider; VAR x : SET);
73 END ReadSet;
75 PROCEDURE ReadBool*(VAR R : Rider; VAR x : BOOLEAN);
76 END ReadBool;
78 PROCEDURE ReadBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT);
79 END ReadBytes;
81 PROCEDURE Write*(VAR r: Rider; x: SYSTEM.BYTE);
82 END Write;
84 PROCEDURE WriteInt*(VAR R : Rider; x : INTEGER);
85 END WriteInt;
87 PROCEDURE WriteLInt*(VAR R : Rider; x : LONGINT);
88 END WriteLInt;
90 PROCEDURE WriteReal*(VAR R : Rider; x : REAL);
91 END WriteReal;
93 PROCEDURE WriteLReal*(VAR R : Rider; x : LONGREAL);
94 END WriteLReal;
96 PROCEDURE WriteNum*(VAR R : Rider; x : LONGINT);
97 END WriteNum;
99 PROCEDURE WriteString*(VAR R : Rider; x : ARRAY OF CHAR);
100 END WriteString;
102 PROCEDURE WriteSet*(VAR R : Rider; x : SET);
103 END WriteSet;
105 PROCEDURE WriteBool*(VAR R : Rider; x : BOOLEAN);
106 END WriteBool;
108 PROCEDURE WriteBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT);
109 END WriteBytes;
111 END Files.