Topspeed_JPI/TS-V3/INCLUDE/COREIO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  COREIO.DEF - Modula-2 interface to COREIO.A                             *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  DEFINITION MODULE CoreIO;
   12  
   13  (*# save *)
   14  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   15  (*# module(implementation=>off, init_code=>off) *)
   16  (*# name(prefix=>c) *)
   17  
   18  CONST
   19    SEEK_SET = 0;
   20    SEEK_END = 2;
   21  
   22    O_RDONLY = {};
*****                ^ not supported yet
   23    O_WRONLY = {0};
*****                ^ not supported yet
   24    O_RDWR   = {1};
*****                ^ not supported yet
   25  
   26    O_CREAT  = {8};	(* create and open file *)
*****                ^ not supported yet
   27    O_TRUNC  = {9};	(* open with truncation *)
*****                ^ not supported yet
   28    O_EXCL   = {10};	(* exclusive open *)
*****                ^ not supported yet
   29    _O_EOF   = {9};       (* set when text file hits ^Z   *)
*****                ^ not supported yet
   30    O_APPEND = {11};	(* to end of file *)
*****                ^ not supported yet
   31  
   32  (* File mode special bits. User may only read these bits *)
   33  
   34    O_CHANGED= {12};	(* File has been written *)
*****                ^ not supported yet
   35    O_DEVICE = {13};	(* user read only flag	 *)
*****                ^ not supported yet
   36    O_TEXT   = {14};	(* CR-LF translation	*)
*****                ^ not supported yet
   37    O_BINARY = {15};	(* no translation	*)
*****                ^ not supported yet
   38  
   39    _F_READ = {0};			(* Read only file *)
*****               ^ not supported yet
   40    _F_WRIT = {1};			(* Write only file *)
*****               ^ not supported yet
   41    _F_UBUF = {2};			(* User allocated buffer *)
*****               ^ not supported yet
   42    _F_APP  = {3};			(* Append data *)
*****               ^ not supported yet
   43    _F_ERR  = {4};			(* Error *)
*****               ^ not supported yet
   44    _F_EOF  = {5};			(* EOF *)
*****               ^ not supported yet
   45    _F_BIN  = {6};			(* Binary file *)
*****               ^ not supported yet
   46    _F_IN	  = {7};			(* Data is incoming *)
*****         	     ^ not supported yet
   47    _F_OUT  = {8};			(* Data is outgoing *)
*****               ^ not supported yet
   48    _F_DEV  = {9};			(* File is terminal *)
*****               ^ not supported yet
   49    _F_RST  = {10};			(* Newly opened stream *)
*****               ^ not supported yet
   50    _F_LBUF = {11};			(* line buffered stream *)
*****               ^ not supported yet
   51    _F_CTZ  = {12};
*****               ^ not supported yet
   52    _F_RDWR = {0..1};			(* Read/write  *)
*****               ^ not supported yet
*****                  ^ not supported yet
   53  
   54    EZERO	   = 0;		(* No Error			*)
   55    EINVF    = 1;		(* Invalid function code	*)
   56    ENOENT   = 2;		(* File not found		*)
   57    ENOPATH  = 3;		(* Path not found		*)
   58    EMFILE   = 4;		(* Too many open files		*)
   59    EACCES   = 5;		(* Access denied		*)
   60    EBADF	   = 6;		(* Invalid handle		*)
   61    E2BIG	   = 7;		(* Memory blocks destroyed	*)
   62    ENOMEM   = 8;		(* Insufficient Memory		*)
   63    EINVMEM  = 9; 	(* Invalid memory block address *)
   64    EINVENV  = 10;	(* Invalid environment		*)
   65    EINVFMT  = 11;	(* Invalid format		*)
   66    EINVACC  = 12;	(* Invalid access code		*)
   67    EINVDAT  = 13;	(* Invalid data 		*)
   68    ENODEV   = 15;	(* Invalid drive		*)
   69    ECURDIR  = 16;	(* Attempt to remove CurDir	*)
   70    ENOTSAM  = 17;	(* Not same device		*)
   71    ENMFILE  = 18;	(* No more files		*)
   72  
   73  (* RTL error codes *)
   74  
   75    EINVAL   = 19;	(* Invalid argument		*)
   76    ENOTDIR  = 20;	(* Not directory		*)
   77    EISDIR   = 21;	(* Is directory 		*)
   78    ENOEXEC  = 22;	(* Corrupted exec file		*)
   79    EMLINK   = 32;	(* Cross-device link		*)
   80  
   81    EDOM	   = 33;	(* Math argument		*)
   82    ERANGE   = 34;	(* Result too large		*)
   83    EDEADLOCK= 36;	(* file locking deadlock	*)
   84    EEXIST   = 80;        (* File exists MSDOS 3.0 +      *)
   85    EDISKFUL = 0F0H;      (* Write error - disk full?     *)
   86  
   87    EFAULT   = -1;	(* Unknown error		*)
   88  
   89  PROCEDURE getcurdir(Drive: INTEGER; Path: ARRAY OF CHAR): INTEGER;
*****                                                     ^ not supported yet
   90  PROCEDURE isatty(Handle: INTEGER): INTEGER;
   91  PROCEDURE _creat(Path: ARRAY OF CHAR; Permission: INTEGER): INTEGER;
*****                                  ^ not supported yet
   92  PROCEDURE _creat_trunc(Path: ARRAY OF CHAR; Permission: INTEGER): INTEGER;
*****                                        ^ not supported yet
   93  PROCEDURE chdir(Path: ARRAY OF CHAR): INTEGER;
*****                                 ^ not supported yet
   94  PROCEDURE delay(MS: INTEGER);
   95  PROCEDURE findnext(Buffer: ARRAY OF BYTE): INTEGER;
*****                                      ^ undeclared identifier
   96  PROCEDURE lseek(Handle: INTEGER; Pos: LONGINT; Whence: CARDINAL): LONGINT;
   97  PROCEDURE mkdir(Path: ARRAY OF CHAR): INTEGER;
*****                                 ^ not supported yet
   98  PROCEDURE read(Handle: INTEGER; Buf: ADDRESS; Count: INTEGER): INTEGER;
*****                                       ^ undeclared identifier
   99  PROCEDURE rename(Old, New: ARRAY OF CHAR): INTEGER;
*****                                      ^ not supported yet
  100  PROCEDURE rmdir(Path: ARRAY OF CHAR): INTEGER;
*****                                 ^ not supported yet
  101  PROCEDURE tell(Handle: INTEGER): LONGINT;
  102  PROCEDURE unlink(Path: ARRAY OF CHAR): INTEGER;
*****                                  ^ not supported yet
  103  PROCEDURE write(Handle: INTEGER; Buf: ADDRESS; Count: INTEGER): INTEGER;
*****                                        ^ undeclared identifier
  104  PROCEDURE _close(Handle: INTEGER): INTEGER;
  105  PROCEDURE _dos_close(Handle: INTEGER): CARDINAL;
  106  PROCEDURE _dos_findfirst(Path: ARRAY OF BYTE; Attr: CARDINAL; Buffer: ARRAY OF BYTE): INTEGER;
*****                                          ^ undeclared identifier
*****                                                                                 ^ undeclared identifier
  107  PROCEDURE _dos_findnext(Buffer: ARRAY OF BYTE): INTEGER;
*****                                           ^ undeclared identifier
  108  PROCEDURE _dos_read(Handle: INTEGER; Buffer: FarADDRESS; Count: CARDINAL; VAR NumRead: CARDINAL): CARDINAL;
*****                                               ^ undeclared identifier
  109  PROCEDURE _dos_write(Handle: INTEGER; Buffer: FarADDRESS; Count: CARDINAL; VAR NumWrit: CARDINAL): CARDINAL;
*****                                                ^ undeclared identifier
  110  PROCEDURE _eof(Handle: INTEGER): INTEGER;
  111  PROCEDURE _open(Path: ARRAY OF CHAR; Mode: INTEGER): INTEGER;
*****                                 ^ not supported yet
  112  PROCEDURE _read(Handle: INTEGER; Buf: ADDRESS; Count: INTEGER): INTEGER;
*****                                        ^ undeclared identifier
  113  PROCEDURE _write(Handle: INTEGER; Buf: ADDRESS; Count: INTEGER): INTEGER;
*****                                         ^ undeclared identifier
  114  PROCEDURE _os2_open(Path: ARRAY OF CHAR; Access: CARDINAL; mode: CARDINAL; flag: CARDINAL): INTEGER;
*****                                     ^ not supported yet
  115  
  116  (*# save *)
  117  (*# call(reg_param=>(dx,ax), reg_saved=>(ds, di, si,st1,st2)) *)
  118  PROCEDURE _exists(Path: ARRAY OF CHAR): INTEGER;
*****                                   ^ not supported yet
  119  (*# restore *)
  120  
  121  (*# save *)
  122  (*# call(reg_param=>(ax,bx,cx,dx)) *)
  123  PROCEDURE _pascreate(Path: ARRAY OF CHAR): INTEGER;
*****                                      ^ not supported yet
  124  PROCEDURE _pasopen(Path: ARRAY OF CHAR; Mode: INTEGER): INTEGER;
*****                                    ^ not supported yet
  125  (*# restore *)
  126  
  127  VAR
  128    _doserrno: INTEGER;
  129    _fmode: CARDINAL;
  130    _fmask: CARDINAL;
  131  
  132  END CoreIO.
*****      ^ not supported yet

   51 errors