Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
kccdist/lib/usys/getuid.c
There are 5 other files named getuid.c in the archive. Click here to see a list.
/*
* GETUID, GETEUID - get user identity
*
* Copyright (C) 1987 by Ian Macky, SRI International
*/
#include "c-env.h"
#if SYS_T20+SYS_10X
#include "jsys.h"
#endif
int getuid()
{
#if SYS_T20+SYS_10X
int ablock[5];
jsys(GJINF, ablock); /* get job info */
return ablock[1]; /* user# in AC1 */
#else
#error getuid() not supported for this system.
#endif
}
int geteuid()
{
return getuid();
}