Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
c/lib5/getlog.c
There are 5 other files named getlog.c in the archive. Click here to see a list.
/*
* GETLOGIN - get login username
*
* Copyright (C) 1987 by Ian Macky, SRI International
*/
#include "c-env.h"
#include "stdio.h"
#if SYS_T20
#include "jsys.h"
#endif
#if !(SYS_T20)
#error getlogin() not implemented for this system
#endif
static char _username[L_cuserid];
char *getlogin()
{
int ablock[5];
jsys(GJINF, ablock); /* user# is in AC1 */
if (!ablock[1]) return NULL; /* not logged in... */
ablock[2] = ablock[1]; /* put user# in AC2 */
ablock[1] = (int) (_username - 1); /* put the username here */
jsys(DIRST, ablock); /* blast it out */
return _username; /* return buf where we put it */
}