xref: /original-bsd/usr.bin/f77/libU77/getlog_.c (revision 6c57d260)
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 }
25