|
|
1.1 ! root 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: char *getlogin(); ! 17: ! 18: getlog_(name, len) ! 19: char *name; long len; ! 20: { ! 21: char *l = getlogin(); ! 22: ! 23: b_char(l?l:" ", name, len); ! 24: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.