873866687e733ff8b031b030fdc7e87cee65be15
4 File
* = POINTER TO Handle
;
13 PROCEDURE Old
*(name
: ARRAY OF CHAR) : File
;
14 BEGIN RETURN NIL END Old
;
16 PROCEDURE New
*(name
: ARRAY OF CHAR) : File
;
17 BEGIN RETURN NIL END New
;
19 PROCEDURE Register
*(f
: File
);
22 PROCEDURE Close
*(f
: File
);
25 PROCEDURE Purge
*(f
: File
);
28 PROCEDURE Delete
*(name
: ARRAY OF CHAR; VAR res
: INTEGER);
31 PROCEDURE Rename
*(old
, new
: ARRAY OF CHAR; VAR res
: INTEGER);
34 PROCEDURE Length
*(f
: File
) : LONGINT;
35 BEGIN RETURN 0 END Length
;
37 PROCEDURE GetDate
*(f
: File
; VAR t
, d
: LONGINT);
40 PROCEDURE Set
*(VAR r
: Rider
; f
: File
; pos
: LONGINT);
43 PROCEDURE Pos
*(VAR r
: Rider
) : LONGINT;
44 BEGIN RETURN 0 END Pos
;
46 PROCEDURE Base
*(VAR r
: Rider
) : File
;
47 BEGIN RETURN NIL END Base
;
49 (* PROCEDURE Read*(VAR r : Rider; VAR x : SYSTEM.BYTE); *)
50 PROCEDURE Read
*(VAR r
: Rider
; VAR x
: SHORTINT);
53 PROCEDURE ReadInt
*(VAR R
: Rider
; VAR x
: INTEGER);
56 PROCEDURE ReadLInt
*(VAR R
: Rider
; VAR x
: LONGINT);
59 PROCEDURE ReadReal
*(VAR R
: Rider
; VAR x
: REAL);
62 PROCEDURE ReadLReal
*(VAR R
: Rider
; VAR x
: LONGREAL);
65 PROCEDURE ReadNum
*(VAR R
: Rider
; VAR x
: LONGINT);
68 PROCEDURE ReadString
*(VAR R
: Rider
; VAR x
: ARRAY OF CHAR);
71 PROCEDURE ReadSet
*(VAR R
: Rider
; VAR x
: SET);
74 PROCEDURE ReadBool
*(VAR R
: Rider
; VAR x
: BOOLEAN);
77 (* PROCEDURE ReadBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT); *)
78 PROCEDURE ReadBytes (VAR r
: Rider
; VAR x
: ARRAY OF SHORTINT; n
: LONGINT);
81 (* PROCEDURE Write*(VAR r: Rider; x: SYSTEM.BYTE); *)
82 PROCEDURE Write
*(VAR r
: Rider
; x
: SHORTINT);
85 PROCEDURE WriteInt
*(VAR R
: Rider
; x
: INTEGER);
88 PROCEDURE WriteLInt
*(VAR R
: Rider
; x
: LONGINT);
91 PROCEDURE WriteReal
*(VAR R
: Rider
; x
: REAL);
94 PROCEDURE WriteLReal
*(VAR R
: Rider
; x
: LONGREAL);
97 PROCEDURE WriteNum
*(VAR R
: Rider
; x
: LONGINT);
100 PROCEDURE WriteString
*(VAR R
: Rider
; x
: ARRAY OF CHAR);
103 PROCEDURE WriteSet
*(VAR R
: Rider
; x
: SET);
106 PROCEDURE WriteBool
*(VAR R
: Rider
; x
: BOOLEAN);
109 (* PROCEDURE WriteBytes*(VAR r : Rider; VAR x : ARRAY OF SYSTEM.BYTE; n : LONGINT); *)
110 PROCEDURE WriteBytes
*(VAR r
: Rider
; VAR x
: ARRAY OF SHORTINT; n
: LONGINT);