Navigation



Make New Shell

RUN_USER,RUNUS*S*

- *************************************************
-                                                 *
-      RUN_USER:PROC(para1 FIXED,    ! User-number*
-                    para2 CHAR(8)), ! Task-name  *
-                    para3 REF PROC(REF STRUCT[]),
-                    para4 REF STRUCT[] !Proc-para*
-                    para5 FIXED(31) ! extra TWS  *
-                    )
-               RETURNS(FIXED); ! Returned user-no*
-                                                 *
-      This function will create or activate a    *
-      primary shell-process. It creates a new    *
-      user-task and user-environment whenever it *
-      is called with any "invalid" user-number   *
-      in para1. 0 is always an invalid number.   *
-      If the given user-number is occupied by    *
-      a task with a name not matching the text   *
-      created from para2><"uno" ("uno" is the    *
-      2digit hexadec user-number) the user-number*
-      is assumed to be invalid.
-
-      The new created primary shell-process will *
-      be named para2><"uno" (see above). The     *
-      parameters stdin,stdout,stderr etc. are    *
-      defaulted from user1 (console).            *
-
-      The function returns 0 if the installation *
-      of the new environment was impossible.     *
-      It returns -x (x is the resulting no.) if  *
-      the resulting environment was created anew.*
-                                                 *
-      In case of a valid result, the created task*
-      process will be activated and will call the*
-      procedure delivered by para3 using the REF *
-      in para4 as the only parameter.            *
-      para5 may be zero or can specify the extra *
-      amount of Task-wsp to ease all subseq. proc*
-      calls.                                     *
-                                                 *
-      If the proc-pointer is NIL, the task and the
-      user-environment will be removed from      *
-      the system. The user-slot inside the kernel*
-      will be released, too.
-                                                 *
-                                                 *
-      (c) 2000 by W. Gerth                       *
- ------------------------------------------------*
-      History:                                   *
-                                                 *
-      0.1  03.03.2000 Date of birth  (Ge)        *
-      1.0  10.03.2000 1st in use                 *
-      1.1  01.12.2000 17er-Sl. for Sys.-Entry(Wo)*1/1
-      1.2  12.10.2001 New transl. with TAPP 2.7-D*1/2
-                      for PPC405-'stwcx.'-Err. Wo*1/2
-      1.3  31.03.2003 Module-ID cleared        Ge*1/3