[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

[Sven Van Caekenberghe]

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