January 2006 - usocket-cvs@common-lisp.net

[usocket-cvs] r16 - public_html
by ehuelsmann＠common-lisp.net 31 Jan '06

31 Jan '06

Author: ehuelsmann Date: Tue Jan 31 12:32:48 2006 New Revision: 16 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Jan 31 12:32:48 2006 @@ -39,7 +39,7 @@ <th>Minor steps</th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">SBCL</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">CMUCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">ABCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">ABCL</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">clisp</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">Allegro</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">LispWorks</a></th> @@ -48,26 +48,37 @@ </thead> <tbody> <tr style="border-width:2px;border-color:#000;"> - <td rowspan="2">Minimal active sockets support + <td rowspan="3">Minimal active sockets support at the same level as provided by <a href="http://cliki.net/trivial-sockets">trivial-sockets</a>.<br /> (Meaning streamed tcp traffic on connected sockets.)</td> <td>Investigate interfaces provided.</td> - <td class="WIP">WIP</td>  - <td class="WIP">WIP</td>  - <td class="TODO">TODO</td>  - <td class="WIP">WIP</td>  - <td class="TODO">TODO</td>  + <td class="WIP" title="Work in progress">WIP</td>  + <td class="WIP" title="Work in progress">WIP</td>  + <td class="WIP" title="Work in progress">WIP</td>  + <td class="WIP" title="Work in progress">WIP</td>  + <td class="WIP" title="Work in progress">WIP</td>  <td class="TODO">TODO</td>  <td class="TODO">TODO</td>  </tr> + + <tr> + <td>Identify socket errors generated.</td> + <td class="WIP" title="Work in progress">WIP</td> + <td class="WIP" title="Work in progress">WIP</td> + <td class="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + </tr> <tr> <td>Implement active socket support.</td> <td class="WIP" title="Work in progress">WIP</td> <td class="WIP">WIP</td> <td class="TODO">TODO</td> <td class="WIP">WIP</td> - <td class="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> </tr>

1 0

[usocket-cvs] r15 - public_html
by ehuelsmann＠common-lisp.net 31 Jan '06

31 Jan '06

Author: ehuelsmann Date: Tue Jan 31 12:05:42 2006 New Revision: 15 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Jan 31 12:05:42 2006 @@ -39,7 +39,7 @@ <th>Minor steps</th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">SBCL</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">CMUCL</a></th> - <th>ABCL</th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">ABCL</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">clisp</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">Allegro</a></th> <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">LispWorks</a></th> @@ -56,7 +56,7 @@ <td class="WIP">WIP</td>  <td class="WIP">WIP</td>  <td class="TODO">TODO</td>  - <td class="TODO">TODO</td>  + <td class="WIP">WIP</td>  <td class="TODO">TODO</td>  <td class="TODO">TODO</td>  <td class="TODO">TODO</td>  @@ -64,9 +64,9 @@ <tr> <td>Implement active socket support.</td> <td class="WIP" title="Work in progress">WIP</td> - <td class="WIP">TODO</td> - <td class="TODO">TODO</td> + <td class="WIP">WIP</td> <td class="TODO">TODO</td> + <td class="WIP">WIP</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

[usocket-cvs] r14 - usocket/trunk/doc
by ehuelsmann＠common-lisp.net 31 Jan '06

31 Jan '06

