Revision: 4221 Author: edi URL: http://bknr.net/trac/changeset/4221

Remove Unix files

U trunk/thirdparty/hunchentoot/hunchentoot.asd D trunk/thirdparty/hunchentoot/unix-acl.lisp D trunk/thirdparty/hunchentoot/unix-clisp.lisp D trunk/thirdparty/hunchentoot/unix-cmu.lisp D trunk/thirdparty/hunchentoot/unix-lw.lisp D trunk/thirdparty/hunchentoot/unix-mcl.lisp D trunk/thirdparty/hunchentoot/unix-other.lisp D trunk/thirdparty/hunchentoot/unix-sbcl.lisp

Modified: trunk/thirdparty/hunchentoot/hunchentoot.asd =================================================================== --- trunk/thirdparty/hunchentoot/hunchentoot.asd 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/hunchentoot.asd 2009-02-10 10:32:09 UTC (rev 4221) @@ -70,13 +70,6 @@ (:file "easy-handlers") (:file "headers") (:file "get-backtrace") - #+(and :allegro :unix) (:file "unix-acl") - #+(and :clisp :unix) (:file "unix-clisp") - #+(and :cmu :unix) (:file "unix-cmu") - #+(and :lispworks :unix) (:file "unix-lw") - #+(and :openmcl :unix) (:file "unix-mcl") - #+(and :sbcl :unix (not :win32)) (:file "unix-sbcl") - #+(and (not (or :allegro :clisp :cmu :lispworks :openmcl :sbcl)) :unix) (:file "unix-other") (:file "set-timeouts") (:file "connection-dispatcher") (:file "server")

Deleted: trunk/thirdparty/hunchentoot/unix-acl.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-acl.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-acl.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,53 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-acl.lisp,v 1.6 2008/02/13 16:02:19 edi Exp $ - -;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(eval-when (:compile-toplevel :load-toplevel :execute) - (require "osi")) - -(defun setuid (uid) - "Sets the effective user ID of the current process to UID - see -setuid(2)." - (excl.osi:setuid uid)) - -(defun setgid (gid) - "Sets the effective group ID of the current process to GID - -see setgid(2)." - (excl.osi:setgid gid)) - -(defun get-uid-from-name (name) - "Returns the UID for the user named NAME." - (excl.osi:pwent-uid (or (excl.osi:getpwnam name) - (parameter-error "User ~S not found." name)))) - -(defun get-gid-from-name (name) - "Returns the GID for the group named NAME." - (excl.osi:grent-gid (or (excl.osi:getgrnam name) - (parameter-error "Group ~S not found." name))))

Deleted: trunk/thirdparty/hunchentoot/unix-clisp.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-clisp.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-clisp.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,51 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10; -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-clisp.lisp,v 1.3 2008/02/13 16:03:10 edi Exp $ - -;;; Copyright (c) 2006, Luis Oliveira loliveira@common-lisp.net. -;;; Copyright (c) 2007, Anton Vodonosov avodonosov@yandex.ru. -;;; Copyright (c) 2007-2008, Dr. Edmund Weitz. -;;; All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(defun setuid (uid) - "Sets the effective user ID of the current process to UID - see -setuid(2)." - (setf (posix:getuid) uid)) - -(defun setgid (gid) - "Sets the effective group ID of the current process to GID - -see setgid(2)." - (setf (posix:getgid) gid)) - -(defun get-uid-from-name (name) - "Returns the UID for the user named NAME." - (posix:user-info-uid (posix:user-info name))) - -(defun get-gid-from-name (name) - "Returns the GID for the group named NAME." - (posix:user-info-gid (posix:user-info name)))

Deleted: trunk/thirdparty/hunchentoot/unix-cmu.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-cmu.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-cmu.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,54 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-cmu.lisp,v 1.6 2008/02/13 16:02:19 edi Exp $ - -;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(defun setuid (uid) - "Sets the effective user ID of the current process to UID - see -setuid(2)." - (multiple-value-bind (return-value errno) - (unix:unix-setuid uid) - (unless (and return-value (zerop return-value)) - (parameter-error "setuid failed: ~A" (unix:get-unix-error-msg errno))))) - -(defun setgid (gid) - "Sets the effective group ID of the current process to GID - -see setgid(2)." - (multiple-value-bind (return-value errno) - (unix:unix-setgid gid) - (unless (and return-value (zerop return-value)) - (parameter-error "setgid failed: ~A" (unix:get-unix-error-msg errno))))) - -(defun get-uid-from-name (name) - "Returns the UID for the user named NAME." - (unix:user-info-uid (unix:unix-getpwnam name))) - -(defun get-gid-from-name (name) - "Returns the GID for the group named NAME." - (unix:group-info-gid (unix:unix-getgrnam name)))

