Files.obn

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