[closure-cvs] CVS closure/src/glisp

[dlichteblau]

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)) )))
-
 
 ;;; ----------------------------------------------------------------------------------------------------