12441Sdlw /* 2*23024Skre * Copyright (c) 1980 Regents of the University of California. 3*23024Skre * All rights reserved. The Berkeley software License Agreement 4*23024Skre * specifies the terms and conditions for redistribution. 52441Sdlw * 6*23024Skre * @(#)getlog_.c 5.1 06/07/85 7*23024Skre */ 8*23024Skre 9*23024Skre /* 102441Sdlw * get login name of user 112441Sdlw * 122441Sdlw * calling sequence: 132441Sdlw * character*8 getlog, name 142441Sdlw * name = getlog() 152441Sdlw * or 162441Sdlw * call getlog (name) 172441Sdlw * where: 182441Sdlw * name will receive the login name of the user, or all blanks if 192441Sdlw * this is a detached process. 202441Sdlw */ 212441Sdlw 222441Sdlw char *getlogin(); 232441Sdlw 242441Sdlw getlog_(name, len) 252441Sdlw char *name; long len; 262441Sdlw { 272441Sdlw char *l = getlogin(); 282441Sdlw 292441Sdlw b_char(l?l:" ", name, len); 302441Sdlw } 31