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

[s-xml-rpc-cvs] CVS s-xml-rpc/test
by scaekenberghe 15 Feb '08

15 Feb '08

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/test In directory clnet:/tmp/cvs-serv13386/test Modified Files: test-xml-rpc.lisp Log Message: fixed a bug reported by Evgeniy Zamriy: <boolean>0</boolean> was decoded incorrectly as an empty string instead of as nil fixed second clause in :|value| handling testing (null seed) instead of (null (car seed)) added more decoding tests to cope with regression, seems ok --- /project/s-xml-rpc/cvsroot/s-xml-rpc/test/test-xml-rpc.lisp 2006/04/19 10:22:31 1.3 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/test/test-xml-rpc.lisp 2008/02/15 15:42:40 1.4 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-xml-rpc.lisp,v 1.3 2006/04/19 10:22:31 scaekenberghe Exp $ +;;;; $Id: test-xml-rpc.lisp,v 1.4 2008/02/15 15:42:40 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for xml-rpc.lisp ;;;; @@ -112,7 +112,7 @@ " fgo " -31 "" - -12.214 + -12.214D0 ,(xml-rpc-time (iso8601->universal-time "19980717T14:08:55")) #(121 111 117 32 99 97 110 39 116 32 114 101 97 100 32 116 104 105 115 33))))) @@ -134,6 +134,26 @@ </array>")) '("XYZ"))) +;; double decoding + +(assert (< (abs (- (decode-xml-rpc (make-string-input-stream "<value><double>3.141592653589793</double></value>")) + pi)) + 0.000000000001D0)) + +;; string decoding + +(assert (equal (decode-xml-rpc (make-string-input-stream "<value><string>foo</string></value>")) + "foo")) + +(assert (equal (decode-xml-rpc (make-string-input-stream "<value>foo</value>")) + "foo")) + +(assert (equal (decode-xml-rpc (make-string-input-stream "<value><string></string></value>")) + "")) + +(assert (equal (decode-xml-rpc (make-string-input-stream "<value></value>")) + "")) + ;; boolean encoding (assert (equal (with-output-to-string (out) @@ -144,4 +164,13 @@ (encode-xml-rpc-value nil out)) "<value><boolean>0</boolean></value>")) + +;; boolean decoding + +(assert (equal (decode-xml-rpc (make-string-input-stream "<value><boolean>1</boolean></value>")) + t)) + +(assert (equal (decode-xml-rpc (make-string-input-stream "<value><boolean>0</boolean></value>")) + nil)) + ;;;; eof

1 0

[s-xml-rpc-cvs] CVS s-xml-rpc/src
by scaekenberghe 15 Feb '08

15 Feb '08

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory clnet:/tmp/cvs-serv13386/src Modified Files: xml-rpc.lisp Log Message: fixed a bug reported by Evgeniy Zamriy: <boolean>0</boolean> was decoded incorrectly as an empty string instead of as nil fixed second clause in :|value| handling testing (null seed) instead of (null (car seed)) added more decoding tests to cope with regression, seems ok --- /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp 2008/02/15 15:11:00 1.10 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp 2008/02/15 15:42:40 1.11 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $ +;;;; $Id: xml-rpc.lisp,v 1.11 2008/02/15 15:42:40 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -297,7 +297,7 @@ (:|array| (car seed)) (:|data| (unless (stringp seed) (nreverse seed))) (:|value| (cond ((stringp seed) seed) - ((null (car seed)) "") + ((null seed) "") (t (car seed)))) (:|struct| (make-xml-rpc-struct :alist seed)) (:|member| (cons (cadr seed) (car seed))) @@ -524,7 +524,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $" + "$Id: xml-rpc.lisp,v 1.11 2008/02/15 15:42:40 scaekenberghe Exp $" " " (lisp-implementation-type) " "

1 0

[s-xml-rpc-cvs] CVS s-xml-rpc/src
by scaekenberghe 15 Feb '08

