[unix-history] / usr / src / usr.bin / f77 / 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);
}
Commit	Line	Data
a5baa9d0 DW	1	/*
	2	char id_getlog[] = "@(#)getlog_.c 1.1";
	3	*
	4	* get login name of user
	5	*
	6	* calling sequence:
	7	* character*8 getlog, name
	8	* name = getlog()
	9	* or
	10	* call getlog (name)
	11	* where:
	12	* name will receive the login name of the user, or all blanks if
	13	* this is a detached process.
	14	*/
	15
	16	char *getlogin();
	17
	18	getlog_(name, len)
	19	char *name; long len;
	20	{
	21	char *l = getlogin();
	22
	23	b_char(l?l:" ", name, len);
	24	}