usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 16:12:44 2006 New Revision: 88 Modified: public_html/index.shtml public_html/style.css Log: Update status page. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 12 16:12:44 2006 @@ -118,17 +118,17 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implement remapping of implementation defined errors.</td> - <td class="WIP" title="Work in progress">WIP</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -175,8 +175,30 @@ <td class="TODO">TODO</td> </tr> <tr> - <td>Implement more uncommon api calls such as send and recv + <td>Implement api calls get- and setsockopt.</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> + </tr> + <tr> + <td rowspan="2">Implement more uncommon api calls for tcp streams.</td> + <td>send, recv</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> + </tr> + <tr> + <td>shutdown</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 Feb 12 16:12:44 2006 @@ -85,3 +85,12 @@ color: #fff; text-align: center; font-weight: bold } + +.TOSTART { background-color: #fcc; + color: #000; } + +.RECONSIDER { background-color: #fc3; + color: #000; } + +.CHECKED { background-color: #cfc; + color: #000; }

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 15:09:22 2006 New Revision: 87 Modified: public_html/index.shtml Log: Update status page. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 12 15:09:22 2006 @@ -138,7 +138,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="FAIL">FAIL</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="2">Add functions to retrieve socket properties:<br />

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 14:58:42 2006 New Revision: 86 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix typo. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sun Feb 12 14:58:42 2006 @@ -35,7 +35,7 @@ (raise-error-from-id (openmcl-socket:socket-error-identifier condition) socket condition)) (ccl::socket-creation-error #| ugh! |# - (raise-error-from-id (ccl::socket-creationg-error-idenitifier condition) + (raise-error-from-id (ccl::socket-creationg-error-identifier condition) socket condition)) (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition))))

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 14:26:14 2006 New Revision: 85 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix compilation error. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sun Feb 12 14:26:14 2006 @@ -27,7 +27,7 @@ (let ((usock-err (cdr (assoc condition-id +openmcl-error-map+)))) (if usock-err (error usock-err :socket socket) - (error 'unknown-error :socket socket :real-error real-condition))) + (error 'unknown-error :socket socket :real-error real-condition)))) (defun handle-condition (condition &optional socket) (typecase condition

1 0

[usocket-cvs] r84 - in usocket/trunk: backend test
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 14:17:34 2006 New Revision: 84 Modified: usocket/trunk/backend/openmcl.lisp usocket/trunk/test/test-usocket.lisp Log: More OpenMCL fixes. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sun Feb 12 14:17:34 2006 @@ -23,15 +23,20 @@ (:access-denied . operation-not-permitted-error))) +(defun raise-error-from-id (condition-id socket real-condition) + (let ((usock-err (cdr (assoc condition-id +openmcl-error-map+)))) + (if usock-err + (error usock-err :socket socket) + (error 'unknown-error :socket socket :real-error real-condition))) + (defun handle-condition (condition &optional socket) (typecase condition (openmcl-socket:socket-error - (let ((usock-err - (cdr (assoc (openmcl-socket:socket-error-identifier condition) - +openmcl-error-map+)))) - (if usock-err - (error usock-err :socket socket) - (error 'unknown-error :socket socket :real-error condition)))) + (raise-error-from-id (openmcl-socket:socket-error-identifier condition) + socket condition)) + (ccl::socket-creation-error #| ugh! |# + (raise-error-from-id (ccl::socket-creationg-error-idenitifier condition) + socket condition)) (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition)))) Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Sun Feb 12 14:17:34 2006 @@ -58,10 +58,12 @@ nil) (deftest socket-failure.1 - (with-caught-conditions (#-(or cmu lispworks armedbear) + (with-caught-conditions (#-(or cmu lispworks armedbear openmcl) 'usocket:network-unreachable-error #+(or cmu lispworks armedbear) 'usocket:unknown-error + #+openmcl + 'usocket:timeout-error nil) (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) :unreach) @@ -71,7 +73,9 @@ 'usocket:unknown-error #+cmu 'usocket:network-unreachable-error - #-(or lispworks armedbear cmu) + #+openmcl + 'usocket:timeout-error + #-(or lispworks armedbear cmu openmcl) 'usocket:host-unreachable-error nil) (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0)

1 0

[usocket-cvs] r83 - in usocket/trunk: . backend test
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 13:27:25 2006 New Revision: 83 Modified: usocket/trunk/ (props changed) usocket/trunk/backend/ (props changed) usocket/trunk/test/ (props changed) Log: Add OpenMCL fasls to ignores list.

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 07:39:23 2006 New Revision: 82 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 12 07:39:23 2006 @@ -20,6 +20,9 @@ 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 +submit a request for it at the mailing list mentioned below.</p> + <h2>Community</h2> <p>This project has recently started. There isn't much of a community @@ -135,11 +138,11 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="UNTESTED" title="Untested">?</td> + <td class="FAIL">FAIL</td> </tr> <tr> - <td rowspan="2">Add functions to retrieve socket properties.<br /> - Such as local and remote IP address and port.</td> + <td rowspan="2">Add functions to retrieve socket properties:<br /> + Local and remote IP address and port.</td> <td>Investigate interfaces provided</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> @@ -172,7 +175,7 @@ <td class="TODO">TODO</td> </tr> <tr> - <td>Implement more uncommon api calls such as send, sendto and read + <td>Implement more uncommon api calls such as send and recv for tcp streams.</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 04:13:16 2006 New Revision: 81 Modified: public_html/index.shtml Log: Update website with more explicit plans. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 12 04:13:16 2006 @@ -172,7 +172,20 @@ <td class="TODO">TODO</td> </tr> <tr> - <td>Implement passive socket support.</td> + <td>Implement more uncommon api calls such as send, sendto and read + for tcp streams.</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> + </tr> + <tr> + <td>Implement udp socket support.</td> + <td>Investigate API's provided and build on top of that + (or custom ffi).</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 04:09:49 2006 New Revision: 80 Modified: usocket/trunk/Makefile (contents, props changed) Log: Ajust for use with svn and set keywords. Modified: usocket/trunk/Makefile ============================================================================== --- usocket/trunk/Makefile (original) +++ usocket/trunk/Makefile Sun Feb 12 04:09:49 2006 @@ -1,9 +1,9 @@ # $Id$ -# $Source$ +# $URL$ clean: - find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" -o -name "*.abcl" | xargs rm + find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" -o -name "*.abcl" | xargs rm commit: - make clean; cvs up; cvs ci + make clean; svn up; svn ci

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sat Feb 11 17:27:34 2006 New Revision: 79 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix return type of socket-connect. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat Feb 11 17:27:34 2006 @@ -36,12 +36,12 @@ (condition (signal 'unknown-condition :real-condition condition)))) (defun socket-connect (host port) - (let ((sock)) - (with-mapped-conditions (sock) - (setf sock - (openmcl-socket:make-socket :remote-host (host-to-hostname host) - :remote-port port)) - (openmcl-socket:socket-connect sock)))) + (with-mapped-conditions () + (let ((mcl-sock (openmcl-socket:make-socket :remote-host + (host-to-hostname host) + :remote-port port))) + (openmcl-socket:socket-connect mcl-sock) + (make-socket :stream mcl-sock :socket mcl-sock)))) (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket)

1 0

← Newer
1
...
59
60
61
62
63
64
65
...
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