Topspeed_JPI/TS-V3/INCLUDE/CPROCESS.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  CPROCESS.DEF - Modula-2 interface to CPROCESS.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 cprocess;
   18  
   19  CONST
   20      P_WAIT    = 0;
   21      P_NOWAIT  = 1;
   22      P_OVERLAY = 2;
   23  
   24  TYPE
   25      VarProc = PROCEDURE(FarADDRESS);
*****                ^ not supported yet
*****                          ^ undeclared identifier
   26  
   27  VAR
   28      _psp: CARDINAL;
   29  
   30  PROCEDURE abort;
   31  PROCEDURE atexit(func: PROC): INTEGER;
*****                         ^ undeclared identifier
   32  PROCEDURE onexit(func: PROC): PROC;
*****                         ^ undeclared identifier
*****                                ^ undeclared identifier
   33  (*%T _mthread *)
   34  PROCEDURE _dosbeginthread(func: PROC; _stlen: CARDINAL; VAR _stck: CARDINAL): CARDINAL;
*****                                  ^ undeclared identifier
   35  PROCEDURE _dosendthread;
   36  PROCEDURE _beginthread(func: VarProc; stack: FarADDRESS; stack_size: CARDINAL;
*****                                               ^ undeclared identifier
   37                         arg: FarADDRESS);
*****                              ^ undeclared identifier
   38  PROCEDURE _endthread();
   39  PROCEDURE _dosfreestack(_stck: CARDINAL);
   40  (*%E *)
   41  
   42  (*# save *)
   43  (*# call(c_conv=>on, var_arg=>on, reg_param=>()) *)
   44  PROCEDURE execl(_path, _arg0: ARRAY OF CHAR): INTEGER;
*****                                         ^ not supported yet
   45  PROCEDURE execle(_path, _arg0: ARRAY OF CHAR): INTEGER;
*****                                          ^ not supported yet
   46  PROCEDURE execlp(_path, _arg0: ARRAY OF CHAR): INTEGER;
*****                                          ^ not supported yet
   47  PROCEDURE execlpe(_path, _arg0: ARRAY OF CHAR): INTEGER;
*****                                           ^ not supported yet
   48  PROCEDURE execv(_path: ARRAY OF CHAR): INTEGER;
*****                                  ^ not supported yet
   49  PROCEDURE execve(_path: ARRAY OF CHAR): INTEGER;
*****                                   ^ not supported yet
   50  PROCEDURE execvp(_path: ARRAY OF CHAR): INTEGER;
*****                                   ^ not supported yet
   51  PROCEDURE execvpe(_path: ARRAY OF CHAR): INTEGER;
*****                                    ^ not supported yet
   52  (*# restore *)
   53  PROCEDURE exit(_status: CARDINAL);
   54  PROCEDURE _exit(_status: CARDINAL);
   55  PROCEDURE delay(_msecs: CARDINAL);
   56  (*%T _mthread *)
   57  PROCEDURE _getTID(): CARDINAL;
   58  (*%E *)
   59  
   60  (*# save *)
   61  (*# call(c_conv=>on, var_arg=>on, reg_param=>()) *)
   62  PROCEDURE spawnl(_mode: CARDINAL; _path,_arg0: ARRAY OF CHAR): INTEGER;
*****                                                          ^ not supported yet
   63  PROCEDURE spawnle(_mode: CARDINAL; _path,_arg0: ARRAY OF CHAR): INTEGER;
*****                                                           ^ not supported yet
   64  PROCEDURE spawnlp(_mode: CARDINAL; _path,_arg0: ARRAY OF CHAR): INTEGER;
*****                                                           ^ not supported yet
   65  PROCEDURE spawnlpe(_mode: CARDINAL; _path,_arg0: ARRAY OF CHAR): INTEGER;
*****                                                            ^ not supported yet
   66  PROCEDURE spawnv(_mode: CARDINAL; _path: ARRAY OF CHAR): INTEGER;
*****                                                    ^ not supported yet
   67  PROCEDURE spawnve(_mode: CARDINAL; _path: ARRAY OF CHAR): INTEGER;
*****                                                     ^ not supported yet
   68  PROCEDURE spawnvp(_mode: CARDINAL; _path: ARRAY OF CHAR): INTEGER;
*****                                                     ^ not supported yet
   69  PROCEDURE spawnvpe(_mode: CARDINAL; _path: ARRAY OF CHAR): INTEGER;
*****                                                      ^ not supported yet
   70  PROCEDURE system(_command: ARRAY OF CHAR): INTEGER;
*****                                      ^ not supported yet
   71  (*# restore *)
   72  
   73  (*%T _mthread *)
   74  
   75  CONST
   76      MAXTHREAD = 32;
   77      MaxProcess = 32;
   78  
   79  TYPE
   80      tm = RECORD
   81               tm_sec,
   82               tm_min,
   83               tm_hour,
   84               tm_mday,
   85               tm_mon,
   86               tm_year,
   87               tm_wday,
   88               tm_yday,
   89               tm_isdst: CARDINAL;
   90           END;
*****           ^ not supported yet
   91      thread = RECORD
   92                   error: INTEGER;
   93                   _asct_buf: ARRAY[0..27] OF CHAR;
*****                                       ^ not supported yet
*****                                              ^ not supported yet
   94                   _tm_buf: tm;
   95                   token: POINTER TO CHAR;
*****                                     ^ not supported yet
   96               END;
*****               ^ not supported yet
   97      PROCESS = ADDRESS;
*****                ^ undeclared identifier
   98      _TaskDescriptorPtr = POINTER TO _TaskDescriptor;
*****                                      ^ undeclared identifier
   99      _SigRec = RECORD
  100                    count: INTEGER;
  101                    waiting: _TaskDescriptorPtr;
  102                END;
*****                ^ not supported yet
  103      SIGNAL = POINTER TO _SigRec;
*****                          ^ not supported yet
  104      _TaskDescriptor = RECORD
  105                            next: _TaskDescriptorPtr;
  106                            priority: CARDINAL;
  107                            cor: PROCESS;
  108                            due: CARDINAL;
  109                            wsp: ADDRESS;
*****                                 ^ undeclared identifier
  110                            wspsize: CARDINAL;
  111                            nextdue: _TaskDescriptorPtr;
  112                        END;
*****                        ^ not supported yet
  113      Task = POINTER TO TaskDescriptor;
*****                        ^ undeclared identifier
  114  
  115  PROCEDURE StartProcess(_entry:PROC;_N,_Pr: CARDINAL);
*****                                ^ undeclared identifier
  116  (*# save *)
  117  (*# call(reg_saved=>(ds,di,si,st1,st2)) *)
  118  PROCEDURE StartScheduler;
  119  PROCEDURE StopScheduler;
  120  PROCEDURE StopProcess;
  121  PROCEDURE SEND(_s: SIGNAL);
  122  PROCEDURE WAIT(_s: SIGNAL);
  123  PROCEDURE Notify(_s: SIGNAL);
  124  PROCEDURE Awaited(_s: SIGNAL): INTEGER;
  125  PROCEDURE Init(VAR _s: SIGNAL);
  126  PROCEDURE Delay(_T: CARDINAL);
  127  (*# restore *)
  128  
  129  PROCEDURE Lock;
  130  PROCEDURE Unlock;
  131  
  132  (*%E *)
  133  
  134  END cprocess.
*****      ^ not supported yet

   39 errors