usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r18 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 01 Feb '06

01 Feb '06

Author: ehuelsmann Date: Wed Feb 1 16:01:18 2006 New Revision: 18 Modified: usocket/trunk/backend/allegro.lisp Log: Update with latest documentation research. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Wed Feb 1 16:01:18 2006 @@ -25,7 +25,10 @@ (defun get-host-by-address (address) - (sock:lookup-host address)) + (sock:ipaddr-to-hostname address)) (defun get-hosts-by-name (name) - (sock:lookup-host name)) + ;;###FIXME: ACL has the acldns module which returns all A records + ;; only problem: it doesn't fall back to tcp (from udp) if the returned + ;; structure is too long. + (list (hbo-to-vector-quad (sock:lookup-hostname name))))

1 0

[usocket-cvs] r17 - in usocket/trunk: . doc
by ehuelsmann＠common-lisp.net 01 Feb '06

01 Feb '06

Author: ehuelsmann Date: Wed Feb 1 16:00:16 2006 New Revision: 17 Modified: usocket/trunk/condition.lisp (contents, props changed) usocket/trunk/doc/design.txt usocket/trunk/doc/errors.txt usocket/trunk/package.lisp (contents, props changed) usocket/trunk/usocket.lisp Log: Update with latest condition ideas and API promises. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Wed Feb 1 16:00:16 2006 @@ -1,18 +1,74 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. (in-package :usocket) -(define-condition usocket-error (error) - ((real-condition - :reader real-condition - :initarg :real-condition) - (socket - :reader socket - :initarg :socket)) - (:report (lambda (c stream) - (format stream "Error (~A) occured in socket: ~A." - (real-condition c) (socket c))))) - +;; (define-condition usocket-error (error) +;; ((real-condition +;; :reader real-condition +;; :initarg :real-condition) +;; (socket +;; :reader socket +;; :initarg :socket)) +;; (:report (lambda (c stream) +;; (format stream "Error (~A) occured in socket: ~A." +;; (real-condition c) (socket c))))) + +(define-condition usocket-condition (condition) + () ;;###FIXME: no slots (yet); should at least be the affected usocket... + (:documentation "")) + +(define-condition usocket-error (usocket-condition error) + () ;; no slots (yet) + (:documentation "")) + + + +(eval-when (:compile-toplevel :load-toplevel :execute) + (defun define-usocket-condition-class (class &rest parents) + `(progn + (define-condition ,class ,parents ()) + (export ',class)))) + +(defmacro define-usocket-condition-classes (class-list parents) + `(progn ,@(mapcar #'(lambda (x) + (apply #'define-usocket-condition-class + x parents)) + class-list))) + +;; Mass define and export our conditions +(define-usocket-condition-classes + (usocket-interrupted-condition) + (usocket-condition)) + +(define-condition usocket-unknown-condition (usocket-condition) + ((real-condition)) + (:documentation "")) + + +;; Mass define and export our errors +(define-usocket-condition-classes + (usocket-address-in-use-error + usocket-address-not-available-error + usocket-bad-file-descriptor-error + usocket-connection-refused-error + usocket-invalid-argument-error + usocket-no-buffers-error + usocket-operation-not-supported-error + usocket-operation-not-permitted-error + usocket-protocol-not-supported-error + usocket-socket-type-not-supported-error + usocket-network-unreachable-error + usocket-network-down-error + usocket-network-reset-error + usocket-host-down-error + usocket-host-unreachable-error + usocket-shutdown-error + usocket-timeout-error) + (usocket-error)) + +(define-condition usocket-unknown-error (usocket-error) + ((real-error)) + (:documentation "")) Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Wed Feb 1 16:00:16 2006 @@ -59,10 +59,19 @@ The interface provided should allow: - 'client'/active sockets - 'server'/listening sockets - - retrieve IP addresses/ports for both sides of the connection - provide the usual stream methods to operate on the connection stream (not necessarily the socket itself; maybe a socket slot too) +For now, as long as there are no possibilities to have UDP sockets +to write a DNS client library: (which in the end may work better, +because in this respect all implementations are different...) + - retrieve IP addresses/ports for both sides of the connection +--- later addition +I don't think it's a good idea to implement name lookup in the +very first of steps: we'll see if this is required to get the +package accepted; not all implementations support it. +--- later addition; end + Several relevant support functionalities will have to be provided too: - long <-> quad-vector operators - quad-vector <-> string operators Modified: usocket/trunk/doc/errors.txt ============================================================================== --- usocket/trunk/doc/errors.txt (original) +++ usocket/trunk/doc/errors.txt Wed Feb 1 16:00:16 2006 @@ -1,13 +1,20 @@ -EADDRINUSE address-in-use-error -EAGAIN interrupted-error -EBADF bad-file-descriptor-error -ECONNREFUSED connection-refused-error -EINTR interrupted-error -EINVAL invalid-argument-error -ENOBUFS no-buffers-error -ENOMEM out-of-memory-error -EOPNOTSUPP operation-not-supported-error -EPERM operation-not-permitted-error -EPROTONOSUPPORT protocol-not-supported-error -ESOCKTNOSUPPORT socket-type-not-supported-error -ENETUNREACH network-unreachable-error +EADDRINUSE 48 address-in-use-error +EADDRNOTAVAIL 49 address-not-available-error +EAGAIN interrupted-error ;; not 1 error code: bsd == 11; non-bsd == 35 +EBADF 9 bad-file-descriptor-error +ECONNREFUSED 61 connection-refused-error +EINTR 4 interrupted-error +EINVAL 22 invalid-argument-error +ENOBUFS 55 no-buffers-error +ENOMEM 12 out-of-memory-error +EOPNOTSUPP 45 operation-not-supported-error +EPERM 1 operation-not-permitted-error +EPROTONOSUPPORT 43 protocol-not-supported-error +ESOCKTNOSUPPORT 44 socket-type-not-supported-error +ENETUNREACH 51 network-unreachable-error +ENETDOWN 50 network-down-error +ENETRESET 52 network-reset-error +ESHUTDOWN 58 already-shutdown-error +ETIMEDOUT 60 connection-timeout-error +EHOSTDOWN 64 host-down-error +EHOSTUNREACH 65 host-unreachable-error Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Wed Feb 1 16:00:16 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See the LICENSE file for licensing information. @@ -16,17 +16,14 @@ :usocket ; socket object and accessors :socket-stream - :get-host-by-address ; name services - :get-hosts-by-name - :get-host-by-name - :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))) + :usocket-condition ; conditions + :usocket-error ; errors + :usocket-unknown-condition + :usocket-unknown-error))) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Feb 1 16:00:16 2006 @@ -5,6 +5,8 @@ (in-package :usocket) + + (defclass usocket () ((socket :initarg :socket @@ -19,14 +21,21 @@ :initarg :local-port :accessor local-port))) -(defun make-socket (&key socket local-address local-port stream) +(defun make-socket (&key socket stream) (make-instance 'usocket :socket socket - :local-address local-address - :local-port local-port :stream stream)) -(defgeneric socket-close (usocket)) +(defgeneric socket-close (usocket) + (:documentation "Close a previously opened USOCKET.")) + +(defmacro with-connected-socket ((var socket) &body body) + `(let ((,var ,socket)) + (unwind-protect + (progn + ,@body) + (when ,var + (socket-close ,var))))) ;; ;; IPv4 utility functions

1 0

[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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs