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.")
-
- )
