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 6/7/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: }