Deleted: trunk/thirdparty/hunchentoot/unix-lw.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-lw.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-lw.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,93 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-lw.lisp,v 1.5 2008/02/13 16:02:19 edi Exp $ - -;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(fli:define-foreign-function (%setuid "setuid") - ((uid :int)) - :result-type :int) - -(defun setuid (uid) - "Sets the effective user ID of the current process to UID - see -setuid(2)." - (unless (zerop (%setuid uid)) - (parameter-error "setuid failed: ~A" (lw:get-unix-error (lw:errno-value))))) - -(fli:define-foreign-function (%setgid "setgid") - ((gid :int)) - :result-type :int) - -(defun setgid (gid) - "Sets the effective group ID of the current process to GID - -see setgid(2)." - (unless (zerop (%setgid gid)) - (parameter-error "setgid failed: ~A" (lw:get-unix-error (lw:errno-value))))) - -(fli:define-c-struct passwd - (name (:pointer :char)) - (passwd (:pointer :char)) - (uid :int) - (gid :int) - (gecos (:pointer :char)) - (dir (:pointer :char)) - (shell (:pointer :char))) - -(fli:define-foreign-function (getpwnam "getpwnam") - ((name (:reference-pass :ef-mb-string))) - :result-type (:pointer passwd)) - -(defun get-uid-from-name (name) - "Returns the UID for the user named NAME." - (let ((passwd (getpwnam name))) - (when (fli:null-pointer-p passwd) - (let ((errno (lw:errno-value))) - (cond ((zerop errno) - (parameter-error "User ~S not found." name)) - (t (parameter-error "getpwnam failed: ~A" (lw:get-unix-error errno)))))) - (fli:foreign-slot-value passwd 'uid))) - -(fli:define-c-struct group - (name (:pointer :char)) - (passwd (:pointer :char)) - (gid :int) - (mem (:pointer (:pointer :char)))) - -(fli:define-foreign-function (getgrnam "getgrnam") - ((name (:reference-pass :ef-mb-string))) - :result-type (:pointer group)) - -(defun get-gid-from-name (name) - "Returns the GID for the group named NAME." - (let ((group (getgrnam name))) - (when (fli:null-pointer-p group) - (let ((errno (lw:errno-value))) - (cond ((zerop errno) - (parameter-error "Group ~S not found." name)) - (t (parameter-error "getgrnam failed: ~A" (lw:get-unix-error errno)))))) - (fli:foreign-slot-value group 'gid))) \ No newline at end of file

Deleted: trunk/thirdparty/hunchentoot/unix-mcl.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-mcl.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-mcl.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,54 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-mcl.lisp,v 1.7 2008/02/13 16:02:19 edi Exp $ - -;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(defun setuid (uid) - "Sets the effective user ID of the current process to UID - see -setuid(2)." - (let ((errno (ccl::setuid uid))) - (unless (zerop errno) - (parameter-error "setuid failed with errno ~A." errno)))) - -(defun setgid (gid) - "Sets the effective group ID of the current process to GID - -see setgid(2)." - (let ((errno (ccl::setgid gid))) - (unless (zerop errno) - (parameter-error "setgid failed with errno ~A." errno)))) - -(defun get-uid-from-name (name) - "Returns the UID for the user named NAME." - (declare (ignore name)) - (not-implemented 'get-uid-from-name)) - -(defun get-gid-from-name (name) - "Returns the GID for the group named NAME." - (declare (ignore name)) - (not-implemented 'get-gid-from-name))

Deleted: trunk/thirdparty/hunchentoot/unix-other.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-other.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-other.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,50 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-lw.lisp,v 1.5 2008/02/13 16:02:19 edi Exp $ - -;;; Copyright (c) 2008, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(defun setuid (uid) - "Stub." - (declare (ignore uid)) - (not-implemented 'setuid)) - -(defun setgid (gid) - "Stub." - (declare (ignore gid)) - (not-implemented 'setgid)) - -(defun get-uid-from-name (name) - "Stub." - (declare (ignore name)) - (not-implemented 'get-uid-from-name)) - -(defun get-gid-from-name (name) - "Stub." - (declare (ignore name)) - (not-implemented 'get-gid-from-name))

Deleted: trunk/thirdparty/hunchentoot/unix-sbcl.lisp =================================================================== --- trunk/thirdparty/hunchentoot/unix-sbcl.lisp 2009-02-10 10:31:33 UTC (rev 4220) +++ trunk/thirdparty/hunchentoot/unix-sbcl.lisp 2009-02-10 10:32:09 UTC (rev 4221) @@ -1,57 +0,0 @@ -;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: HUNCHENTOOT; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/hunchentoot/unix-sbcl.lisp,v 1.8 2008/02/13 16:02:19 edi Exp $ - -;;; Copyright (c) 2004-2009, Dr. Edmund Weitz. All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: - -;;; * Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. - -;;; * Redistributions in binary form must reproduce the above -;;; copyright notice, this list of conditions and the following -;;; disclaimer in the documentation and/or other materials -;;; provided with the distribution. - -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED -;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, -;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING -;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -(in-package :hunchentoot) - -(eval-when (:compile-toplevel :load-toplevel :execute) - (when (and (eq (nth-value 1 (find-symbol "GETGRNAM" :sb-posix)) :external) - (eq (nth-value 1 (find-symbol "GROUP-GID" :sb-posix)) :external)) - (pushnew :sb-posix-has-getgrnam *features*))) - -(defun setuid (uid) - "Sets the effective user ID of the current process to UID - see -setuid(2)." - (sb-posix:setuid uid)) - -(defun setgid (gid) - "Sets the effective group ID of the current process to GID - -see setgid(2)." - (sb-posix:setgid gid)) - -(defun get-uid-from-name (name) - "Returns the UID for the user named NAME." - (sb-posix:passwd-uid (sb-posix:getpwnam name))) - -(defun get-gid-from-name (name) - "Returns the GID for the group named NAME." - (declare (ignorable name)) - #+:sb-posix-has-getgrnam - (sb-posix:group-gid (sb-posix:getgrnam name)) - #-:sb-posix-has-getgrnam - (hunchentoot-error "You need a version of SBCL with SB-POSIX:GETGRNAM (1.0.10.31 or higher)."))