1*47944Sbostic /*- 2*47944Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47944Sbostic * All rights reserved. 42441Sdlw * 5*47944Sbostic * %sccs.include.proprietary.c% 623024Skre */ 723024Skre 8*47944Sbostic #ifndef lint 9*47944Sbostic static char sccsid[] = "@(#)getlog_.c 5.2 (Berkeley) 04/12/91"; 10*47944Sbostic #endif /* not lint */ 11*47944Sbostic 1223024Skre /* 132441Sdlw * get login name of user 142441Sdlw * 152441Sdlw * calling sequence: 162441Sdlw * character*8 getlog, name 172441Sdlw * name = getlog() 182441Sdlw * or 192441Sdlw * call getlog (name) 202441Sdlw * where: 212441Sdlw * name will receive the login name of the user, or all blanks if 222441Sdlw * this is a detached process. 232441Sdlw */ 242441Sdlw 252441Sdlw char *getlogin(); 262441Sdlw getlog_(name,len)272441Sdlwgetlog_(name, len) 282441Sdlw char *name; long len; 292441Sdlw { 302441Sdlw char *l = getlogin(); 312441Sdlw 322441Sdlw b_char(l?l:" ", name, len); 332441Sdlw } 34