usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[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

[usocket-cvs] r6 - public_html usocket/trunk/doc
by ehuelsmann＠common-lisp.net 29 Jan '06

29 Jan '06

Author: ehuelsmann Date: Sun Jan 29 13:23:36 2006 New Revision: 6 Modified: public_html/index.shtml public_html/style.css usocket/trunk/doc/design.txt Log: Update website and sync design document. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Jan 29 13:23:36 2006 @@ -13,13 +13,110 @@ <h1></h1> </div> +<h2>Community</h2> + <p>This project has recently started. See <a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">the design document</a> for more information.</p> - <p>Back to <a href="http://common-lisp.net/">Common-lisp.net</a>.</p> + <p>Development discussion takes place on + <a href="mailto:usocket-devel@common-lisp.net">usocket-devel(a)common-lisp.net</a>. + Please feel free to join and chip in! (This currently being a single man project, please announce yourself.) + </p> + +<div class="roadmap"> + <h2>Development roadmap</h2> + +<table rules="all" border="1" cellpadding="3"> + <caption>Roadmap</caption> + <thead class="roadmap-head"> + <tr> + <th colspan="2">Major steps</th><th colspan="6">Implementations</th> + </tr> + <tr> + <th></th> + <th>Minor steps</th> + <th>SBCL</th> + <th>CMUCL</th> + <th>ABCL</th> + <th>clisp</th> + <th>Allegro</th> + <th>LispWorks</th> + </tr> + </thead> + <tbody> + <tr style="border-width:2px;border-color:#000;"> + <td rowspan="2">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="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 active socket support.</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">Add functions to retrieve socket properties.<br /> + Such as local and remote IP address and port.</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> + </tr> + <tr> + <td>Implement it.</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">Add support for passive (connection-accepting/server) + 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> + </tr> + <tr> + <td>Implement passive socket support.</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> + </tbody> +</table> +</div> + +<hr /> - <div class="check"> +<div style="float:left;font-size:x-small;font-weight:bold"> +Back to <a href="http://common-lisp.net/">Common-lisp.net</a>. +</div> + <div class="check" style="float:right"> <a href="http://validator.w3.org/check/referer">Valid XHTML 1.0 Strict</a> </div> </body> Modified: public_html/style.css ============================================================================== --- public_html/style.css (original) +++ public_html/style.css Sun Jan 29 13:23:36 2006 @@ -52,3 +52,16 @@ .check a:hover { font-weight:bold; color:#000000; text-decoration:underline; } + +.roadmap-table { border-style: solid; + border-width: 2px; + border-color: #000; } + +.roadmap-head { border-style: solid; + border-width: 2px; + border-color: #000; } + +.TODO { background-color: #b00; + color: #fff; + font-weight: bold; + text-align: center; } Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Sun Jan 29 13:23:36 2006 @@ -72,8 +72,9 @@ Minimally, I'd like to support: - SBCL - CMUCL + - ABCL (ArmedBear) + - clisp - Allegro - LispWorks - - ArmedBear (ABCL)

1 0

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

28 Jan '06

Author: ehuelsmann Date: Sat Jan 28 16:52:58 2006 New Revision: 4 Modified: usocket/trunk/doc/design.txt (contents, props changed) Log: Update design document. Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Sat Jan 28 16:52:58 2006 @@ -1,19 +1,72 @@ -*- text -*- +$Id$ + + usocket: Universal sockets library ================================== Contents ======== + * Motivation + * Design goal + * Functional requirements + + + + +Motivation +========== + +There are 2 other portability sockets packages [that I know of] +out there: + 1) trivial-sockets + 2) acl-compat (which is a *lot* broader, but contains sockets too) +The first misses some functionality which is fundamental when +the requirements stop being 'trivial', such as finding out the +addresses of either side connected to the tcp/ip stream. + +The second, being a complete compatibility library for Allegro, +contains much more than only sockets. Next to that, as the docs +say, is it mainly directed at providing the functionality required +to port portable-allegroserve - meaning it may be (very) incomplete +on some platforms. + +So, that's why I decided to inherit Erik Enge's project to build +a library with the intention to provide portability code in only +1 area of programming, targeted at 'not so trivial' programming. + +Also, I need this library to extend cl-irc with full DCC functionality. + + Design goal =========== -To provide a portable socket interface for as many implementations as -possible, while keeping the portability layer as thin as possible. +To provide a portable TCP/IP socket interface for as many +implementations as possible, while keeping the portability layer +as thin as possible. + + + +Functional requirements +======================= + +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) + +Several relevant support functionalities will have to be provided too: + - long <-> quad-vector operators + - quad-vector <-> string operators + - hostname <-> quad-vector operators (hostname resolution) + Minimally, I'd like to support: - SBCL

1 0

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

28 Jan '06

Author: ehuelsmann Date: Sat Jan 28 14:11:02 2006 New Revision: 3 Modified: public_html/index.shtml Log: Correct link to the design document. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Jan 28 14:11:02 2006 @@ -14,7 +14,7 @@ </div> <p>This project has recently started. See <a -href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">the design +href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">the design document</a> for more information.</p> <p>Back to <a href="http://common-lisp.net/">Common-lisp.net</a>.</p>

1 0

[usocket-cvs] r2 - public_html usocket/trunk/doc
by ehuelsmann＠common-lisp.net 28 Jan '06

28 Jan '06

Author: ehuelsmann Date: Sat Jan 28 13:56:16 2006 New Revision: 2 Added: usocket/trunk/doc/design.txt Modified: public_html/index.shtml Log: Update documentation. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Jan 28 13:56:16 2006 @@ -13,8 +13,9 @@ <h1></h1> </div> - <p><em>This is an automatically generated placeholder page: this project - has not yet created a website.</em></p> + <p>This project has recently started. See <a +href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">the design +document</a> for more information.</p> <p>Back to <a href="http://common-lisp.net/">Common-lisp.net</a>.</p> Added: usocket/trunk/doc/design.txt ============================================================================== --- (empty file) +++ usocket/trunk/doc/design.txt Sat Jan 28 13:56:16 2006 @@ -0,0 +1,25 @@ + + -*- text -*- + + usocket: Universal sockets library + ================================== + +Contents +======== + + + +Design goal +=========== + +To provide a portable socket interface for as many implementations as +possible, while keeping the portability layer as thin as possible. + +Minimally, I'd like to support: + - SBCL + - CMUCL + - Allegro + - LispWorks + - ArmedBear (ABCL) + +

1 0

[usocket-cvs] r2 - public_html usocket/trunk/doc
by ehuelsmann＠common-lisp.net 28 Jan '06

28 Jan '06

1 0

[usocket-cvs] r2 - public_html usocket/trunk/doc
by ehuelsmann＠common-lisp.net 28 Jan '06

28 Jan '06

1 0

[usocket-cvs] r2 - public_html usocket/trunk/doc
by ehuelsmann＠common-lisp.net 28 Jan '06

28 Jan '06

1 0

[usocket-cvs] r2 - public_html usocket/trunk/doc
by ehuelsmann＠common-lisp.net 28 Jan '06

28 Jan '06

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