Topspeed_JPI/TS-V3/INCLUDE/FIOX.LST

Listing:

    1  (*# call(o_a_size=>off) *)
    2  (*# call(o_a_copy=>off) *)
    3  DEFINITION MODULE FIOx;
    4  IMPORT FIO;
    5  (*
    6          Copyright (C) 1988,1989,1990 Jensen & Partners International
    7  *)
    8  
    9    CONST
   10      NO_ERROR = 0;
   11      DISK_FULL = MAX(CARDINAL);
*****                  ^ undeclared identifier
*****                              ^ not supported yet
   12      PAST_EOF = MAX(CARDINAL)-1;
*****                 ^ undeclared identifier
*****                             ^ not supported yet
   13      INVALID_PARAMETER = 87;
   14      RetryCountDefaultValue = 5;
   15      DelayDefaultValue = 300;
   16  
   17    TYPE
   18      File = CARDINAL;
   19      LockRec = RECORD
   20                  pos,
   21                  len : LONGCARD;
*****                        ^ undeclared identifier
   22                END;
*****                ^ not supported yet
   23      CountProc = PROCEDURE(): CARDINAL;
*****                  ^ not supported yet
*****                               ^ not supported yet
   24      DelayProc = PROCEDURE();
*****                  ^ not supported yet
   25      LockRecPtr = POINTER TO LockRec;
*****                              ^ not supported yet
   26      MultiMode = (_multi_yes,_multi_no,_multi_file);
   27  
   28    CONST
   29      NULL = LockRecPtr(NIL);
*****                           ^ not supported yet
   30  
   31    VAR
   32      RetryCount : CountProc;
   33      Delay : DelayProc;
   34  
   35    PROCEDURE Multi(): MultiMode;
   36    PROCEDURE MultiFile(f: File): BOOLEAN;
   37    PROCEDURE Lock(f: File; x: LockRec): BOOLEAN;
   38    PROCEDURE UnLock(f: File; x: LockRec);
   39  (*# save *)
   40  (*# call(o_a_size=>on) *)
   41    PROCEDURE LockRange(f: File; x: ARRAY OF LockRec): BOOLEAN;
*****                                             ^ not supported yet
   42    PROCEDURE UnLockRange(f: File; x: ARRAY OF LockRec);
*****                                               ^ not supported yet
   43  (*# restore *)
   44    PROCEDURE Open(Name: ARRAY OF CHAR; Share,ReadOnly,Create: BOOLEAN): File;
*****                                  ^ not supported yet
   45    PROCEDURE Truncate(f: File; l: LONGCARD);
*****                                   ^ undeclared identifier
   46    PROCEDURE Read(f: File; VAR b: ARRAY OF BYTE; c: CARDINAL);
*****                                            ^ undeclared identifier
   47    PROCEDURE Write(f: File; b: ARRAY OF BYTE; c: CARDINAL);
*****                                         ^ undeclared identifier
   48    PROCEDURE Error() : CARDINAL;
   49  
   50  CONST
   51  (*
   52    PROCEDURE Close(VAR f: File);
   53    PROCEDURE Seek(f: File; p: LONGCARD);
   54    PROCEDURE Size(f: File): LONGCARD;
   55    PROCEDURE Flush(f: File);
   56  *)
   57    Close ::= FIO.Close;
*****          ^ not supported yet
*****                  ^ not supported yet
   58    Seek ::= FIO.Seek;
*****         ^ not supported yet
*****                 ^ not supported yet
   59    Size ::= FIO.Size;
*****         ^ not supported yet
*****                 ^ not supported yet
   60    Flush ::= FIO.Flush;
*****          ^ not supported yet
*****                  ^ not supported yet
   61  
   62    END FIOx.
*****        ^ not supported yet

   26 errors