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