- unetwork-cvs@common-lisp.net - mailman3.common-lisp.net

[Unetwork-cvs] CVS update: unetwork/src/base-clisp.lisp unetwork/src/unetwork.asd
by mvilleneuve＠common-lisp.net 03 Jan '05

03 Jan '05

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv7923 Modified Files: unetwork.asd Added Files: base-clisp.lisp Log Message: Added base file for CLISP (no function implemented at this point) Date: Mon Jan 3 22:42:26 2005 Author: mvilleneuve Index: unetwork/src/unetwork.asd diff -u unetwork/src/unetwork.asd:1.6 unetwork/src/unetwork.asd:1.7 --- unetwork/src/unetwork.asd:1.6 Mon Jan 3 22:37:55 2005 +++ unetwork/src/unetwork.asd Mon Jan 3 22:42:25 2005 @@ -23,6 +23,10 @@ (:file "document" :depends-on ("package" "utilities")) (:file "socket" :depends-on ("package" "utilities")))) +(defsystem unetwork-clisp + :depends-on (:unetwork-base) + :components ((:file "base-clisp"))) + (defsystem unetwork-cmu :depends-on (:unetwork-base) :components ((:file "base-cmu"))) @@ -33,7 +37,8 @@ (defsystem unetwork :name "unetwork" - :depends-on (#+cmu :unetwork-cmu + :depends-on (#+clisp :unetwork-clisp + #+cmu :unetwork-cmu #+sbcl :unetwork-sbcl) :components ((:file "url") (:file "uri-streams")

1 0

[Unetwork-cvs] CVS update: unetwork/src/unetwork.asd
by mvilleneuve＠common-lisp.net 03 Jan '05

03 Jan '05

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv7886 Modified Files: unetwork.asd Log Message: Fixed file dependencies Date: Mon Jan 3 22:37:55 2005 Author: mvilleneuve Index: unetwork/src/unetwork.asd diff -u unetwork/src/unetwork.asd:1.5 unetwork/src/unetwork.asd:1.6 --- unetwork/src/unetwork.asd:1.5 Mon Mar 29 16:17:35 2004 +++ unetwork/src/unetwork.asd Mon Jan 3 22:37:55 2005 @@ -18,10 +18,10 @@ (defsystem unetwork-base :depends-on (:puri) :components ((:file "package") - (:file "errors") - (:file "utilities") - (:file "document" :depends-on ("utilities")) - (:file "socket"))) + (:file "errors" :depends-on ("package")) + (:file "utilities" :depends-on ("package")) + (:file "document" :depends-on ("package" "utilities")) + (:file "socket" :depends-on ("package" "utilities")))) (defsystem unetwork-cmu :depends-on (:unetwork-base)

1 0

[Unetwork-cvs] CVS update: unetwork/src/nntp.lisp
by mvilleneuve＠common-lisp.net 03 Jan '05

03 Jan '05

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv7850 Modified Files: nntp.lisp Log Message: Fixed typo Date: Mon Jan 3 22:34:54 2005 Author: mvilleneuve Index: unetwork/src/nntp.lisp diff -u unetwork/src/nntp.lisp:1.3 unetwork/src/nntp.lisp:1.4 --- unetwork/src/nntp.lisp:1.3 Tue Mar 23 14:02:21 2004 +++ unetwork/src/nntp.lisp Mon Jan 3 22:34:54 2005 @@ -16,7 +16,7 @@ (defconstant +nntp-default-port+ 119)) (defun nntp-open-connection (server user password - &optional (port +nntp-default-port)) + &optional (port +nntp-default-port+)) "Open a connection to a NNTP server. Returns the connection socket." (let ((socket (open-socket server port :type :text))) (unless (null user)

1 0

[Unetwork-cvs] CVS update: unetwork/src/base-cmu.lisp
by Matthieu Villeneuve 19 Sep '04

19 Sep '04

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv15499 Modified Files: base-cmu.lisp Log Message: Unify interface wrt. stream types Date: Sun Sep 19 22:41:34 2004 Author: mvilleneuve Index: unetwork/src/base-cmu.lisp diff -u unetwork/src/base-cmu.lisp:1.3 unetwork/src/base-cmu.lisp:1.4 --- unetwork/src/base-cmu.lisp:1.3 Sun Sep 19 20:58:55 2004 +++ unetwork/src/base-cmu.lisp Sun Sep 19 22:41:34 2004 @@ -22,16 +22,15 @@ (defun open-socket (host port &key (type :text)) "Open a socket on specified host and port. Keyword argument TYPE can be either :TEXT or :BINARY (defaults to :TEXT)." - (handler-case - (let* ((sock (ext:connect-to-inet-socket host port)) - (stream (sys:make-fd-stream - sock - :input t :output t - :element-type (if (eq type :text) - 'base-char - '(unsigned-byte 8))))) - (make-instance 'socket :sock sock :stream stream)) - (simple-error () (error 'connection-error :host host)))) + (let ((type (translate-type type))) + (handler-case + (let* ((sock (ext:connect-to-inet-socket host port)) + (stream (sys:make-fd-stream + sock + :input t :output t + :element-type type))) + (make-instance 'socket :sock sock :stream stream)) + (simple-error () (error 'connection-error :host host))))) (defun close-socket (socket) "Close a socket." @@ -39,18 +38,24 @@ (defun open-server-socket (port) "Open a server socket on localhost on specified port." - (ext:create-inet-listener port)) + (ext:create-inet-listener port :stream :reuse-address t)) -(defun server-socket-accept (server-socket &key (type 'character) timeout) - "Accept a connection on a server socket. Return the -resulting socket." - (when (sys:wait-until-fd-usable server-socket :input timeout) - (let* ((sock (ext:accept-tcp-connection server-socket)) - (stream (sys:make-fd-stream sock - :input t :output t - :element-type type))) - (make-instance 'socket :sock sock :stream stream)))) +(defun server-socket-accept (server-socket &key (type :text) timeout) + "Accept a connection on a server socket. Return the resulting socket. +Keyword argument TYPE can be either :TEXT or :BINARY (defaults to :TEXT)." + (let ((type (translate-type type))) + (when (sys:wait-until-fd-usable server-socket :input timeout) + (let* ((sock (ext:accept-tcp-connection server-socket)) + (stream (sys:make-fd-stream sock + :input t :output t + :element-type type))) + (make-instance 'socket :sock sock :stream stream))))) (defun close-server-socket (server-socket) "Close a server socket." (unix:unix-close server-socket)) + +(defun translate-type (type) + (ecase type + (:text 'base-char) + (:binary '(unsigned-byte 8))))

1 0

[Unetwork-cvs] CVS update: unetwork/src/base-cmu.lisp
by Matthieu Villeneuve 19 Sep '04

19 Sep '04

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv16125 Modified Files: base-cmu.lisp Log Message: Allow specifying stream element-type in server-socket-accept Date: Sun Sep 19 20:58:56 2004 Author: mvilleneuve Index: unetwork/src/base-cmu.lisp diff -u unetwork/src/base-cmu.lisp:1.2 unetwork/src/base-cmu.lisp:1.3 --- unetwork/src/base-cmu.lisp:1.2 Tue Mar 23 14:02:21 2004 +++ unetwork/src/base-cmu.lisp Sun Sep 19 20:58:55 2004 @@ -41,14 +41,14 @@ "Open a server socket on localhost on specified port." (ext:create-inet-listener port)) -(defun server-socket-accept (server-socket &key timeout) +(defun server-socket-accept (server-socket &key (type 'character) timeout) "Accept a connection on a server socket. Return the resulting socket." (when (sys:wait-until-fd-usable server-socket :input timeout) (let* ((sock (ext:accept-tcp-connection server-socket)) (stream (sys:make-fd-stream sock :input t :output t - :element-type '(unsigned-byte 8)))) + :element-type type))) (make-instance 'socket :sock sock :stream stream)))) (defun close-server-socket (server-socket)

1 0

[Unetwork-cvs] CVS update: unetwork/src/unetwork.asd
by Matthieu Villeneuve 29 Mar '04

29 Mar '04

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv11520/src Modified Files: unetwork.asd Log Message: Fix dependency on puri Date: Mon Mar 29 09:17:35 2004 Author: mvilleneuve Index: unetwork/src/unetwork.asd diff -u unetwork/src/unetwork.asd:1.4 unetwork/src/unetwork.asd:1.5 --- unetwork/src/unetwork.asd:1.4 Tue Mar 23 08:02:21 2004 +++ unetwork/src/unetwork.asd Mon Mar 29 09:17:35 2004 @@ -16,6 +16,7 @@ (in-package #:unetwork-system) (defsystem unetwork-base + :depends-on (:puri) :components ((:file "package") (:file "errors") (:file "utilities") @@ -32,8 +33,7 @@ (defsystem unetwork :name "unetwork" - :depends-on (:puri - #+cmu :unetwork-cmu + :depends-on (#+cmu :unetwork-cmu #+sbcl :unetwork-sbcl) :components ((:file "url") (:file "uri-streams")

1 0

[Unetwork-cvs] CVS update: unetwork/src/http.lisp
by Matthieu Villeneuve 26 Mar '04

26 Mar '04

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv19221/src Modified Files: http.lisp Log Message: Always pass the server name in the HTTP headers Date: Fri Mar 26 05:51:52 2004 Author: mvilleneuve Index: unetwork/src/http.lisp diff -u unetwork/src/http.lisp:1.4 unetwork/src/http.lisp:1.5 --- unetwork/src/http.lisp:1.4 Wed Mar 24 06:32:25 2004 +++ unetwork/src/http.lisp Fri Mar 26 05:51:52 2004 @@ -42,6 +42,7 @@ method (or (uri-path uri) +http-default-path+) (uri-query uri)) + (format stream "Host: ~A~%" (uri-host uri)) (loop for header in request-headers do (format stream "~A: ~A~%" (car header) (cdr header))) (format stream "~%")

1 0

[Unetwork-cvs] CVS update: unetwork/README
by Matthieu Villeneuve 24 Mar '04

24 Mar '04

Update of /project/unetwork/cvsroot/unetwork In directory common-lisp.net:/tmp/cvs-serv15263 Modified Files: README Log Message: Reflect recent changes Date: Wed Mar 24 06:33:19 2004 Author: mvilleneuve Index: unetwork/README diff -u unetwork/README:1.3 unetwork/README:1.4 --- unetwork/README:1.3 Fri Mar 12 10:00:58 2004 +++ unetwork/README Wed Mar 24 06:33:19 2004 @@ -37,14 +37,14 @@ - HTTP - (multiple-value-bind (response-code document) + (multiple-value-bind (document response-code) (http-get "http://www.common-lisp.net") (print (cdr (assoc :content-type (document-properties document)))) (print (document-text document))) - HTTP with URL-streams - (with-url-input-stream (stream "http://www.common-lisp.net") + (with-uri-input-stream (stream "http://www.common-lisp.net") (loop as line = (read-line stream nil nil) until (null line) do (format t "Line: ~A~%" line)))

1 0

[Unetwork-cvs] CVS update: unetwork/src/http.lisp
by Matthieu Villeneuve 24 Mar '04

24 Mar '04

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv13568 Modified Files: http.lisp Log Message: Fixed value order for HTTP-GET Date: Wed Mar 24 06:32:26 2004 Author: mvilleneuve Index: unetwork/src/http.lisp diff -u unetwork/src/http.lisp:1.3 unetwork/src/http.lisp:1.4 --- unetwork/src/http.lisp:1.3 Tue Mar 23 08:02:21 2004 +++ unetwork/src/http.lisp Wed Mar 24 06:32:25 2004 @@ -20,8 +20,8 @@ (defgeneric http-get (uri) (:documentation "Get a resource designated by an URI. Returns two -values: the request response code as an integer, and the resource as -an instance of the DOCUMENT class.")) +values: the resource as an instance of the DOCUMENT class, and +the request response code as an integer.")) (defmethod http-get ((uri string)) (http-get (parse-uri uri))) @@ -55,10 +55,10 @@ (http-open-connection uri method :request-headers request-headers) (unwind-protect (let ((content (http-read-content socket))) - (values response-code - (make-instance 'document + (values (make-instance 'document :text content - :properties properties))) + :properties properties) + response-code)) (close-socket socket)))) (defun http-read-response (socket) @@ -96,11 +96,3 @@ (defmethod close-connection ((connection http-connection)) (close-socket (connection-socket connection))) - -#| -(register-uri-input-stream-handler :http - (lambda (uri) - (http-open-connection uri "GET")) - (lambda (socket) - (socket-close socket))) -|# \ No newline at end of file

1 0

[Unetwork-cvs] CVS update: unetwork/src/package.lisp
by Matthieu Villeneuve 24 Mar '04

24 Mar '04

Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv27841 Modified Files: package.lisp Log Message: Removed undefined function Date: Wed Mar 24 06:30:05 2004 Author: mvilleneuve Index: unetwork/src/package.lisp diff -u unetwork/src/package.lisp:1.3 unetwork/src/package.lisp:1.4 --- unetwork/src/package.lisp:1.3 Tue Mar 23 08:02:21 2004 +++ unetwork/src/package.lisp Wed Mar 24 06:30:01 2004 @@ -61,7 +61,6 @@ #:+http-default-port+ #:http-ensure-url-port-path #:http-get - #:http-head #:+pop3-default-port+ #:pop3-open-connection

1 0