view release on metacpan or  search on metacpan

siod.html  view on Meta::CPAN

<B><FONT SIZE="+2">U</FONT></B>.
<h3>(getppid)</h3>
Returns the parent process ID of the calling process.
<B><FONT SIZE="+2">U</FONT></B>.
<h3>(getpwent)</h3>
Returns an alist representing the next item in the /etc/passwd file.
<B><FONT SIZE="+2">U</FONT></B>.
<h3>(getpwnam username)</h3>
Returns the /etc/passwd file entry for the given username.
<B><FONT SIZE="+2">U</FONT></B>.
<h3>(getpwuid)</h3>
Returns the /etc/passwd file entry fo the given user id.
<B><FONT SIZE="+2">U</FONT></B>.
<h3>(gets stream)</h3>
Reads a line from the stream, () on end-of-file.
<h3>(getuid)</h3>
Returns the uid of the current process.
<B><FONT SIZE="+2">U</FONT></B>.
<h3>(gmtime value)</h3>
Decodes the value into an alist. The value defaults to the current time.
<B><FONT SIZE="+2">U</FONT></B>.

slibu.c  view on Meta::CPAN

 p->pw_comment = strfield("comment",alist);
#endif
#if defined(hpux) || defined(sun)
 p->pw_age = strfield("age",alist);
#endif
#if defined(__osf__)
 p->pw_quota = longfield("quota",alist);
#endif
 p->pw_shell = strfield("shell",alist);}

LISP lgetpwuid(LISP luid)
{int iflag;
 uid_t uid;
 struct passwd *p;
 LISP result = NIL;
 uid = get_c_long(luid);
 iflag = no_interrupt(1);
 if ((p = getpwuid(uid)))
   result = ldecode_pwent(p);
 no_interrupt(iflag);
 return(result);}

LISP lgetpwnam(LISP nam)
{int iflag;
 struct passwd *p;
 LISP result = NIL;
 iflag = no_interrupt(1);
 if ((p = getpwnam(get_c_string(nam))))

slibu.c  view on Meta::CPAN

 init_lsubr("system",lsystem);
#ifndef WIN32
 init_subr_0("getgid",lgetgid);
 init_subr_0("getuid",lgetuid);
#endif
#if defined(unix) || defined(WIN32)
 init_subr_0("getcwd",lgetcwd);
#endif
#ifdef unix
 init_subr_2("crypt",lcrypt);
 init_subr_1("getpwuid",lgetpwuid);
 init_subr_1("getpwnam",lgetpwnam);
 init_subr_0("getpwent",lgetpwent);
 init_subr_0("setpwent",lsetpwent);
 init_subr_0("endpwent",lendpwent);
 init_subr_1("setuid",lsetuid);
 init_subr_1("seteuid",lseteuid);
 init_subr_0("geteuid",lgeteuid);
#if defined(__osf__)
 init_subr_1("setpwfile",lsetpwfile);
#endif