1 /*- 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)getlog_.c 5.2 (Berkeley) 04/12/91"; 10 #endif /* not lint */ 11 12 /* 13 * get login name of user 14 * 15 * calling sequence: 16 * character*8 getlog, name 17 * name = getlog() 18 * or 19 * call getlog (name) 20 * where: 21 * name will receive the login name of the user, or all blanks if 22 * this is a detached process. 23 */ 24 25 char *getlogin(); 26 27 getlog_(name, len) 28 char *name; long len; 29 { 30 char *l = getlogin(); 31 32 b_char(l?l:" ", name, len); 33 } 34