[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
BKNR Commits
bknr at bknr.net
Tue Feb 10 10:32:09 UTC 2009
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 at common-lisp.net>.
-;;; Copyright (c) 2007, Anton Vodonosov <avodonosov at 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)."))
More information about the Bknr-cvs
mailing list