15 Feb '08

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory clnet:/tmp/cvs-serv6331/src Modified Files: xml-rpc.lisp Log Message: patch by jeff sapp: parse doubles as cl double-floats --- /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp 2006/04/19 10:22:30 1.9 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp 2008/02/15 15:11:00 1.10 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.9 2006/04/19 10:22:30 scaekenberghe Exp $ +;;;; $Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -284,7 +284,8 @@ (declare (ignore attributes)) (cons (case name ((:|int| :|i4|) (parse-integer seed)) - (:|double| (let ((*read-eval* nil)) + (:|double| (let ((*read-eval* nil) + (*read-default-float-format* 'double-float)) (read-from-string seed))) (:|boolean| (= 1 (parse-integer seed))) (:|string| (if (null seed) "" seed)) @@ -523,7 +524,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.9 2006/04/19 10:22:30 scaekenberghe Exp $" + "$Id: xml-rpc.lisp,v 1.10 2008/02/15 15:11:00 scaekenberghe Exp $" " " (lisp-implementation-type) " "

1 0

[s-xml-rpc-cvs] CVS s-xml-rpc/test
by scaekenberghe 19 Apr '06

19 Apr '06

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/test In directory clnet:/tmp/cvs-serv18313/test Modified Files: test-extensions.lisp test-xml-rpc.lisp Log Message: * changes due to reporting and initial fixes by Alain Picard * added support for whitespace handling * iso8601->universal-time now accepts leading & trailing whitespace * encode-xml-rpc-value now encodes t and nil correctly as boolean 1 and 0 * parsing doubles (using read-from-string) with reader macros disabled for security * decode-xml-rpc now handles whitespace more correctly in <data> and <value> tags * added several test cases and fixed older stop-server problem --- /project/s-xml-rpc/cvsroot/s-xml-rpc/test/test-extensions.lisp 2004/06/17 19:43:11 1.1 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/test/test-extensions.lisp 2006/04/19 10:22:31 1.2 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-extensions.lisp,v 1.1 2004/06/17 19:43:11 rschlatte Exp $ +;;;; $Id: test-extensions.lisp,v 1.2 2006/04/19 10:22:31 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for xml-rpc.lisp ;;;; @@ -13,7 +13,7 @@ (in-package :s-xml-rpc) (let* ((server-port 8080) - (server-process-name (start-xml-rpc-server :port server-port)) + (server-process (start-xml-rpc-server :port server-port)) (server-args `(:port ,server-port)) (*xml-rpc-package* (make-package (gensym))) (symbols '(|system.listMethods| |system.methodSignature| @@ -47,7 +47,7 @@ "system.methodHelp" "params" (list "system.multicall")))))))) - (stop-server server-process-name) + (s-sysdeps:kill-process server-process) (delete-package *xml-rpc-package*))) ;;;; eof \ No newline at end of file --- /project/s-xml-rpc/cvsroot/s-xml-rpc/test/test-xml-rpc.lisp 2005/02/11 11:04:45 1.2 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/test/test-xml-rpc.lisp 2006/04/19 10:22:31 1.3 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-xml-rpc.lisp,v 1.2 2005/02/11 11:04:45 scaekenberghe Exp $ +;;;; $Id: test-xml-rpc.lisp,v 1.3 2006/04/19 10:22:31 scaekenberghe Exp $ ;;;; ;;;; Unit and functional tests for xml-rpc.lisp ;;;; @@ -48,13 +48,13 @@ #-clisp (assert - (let ((server-process-name (start-xml-rpc-server :port 8080))) + (let ((server-process (start-xml-rpc-server :port 8080))) (import 's-xml-rpc::xml-rpc-implementation-version :s-xml-rpc-exports) (sleep 1) ; give the server some time to come up ;-) (unwind-protect (equal (xml-rpc-call (encode-xml-rpc-call "XML-RPC-IMPLEMENTATION-VERSION") :port 8080) (xml-rpc-implementation-version)) - (stop-server server-process-name) + (s-sysdeps:kill-process server-process) (unintern 's-xml-rpc::xml-rpc-implementation-version :s-xml-rpc-exports)))) (assert @@ -64,5 +64,84 @@ (struct-out (with-input-from-string (in xml) (decode-xml-rpc in)))) (xml-rpc-struct-equal struct-in struct-out))) - -;;;; eof \ No newline at end of file + +;; testing whitespace handling + +(assert (null (decode-xml-rpc (make-string-input-stream +"<array> + <data> + </data> +</array>")))) + +(assert (equalp (decode-xml-rpc (make-string-input-stream +"<params> + <param> + <value> + foo + </value> + </param> + <param> + <value> + <array> + <data> + <value><i4>12</i4></value> + <value><string>Egypt</string></value> + <value><boolean>1</boolean></value> + <value> <string> </string> </value> + <value> </value> + <value> fgo </value> + <value><i4>-31</i4></value> + <value></value> + <double> -12.214 </double> + <dateTime.iso8601> + 19980717T14:08:55 </dateTime.iso8601> + <base64>eW91IGNhbid0IHJlYWQgdGhpcyE=</base64> + </data> + </array> + </value> + </param> +</params>")) +`(" + foo + " + (12 + "Egypt" + T + " " + " " + " fgo " + -31 + "" + -12.214 + ,(xml-rpc-time (iso8601->universal-time "19980717T14:08:55")) + #(121 111 117 32 99 97 110 39 116 32 114 101 97 100 32 116 104 105 115 33))))) + +(assert (equalp (decode-xml-rpc (make-string-input-stream +"<array> + <data> + <value></value> + </data> +</array>")) +'(""))) + +(assert (equalp (decode-xml-rpc (make-string-input-stream +"<array> + <data> + <value> + <string>XYZ</string> + </value> + </data> +</array>")) +'("XYZ"))) + +;; boolean encoding + +(assert (equal (with-output-to-string (out) + (encode-xml-rpc-value t out)) + "<value><boolean>1</boolean></value>")) + +(assert (equal (with-output-to-string (out) + (encode-xml-rpc-value nil out)) + "<value><boolean>0</boolean></value>")) + +;;;; eof

1 0

[s-xml-rpc-cvs] CVS s-xml-rpc/src
by scaekenberghe 19 Apr '06

19 Apr '06

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory clnet:/tmp/cvs-serv18313/src Modified Files: xml-rpc.lisp Log Message: * changes due to reporting and initial fixes by Alain Picard * added support for whitespace handling * iso8601->universal-time now accepts leading & trailing whitespace * encode-xml-rpc-value now encodes t and nil correctly as boolean 1 and 0 * parsing doubles (using read-from-string) with reader macros disabled for security * decode-xml-rpc now handles whitespace more correctly in <data> and <value> tags * added several test cases and fixed older stop-server problem --- /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp 2006/01/09 19:33:47 1.8 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/src/xml-rpc.lisp 2006/04/19 10:22:30 1.9 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.8 2006/01/09 19:33:47 scaekenberghe Exp $ +;;;; $Id: xml-rpc.lisp,v 1.9 2006/04/19 10:22:30 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -49,6 +49,20 @@ (documentation 'xml-rpc-error-data 'function) "Get the data from an XML-RPC error") +;;; whitespace handling support + +(defparameter +whitespace-characters+ + '(#\Tab #\Space #\Page #\Return #\Newline #\Linefeed) + "The list of characters that we consider as whitespace") + +(defun whitespace-char? (char) + "Return t when char is considered whitespace" + (member char +whitespace-characters+ :test #'char=)) + +(defun whitespace-string? (str) + "Return t when str consists of nothing but whitespace characters" + (every #'whitespace-char? str)) + ;;; iso8601 support (the xml-rpc variant) (defun universal-time->iso8601 (time &optional (stream nil)) @@ -67,6 +81,7 @@ (defun iso8601->universal-time (string) "Convert string in the XML-RPC variant of ISO8601 to a Common Lisp universal time" (let (year month date (hour 0) (minute 0) (second 0)) + (setf string (string-trim +whitespace-characters+ string)) (when (< (length string) 9) (error "~s is to short to represent an iso8601" string)) (setf year (parse-integer string :start 0 :end 4) @@ -188,16 +203,16 @@ (defun encode-xml-rpc-value (arg stream) (write-string "<value>" stream) - (cond ((or (stringp arg) (symbolp arg)) + (cond ((or (null arg) (eql arg t)) + (write-string "<boolean>" stream) + (write-string (if arg "1" "0") stream) + (write-string "</boolean>" stream)) + ((or (stringp arg) (symbolp arg)) (write-string "<string>" stream) (print-string-xml (string arg) stream) (write-string "</string>" stream)) ((integerp arg) (format stream "<int>~d</int>" arg)) ((floatp arg) (format stream "<double>~f</double>" arg)) - ((or (null arg) (eql arg t)) - (write-string "<boolean>" stream) - (write-string (if arg "1" "0") stream) - (write-string "</boolean>" stream)) ((and (arrayp arg) (= (array-rank arg) 1) (subtypep (array-element-type arg) @@ -269,7 +284,8 @@ (declare (ignore attributes)) (cons (case name ((:|int| :|i4|) (parse-integer seed)) - (:|double| (read-from-string seed)) + (:|double| (let ((*read-eval* nil)) + (read-from-string seed))) (:|boolean| (= 1 (parse-integer seed))) (:|string| (if (null seed) "" seed)) (:|dateTime.iso8601| (xml-rpc-time (iso8601->universal-time seed))) @@ -278,8 +294,10 @@ (with-input-from-string (in seed) (decode-base64-bytes in)))) (:|array| (car seed)) - (:|data| (nreverse seed)) - (:|value| (if (stringp seed) seed (car seed))) + (:|data| (unless (stringp seed) (nreverse seed))) + (:|value| (cond ((stringp seed) seed) + ((null (car seed)) "") + (t (car seed)))) (:|struct| (make-xml-rpc-struct :alist seed)) (:|member| (cons (cadr seed) (car seed))) (:|name| (intern seed :keyword)) @@ -505,7 +523,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.8 2006/01/09 19:33:47 scaekenberghe Exp $" + "$Id: xml-rpc.lisp,v 1.9 2006/04/19 10:22:30 scaekenberghe Exp $" " " (lisp-implementation-type) " "

1 0

[s-xml-rpc-cvs] CVS s-xml-rpc
by scaekenberghe 19 Apr '06

19 Apr '06

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc In directory clnet:/tmp/cvs-serv18313 Modified Files: ChangeLog Log Message: * changes due to reporting and initial fixes by Alain Picard * added support for whitespace handling * iso8601->universal-time now accepts leading & trailing whitespace * encode-xml-rpc-value now encodes t and nil correctly as boolean 1 and 0 * parsing doubles (using read-from-string) with reader macros disabled for security * decode-xml-rpc now handles whitespace more correctly in <data> and <value> tags * added several test cases and fixed older stop-server problem --- /project/s-xml-rpc/cvsroot/s-xml-rpc/ChangeLog 2005/02/11 11:04:26 1.5 +++ /project/s-xml-rpc/cvsroot/s-xml-rpc/ChangeLog 2006/04/19 10:22:30 1.6 @@ -1,4 +1,14 @@ -2005-02-11 Sven Van Caekenberghe <svc(a)mac.com> +2006-04-19 Sven Van Caekenberghe <svc(a)mac.com> + + * changes due to reporting and initial fixes by Alain Picard + * added support for whitespace handling + * iso8601->universal-time now accepts leading & trailing whitespace + * encode-xml-rpc-value now encodes t and nil correctly as boolean 1 and 0 + * parsing doubles (using read-from-string) with reader macros disabled for security + * decode-xml-rpc now handles whitespace more correctly in <data> and <value> tags + * added several test cases and fixed older stop-server problem + +2005-02-11 * ported to clisp 2.32 (sysdeps) * changed end-of-header test to accept empty lines as well

1 0

[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

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/xml-rpc.lisp
by scaekenberghe＠common-lisp.net 21 Dec '05

21 Dec '05

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/tmp/cvs-serv2966/src Modified Files: xml-rpc.lisp Log Message: more correct boolean handling Date: Wed Dec 21 16:27:59 2005 Author: scaekenberghe Index: s-xml-rpc/src/xml-rpc.lisp diff -u s-xml-rpc/src/xml-rpc.lisp:1.6 s-xml-rpc/src/xml-rpc.lisp:1.7 --- s-xml-rpc/src/xml-rpc.lisp:1.6 Fri Feb 11 12:04:31 2005 +++ s-xml-rpc/src/xml-rpc.lisp Wed Dec 21 16:27:59 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: xml-rpc.lisp,v 1.6 2005/02/11 11:04:31 scaekenberghe Exp $ +;;;; $Id: xml-rpc.lisp,v 1.7 2005/12/21 15:27:59 scaekenberghe Exp $ ;;;; ;;;; This is a Common Lisp implementation of the XML-RPC protocol, ;;;; as documented on the website http://www.xmlrpc.com @@ -194,9 +194,9 @@ (write-string "</string>" stream)) ((integerp arg) (format stream "<int>~d</int>" arg)) ((floatp arg) (format stream "<double>~f</double>" arg)) - ((or (null arg) (eq arg t)) + ((or (null arg) (eql arg t)) (write-string "<boolean>" stream) - (write-string (if arg 1 0) stream) + (write-string (if arg "1" "0") stream) (write-string "</boolean>" stream)) ((and (arrayp arg) (= (array-rank arg) 1) @@ -505,7 +505,7 @@ (defun xml-rpc-implementation-version () "Identify ourselves" (concatenate 'string - "$Id: xml-rpc.lisp,v 1.6 2005/02/11 11:04:31 scaekenberghe Exp $" + "$Id: xml-rpc.lisp,v 1.7 2005/12/21 15:27:59 scaekenberghe Exp $" " " (lisp-implementation-type) " "

1 0

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/sysdeps.lisp
by scaekenberghe＠common-lisp.net 21 Dec '05

21 Dec '05

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/tmp/cvs-serv2943/src Modified Files: sysdeps.lisp Log Message: added an ignore declaration Date: Wed Dec 21 16:27:15 2005 Author: scaekenberghe Index: s-xml-rpc/src/sysdeps.lisp diff -u s-xml-rpc/src/sysdeps.lisp:1.5 s-xml-rpc/src/sysdeps.lisp:1.6 --- s-xml-rpc/src/sysdeps.lisp:1.5 Fri Feb 11 12:04:31 2005 +++ s-xml-rpc/src/sysdeps.lisp Wed Dec 21 16:27:15 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: sysdeps.lisp,v 1.5 2005/02/11 11:04:31 scaekenberghe Exp $ +;;;; $Id: sysdeps.lisp,v 1.6 2005/12/21 15:27:15 scaekenberghe Exp $ ;;;; ;;;; These are the system dependent part of S-XML-RPC. ;;;; Ports to OpenMCL, LispWorks and SBCL are provided. @@ -171,6 +171,7 @@ (progn (destructuring-bind (name socket handler) (assoc name *server-processes* :test #'string=) + (declare (ignore name)) (sb-sys:remove-fd-handler handler) (sb-bsd-sockets:socket-close socket)) (setf *server-processes* (delete name *server-processes*

1 0