[usocket-cvs] r412 - usocket/branches/0.4.x/backend - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

1 Aug 2008

Author: ehuelsmann
Date: Fri Aug  1 18:08:45 2008
New Revision: 412
Modified:
   usocket/branches/0.4.x/backend/clisp.lisp
Log:
clisp: Delete private code which warns when loaded.
Modified: usocket/branches/0.4.x/backend/clisp.lisp
==============================================================================

--- usocket/branches/0.4.x/backend/clisp.lisp	(original)
+++ usocket/branches/0.4.x/backend/clisp.lisp	Fri Aug  1 18:08:45 2008
@@ -176,86 +176,3 @@
         wait-list))))
-;;
-;; UDP/Datagram sockets!
-;;
-
-#+rawsock
-(progn
-
-  (defun make-sockaddr_in ()
-    (make-array 16 :element-type '(unsigned-byte 8) :initial-element 0))
-
-  (declaim (inline fill-sockaddr_in))
-  (defun fill-sockaddr_in (sockaddr_in ip port)
-    (port-to-octet-buffer sockaddr_in port)
-    (ip-to-octet-buffer sockaddr_in ip :start 2)
-    sockaddr_in)
-
-  (defun socket-create-datagram (local-port
-                                 &key (local-host *wildcard-host*)
-                                      remote-host
-                                      remote-port)
-    (let ((sock (rawsock:socket :inet :dgram 0))
-          (lsock_addr (fill-sockaddr_in (make-sockaddr_in)
-                                        local-host local-port))
-          (rsock_addr (when remote-host
-                        (fill-sockaddr_in (make-sockaddr_in)
-                                          remote-host (or remote-port
-                                                          local-port)))))
-      (bind sock lsock_addr)
-      (when rsock_addr
-        (connect sock rsock_addr))
-      (make-datagram-socket sock :connected-p (if rsock_addr t nil))))
-
-  (defun socket-receive (socket buffer &key (size (length buffer)))
-    "Returns the buffer, the number of octets copied into the buffer (received)
-and the address of the sender as values."
-    (let* ((sock (socket socket))
-           (sockaddr (when (not (connected-p socket))
-                       (rawsock:make-sockaddr)))
-           (rv (if sockaddr
-                   (rawsock:recvfrom sock buffer sockaddr
-                                     :start 0
-                                     :end size)
-                   (rawsock:recv sock buffer
-                                 :start 0
-                                 :end size))))
-      (values buffer
-              rv
-              (list (ip-from-octet-buffer (sockaddr-data sockaddr) 4)
-                    (port-from-octet-buffer (sockaddr-data sockaddr) 2)))))
-
-  (defun socket-send (socket buffer &key address (size (length buffer)))
-    "Returns the number of octets sent."
-    (let* ((sock (socket socket))
-           (sockaddr (when address
-                       (rawsock:make-sockaddr :INET
-                                              (fill-sockaddr_in
-                                               (make-sockaddr_in)
-                                               (host-byte-order
-                                                (second address))
-                                               (first address)))))
-           (rv (if address
-                   (rawsock:sendto sock buffer sockaddr
-                                   :start 0
-                                   :end size)
-                   (rawsock:send sock buffer
-                                 :start 0
-                                 :end size))))
-      rv))
-
-  (defmethod socket-close ((usocket datagram-usocket))
-    (when (wait-list usocket)
-       (remove-waiter (wait-list usocket) usocket))
-    (rawsock:sock-close (socket usocket)))
-  
-  )
-
-#-rawsock
-(progn
-  (warn "This image doesn't contain the RAWSOCK package.
-To enable UDP socket support, please be sure to use the -Kfull parameter
-at startup, or to enable RAWSOCK support during compilation.")
-
-  )

    