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