Update of /project/closure/cvsroot/closure/src/glisp In directory clnet:/tmp/cvs-serv15471/src/glisp
Modified Files: dep-clisp.lisp dep-cmucl.lisp dep-openmcl.lisp dep-sbcl.lisp package.lisp util.lisp Log Message:
removed server socket code (unused)
--- /project/closure/cvsroot/closure/src/glisp/dep-clisp.lisp 2007/01/02 12:50:39 1.6 +++ /project/closure/cvsroot/closure/src/glisp/dep-clisp.lisp 2007/01/02 12:54:00 1.7 @@ -40,17 +40,6 @@ (lisp:socket-connect port hostname) :byte))
-(export 'glisp::make-server-socket :glisp) -(defun glisp:make-server-socket (port) - (lisp:socket-server port)) - -(defun glisp::accept-connection/low (socket) - (let ((stream (lisp:socket-accept socket))) - (setf (stream-element-type stream) '(unsigned-byte 8)) - (values - stream - :byte))) - (defun glisp::g/make-string (length &rest options) (apply #'make-array length :element-type --- /project/closure/cvsroot/closure/src/glisp/dep-cmucl.lisp 2007/01/02 12:50:39 1.6 +++ /project/closure/cvsroot/closure/src/glisp/dep-cmucl.lisp 2007/01/02 12:54:00 1.7 @@ -71,32 +71,6 @@ :name (format nil "Network connection to ~A:~D" hostname port)) :byte)))
-(defstruct (server-socket (:constructor make-server-socket-struct)) - fd - element-type - port) - -(export 'glisp::make-server-socket :glisp) -(defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8))) - (make-server-socket-struct :fd (ext:create-inet-listener port) - :element-type element-type - :port port)) - -(defun glisp::accept-connection/low (socket) - (mp:process-wait-until-fd-usable (server-socket-fd socket) :input) - (values - (sys:make-fd-stream (ext:accept-tcp-connection (server-socket-fd socket)) - :input t :output t - :element-type (server-socket-element-type socket)) - (cond ((subtypep (server-socket-element-type socket) 'integer) - :byte) - (t - :char)))) - -(export 'glisp::close-server-socket :glisp) -(defun glisp::close-server-socket (socket) - (unix:unix-close (server-socket-fd socket))) - (defun glisp::g/make-string (length &rest options) (apply #'make-array length :element-type 'base-char options))
--- /project/closure/cvsroot/closure/src/glisp/dep-openmcl.lisp 2007/01/02 12:50:39 1.5 +++ /project/closure/cvsroot/closure/src/glisp/dep-openmcl.lisp 2007/01/02 12:54:00 1.6 @@ -45,38 +45,6 @@ :remote-port port) :byte))
-(defstruct (server-socket (:constructor make-server-socket-struct)) - fd - element-type - port) - - -#|| -(export 'glisp::make-server-socket :glisp) -(defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8))) - (make-server-socket-struct :fd (ext:create-inet-listener port) - :element-type element-type - :port port)) - - -(defun glisp::accept-connection/low (socket) - (mp:process-wait-until-fd-usable (server-socket-fd socket) :input) - (values - (sys:make-fd-stream (ext:accept-tcp-connection (server-socket-fd socket)) - :input t :output t - :element-type (server-socket-element-type socket)) - (cond ((subtypep (server-socket-element-type socket) 'integer) - :byte) - (t - :char)))) - -(export 'glisp::close-server-socket :glisp) -(defun glisp::close-server-socket (socket) - (unix:unix-close (server-socket-fd socket))) -||# - -;;;;;; - (defun glisp::g/make-string (length &rest options) (apply #'make-array length :element-type 'base-char options))
--- /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2007/01/02 12:50:39 1.6 +++ /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp 2007/01/02 12:54:00 1.7 @@ -51,38 +51,6 @@ :input t :output t) :byte))
-(defstruct (server-socket (:constructor make-server-socket-struct)) - fd - element-type - port) - - -#|| -(export 'glisp::make-server-socket :glisp) -(defun glisp::make-server-socket (port &key (element-type '(unsigned-byte 8))) - (make-server-socket-struct :fd (ext:create-inet-listener port) - :element-type element-type - :port port)) - - -(defun glisp::accept-connection/low (socket) - (mp:process-wait-until-fd-usable (server-socket-fd socket) :input) - (values - (sys:make-fd-stream (ext:accept-tcp-connection (server-socket-fd socket)) - :input t :output t - :element-type (server-socket-element-type socket)) - (cond ((subtypep (server-socket-element-type socket) 'integer) - :byte) - (t - :char)))) - -(export 'glisp::close-server-socket :glisp) -(defun glisp::close-server-socket (socket) - (unix:unix-close (server-socket-fd socket))) -||# - -;;;;;; - (defun glisp::g/make-string (length &rest options) (apply #'make-array length :element-type 'character options))
--- /project/closure/cvsroot/closure/src/glisp/package.lisp 2007/01/02 12:50:39 1.9 +++ /project/closure/cvsroot/closure/src/glisp/package.lisp 2007/01/02 12:54:00 1.10 @@ -88,7 +88,6 @@ "CL-BYTE-STREAM->GSTREAM" "CL-CHAR-STREAM->GSTREAM" "G/OPEN-INET-SOCKET" - "ACCEPT-CONNECTION"
"FIND-TEMPORARY-FILE" "DELETE-TEMPORARY-FILE" --- /project/closure/cvsroot/closure/src/glisp/util.lisp 2006/12/31 12:14:36 1.6 +++ /project/closure/cvsroot/closure/src/glisp/util.lisp 2007/01/02 12:54:00 1.7 @@ -678,18 +678,6 @@ (:char (cl-char-stream->gstream stream)) (:byte (cl-byte-stream->gstream stream)) )))
-#|| -(defun g/open-inet-socket-ssl (host port) - (multiple-value-bind (stream) (gluser::make-ssl-client-socket host port) - (cl-byte-stream->gstream stream))) -||# - -(defun accept-connection (socket) - (multiple-value-bind (stream kind) (accept-connection/low socket) - (ecase kind - (:char (cl-char-stream->gstream stream)) - (:byte (cl-byte-stream->gstream stream)) ))) -
;;; ----------------------------------------------------------------------------------------------------