BSD 4_2 release

[unix-history] / usr / src / usr.lib / libU77 / getlog_.c

/*
char id_getlog[] = "@(#)getlog_.c       1.1";
*
* get login name of user
*
* calling sequence:
*      character*8 getlog, name
*      name = getlog()
* or
*      call getlog (name)
* where:
*      name will receive the login name of the user, or all blanks if
*      this is a detached process.
*/

char *getlogin();

getlog_(name, len)
char *name; long len;
{
       char *l = getlogin();

       b_char(l?l:" ", name, len);
}