Topspeed_JPI/TS-V3/INCLUDE/CIO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  CIO.DEF - Modula-2 interface to IO.H                                    *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE cio;
   18  
   19  CONST
   20    HANDLE_MAX	        = 20;
   21  
   22    SEEK_SET	            = 0;
   23    SEEK_CUR	            = 1;
   24    SEEK_END	            = 2;
   25  
   26  TYPE
   27    ftime	                = RECORD
   28  	                      	ft_tsec	 : CARDINAL;	(* Two second interval *)
   29  	                      	ft_min	 : CARDINAL;	(* Minutes *)
   30  	                      	ft_hour	 : CARDINAL;	(* Hours *)
   31  	                      	ft_day	 : CARDINAL;	(* Days *)
   32  	                      	ft_month : CARDINAL;	(* Months *)
   33  	                      	ft_year	 : CARDINAL;	(* Year *)
   34                            END;
*****                            ^ not supported yet
   35  
   36  VAR
   37    _openfd               :ARRAY[0..HANDLE_MAX] OF CARDINAL;
*****                                    ^ not supported yet
*****                                                   ^ not supported yet
   38  
   39  PROCEDURE access(path:ARRAY OF CHAR;access:CARDINAL):INTEGER;
*****                                 ^ not supported yet
   40  PROCEDURE chmod(path:ARRAY OF CHAR;mode:CARDINAL):INTEGER;
*****                                ^ not supported yet
   41  PROCEDURE _chmod(path:ARRAY OF CHAR;func,mode:CARDINAL):INTEGER;
*****                                 ^ not supported yet
   42  PROCEDURE chsize(handle:CARDINAL;size:LONGCARD):INTEGER;
*****                                        ^ undeclared identifier
   43  PROCEDURE _close(handle:CARDINAL):INTEGER;
   44  PROCEDURE close(handle:CARDINAL):INTEGER;
   45  PROCEDURE _creat(path:ARRAY OF CHAR;permission:CARDINAL):INTEGER;
*****                                 ^ not supported yet
   46  PROCEDURE _creat_new(path:ARRAY OF CHAR;permission:CARDINAL):INTEGER;
*****                                     ^ not supported yet
   47  PROCEDURE _creat_trunc(path:ARRAY OF CHAR;permission:CARDINAL):INTEGER;
*****                                       ^ not supported yet
   48  PROCEDURE creat(path:ARRAY OF CHAR;access:CARDINAL):INTEGER;
*****                                ^ not supported yet
   49  PROCEDURE dup(handle:CARDINAL):INTEGER;
   50  PROCEDURE dup2(handle,newhandle:CARDINAL):INTEGER;
   51  PROCEDURE eof(handle:CARDINAL):INTEGER;
   52  PROCEDURE _dup(handle:CARDINAL):INTEGER;
   53  PROCEDURE _dup2(handle,newhandle:CARDINAL):INTEGER;
   54  PROCEDURE _eof(handle:CARDINAL):INTEGER;
   55  
   56  PROCEDURE filelength(handle:CARDINAL):LONGINT;
   57  PROCEDURE _filedrive(handle:CARDINAL):INTEGER;
   58  
   59  PROCEDURE isatty(handle:CARDINAL):INTEGER;
   60  PROCEDURE locking(handle,mode:CARDINAL;numgth:LONGCARD):INTEGER;
*****                                                ^ undeclared identifier
   61  PROCEDURE lock(handle: INTEGER; offset: LONGINT; length: LONGINT):INTEGER;
   62  PROCEDURE unlock(handle: INTEGER; offset: LONGINT; length: LONGINT):INTEGER;
   63  PROCEDURE lseek(handle:CARDINAL;offset:LONGCARD;fromwhere:CARDINAL):LONGINT;
*****                                         ^ undeclared identifier
   64  
   65  (* **** this procedure returns a pointer to an open array of char *)
   66  PROCEDURE mktemp(base:ARRAY OF CHAR):ADDRESS;
*****                                 ^ not supported yet
*****                                       ^ undeclared identifier
   67  PROCEDURE _open(path:ARRAY OF CHAR;oflags:CARDINAL):INTEGER;
*****                                ^ not supported yet
   68  
   69  (* **** this procedure has a variable parameter list *)
   70  (*# save *)
   71  (*# call(c_conv=>on, var_arg=>on, reg_param=>()) *)
   72  PROCEDURE open(path:ARRAY OF CHAR;access:CARDINAL(*...*)):INTEGER;
*****                               ^ not supported yet
   73  (*# restore *)
   74  PROCEDURE _read(handle:CARDINAL;buf:ADDRESS;num:CARDINAL):INTEGER;
*****                                      ^ undeclared identifier
   75  PROCEDURE read(handle:CARDINAL;buf:ADDRESS;num:CARDINAL):INTEGER;
*****                                     ^ undeclared identifier
   76  PROCEDURE setmode(handle,mode:CARDINAL):INTEGER;
   77  PROCEDURE tell(handle:CARDINAL):LONGINT;
   78  PROCEDURE umask(cmask:CARDINAL):CARDINAL;
   79  PROCEDURE unlink(path:ARRAY OF CHAR):INTEGER;
*****                                 ^ not supported yet
   80  PROCEDURE _write(handle:CARDINAL;buf:ADDRESS;num:CARDINAL):INTEGER;
*****                                       ^ undeclared identifier
   81  PROCEDURE write(handle:CARDINAL;buf:ADDRESS;num:CARDINAL):INTEGER;
*****                                      ^ undeclared identifier
   82  
   83  PROCEDURE creatnew(path:ARRAY OF CHAR; mode:CARDINAL):INTEGER;  (* DOS 3.0 or later *)
*****                                   ^ not supported yet
   84  PROCEDURE getftime(handle:CARDINAL;VAR ftimep:ftime):INTEGER;
   85  
   86  (* **** this procedure has a variable parameter list *)
   87  (*# save *)
   88  (*# call(c_conv=>on, var_arg=>on, reg_param=>()) *)
   89  PROCEDURE ioctl(handle,func:CARDINAL(*...*)):INTEGER;
   90  (*# restore *)
   91  PROCEDURE setftime(handle:CARDINAL;VAR ftimep:ftime):INTEGER;
   92  
   93  END cio.
*****      ^ not supported yet

   24 errors