Author: ehuelsmann Date: Tue Jan 31 12:05:22 2006 New Revision: 14 Modified: usocket/trunk/doc/active-sockets-apis.txt usocket/trunk/doc/backends.txt usocket/trunk/doc/clisp-sockets.txt usocket/trunk/doc/cmucl-sockets.txt usocket/trunk/doc/sb-bsd-sockets.txt Log: Update documentation. Modified: usocket/trunk/doc/active-sockets-apis.txt ============================================================================== --- usocket/trunk/doc/active-sockets-apis.txt (original) +++ usocket/trunk/doc/active-sockets-apis.txt Tue Jan 31 12:05:22 2006 @@ -18,6 +18,7 @@ sockets: - socket-bind - make-instance 'inet-socket + - socket-make-stream - socket-connect - socket-close Modified: usocket/trunk/doc/backends.txt ============================================================================== --- usocket/trunk/doc/backends.txt (original) +++ usocket/trunk/doc/backends.txt Tue Jan 31 12:05:22 2006 @@ -20,3 +20,7 @@ - get-host-by-address (name string) - get-hosts-by-name (address vector-quad) + +An error-handling function, resolving implementation specific errors +to this list of errors: + Modified: usocket/trunk/doc/clisp-sockets.txt ============================================================================== --- usocket/trunk/doc/clisp-sockets.txt (original) +++ usocket/trunk/doc/clisp-sockets.txt Tue Jan 31 12:05:22 2006 @@ -14,3 +14,13 @@ (SOCKET:SOCKET-STREAM-LOCAL socket-stream [do-not-resolve-p]) (SOCKET:SOCKET-STREAM-SHUTDOWN socket-stream direction) (SOCKET:SOCKET-OPTIONS socket-server &REST {option}*) + + +(posix:resolve-host-ipaddr &optional host) + +with the host-ent structure: + + name - host name + aliases - LIST of aliases + addr-list - LIST of IPs as dotted quads (IPv4) or coloned octets (IPv6) + addrtype - INTEGER address type IPv4 or IPv6 Modified: usocket/trunk/doc/cmucl-sockets.txt ============================================================================== --- usocket/trunk/doc/cmucl-sockets.txt (original) +++ usocket/trunk/doc/cmucl-sockets.txt Tue Jan 31 12:05:22 2006 @@ -34,6 +34,12 @@ +There's currently only 1 condition to be raised: + + SOCKET-ERROR (derived from SIMPLE-ERROR) + which has a SOCKET-ERRNO slot containing the unix error number. + + [Function] Modified: usocket/trunk/doc/sb-bsd-sockets.txt ============================================================================== --- usocket/trunk/doc/sb-bsd-sockets.txt (original) +++ usocket/trunk/doc/sb-bsd-sockets.txt Tue Jan 31 12:05:22 2006 @@ -86,3 +86,31 @@ (define-socket-condition sockint::EPROTONOSUPPORT protocol-not-supported-error) (define-socket-condition sockint::ESOCKTNOSUPPORT socket-type-not-supported-error) (define-socket-condition sockint::ENETUNREACH network-unreachable-error) + +Exported errors: +* (apropos "ERROR" :sb-bsd-sockets) + +SB-BSD-SOCKETS:INTERRUPTED-ERROR +SB-BSD-SOCKETS:TRY-AGAIN-ERROR +SB-BSD-SOCKETS:NO-RECOVERY-ERROR +SB-BSD-SOCKETS:CONNECTION-REFUSED-ERROR +SB-BSD-SOCKETS:INVALID-ARGUMENT-ERROR +SB-BSD-SOCKETS:HOST-NOT-FOUND-ERROR +SB-BSD-SOCKETS:OPERATION-NOT-PERMITTED-ERROR +SB-BSD-SOCKETS:SOCKET-ERROR (fbound) <-- geen condition +SB-BSD-SOCKETS:NAME-SERVICE-ERROR (fbound) <-- geen condition +? --> SB-BSD-SOCKETS:NETDB-INTERNAL-ERROR +SB-BSD-SOCKETS:OPERATION-NOT-SUPPORTED-ERROR +SB-BSD-SOCKETS:PROTOCOL-NOT-SUPPORTED-ERROR +SB-BSD-SOCKETS:OPERATION-TIMEOUT-ERROR +SB-BSD-SOCKETS:SOCKET-TYPE-NOT-SUPPORTED-ERROR +SB-BSD-SOCKETS:NO-BUFFERS-ERROR +SB-BSD-SOCKETS:NETWORK-UNREACHABLE-ERROR +? --> SB-BSD-SOCKETS:NETDB-SUCCESS-ERROR +SB-BSD-SOCKETS:BAD-FILE-DESCRIPTOR-ERROR +SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR +SB-BSD-SOCKETS:OUT-OF-MEMORY-ERROR + +And 1 non-exported error: + +SB-BSD-SOCKETS::NO-ADDRESS-ERROR

1 0

[usocket-cvs] r13 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 31 Jan '06

31 Jan '06

