Topspeed_JPI/TS-V3/INCLUDE/FIO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  FIO.DEF - Modula-2 file input/output                                    *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# call(o_a_copy => off) *)
   12  (*%F _fdata *)
   13  (*# call(seg_name => null) *)
   14  (*# data(seg_name => null) *)
   15  (*%E *)
   16  (*# module(implementation=>off,init_code => on) *)
   17  DEFINITION MODULE FIO;
   18  
   19  IMPORT CoreFile, Str;
   20  
   21  
   22  CONST
   23    MaxOpenFiles = 15;
   24  (* If this value is changed, OPEN_MAX in CoreFile.a MUST be changed accordingly *)
   25  
   26  TYPE
   27    File = CoreFile.File;
*****                    ^ not supported yet
   28    FileInf = CoreFile.FileInf;
*****                       ^ not supported yet
   29  CONST
   30    DiskFull       = 112 ;  (* Error if Write fails with disk full *)
   31  
   32    StandardInput  = 0 ;    (* MSDOS standard handles *)
   33    StandardOutput = 1 ;
   34    ErrorOutput    = 2 ;
   35    AuxDevice      = 3 ;
   36    PrinterDevice  = 4 ;
   37  
   38  (*
   39  TYPE
   40    BufRec =  RECORD
   41                RWPos,
   42                EOB,
   43                BufSize : CARDINAL;
   44                Buffer  : ARRAY[0..0] OF SHORTCARD;
   45              END;
   46  *)
   47  
   48  CONST
   49    BufferOverhead = 0;
   50  
   51  VAR
   52    IOcheck : BOOLEAN;      (* if true errors terminate program with report *)
   53    EOF     : BOOLEAN;
   54  
   55  PROCEDURE IOresult() : CARDINAL;
   56  
   57  PROCEDURE Open    (Name: ARRAY OF CHAR) : File;
*****                                    ^ not supported yet
   58  PROCEDURE OpenRead(Name: ARRAY OF CHAR) : File;
*****                                    ^ not supported yet
   59  PROCEDURE Create  (Name: ARRAY OF CHAR) : File;
*****                                    ^ not supported yet
   60  PROCEDURE Append  (Name: ARRAY OF CHAR) : File;
*****                                    ^ not supported yet
   61  PROCEDURE Close (F: File);
   62  PROCEDURE Size  (F: File) : LONGCARD;
*****                              ^ undeclared identifier
   63  PROCEDURE GetPos(F: File) : LONGCARD;
*****                              ^ undeclared identifier
   64  PROCEDURE Seek  (F: File; Pos: LONGCARD);
*****                                 ^ undeclared identifier
   65  PROCEDURE Truncate(F: File);
   66  PROCEDURE Exists(Name: ARRAY OF CHAR) : BOOLEAN;
*****                                  ^ not supported yet
   67  PROCEDURE Erase (Name: ARRAY OF CHAR);
*****                                  ^ not supported yet
   68  PROCEDURE Rename(Name,NewName : ARRAY OF CHAR);
*****                                           ^ not supported yet
   69  PROCEDURE AssignBuffer(F : File; VAR Buf: ARRAY OF BYTE);
*****                                                     ^ undeclared identifier
   70  PROCEDURE GetStreamPointer(F: File): FileInf;
   71  PROCEDURE AppendStream(St: FileInf): File;
   72  PROCEDURE AppendHandle(F: File; ReadOnly: BOOLEAN);
   73  PROCEDURE Flush(F: File);
   74  
   75  PROCEDURE ChDir (Name: ARRAY OF CHAR);
*****                                  ^ not supported yet
   76  PROCEDURE MkDir (Name: ARRAY OF CHAR);
*****                                  ^ not supported yet
   77  PROCEDURE RmDir (Name: ARRAY OF CHAR);
*****                                  ^ not supported yet
   78  PROCEDURE GetDir(Drive: SHORTCARD; VAR Name: ARRAY OF CHAR);
*****                                                        ^ not supported yet
   79  
   80  VAR
   81    ShareMode: BITSET;      (* File sharing mode used by Open and OpenRead *)
*****               ^ undeclared identifier
   82  
   83  CONST
   84    ShareNoInherit = {7};
*****                      ^ not supported yet
   85    ShareCompat    = {};
*****                      ^ not supported yet
   86    ShareDenyRW	 = {4};
*****               	    ^ not supported yet
   87    ShareDenyWR	 = {5};
*****               	    ^ not supported yet
   88    ShareDenyRD	 = {4, 5};
*****               	    ^ not supported yet
*****               	       ^ not supported yet
   89    ShareDenyNone	 = {6};
*****                 	    ^ not supported yet
   90    ShareAll       = {4..6};
*****                      ^ not supported yet
*****                         ^ not supported yet
   91  
   92  
   93  TYPE
   94    PathStr  = ARRAY[0..64] OF CHAR;
*****                        ^ not supported yet
*****                               ^ not supported yet
   95    PathTail = ARRAY[0..12] OF CHAR;
*****                        ^ not supported yet
*****                               ^ not supported yet
   96  
   97  TYPE
   98    Attrib = (readonly,hidden,system,volume,directory,archive);
   99    FileAttr = SET OF Attrib;
*****                      ^ not supported yet
  100    DirEntry = RECORD
  101                 Reserved_Handle: CARDINAL;
  102                 rsvd : ARRAY[0..18] OF SHORTCARD;
*****                                 ^ not supported yet
*****                                        ^ not supported yet
  103                 attr : FileAttr;
  104                 time : CARDINAL;
  105                 date : CARDINAL;
  106                 size : LONGCARD;
*****                        ^ undeclared identifier
  107                 Name : PathTail;
  108               END;
*****               ^ not supported yet
  109  
  110  PROCEDURE ReadFirstEntry(DirName : ARRAY OF CHAR;
*****                                              ^ not supported yet
  111                           Attr    : FileAttr;
  112                           VAR D   : DirEntry) : BOOLEAN;
  113  
  114  PROCEDURE ReadNextEntry (VAR D   : DirEntry) : BOOLEAN;
  115  
  116  
  117  PROCEDURE WrChar   (F: File; V: CHAR );
  118  PROCEDURE WrBool   (F: File; V: BOOLEAN  ; Length: INTEGER);
  119  PROCEDURE WrShtInt (F: File; V: SHORTINT ; Length: INTEGER);
  120  PROCEDURE WrInt    (F: File; V: INTEGER  ; Length: INTEGER);
  121  PROCEDURE WrLngInt (F: File; V: LONGINT  ; Length: INTEGER);
  122  PROCEDURE WrShtCard(F: File; V: SHORTCARD; Length: INTEGER);
  123  PROCEDURE WrCard   (F: File; V: CARDINAL ; Length: INTEGER);
  124  PROCEDURE WrLngCard(F: File; V: LONGCARD ; Length: INTEGER);
*****                                  ^ undeclared identifier
  125  PROCEDURE WrShtHex (F: File; V: SHORTCARD; Length: INTEGER);
  126  PROCEDURE WrHex    (F: File; V: CARDINAL ; Length: INTEGER);
  127  PROCEDURE WrLngHex (F: File; V: LONGCARD ; Length: INTEGER);
*****                                  ^ undeclared identifier
  128  
  129  PROCEDURE WrReal      (F: File; V: REAL     ; Precision: CARDINAL; Length: INTEGER);
  130  PROCEDURE WrLngReal   (F: File; V: LONGREAL ; Precision: CARDINAL; Length: INTEGER);
  131  PROCEDURE WrFixReal   (F: File;  V: REAL     ; Precision: CARDINAL; Length: INTEGER);
  132  PROCEDURE WrFixLngReal(F: File;  V: LONGREAL ; Precision: CARDINAL; Length: INTEGER);
  133  
  134  PROCEDURE WrStr    (F: File; V: ARRAY OF CHAR);
*****                                           ^ not supported yet
  135  (*# save,
  136      call(o_a_copy => on) *)
  137  PROCEDURE WrStrAdj (F: File; S: ARRAY OF CHAR; Length: INTEGER);
*****                                           ^ not supported yet
  138  (*# restore *)
  139  PROCEDURE WrLn     (F: File);
  140  PROCEDURE WrCharRep(F: File; V: CHAR; Count: CARDINAL );
  141  
  142  PROCEDURE WrBin    (F: File; Buf: ARRAY OF BYTE; Count: CARDINAL);
*****                                             ^ undeclared identifier
  143  
  144  
  145  
  146  PROCEDURE RdChar   (F: File) : CHAR;
  147  PROCEDURE RdBool   (F: File) : BOOLEAN;
  148  PROCEDURE RdShtInt (F: File) : SHORTINT;
  149  PROCEDURE RdInt    (F: File) : INTEGER;
  150  PROCEDURE RdLngInt (F: File) : LONGINT;
  151  PROCEDURE RdShtCard(F: File) : SHORTCARD;
  152  PROCEDURE RdCard   (F: File) : CARDINAL;
  153  PROCEDURE RdLngCard(F: File) : LONGCARD;
*****                                 ^ undeclared identifier
  154  PROCEDURE RdShtHex (F: File) : SHORTCARD;
  155  PROCEDURE RdHex    (F: File) : CARDINAL;
  156  PROCEDURE RdLngHex (F: File) : LONGCARD;
*****                                 ^ undeclared identifier
  157  
  158  PROCEDURE RdReal   (F: File) : REAL;
  159  PROCEDURE RdLngReal(F: File) : LONGREAL;
  160  
  161  PROCEDURE RdItem   (F: File; VAR V: ARRAY OF CHAR);
*****                                               ^ not supported yet
  162  PROCEDURE RdStr    (F: File; VAR V: ARRAY OF CHAR);
*****                                               ^ not supported yet
  163  
  164  PROCEDURE RdBin    (F: File; VAR Buf: ARRAY OF BYTE; Count: CARDINAL) : CARDINAL;
*****                                                 ^ undeclared identifier
  165  
  166  PROCEDURE GetDrive() : SHORTCARD ;
  167  PROCEDURE SetDrive(Drive: SHORTCARD): SHORTCARD;
  168  
  169  PROCEDURE GetCurrentDate () : LONGCARD ;
*****                                ^ undeclared identifier
  170  
  171  PROCEDURE GetFileDate( f : File) : LONGCARD;
*****                                     ^ undeclared identifier
  172  
  173  PROCEDURE SetFileDate( f : File ; d : LONGCARD ) ;
*****                                        ^ undeclared identifier
  174  
  175  TYPE
  176    FileStamp = RECORD
  177                  Year, Month, Day : SHORTCARD;
  178                  Hour, Min, Sec   : SHORTCARD;
  179                END;
*****                ^ not supported yet
  180  
  181  PROCEDURE GetFileStamp(f : File ; VAR b: FileStamp) : BOOLEAN;
  182  
  183  PROCEDURE ThreadEOF(): BOOLEAN;
  184  
  185  PROCEDURE ThreadOK(): BOOLEAN;
  186  
  187  VAR Separators  : Str.CHARSET;
*****                        ^ not supported yet
  188  VAR OK          : BOOLEAN;
  189  VAR ChopOff     : BOOLEAN;
  190  VAR Eng         : BOOLEAN;      (* Engineering notation *)
  191  VAR PrefixChar  : CHAR;
  192  VAR SuffixChar  : CHAR;
  193  VAR EOL         : CHAR;         (* end-of-line character for RdStr *)
  194  
  195  END FIO.
*****      ^ not supported yet

   53 errors