|
|
1.1 ! root 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.