Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - kccdist/lib/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 */
}