chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add LCC - a better C-Compiler for WEGA

This commit is contained in:
Oliver Lehmann 1990-03-21 20:53:22 +00:00
parent 3139212ca5
commit 44dabab0c9
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
WEGA/contrib/lcc/lib/libc/port/gen/getlogin.c Normal file
View File

@ -0,0 +1,31 @@
#include <sys/types.h>
#include <utmp.h>
#define NULL 0
extern long lseek();
extern int open(), read(), close(), ttyslot();
char *
getlogin()
{
register me, uf;
struct utmp ubuf ;
static char answer[sizeof(ubuf.ut_user)+1] ;
if((me = ttyslot()) < 0)
return(NULL);
if((uf = open(UTMP_FILE, 0)) < 0)
return(NULL);
(void) lseek(uf, (long)(me * sizeof(ubuf)), 0);
if(read(uf, (char*)&ubuf, sizeof(ubuf)) != sizeof(ubuf)) {
(void) close(uf);
return(NULL);
}
(void) close(uf);
if(ubuf.ut_user[0] == '\0')
return(NULL);
strncpy(&answer[0],&ubuf.ut_user[0],sizeof(ubuf.ut_user)) ;
answer[sizeof(ubuf.ut_user)] = '\0' ;
return(&answer[0]);
}