[s-xml-rpc-cvs] CVS update: s-xml-rpc/s-xml-rpc.asd s-xml-rpc/ChangeLog

[Rudi Schlatte]

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc
In directory common-lisp.net:/tmp/cvs-serv10345

Modified Files:
	s-xml-rpc.asd ChangeLog 
Log Message:

- Add extensions.lisp, for the various add-on specs floating around
  that cluttered xml-rpc.lisp

- New file test-extensions.lisp, for testing them

- Add support for symbols client-side (encode them as strings)

- Extension system.getCapabilities: implemented, spec at
  http://groups.yahoo.com/group/xml-rpc/message/2897

- Add passing of symbols (encode them as strings)- Use standard error codes (spec at
  http://xmlrpc-epi.sourceforge.net/specs/rfc.fault_codes.php), wonder
  about semantics of "internal xml-rpc error" vs "application error",
  pick one arbitrarily

Date: Thu Jun 17 12:43:11 2004
Author: rschlatte

Index: s-xml-rpc/s-xml-rpc.asd
diff -u s-xml-rpc/s-xml-rpc.asd:1.1.1.1 s-xml-rpc/s-xml-rpc.asd:1.2
--- s-xml-rpc/s-xml-rpc.asd:1.1.1.1	Wed Jun  9 02:02:39 2004
+++ s-xml-rpc/s-xml-rpc.asd	Thu Jun 17 12:43:11 2004
@@ -1,6 +1,6 @@
 ;;;; -*- Mode: LISP -*-
 ;;;;
-;;;; $Id: s-xml-rpc.asd,v 1.1.1.1 2004/06/09 09:02:39 scaekenberghe Exp $
+;;;; $Id: s-xml-rpc.asd,v 1.2 2004/06/17 19:43:11 rschlatte Exp $
 ;;;;
 ;;;; The S-XML-RPC ASDF system definition
 ;;;;
@@ -27,7 +27,8 @@
     :components ((:file "base64")
                  (:file "package" :depends-on ("base64"))
                  (:file "sysdeps" :depends-on ("package"))
-                 (:file "xml-rpc" :depends-on ("package" "sysdeps" "base64")))))
+                 (:file "xml-rpc" :depends-on ("package" "sysdeps" "base64"))
+                 (:file "extensions" :depends-on ("package" "xml-rpc")))))
   :depends-on (:s-xml #+sbcl :sb-bsd-sockets))
 
 ;;;; eof


Index: s-xml-rpc/ChangeLog
diff -u s-xml-rpc/ChangeLog:1.2 s-xml-rpc/ChangeLog:1.3
--- s-xml-rpc/ChangeLog:1.2	Sun Jun 13 09:12:04 2004
+++ s-xml-rpc/ChangeLog	Thu Jun 17 12:43:11 2004
@@ -1,3 +1,17 @@
+2004-06-17  Rudi Schlatte  <rudi at constantly.at>
+
+	* src/package.lisp: Add system.getCapabilities.
+
+	* src/extensions.lisp: Create, move server extensions from
+	xml-rpc.lisp here.
+	(do-one-multicall): Raise standard fault codes.
+	(|system.getCapabilities|): Implement.
+	
+	* src/xml-rpc.lisp: Remove server extensions.
+	(encode-xml-rpc-value): Encode symbols as strings
+	(execute-xml-rpc-call, handle-xml-rpc-call): Raise standard fault
+	codes.
+
 2004-06-13  Rudi Schlatte  <rudi at constantly.at>
 
 	* src/xml-rpc.lisp (xml-literal): new datatype for unescaped