Author: ehuelsmann Date: Tue Jan 31 12:04:58 2006 New Revision: 13 Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/backend/clisp.lisp Log: Update clisp and allegro backends. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Tue Jan 31 12:04:58 2006 @@ -14,21 +14,18 @@ (defun open (host port &optional (type :stream)) (declare (ignore type)) - (make-socket :socket (sock:make-socket :remote-host host - :remote-port port))) + (let ((socket (sock:make-socket :remote-host host + :remote-port port))) + (make-socket :socket socket :stream socket))) -(defmethod close ((socket socket)) +(defmethod close ((usocket usocket)) "Close socket." - (sock:close (real-socket socket))) + (sock:close (socket usocket))) -(defmethod read-line ((socket socket)) - (cl:read-line (real-socket socket))) -(defmethod write-sequence ((socket socket) sequence) - (cl:write-sequence sequence (real-socket socket))) (defun get-host-by-address (address) (sock:lookup-host address)) -(defun get-host-by-name (name) +(defun get-hosts-by-name (name) (sock:lookup-host name)) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Tue Jan 31 12:04:58 2006 @@ -12,29 +12,31 @@ :real-condition condition :socket socket)))) -(defun open (host port &optional (type :stream)) +(defun socket-connect (host port &optional (type :stream)) (declare (ignore type)) - (make-socket :socket (socket:socket-connect port host) - :host host - :port port)) + (let ((socket (socket:socket-connect port host + :element-type 'character + :buffered t))) + (make-socket :socket socket + :stream socket ;; the socket is a stream too + :host host + :port port)) -(defmethod close ((socket socket)) +(defmethod socket-close ((usocket usocket)) "Close socket." - (socket:socket-server-close (real-socket socket))) + (close (socket usocket))) -(defmethod read-line ((socket socket)) - (cl:read-line (real-socket socket))) -(defmethod write-sequence ((socket socket) sequence) - (cl:write-sequence sequence (real-socket socket))) (defun get-host-by-address (address) - (handler-case (posix:hostent-name - (posix:resolve-host-ipaddr (vector-quad-to-dotted-quad address))) - (condition (condition) (handle-condition condition)))) - -(defun get-host-by-name (name) - (handler-case (mapcar #'dotted-quad-to-vector-quad - (posix:hostent-addr-list (posix:resolve-host-ipaddr name))) - (condition (condition) (handle-condition condition)))) - + (handler-case + (posix:hostent-name + (posix:resolve-host-ipaddr (vector-quad-to-dotted-quad address))) + (condition (condition) (handle-condition condition)))) + +(defun get-hosts-by-name (name) + (handler-case + (mapcar #'dotted-quad-to-vector-quad + (posix:hostent-addr-list (posix:resolve-host-ipaddr name))) + (condition (condition) (handle-condition condition)))) +

1 0

[usocket-cvs] r12 - usocket/trunk/doc
by ehuelsmann＠common-lisp.net 30 Jan '06

30 Jan '06

Author: ehuelsmann Date: Mon Jan 30 15:14:23 2006 New Revision: 12 Added: usocket/trunk/doc/abcl-socket.txt usocket/trunk/doc/backends.txt Log: More backends documentation. Added: usocket/trunk/doc/abcl-socket.txt ============================================================================== --- (empty file) +++ usocket/trunk/doc/abcl-socket.txt Mon Jan 30 15:14:23 2006 @@ -0,0 +1,17 @@ + +ABCL provides a callback interface to java objects, next to these calls: + + - make-socket + - socket-close + - make-server-socket + - ext:get-socket-stream (returning an io-stream) + +abcl-swank (see SLIME) shows how to call directly into java. + + +See for the sockets implementation: + + - src/org/armedbear/lisp + * socket.lisp + * socket_stream.java + * SocketStream.java Added: usocket/trunk/doc/backends.txt ============================================================================== --- (empty file) +++ usocket/trunk/doc/backends.txt Mon Jan 30 15:14:23 2006 @@ -0,0 +1,22 @@ + -*- text -*- + +A document to describe which APIs a backend should implement. + + +Each backend should implement: + +Sockets functions: + + - socket-connect + + +Sockets methods: + + - socket-close + + +Name resolution functions: + + - get-host-by-address (name string) + - get-hosts-by-name (address vector-quad) +

1 0

[usocket-cvs] r11 - public_html
by ehuelsmann＠common-lisp.net 30 Jan '06

30 Jan '06

Author: ehuelsmann Date: Mon Jan 30 14:36:42 2006 New Revision: 11 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Mon Jan 30 14:36:42 2006 @@ -53,18 +53,18 @@ <a href="http://cliki.net/trivial-sockets">trivial-sockets</a>.<br /> (Meaning streamed tcp traffic on connected sockets.)</td> <td>Investigate interfaces provided.</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> - <td class="TODO">TODO</td> + <td class="WIP">WIP</td>  + <td class="WIP">WIP</td>  + <td class="TODO">TODO</td>  + <td class="TODO">TODO</td>  + <td class="TODO">TODO</td>  + <td class="TODO">TODO</td>  + <td class="TODO">TODO</td>  </tr> <tr> <td>Implement active socket support.</td> <td class="WIP" title="Work in progress">WIP</td> - <td class="TODO">TODO</td> + <td class="WIP">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

[usocket-cvs] r10 - in usocket/trunk: backend doc
by ehuelsmann＠common-lisp.net 30 Jan '06

30 Jan '06

Author: ehuelsmann Date: Mon Jan 30 14:36:29 2006 New Revision: 10 Modified: usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/doc/active-sockets-apis.txt Log: Update backends with current progress. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Mon Jan 30 14:36:29 2006 @@ -12,21 +12,21 @@ :real-condition condition :socket socket)))) -(defun open (host port &optional (type :stream)) +(defun socket-connect (host port &optional (type :stream)) (let* ((socket (ext:connect-to-inet-socket (host-byte-order host) port type)) - (stream (sys:make-fd-stream socket :input t :output t :element-type 'character)) - (usocket (make-socket :socket socket :host host :port port :stream stream))) + (stream (sys:make-fd-stream socket :input t :output t + :element-type 'character + :buffering :full)) + ;;###FIXME the above line probably needs an :external-format + (usocket (make-socket :socket socket + :host host :port port :stream stream))) usocket)) -(defmethod close ((socket socket)) +(defmethod socket-close ((usocket usocket)) "Close socket." - (ext:close-socket (real-socket socket))) + (ext:close-socket (socket usocket))) -(defmethod read-line ((socket socket)) - (cl:read-line (real-stream socket))) -(defmethod write-sequence ((socket socket) sequence) - (cl:write-sequence sequence (real-stream socket))) (defun get-host-by-address (address) (handler-case (ext:host-entry-name Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Jan 30 14:36:29 2006 @@ -20,7 +20,12 @@ Returns a usocket object." (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type type :protocol :tcp)) - (stream (sb-bsd-sockets:socket-make-stream socket)) + (stream (sb-bsd-sockets:socket-make-stream socket + :input t + :output t + :buffering :full + :element-type 'character)) + ;;###FIXME: The above line probably needs an :external-format (usocket (make-instance 'usocket :stream stream :socket socket))) (handler-case (sb-bsd-sockets:socket-connect socket host port) (condition (condition) (handle-condition condition usocket))) Modified: usocket/trunk/doc/active-sockets-apis.txt ============================================================================== --- usocket/trunk/doc/active-sockets-apis.txt (original) +++ usocket/trunk/doc/active-sockets-apis.txt Mon Jan 30 14:36:29 2006 @@ -3,6 +3,14 @@ A document to summarizing which API's of the different implementations are associated with 'Step 1'. +Interface to be implemented in step 1: + + - socket-connect + - socket-close + - get-host-by-address + - get-hosts-by-name + +(and something to do with errors; maybe move this to step 1a?) SBCL ==== @@ -16,4 +24,21 @@ DNS name resolution: - get-host-by-name - get-host-by-address - - host-ent-addresses + - ::host-ent-addresses + - host-ent-name + + +CMUCL +===== + + sockets: + - ext:connect-to-inet-socket + - sys:make-fd-stream + - ext:close-socket + + DNS name resolution: + - ext:host-entry-name + - ext::lookup-host-entry + - ext:host-entry-addr-list + - ext:lookup-host-entry +

1 0

[usocket-cvs] r9 - public_html
by ehuelsmann＠common-lisp.net 29 Jan '06

29 Jan '06

Author: ehuelsmann Date: Sun Jan 29 15:53:13 2006 New Revision: 9 Modified: public_html/index.shtml public_html/style.css Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Jan 29 15:53:13 2006 @@ -63,7 +63,7 @@ </tr> <tr> <td>Implement active socket support.</td> - <td class="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> Modified: public_html/style.css ============================================================================== --- public_html/style.css (original) +++ public_html/style.css Sun Jan 29 15:53:13 2006 @@ -65,3 +65,9 @@ color: #fff; font-weight: bold; text-align: center; } + +.WIP { background-color: #f80; + color: #000; + font-weight: bold; + text-align: center; } +

1 0

[usocket-cvs] r8 - in usocket/trunk: . backend doc
by ehuelsmann＠common-lisp.net 29 Jan '06

29 Jan '06

Author: ehuelsmann Date: Sun Jan 29 15:51:23 2006 New Revision: 8 Added: usocket/trunk/doc/active-sockets-apis.txt Modified: usocket/trunk/backend/sbcl.lisp usocket/trunk/doc/design.txt usocket/trunk/package.lisp usocket/trunk/usocket.asd usocket/trunk/usocket.lisp (contents, props changed) Log: Implement the first bit of 'Step 1' in SBCL and at the same time, start documenting the different implementations wrt that same step. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sun Jan 29 15:51:23 2006 @@ -12,48 +12,33 @@ :real-condition condition :socket socket)))) -(defun socket-create (&optional (type :stream)) +(defun socket-connect (host port &optional (type :stream)) "Connect to `host' on `port'. `host' is assumed to be a string of an IP address represented in vector notation, such as #(192 168 1 1). `port' is assumed to be an integer. -Returns a socket object." +Returns a usocket object." (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type type :protocol :tcp)) - (stream (sb-bsd-sockets:socket-make-stream socket))) - (make-instance 'usocket :stream stream :socket socket))) - -(defmethod socket-bind ((usocket usocket) - &key (local-host "localhost") - (local-port 0) - (reuse-address t)) - (with-slots (usocket) - socket -;; (setf (sockopt-reuseaddress socket) reuse-address) - (setf socket - -(defmethod socket-connect (host port) + (stream (sb-bsd-sockets:socket-make-stream socket)) + (usocket (make-instance 'usocket :stream stream :socket socket))) (handler-case (sb-bsd-sockets:socket-connect socket host port) (condition (condition) (handle-condition condition usocket))) usocket)) -(defmethod socket-close ((socket socket)) +(defmethod socket-close ((usocket usocket)) "Close socket." - (handler-case (sb-bsd-sockets:socket-close (real-socket socket)) - (condition (condition) (handle-condition condition socket)))) + (handler-case (sb-bsd-sockets:socket-close (socket usocket)) + (condition (condition) (handle-condition condition usocket)))) -(defmethod socket-read-line ((socket socket)) - (cl:read-line (real-stream socket))) -(defmethod socket-write-sequence ((socket socket) sequence) - (cl:write-sequence sequence (real-stream socket))) (defun get-host-by-address (address) (handler-case (sb-bsd-sockets::host-ent-name (sb-bsd-sockets:get-host-by-address address)) (condition (condition) (handle-condition condition)))) -(defun get-host-by-name (name) +(defun get-hosts-by-name (name) (handler-case (sb-bsd-sockets::host-ent-addresses (sb-bsd-sockets:get-host-by-name name)) (condition (condition) (handle-condition condition)))) Added: usocket/trunk/doc/active-sockets-apis.txt ============================================================================== --- (empty file) +++ usocket/trunk/doc/active-sockets-apis.txt Sun Jan 29 15:51:23 2006 @@ -0,0 +1,19 @@ + -*- text -*- + +A document to summarizing which API's of the different implementations +are associated with 'Step 1'. + + +SBCL +==== + + sockets: + - socket-bind + - make-instance 'inet-socket + - socket-connect + - socket-close + + DNS name resolution: + - get-host-by-name + - get-host-by-address + - host-ent-addresses Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Sun Jan 29 15:51:23 2006 @@ -76,5 +76,4 @@ - clisp - Allegro - LispWorks - - + - OpenMCL Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Sun Jan 29 15:51:23 2006 @@ -10,22 +10,23 @@ (eval-when (:execute :load-toplevel :compile-toplevel) (defpackage :usocket (:use :cl) - (:nicknames :usoc) - (:shadowing-import-from "COMMON-LISP" :close - :open - :read-line - :write-sequence) - (:export :open ; socket related operations - :make-socket - :close - :read-line - :write-sequence - :socket ; socket object and accessors - :host - :port + (:export :socket-connect ; socket constructors and methods + :socket-close + + :usocket ; socket object and accessors + :socket-stream + :get-host-by-address ; name services + :get-hosts-by-name :get-host-by-name - :host-byte-order ; utility operators + :get-random-host-by-name + + :host-byte-order ; IPv4 utility functions + :hbo-to-dotted-quad + :hbo-to-vector-quad + :vector-quad-to-dotted-quad + :dotted-quad-to-vector-quad + :usocket-error ; conditions :no-route-to-host))) Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Sun Jan 29 15:51:23 2006 @@ -13,12 +13,11 @@ (defsystem usocket :name "usocket" - :author "Erik Enge" + :author "Erik Enge & Erik Huelsmann" :version "0.1.0" :licence "MIT" :description "Universal socket library for Common Lisp" - :depends-on #+sbcl (:sb-bsd-sockets :split-sequence) - #-sbcl (:split-sequence) + :depends-on (#+sbcl :sb-bsd-sockets :split-sequence) :components ((:file "package") (:file "usocket" :depends-on ("package")) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sun Jan 29 15:51:23 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. @@ -11,7 +11,7 @@ :accessor socket) (stream :initarg :stream - :accessor stream) + :accessor socket-stream) (local-address :initarg :local-address :accessor local-address) @@ -19,15 +19,17 @@ :initarg :local-port :accessor local-port))) -(defun make-socket (&key socket local-address local-port stream)) +(defun make-socket (&key socket local-address local-port stream) (make-instance 'usocket :socket socket - :local-address host + :local-address local-address :local-port local-port :stream stream)) +(defgeneric socket-close (usocket)) + ;; -;; Utility +;; IPv4 utility functions ;; (defun list-of-strings-to-integers (list) @@ -77,3 +79,15 @@ 3232235777." (+ (* (aref vector 0) 256 256 256) (* (aref vector 1) 256 256) (* (aref vector 2) 256) (aref vector 3))) + +;; +;; DNS helper functions +;; + +(defun get-host-by-name (name) + (let ((hosts (get-hosts-by-name name))) + (car hosts))) + +(defun get-random-host-by-name (name) + (let ((hosts (get-hosts-by-name name))) + (elt hosts (random (length hosts)))))

1 0

[usocket-cvs] r7 - public_html
by ehuelsmann＠common-lisp.net 29 Jan '06

29 Jan '06

Author: ehuelsmann Date: Sun Jan 29 14:51:41 2006 New Revision: 7 Modified: public_html/index.shtml Log: Update roadmap table. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Jan 29 14:51:41 2006 @@ -31,17 +31,19 @@ <caption>Roadmap</caption> <thead class="roadmap-head"> <tr> - <th colspan="2">Major steps</th><th colspan="6">Implementations</th> + <th colspan="2">Major steps</th> + <th colspan="7">Socket implementations</th> </tr> <tr> <th></th> <th>Minor steps</th> - <th>SBCL</th> - <th>CMUCL</th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">SBCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">CMUCL</a></th> <th>ABCL</th> - <th>clisp</th> - <th>Allegro</th> - <th>LispWorks</th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">clisp</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">Allegro</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">LispWorks</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">OpenMCL</a></th> </tr> </thead> <tbody> @@ -57,6 +59,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement active socket support.</td> @@ -66,6 +69,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td rowspan="2">Add functions to retrieve socket properties.<br /> @@ -77,6 +81,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement it.</td> @@ -86,6 +91,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server) @@ -97,6 +103,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement passive socket support.</td> @@ -106,6 +113,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> </tbody> </table>

1 0