usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r118 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 10 Sep '06

10 Sep '06

Author: ehuelsmann Date: Sat Sep 9 18:10:43 2006 New Revision: 118 Modified: usocket/trunk/backend/clisp.lisp usocket/trunk/backend/lispworks.lisp Log: Apply patch by afuchs, fixing issue #6. Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Sat Sep 9 18:10:43 2006 @@ -17,8 +17,8 @@ (defparameter +clisp-error-map+ #+win32 - (append (remap-for-win32 +unix-errno-condition-map+) - (remap-for-win32 +unix-errno-error-map+)) + (append (remap-maybe-for-win32 +unix-errno-condition-map+) + (remap-maybe-for-win32 +unix-errno-error-map+)) #-win32 (append +unix-errno-condition-map+ +unix-errno-error-map+)) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Sat Sep 9 18:10:43 2006 @@ -19,8 +19,8 @@ (defparameter +lispworks-error-map+ #+win32 - (append (remap-for-win32 +unix-errno-condition-map+) - (remap-for-win32 +unix-errno-error-map+)) + (append (remap-maybe-for-win32 +unix-errno-condition-map+) + (remap-maybe-for-win32 +unix-errno-error-map+)) #-win32 (append +unix-errno-condition-map+ +unix-errno-error-map+))

1 0

[usocket-cvs] r117 - usocket/trunk
by ehuelsmann＠common-lisp.net 08 Jun '06

08 Jun '06

Author: ehuelsmann Date: Thu Jun 8 17:35:51 2006 New Revision: 117 Modified: usocket/trunk/usocket.lisp Log: Add documentation. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Thu Jun 8 17:35:51 2006 @@ -30,6 +30,8 @@ (external-format :default) (element-type 'character) (protocol :tcp)) + "trivial-sockets compat function to make usocket a drop-in replacement +apart from the package naming difference." (unless (and (eql local-host :any) (eql local-port 0)) (error 'unsupported :feature :bind)) (unless (eql protocol :tcp)

1 0

[usocket-cvs] r116 - usocket/trunk
by ehuelsmann＠common-lisp.net 08 Jun '06

08 Jun '06

Author: ehuelsmann Date: Thu Jun 8 15:43:23 2006 New Revision: 116 Modified: usocket/trunk/condition.lisp usocket/trunk/usocket.lisp Log: Trivial-sockets compat addition (as far as possible at this stage) Also formatting tweaks and comment removal. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Thu Jun 8 15:43:23 2006 @@ -5,6 +5,13 @@ (in-package :usocket) +;; Condition raised by operations with unsupported arguments +;; For trivial-sockets compatibility. + +(define-condition unsupported (error) + ((feature :initarg :feature :reader unsupported-feature))) + + ;; Conditions raised by sockets operations (define-condition socket-condition (condition) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Thu Jun 8 15:43:23 2006 @@ -10,23 +10,38 @@ (defclass usocket () ((socket :initarg :socket - :accessor socket) + :accessor socket + :documentation "Implementation specific socket object instance.") (stream :initarg :stream - :accessor socket-stream) -;; (local-address ;; possibly need to eliminate -;; :initarg :local-address -;; :accessor local-address) -;; (local-port ;; possibly need to eliminate -;; :initarg :local-port -;; :accessor local-port) - )) + :accessor socket-stream + :documentation "Implementation specific socket stream instance."))) (defun make-socket (&key socket stream) + "Create a usocket socket type from implementation specific socket +and stream objects." (make-instance 'usocket :socket socket :stream stream)) +(defun open-stream (peer-host peer-port + &key (local-host :any) + (local-port 0) + (external-format :default) + (element-type 'character) + (protocol :tcp)) + (unless (and (eql local-host :any) (eql local-port 0)) + (error 'unsupported :feature :bind)) + (unless (eql protocol :tcp) + (error 'unsupported :feature `(:protocol ,protocol))) + (unless (eql external-format :default) + (error 'unsupported :feature :external-format)) + (unless (eql element-type 'character) + (error 'unsupported :feature :element-type)) + (let ((sock (socket-connect peer-host peer-port))) + (when sock + (socket-stream sock)))) + (defgeneric socket-close (usocket) (:documentation "Close a previously opened `usocket'.")) @@ -103,8 +118,8 @@ (defgeneric host-byte-order (address)) (defmethod host-byte-order ((string string)) - "Convert a string, such as 192.168.1.1, to host-byte-order, such as -3232235777." + "Convert a string, such as 192.168.1.1, to host-byte-order, +such as 3232235777." (let ((list (list-of-strings-to-integers (split-sequence:split-sequence #\. string)))) (+ (* (first list) 256 256 256) (* (second list) 256 256) (* (third list) 256) (fourth list)))) @@ -163,6 +178,11 @@ ;; Setting of documentation for backend defined functions ;; +;; Documentation for the function +;; +;; (defun SOCKET-CONNECT (host port) ..) +;; + (setf (documentation 'socket-connect 'function) "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).

1 0

[usocket-cvs] r115 - public_html
by ehuelsmann＠common-lisp.net 09 Apr '06

09 Apr '06

Author: ehuelsmann Date: Sun Apr 9 07:13:44 2006 New Revision: 115 Modified: public_html/index.shtml Log: Update website with Trac references. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Apr 9 07:13:44 2006 @@ -48,6 +48,11 @@ <a href="mailto:usocket-devel@common-lisp.net">usocket-devel(a)common-lisp.net</a>. </p> +<p>Project tracking happens in the <a href="http://trac.common-lisp.net/usocket"> + project's Trac setup</a>. Please take note of the guidelines before + entering a bug or enhancement request into the database.</p> + + <div class="roadmap"> <h2>Development</h2> @@ -79,6 +84,9 @@ current state of development. </p> + <p><i>Now that common-lisp.net supports Trac, the future part of the + table below may be moved there in the near future.</i></p> + <table rules="all" border="1" cellpadding="3"> <caption style="font-weight:bold;font-size:large">Status for the currently targeted backends</caption> <thead class="roadmap-head">

1 0

[usocket-cvs] r114 - usocket/trunk/doc
by ehuelsmann＠common-lisp.net 21 Feb '06

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 13:35:32 2006 New Revision: 114 Modified: usocket/trunk/doc/backends.txt Log: Update docs. Modified: usocket/trunk/doc/backends.txt ============================================================================== --- usocket/trunk/doc/backends.txt (original) +++ usocket/trunk/doc/backends.txt Tue Feb 21 13:35:32 2006 @@ -18,8 +18,15 @@ Methods: - socket-close + - get-local-name + - get-peer-name + and - for ip sockets - these methods: + - get-local-address + - get-local-port + - get-peer-address + - get-peer-port An error-handling function, resolving implementation specific errors

1 0

[usocket-cvs] r113 - usocket/trunk
by ehuelsmann＠common-lisp.net 21 Feb '06

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 08:17:50 2006 New Revision: 113 Modified: usocket/trunk/TODO Log: Update TODO. Modified: usocket/trunk/TODO ============================================================================== --- usocket/trunk/TODO (original) +++ usocket/trunk/TODO Tue Feb 21 08:17:50 2006 @@ -18,3 +18,5 @@ Don't send host names into connect-to-inet-socket, but use gethostbyname, binding the return value and the error code. Raise an error if gethostbyname returns one. + +- Add INET6 support.

1 0

[usocket-cvs] r112 - usocket/trunk/notes
by ehuelsmann＠common-lisp.net 21 Feb '06

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 08:16:01 2006 New Revision: 112 Modified: usocket/trunk/notes/abcl-socket.txt Log: Update documentation. Modified: usocket/trunk/notes/abcl-socket.txt ============================================================================== --- usocket/trunk/notes/abcl-socket.txt (original) +++ usocket/trunk/notes/abcl-socket.txt Tue Feb 21 08:16:01 2006 @@ -1,9 +1,10 @@ ABCL provides a callback interface to java objects, next to these calls: - - make-socket - - socket-close - - make-server-socket + - ext:make-socket + - ext:socket-close + - ext:make-server-socket + - ext:socket-accept - ext:get-socket-stream (returning an io-stream) abcl-swank (see SLIME) shows how to call directly into java.

1 0

[usocket-cvs] r111 - public_html
by ehuelsmann＠common-lisp.net 21 Feb '06

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 08:02:06 2006 New Revision: 111 Modified: public_html/index.shtml Log: Update website Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Feb 21 08:02:06 2006 @@ -20,9 +20,23 @@ possible, while keeping the abstraction and portability layer as thin as possible. </p> -<p>If your lisp isn't mentioned in the table below, please feel free to +<p>If your lisp isn't mentioned in the list below, please feel free to submit a request for it at the mailing list mentioned below.</p> +<h2>Supported implementations</h2> + +<p>Currently these implementations are supported:</p> + +<ul> + <li>SBCL</li> + <li>CMUCL</li> + <li>Armedbear (newer than 0.0.9)</li> + <li>clisp</li> + <li>Allegro</li> + <li>LispWorks</li> + <li>OpenMCL</li> +</ul> + <h2>Community</h2> <p>This project has recently started. There isn't much of a community @@ -168,7 +182,7 @@ <td>Implementation test-suite status</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td title="Recent CVS only" class="PASS">PASS</td> + <td title="Recent CVS only" class="PASS">pass</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td>

1 0

[usocket-cvs] r110 - public_html
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 16:41:10 2006 New Revision: 110 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 17 16:41:10 2006 @@ -162,7 +162,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP">WIP</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -172,7 +172,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="UNTESTED">?</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server)

1 0

[usocket-cvs] r109 - usocket/trunk
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:53:53 2006 New Revision: 109 Modified: usocket/trunk/package.lisp Log: Export new interfaces. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Fri Feb 17 14:53:53 2006 @@ -10,23 +10,29 @@ (eval-when (:execute :load-toplevel :compile-toplevel) (defpackage :usocket (:use :cl) - (:export :socket-connect ; socket constructors and methods - :socket-close + (:export #:socket-connect ; socket constructors and methods + #:socket-close + #:get-local-address + #:get-peer-address + #:get-local-port + #:get-peer-port + #:get-local-name + #:get-peer-name - :with-connected-socket ; macros + #:with-connected-socket ; macros - :usocket ; socket object and accessors - :socket - :socket-stream + #:usocket ; socket object and accessors + #:socket + #:socket-stream - :host-byte-order ; IPv4 utility functions - :hbo-to-dotted-quad - :hbo-to-vector-quad - :vector-quad-to-dotted-quad - :dotted-quad-to-vector-quad + #:host-byte-order ; IPv4 utility functions + #:hbo-to-dotted-quad + #:hbo-to-vector-quad + #:vector-quad-to-dotted-quad + #:dotted-quad-to-vector-quad - :socket-condition ; conditions - :socket-error ; errors - :unknown-condition - :unknown-error))) + #:socket-condition ; conditions + #:socket-error ; errors + #:unknown-condition + #:unknown-error)))

1 0

← Newer
1
...
56
57
58
59
60
61
62
...
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs