]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | /* |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/02/15 17:49:31 mclareni | |
6 | * Kernlib | |
7 | * | |
8 | */ | |
9 | /*> ROUTINE GETPIDF (IPID) | |
10 | CERN PROGLIB# Z265 GETPIDF .VERSION KERNOS9 1.01 940727 | |
11 | ORIG. 22/02/91, JZ | |
12 | Fortran interface routine to _os_id (). | |
13 | Replaces call to getpid for OS-9 systems. | |
14 | MOD. 27/07/94, MM | |
15 | */ | |
16 | ||
17 | #include <process.h> | |
18 | #include <types.h> | |
19 | ||
20 | void getpidf_(int *pid) | |
21 | { | |
22 | process_id proc_id; | |
23 | u_int16 priority; | |
24 | u_int16 age; | |
25 | int32 schedule; | |
26 | u_int16 group; | |
27 | u_int16 user; | |
28 | ||
29 | error_code err; | |
30 | ||
31 | err = _os_id (&proc_id, &priority, &age, &schedule, &group, &user); | |
32 | *pid = proc_id; | |
33 | return; | |
34 | } | |
35 | /*> END <----------------------------------------------------------*/ |