steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix all-users word by calling setpwent to rewind file

db4
Doug Coleman 2010-06-23 10:25:08 -05:00
parent 7e24994db5
commit 317e793ef4
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unix/ffi/ffi.factor
View File

@ -83,6 +83,8 @@ FUNCTION: c-string getenv ( c-string name ) ;
FUNCTION: int getgrgid_r ( gid_t gid, group* grp, c-string buffer, size_t bufsize, group** result ) ; FUNCTION: int getgrgid_r ( gid_t gid, group* grp, c-string buffer, size_t bufsize, group** result ) ;
FUNCTION: int getgrnam_r ( c-string name, group* grp, c-string buffer, size_t bufsize, group** result ) ; FUNCTION: int getgrnam_r ( c-string name, group* grp, c-string buffer, size_t bufsize, group** result ) ;
FUNCTION: passwd* getpwent ( ) ; FUNCTION: passwd* getpwent ( ) ;
FUNCTION: void setpwent ( ) ;
FUNCTION: void setpassent ( int stayopen ) ;
FUNCTION: passwd* getpwuid ( uid_t uid ) ; FUNCTION: passwd* getpwuid ( uid_t uid ) ;
FUNCTION: passwd* getpwnam ( c-string login ) ; FUNCTION: passwd* getpwnam ( c-string login ) ;
FUNCTION: int getpwnam_r ( c-string login, passwd* pwd, c-string buffer, size_t bufsize, passwd** result ) ; FUNCTION: int getpwnam_r ( c-string login, passwd* pwd, c-string buffer, size_t bufsize, passwd** result ) ;

1
basis/unix/users/users.factor
View File

@ -31,6 +31,7 @@ M: unix passwd>new-passwd ( passwd -- seq )
} cleave ; } cleave ;
: with-pwent ( quot -- ) : with-pwent ( quot -- )
setpwent
[ unix.ffi:endpwent ] [ ] cleanup ; inline [ unix.ffi:endpwent ] [ ] cleanup ; inline
PRIVATE> PRIVATE>