xref: /csrg-svn/usr.bin/f77/libU77/getlog_.c (revision 2441)
1*2441Sdlw /*
2*2441Sdlw char id_getlog[] = "@(#)getlog_.c	1.1";
3*2441Sdlw  *
4*2441Sdlw  * get login name of user
5*2441Sdlw  *
6*2441Sdlw  * calling sequence:
7*2441Sdlw  *	character*8 getlog, name
8*2441Sdlw  *	name = getlog()
9*2441Sdlw  * or
10*2441Sdlw  *	call getlog (name)
11*2441Sdlw  * where:
12*2441Sdlw  *	name will receive the login name of the user, or all blanks if
13*2441Sdlw  *	this is a detached process.
14*2441Sdlw  */
15*2441Sdlw 
16*2441Sdlw char *getlogin();
17*2441Sdlw 
18*2441Sdlw getlog_(name, len)
19*2441Sdlw char *name; long len;
20*2441Sdlw {
21*2441Sdlw 	char *l = getlogin();
22*2441Sdlw 
23*2441Sdlw 	b_char(l?l:" ", name, len);
24*2441Sdlw }
25