MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getuidf.c

   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 GETUIDF
  10   CERN PROGLIB# Z265    GETUIDF         .VERSION KERNOS9  1.01  940727
  11   ORIG. 01/04/93, JS
  12   Fortran interface routine to _os_id ().
  13   Replaces call to getuid for OS-9 systems.
  14   MOD.  27/07/94, MM
  15 */
  16
  17 #include <process.h>
  18 #include <types.h>
  19
  20 void getuidf_(int *uid)
  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       *uid = user;
  33       return;
  34 }
  35 /*> END <----------------------------------------------------------*/