1 /* 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. 5 * 6 * @(#)getlog_.c 5.1 06/07/85 7 */ 8 9 /* 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 } 31