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

Throw an error on certain combinators if a user/group does not exist

db4
Doug Coleman 2010-06-17 12:59:19 -05:00
parent e18bde069e
commit 27af7ffe50
4 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/unix/groups/groups-tests.factor
View File

@ -27,3 +27,4 @@ IN: unix.groups.tests
[ "888888888888888" ] [ 888888888888888 group-name ] unit-test [ "888888888888888" ] [ 888888888888888 group-name ] unit-test
[ f ] [ f ]
[ "please-oh-please-don't-have-a-group-named-this123lalala" group-struct ] unit-test [ "please-oh-please-don't-have-a-group-named-this123lalala" group-struct ] unit-test
[ "please-oh-please-don't-have-a-group-named-this123lalala" ?group-id ] must-fail

13
basis/unix/groups/groups.factor
View File

@ -61,6 +61,11 @@ PRIVATE>
: group-id ( string -- id/f ) : group-id ( string -- id/f )
group-struct dup [ gr_gid>> ] when ; group-struct dup [ gr_gid>> ] when ;
ERROR: no-group string ;
: ?group-id ( string -- id )
dup group-struct [ nip gr_gid>> ] [ no-group ] if* ;
<PRIVATE <PRIVATE
: >groups ( byte-array n -- groups ) : >groups ( byte-array n -- groups )
@ -122,14 +127,14 @@ GENERIC: set-effective-group ( obj -- )
PRIVATE> PRIVATE>
M: string set-real-group ( string -- )
group-id (set-real-group) ;
M: integer set-real-group ( id -- ) M: integer set-real-group ( id -- )
(set-real-group) ; (set-real-group) ;
M: string set-real-group ( string -- )
?group-id (set-real-group) ;
M: integer set-effective-group ( id -- ) M: integer set-effective-group ( id -- )
(set-effective-group) ; (set-effective-group) ;
M: string set-effective-group ( string -- ) M: string set-effective-group ( string -- )
group-id (set-effective-group) ; ?group-id (set-effective-group) ;

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

@ -27,3 +27,4 @@ IN: unix.users.tests
[ f ] [ 89898989898989898989898989898 user-passwd ] unit-test [ f ] [ 89898989898989898989898989898 user-passwd ] unit-test
[ f ] [ "thisusershouldnotexistabcdefg12345asdfasdfasdfasdfasdfasdfasdf" user-id ] unit-test [ f ] [ "thisusershouldnotexistabcdefg12345asdfasdfasdfasdfasdfasdfasdf" user-id ] unit-test
[ "thisusershouldnotexistabcdefg12345asdfasdfasdfasdfasdfasdfasdf" ?user-id ] must-fail

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

@ -64,6 +64,11 @@ M: string user-passwd ( string -- passwd/f )
: user-id ( string -- id/f ) : user-id ( string -- id/f )
user-passwd dup [ uid>> ] when ; user-passwd dup [ uid>> ] when ;
ERROR: no-user string ;
: ?user-id ( string -- id/f )
dup user-passwd [ nip uid>> ] [ no-user ] if* ;
: real-user-id ( -- id ) : real-user-id ( -- id )
unix.ffi:getuid ; inline unix.ffi:getuid ; inline
@ -100,17 +105,17 @@ GENERIC: set-effective-user ( string/id -- )
PRIVATE> PRIVATE>
M: string set-real-user ( string -- )
user-id (set-real-user) ;
M: integer set-real-user ( id -- ) M: integer set-real-user ( id -- )
(set-real-user) ; (set-real-user) ;
M: string set-real-user ( string -- )
?user-id (set-real-user) ;
M: integer set-effective-user ( id -- ) M: integer set-effective-user ( id -- )
(set-effective-user) ; (set-effective-user) ;
M: string set-effective-user ( string -- ) M: string set-effective-user ( string -- )
user-id (set-effective-user) ; ?user-id (set-effective-user) ;
os { os {
{ [ dup bsd? ] [ drop "unix.users.bsd" require ] } { [ dup bsd? ] [ drop "unix.users.bsd" require ] }