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

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/sysdeps.lisp
by Brian Mastenbrook 13 Jul '04

13 Jul '04

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/home/bmastenbrook/s-xml-rpc/src Modified Files: sysdeps.lisp Log Message: ACL port from Ian Eslick <eslick(a)csail.mit.edu> Date: Tue Jul 13 06:26:43 2004 Author: bmastenbrook Index: s-xml-rpc/src/sysdeps.lisp diff -u s-xml-rpc/src/sysdeps.lisp:1.1.1.1 s-xml-rpc/src/sysdeps.lisp:1.2 --- s-xml-rpc/src/sysdeps.lisp:1.1.1.1 Wed Jun 9 02:02:39 2004 +++ s-xml-rpc/src/sysdeps.lisp Tue Jul 13 06:26:42 2004 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: sysdeps.lisp,v 1.1.1.1 2004/06/09 09:02:39 scaekenberghe Exp $ +;;;; $Id: sysdeps.lisp,v 1.2 2004/07/13 13:26:42 bmastenbrook Exp $ ;;;; ;;;; These are the system dependent part of S-XML-RPC. ;;;; Ports to OpenMCL, LispWorks and SBCL are provided. @@ -23,6 +23,13 @@ #+lispworks `(with-open-stream (,var (comm:open-tcp-stream ,host ,port)) ,@body) + #+allegro + `(let ((,var (acl-socket:make-socket + :remote-host ,host + :remote-port ,port + :type :stream + :address-family :internet))) + (unwind-protect (progn ,@body))) #+sbcl (let ((socket-object (gensym))) `(let ((,socket-object (make-instance 'sb-bsd-sockets:inet-socket @@ -44,6 +51,7 @@ "Create and run a new process with name, executing function on arguments" #+lispworks (apply #'mp:process-run-function name '(:priority 3) function arguments) #+openmcl (apply #'ccl:process-run-function name function arguments) + #+allegro (apply #'mp:process-run-function name function arguments) #+sbcl (apply function arguments)) (defvar *server-processes* nil) @@ -73,6 +81,14 @@ (let ((client-stream (ccl:accept-connection server-socket))) (funcall connection-handler client-stream))) (close server-socket))))) + #+allegro (mp:process-run-function + name + #'(lambda () + (let ((server-socket (acl-socket:make-socket :connect :passive :local-port port))) + (unwind-protect + (loop + (let ((client-stream (acl-socket:accept-connection server-socket))) + (funcall connection-handler client-stream))))))) #+sbcl (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) @@ -106,6 +122,10 @@ :key #'ccl:process-name :test #'string-equal))) (when server-process (ccl:process-kill server-process))) + #+allegro + (let ((server-process (find name sys:*all-processes* :test #'string-equal :key #'mp:process-name))) + (when server-process + (mp:process-kill server-process))) #+sbcl (progn (destructuring-bind (name socket handler)

1 0

[s-xml-rpc-cvs] CVS update: s-xml-rpc/src/define-xmlrpc-method.lisp
by Sven Van Caekenberghe 08 Jul '04

08 Jul '04

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc/src In directory common-lisp.net:/tmp/cvs-serv3170/src Added Files: define-xmlrpc-method.lisp Log Message: some code contributed by Frederic Brunel Date: Thu Jul 8 12:45:25 2004 Author: scaekenberghe

1 0

[s-xml-rpc-cvs] CVS update: s-xml-rpc/Makefile
by Sven Van Caekenberghe 08 Jul '04

08 Jul '04

