Files.obn

   1 MODULE Files;
   2
   3 TYPE
   4   File* = POINTER TO Handle;
   5
   6   Handle = RECORD END;
   7
   8   Rider* = RECORD
   9     eof* : BOOLEAN;
  10     res* : LONGINT;
  11   END;
  12
  13 PROCEDURE Old*(name : ARRAY OF CHAR) : File;
  14 BEGIN RETURN NIL END Old;
  15
  16 PROCEDURE New*(name : ARRAY OF CHAR) : File;
  17 BEGIN RETURN NIL END New;
  18
  19 PROCEDURE Register*(f : File);
  20 END Register;
  21
  22 PROCEDURE Close*(f : File);
  23 END Close;
  24
  25 PROCEDURE Purge*(f : File);
  26 END Purge;
  27
  28 PROCEDURE Delete*(name : ARRAY OF CHAR; VAR res : INTEGER);
  29 END Delete;
  30
  31 PROCEDURE Rename*(old, new : ARRAY OF CHAR; VAR res : INTEGER);
  32 END Rename;
  33
  34 PROCEDURE Length*(f : File) : LONGINT;
  35 BEGIN RETURN 0 END Length;
  36
  37 PROCEDURE GetDate*(f : File; VAR t, d : LONGINT);
  38 END GetDate;
  39
  40 PROCEDURE Set*(VAR r : Rider; f : File; pos : LONGINT);
  41 END Set;
  42
  43 PROCEDURE Pos*(VAR r : Rider) : LONGINT;
  44 BEGIN RETURN 0 END Pos;
  45
  46 PROCEDURE Base*(VAR r : Rider) : File;
  47 BEGIN RETURN NIL END Base;
  48
  49 (* PROCEDURE Read*(VAR r : Rider; VAR x : SYSTEM.BYTE); *)
  50 PROCEDURE Read*(VAR r : Rider; VAR x : SHORTINT);
  51 END Read;
  52
  53 PROCEDURE ReadInt*(VAR R : Rider; VAR x : INTEGER);
  54 END ReadInt;
  55
  56 PROCEDURE ReadLInt*(VAR R : Rider; VAR x : LONGINT);
  57 END ReadLInt;
  58
  59 PROCEDURE ReadReal*(VAR R : Rider; VAR x : REAL);
  60 END ReadReal;
  61
  62 PROCEDURE ReadLReal*(VAR R : Rider; VAR x : LONGREAL);
  63 END ReadLReal;
  64
  65 PROCEDURE ReadNum*(VAR R : Rider; VAR x : LONGINT);
  66 END ReadNum;
  67
  68 PROCEDURE ReadString*(VAR R : Rider; VAR x : ARRAY OF CHAR);
  69 END ReadString;
  70
  71 PROCEDURE ReadSet*(VAR R : Rider; VAR x : SET);
  72 END ReadSet;
  73
  74 PROCEDURE ReadBool*(VAR R : Rider; VAR x : BOOLEAN);
  75 END ReadBool;
  76
  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);
  79 END ReadBytes;
  80
  81 (* PROCEDURE Write*(VAR r: Rider; x: SYSTEM.BYTE); *)
  82 PROCEDURE Write*(VAR r : Rider; x : SHORTINT);
  83 END Write;
  84
  85 PROCEDURE WriteInt*(VAR R : Rider; x : INTEGER);
  86 END WriteInt;
  87
  88 PROCEDURE WriteLInt*(VAR R : Rider; x : LONGINT);
  89 END WriteLInt;
  90
  91 PROCEDURE WriteReal*(VAR R : Rider; x : REAL);
  92 END WriteReal;
  93
  94 PROCEDURE WriteLReal*(VAR R : Rider; x : LONGREAL);
  95 END WriteLReal;
  96
  97 PROCEDURE WriteNum*(VAR R : Rider; x : LONGINT);
  98 END WriteNum;
  99
 100 PROCEDURE WriteString*(VAR R : Rider; x : ARRAY OF CHAR);
 101 END WriteString;
 102
 103 PROCEDURE WriteSet*(VAR R : Rider; x : SET);
 104 END WriteSet;
 105
 106 PROCEDURE WriteBool*(VAR R : Rider; x : BOOLEAN);
 107 END WriteBool;
 108
 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);
 111 END WriteBytes;
 112
 113 END Files.