Test.obn

   1 MODULE Test;
   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
  15   RETURN NIL
  16 END Old;
  17
  18 PROCEDURE New*(name : ARRAY OF CHAR) : File;
  19 BEGIN
  20   RETURN NIL
  21 END New;
  22
  23 END Test.