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

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)getlog_.c	5.1	%G%
 */

/*
 * 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	1	/*
161423a6 RE	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
a5baa9d0	5	*
161423a6 RE	6	* @(#)getlog_.c 5.1 %G%
	7	*/
	8
	9	/*
a5baa9d0 DW	10	* get login name of user
	11	*
	12	* calling sequence:
	13	* character*8 getlog, name
	14	* name = getlog()
	15	* or
	16	* call getlog (name)
	17	* where:
	18	* name will receive the login name of the user, or all blanks if
	19	* this is a detached process.
	20	*/
	21
	22	char *getlogin();
	23
	24	getlog_(name, len)
	25	char *name; long len;
	26	{
	27	char *l = getlogin();
	28
	29	b_char(l?l:" ", name, len);
	30	}