Update of /project/s-xml-rpc/cvsroot/s-xml-rpc In directory common-lisp.net:/tmp/cvs-serv6703 Modified Files: Makefile Log Message: now using newer version of release target Date: Thu Jul 8 12:37:27 2004 Author: scaekenberghe Index: s-xml-rpc/Makefile diff -u s-xml-rpc/Makefile:1.2 s-xml-rpc/Makefile:1.3 --- s-xml-rpc/Makefile:1.2 Mon Jun 14 13:24:37 2004 +++ s-xml-rpc/Makefile Thu Jul 8 12:37:27 2004 @@ -20,10 +20,14 @@ # This can obviously only be done by a specific person in a very specific context ;-) # +PRJ=s-xml-rpc +ACCOUNT=scaekenberghe +CVSRT=:ext:$(ACCOUNT)@common-lisp.net:/project/$(PRJ)/cvsroot + release: - rm -rf /tmp/s-xml-rpc /tmp/public_html /tmp/s-xml-rpc.tgz /tmp/s-xml-rpc.tgz.asc - cd /tmp; cvs export -r HEAD s-xml-rpc; cvs export -r HEAD public_html - mv /tmp/public_html /tmp/s-xml-rpc/doc - cd /tmp; gnutar cvfz s-xml-rpc.tgz s-xml-rpc; gpg -a -b s-xml-rpc.tgz - scp /tmp/s-xml-rpc.tgz scaekenberghe@common-lisp.net:/project/s-xml-rpc/public_html - scp /tmp/s-xml-rpc.tgz.asc scaekenberghe@common-lisp.net:/project/s-xml-rpc/public_html + rm -rf /tmp/$(PRJ) /tmp/public_html /tmp/$(PRJ).tgz /tmp/$(PRJ).tgz.asc + cd /tmp; cvs -d$(CVSRT) export -r HEAD $(PRJ); cvs -d$(CVSRT) export -r HEAD public_html + mv /tmp/public_html /tmp/$(PRJ)/doc + cd /tmp; gnutar cvfz $(PRJ).tgz $(PRJ); gpg -a -b $(PRJ).tgz + scp /tmp/$(PRJ).tgz $(ACCOUNT)@common-lisp.net:/project/$(PRJ)/public_html + scp /tmp/$(PRJ).tgz.asc $(ACCOUNT)@common-lisp.net:/project/$(PRJ)/public_html

1 0

[s-xml-rpc-cvs] CVS update: public_html/index.html
by Sven Van Caekenberghe 08 Jul '04

08 Jul '04

Update of /project/s-xml-rpc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv2257 Modified Files: index.html Log Message: added some personal info Date: Thu Jul 8 12:36:53 2004 Author: scaekenberghe Index: public_html/index.html diff -u public_html/index.html:1.3 public_html/index.html:1.4 --- public_html/index.html:1.3 Mon Jun 14 13:25:18 2004 +++ public_html/index.html Thu Jul 8 12:36:53 2004 @@ -13,7 +13,13 @@ <h1>S-XML-RPC</h1> </div> - <p>S-XML-RPC is an implementation of <a href="http://www.xmlrpc.com">XML-RPC</a> in Common Lisp for both client and server.</p> + <p> + S-XML-RPC is an implementation of <a href="http://www.xmlrpc.com">XML-RPC</a> in Common Lisp for both client and server. + Originally it was written by <a href="http://homepage.mac.com/svc">Sven Van Caekenberghe</a>. + It is now being maintained by <a href="http://homepage.mac.com/svc">Sven Van Caekenberghe</a>, + <a href="http://constantly.at">Rudi Schlatte</a> and <a href="http://www.cs.indiana.edu/~bmastenb">Brian Mastenbrook</a>. + S-XML-RPC is using <a href="http://common-lisp.net/project/s-xml">S-XML</a> as parser. + </p> <p> XML-RPC is a de facto standard for making remote procedure calls between software running on disparate operating systems, running in different environments and implemented using different languages. XML-RPC is using HTTP as the transport and XML as the encoding. XML-RPC is designed to be as simple as possible, while allowing complex data structures to be transmitted, processed and returned. The protocol is described in detail on <a href="http://www.xmlrpc.com/">http://www.xmlrpc.com/</a>. Some key features (both positive and negative) of the XML-RPC protocol are: @@ -31,7 +37,8 @@ <h3>Download</h3> <p> You can download the LLGPL source code and documentation as <a href="s-xml-rpc.tgz">s-xml-rpc.tgz</a> - (signature: <a href="s-xml-rpc.tgz.asc">s-xml-rpc.tgz.asc</a>) + (signature: <a href="s-xml-rpc.tgz.asc">s-xml-rpc.tgz.asc</a> for which the public key can be found + in the <a href="http://common-lisp.net/keyring.asc">common-lisp.net keyring</a>) (build and/or install with ASDF). There is also <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=s-xml-rpc">CVS</a> access. </p> @@ -267,7 +274,7 @@ <li><a href="http://common-lisp.net/mailman/listinfo/s-xml-rpc-announce">S-XML-RPC-ANNOUNCE mailing list info</a></li> </ul> - <p>CVS version $Id: index.html,v 1.3 2004/06/14 20:25:18 scaekenberghe Exp $</p> + <p>CVS version $Id: index.html,v 1.4 2004/07/08 19:36:53 scaekenberghe Exp $</p> <div class="footer"> <p>Back to <a href="http://common-lisp.net/">Common-lisp.net</a>.</p>

1 0