s-xml-rpc-cvs

Download

s-xml-rpc-cvs@common-lisp.net

January 2006

1 participants
2 discussions

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/xml-rpc.lisp s-xml-rpc/src/base64.lisp s-xml-rpc/src/sysdeps.lisp
by scaekenberghe＠common-lisp.net 09 Jan '06

09 Jan '06

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/tmp/cvs-serv21930/src Modified Files: xml-rpc.lisp Removed Files: base64.lisp sysdeps.lisp Log Message: now using S-BASE64 and S-SYSDEPS packages instead of the local files Date: Mon Jan 9 20:33:48 2006 Author: scaekenberghe Index: s-xml-rpc/src/xml-rpc.lisp diff -u s-xml-rpc/src/xml-rpc.lisp:1.7 s-xml-rpc/src/xml-rpc.lisp:1.8 --- s-xml-rpc/src/xml-rpc.lisp:1.7 Wed Dec 21 16:27:59 2005 +++ s-xml-rpc/src/xml-rpc.lisp Mon Jan 9 20:33:47 2006 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.7 2005/12/21 15:27:59 scaekenberghe Exp $ +;;;; $Id: xml-rpc.lisp,v 1.8 2006/01/09 19:33:47 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -383,8 +383,8 @@ (proxy-port *xml-rpc-proxy-port*)) "Execute an already encoded XML-RPC call and return the decoded result" (let ((uri (if proxy-host (format nil "http://~a:~d~a" host port url) url))) - (with-open-socket-stream (connection (if proxy-host proxy-host host) - (if proxy-port proxy-port port)) + (with-open-stream (connection (s-sysdeps:open-socket-stream (if proxy-host proxy-host host) + (if proxy-port proxy-port port))) (format-debug (or *xml-rpc-debug-stream* t) "POST ~a HTTP/1.0~%Host: ~a:~d~%" uri host port) (format-header connection `(("POST ~a HTTP/1.0" ,uri) ("User-Agent: ~a" ,agent) @@ -505,7 +505,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.7 2005/12/21 15:27:59 scaekenberghe Exp $" + "$Id: xml-rpc.lisp,v 1.8 2006/01/09 19:33:47 scaekenberghe Exp $" " " (lisp-implementation-type) " " @@ -551,17 +551,17 @@ (defun start-xml-rpc-server (&key (port *xml-rpc-port*) (url *xml-rpc-url*) (agent *xml-rpc-agent*)) "Start an XML-RPC server in a separate process" - (start-standard-server + (s-sysdeps:start-standard-server :name (format nil "xml-rpc server ~a:~d" url port) :port port :connection-handler #'(lambda (client-stream) (let ((id (incf *counter*))) (format-debug (or *xml-rpc-debug-stream* t) "spawned connection handler ~d~%" id) - (run-process (format nil "xml-rpc-server-connection-handler-~d" id) - #'xml-rpc-server-connection-handler - client-stream - id - agent - url))))) + (s-sysdeps:run-process (format nil "xml-rpc-server-connection-handler-~d" id) + #'xml-rpc-server-connection-handler + client-stream + id + agent + url))))) ;;;; eof

1 0

[s-xml-rpc-cvs] CVS update: s-xml-rpc/s-xml-rpc.asd
by scaekenberghe＠common-lisp.net 09 Jan '06

09 Jan '06

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc In directory common-lisp.net:/tmp/cvs-serv21930 Modified Files: s-xml-rpc.asd Log Message: now using S-BASE64 and S-SYSDEPS packages instead of the local files Date: Mon Jan 9 20:33:47 2006 Author: scaekenberghe Index: s-xml-rpc/s-xml-rpc.asd diff -u s-xml-rpc/s-xml-rpc.asd:1.2 s-xml-rpc/s-xml-rpc.asd:1.3 --- s-xml-rpc/s-xml-rpc.asd:1.2 Thu Jun 17 21:43:11 2004 +++ s-xml-rpc/s-xml-rpc.asd Mon Jan 9 20:33:47 2006 @@ -1,6 +1,6 @@ ;;;; -*- Mode: LISP -*- ;;;; -;;;; $Id: s-xml-rpc.asd,v 1.2 2004/06/17 19:43:11 rschlatte Exp $ +;;;; $Id: s-xml-rpc.asd,v 1.3 2006/01/09 19:33:47 scaekenberghe Exp $ ;;;; ;;;; The S-XML-RPC ASDF system definition ;;;; @@ -24,11 +24,9 @@ :components ((:module :src - :components ((:file "base64") - (:file "package" :depends-on ("base64")) - (:file "sysdeps" :depends-on ("package")) - (:file "xml-rpc" :depends-on ("package" "sysdeps" "base64")) + :components ((:file "package") + (:file "xml-rpc" :depends-on ("package")) (:file "extensions" :depends-on ("package" "xml-rpc"))))) - :depends-on (:s-xml #+sbcl :sb-bsd-sockets)) + :depends-on (:s-xml :s-sysdeps :s-base64)) ;;;; eof

1 0