September 2005 - cl-soap-cvs@common-lisp.net

[cl-soap-cvs] CVS update: cl-soap/src/http-client.lisp cl-soap/src/soap.lisp
by scaekenberghe＠common-lisp.net 09 Sep '05

09 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv21139/src Modified Files: http-client.lisp soap.lisp Log Message: some changed to allow more (optional) customization options to envelope/header/body attributes and some changes to the header itself Date: Fri Sep 9 13:21:17 2005 Author: scaekenberghe Index: cl-soap/src/http-client.lisp diff -u cl-soap/src/http-client.lisp:1.2 cl-soap/src/http-client.lisp:1.3 --- cl-soap/src/http-client.lisp:1.2 Thu Sep 8 17:39:42 2005 +++ cl-soap/src/http-client.lisp Fri Sep 9 13:21:16 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: http-client.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ +;;;; $Id: http-client.lisp,v 1.3 2005/09/09 11:21:16 scaekenberghe Exp $ ;;;; ;;;; A basic HTTP client, somewhat API compatible with portableaserve's do-http-request ;;;; Copied from another project (basic authorization support removed) @@ -13,6 +13,8 @@ ;;;; (in-package :cl-soap) + +#+lispworks (require "comm") ;; data structures for state management Index: cl-soap/src/soap.lisp diff -u cl-soap/src/soap.lisp:1.2 cl-soap/src/soap.lisp:1.3 --- cl-soap/src/soap.lisp:1.2 Thu Sep 8 17:39:42 2005 +++ cl-soap/src/soap.lisp Fri Sep 9 13:21:16 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: soap.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ +;;;; $Id: soap.lisp,v 1.3 2005/09/09 11:21:16 scaekenberghe Exp $ ;;;; ;;;; The basic SOAP protocol ;;;; @@ -57,33 +57,45 @@ ;;; SOAP content generation support -(defun soap-header (simple-header-alist) - (cons 'soapenv:|Header| simple-header-alist)) +(defun soap-header (header-lxml &optional header-attributes) + (when header-lxml + (if header-attributes + `(((soapenv:|Header| ,@header-attributes) ,@header-lxml)) + `((soapenv:|Header| ,@header-lxml))))) + +(defun soap-body (body-lxml &optional body-attributes) + (if body-attributes + `((soapenv:|Body| ,@body-attributes) ,body-lxml) + `(soapenv:|Body| ,body-lxml))) -(defun soap-envelope (header body) +(defun soap-envelope (header body &key envelope-attributes header-attributes body-attributes) `((soapenv:|Envelope| :|xmlns:soapenv| ,+soapenv-ns-uri+ :|xmlns:xsd| ,+xsd-ns-uri+ - :|xmlns:xsi| ,+xsi-ns-uri+) - ,@header - (soapenv:|Body| ,body))) + :|xmlns:xsi| ,+xsi-ns-uri+ + ,@envelope-attributes) + ,@(soap-header header header-attributes) + ,(soap-body body body-attributes))) ;;; Call Interface -(defun soap-call (server-end-point header body &key soap-action) +(defun soap-call (server-end-point header body &key soap-action envelope-attributes header-attributes body-attributes) "Make a SOAP Call to server-end-point using headers and body" - (let* ((call-soap-envelope (soap-envelope header body)) - (call-xml (s-xml:print-xml-string call-soap-envelope)) + (let* ((call-soap-envelope (soap-envelope header body + :envelope-attributes envelope-attributes + :header-attributes header-attributes + :body-attributes body-attributes)) + (call-xml (s-xml:print-xml-string call-soap-envelope :pretty t)) result-xml result-soap-envelope) (when *debug-stream* - (format *debug-stream* ";; SOAP CALL sending: ~s~%" call-xml)) + (format *debug-stream* ";; SOAP CALL sending: ~a~%" call-xml)) (setf result-xml (do-http-request (get-url server-end-point) :method :POST :headers `(("SOAPAction" . ,(or soap-action ""))) :content-type "text/xml" :content call-xml)) (when *debug-stream* - (format *debug-stream* ";; SOAP CALL receiving: ~s~%" result-xml)) + (format *debug-stream* ";; SOAP CALL receiving: ~a~%" result-xml)) (setf result-soap-envelope (s-xml:parse-xml-string result-xml)) (if (eql (lxml-get-tag result-soap-envelope) 'soapenv:|Envelope|) ;; we ignore returned headers for now

1 0

[cl-soap-cvs] CVS update: cl-soap/test/test-basic.lisp
by scaekenberghe＠common-lisp.net 08 Sep '05

08 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv3830/test Modified Files: test-basic.lisp Log Message: some bugfixes (thx to carlos.ungil(a)bluewin.ch) Date: Thu Sep 8 17:40:05 2005 Author: scaekenberghe Index: cl-soap/test/test-basic.lisp diff -u cl-soap/test/test-basic.lisp:1.1 cl-soap/test/test-basic.lisp:1.2 --- cl-soap/test/test-basic.lisp:1.1 Mon Sep 5 10:35:58 2005 +++ cl-soap/test/test-basic.lisp Thu Sep 8 17:39:46 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-basic.lisp,v 1.1 2005/09/05 08:35:58 scaekenberghe Exp $ +;;;; $Id: test-basic.lisp,v 1.2 2005/09/08 15:39:46 scaekenberghe Exp $ ;;;; ;;;; Some test for the basic SOAP protocol ;;;; @@ -91,7 +91,7 @@ :|xmlns:ns1| ,ns) ((:|arg2| xsi::|type| "xsd:string") ,string))))) - (if (eql (lxml-get-tag result) 'ns1:|serviceMethodResponse|) + (if (eql (lxml-get-tag result) 'ns1::|serviceMethodResponse|) (let ((contents (lxml-find-tag :|serviceMethodReturn| (rest result)))) (if contents (second contents)

1 0

[cl-soap-cvs] CVS update: cl-soap/src/http-client.lisp cl-soap/src/namespaces.lisp cl-soap/src/soap.lisp
by scaekenberghe＠common-lisp.net 08 Sep '05

08 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv3830/src Modified Files: http-client.lisp namespaces.lisp soap.lisp Log Message: some bugfixes (thx to carlos.ungil(a)bluewin.ch) Date: Thu Sep 8 17:39:42 2005 Author: scaekenberghe Index: cl-soap/src/http-client.lisp diff -u cl-soap/src/http-client.lisp:1.1 cl-soap/src/http-client.lisp:1.2 --- cl-soap/src/http-client.lisp:1.1 Mon Sep 5 10:35:55 2005 +++ cl-soap/src/http-client.lisp Thu Sep 8 17:39:42 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: http-client.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $ +;;;; $Id: http-client.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ ;;;; ;;;; A basic HTTP client, somewhat API compatible with portableaserve's do-http-request ;;;; Copied from another project (basic authorization support removed) @@ -115,7 +115,8 @@ (ignore-errors (close connection :abort abort))))))) (defun open-socket-stream (host port) - #+lispworks (comm:open-tcp-stream host port)) + #+lispworks (comm:open-tcp-stream host port) + #+openmcl (ccl:make-socket :remote-host host :remote-port port)) (defun get-open-connection (host port state &key force-new) (if state Index: cl-soap/src/namespaces.lisp diff -u cl-soap/src/namespaces.lisp:1.1 cl-soap/src/namespaces.lisp:1.2 --- cl-soap/src/namespaces.lisp:1.1 Mon Sep 5 10:35:55 2005 +++ cl-soap/src/namespaces.lisp Thu Sep 8 17:39:42 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: namespaces.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $ +;;;; $Id: namespaces.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ ;;;; ;;;; Definition of some standard XML namespaces commonly needed for SOAP ;;;; @@ -22,7 +22,7 @@ (:export "Envelope" "Header" "Body" "Fault" "encodingStyle") (:documentation "Package for symbols in the SOAP Envelope XML Namespace")) -(defparameter *soapenv-ns* (s-xml:register-namespace +soapenv-ns-uri+ "soap-env" :soapenv)) +(defparameter *soapenv-ns* (s-xml:register-namespace +soapenv-ns-uri+ "soapenv" :soapenv)) ;;; XSD Index: cl-soap/src/soap.lisp diff -u cl-soap/src/soap.lisp:1.1 cl-soap/src/soap.lisp:1.2 --- cl-soap/src/soap.lisp:1.1 Mon Sep 5 10:35:55 2005 +++ cl-soap/src/soap.lisp Thu Sep 8 17:39:42 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: soap.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $ +;;;; $Id: soap.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ ;;;; ;;;; The basic SOAP protocol ;;;; @@ -38,7 +38,7 @@ (let ((code (second (lxml-find-tag :|faultcode| (rest xml)))) (string (second (lxml-find-tag :|faultstring| (rest xml)))) (actor (second (lxml-find-tag :|faultactor| (rest xml)))) - (detail (second (lxml-find-tag :|faultactor| (rest xml))))) + (detail (second (lxml-find-tag :|detail| (rest xml))))) (make-condition 'standard-soap-fault :code code :string string

1 0

[cl-soap-cvs] CVS update: cl-soap/src/development.lisp cl-soap/src/http-client.lisp cl-soap/src/lxml.lisp cl-soap/src/namespaces.lisp cl-soap/src/package.lisp cl-soap/src/soap.lisp cl-soap/src/wsdl.lisp
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv14262/src Added Files: development.lisp http-client.lisp lxml.lisp namespaces.lisp package.lisp soap.lisp wsdl.lisp Log Message: Code copied from internal CVS repository Date: Mon Sep 5 10:35:55 2005 Author: scaekenberghe

1 0

[cl-soap-cvs] CVS update: cl-soap/test/test-basic.lisp
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv14262/test Added Files: test-basic.lisp Log Message: Code copied from internal CVS repository Date: Mon Sep 5 10:35:58 2005 Author: scaekenberghe

1 0

[cl-soap-cvs] CVS update: cl-soap/cl-soap.asd
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap In directory common-lisp.net:/tmp/cvs-serv14262 Added Files: cl-soap.asd Log Message: Code copied from internal CVS repository Date: Mon Sep 5 10:35:54 2005 Author: scaekenberghe

1 0

[cl-soap-cvs] CVS update: Directory change: cl-soap/test
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv14209/test Log Message: Directory /project/cl-soap/cvsroot/cl-soap/test added to the repository Date: Mon Sep 5 10:34:04 2005 Author: scaekenberghe New directory cl-soap/test added

1 0

[cl-soap-cvs] CVS update: Directory change: cl-soap/src
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv14209/src Log Message: Directory /project/cl-soap/cvsroot/cl-soap/src added to the repository Date: Mon Sep 5 10:34:04 2005 Author: scaekenberghe New directory cl-soap/src added

1 0

[cl-soap-cvs] CVS update: public_html/index.html
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv12122 Modified Files: index.html Log Message: added some progress report info Date: Mon Sep 5 10:03:12 2005 Author: scaekenberghe Index: public_html/index.html diff -u public_html/index.html:1.1 public_html/index.html:1.2 --- public_html/index.html:1.1 Mon Sep 5 09:07:08 2005 +++ public_html/index.html Mon Sep 5 10:03:12 2005 @@ -16,7 +16,18 @@ <h3>Phase 1 (First Delivery Target)</h3> <p> <ul> -<li>Setup of a public open source project (e.g. on <a href="http://common-lisp.net">common-lisp.net</a> ).</li> +<li>Setup of a public open source project (on <a href="http://common-lisp.net">common-lisp.net</a> ). + <ul> + <li>The official project home is + <a href="http://common-lisp.net/project/cl-soap">http://common-lisp.net/project/cl-soap</a></li> + <li>The CVS repository can be found at + <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-soap">http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-soap</a></li> + <li>The following mailing list are available: + <a href="http://common-lisp.net/mailman/listinfo/cl-soap-devel">CL-SOAP-DEVEL</a> + as well as + <a href="http://common-lisp.net/mailman/listinfo/cl-soap-cvs">CL-SOAP-CVS</a></li> + </ul> +</li> <li>Implement as much of the general CL-SOAP framework to access the Google AdWords API ( <a href="http://www.google.com/apis/adwords/">http://www.google.com/apis/adwords/</a> ) from LispWorks ( <a href="http://www.lispworks.com">http://www.lispworks.com</a> ).</li> @@ -44,14 +55,18 @@ </p> <h3>Technical Notes</h3> <p> -This project will depend on an XML parser - either the S-XML parser -( <a href="http://common-lisp.net/project/s-xml">http://common-lisp.net/project/s-xml</a>) needs to be extended -to support some necessary features (namespaces, I8N encodings, CDATA support), or another -open-source XML parser has to be selected. +This project depends on an XML parser. The S-XML parser +( <a href="http://common-lisp.net/project/s-xml">http://common-lisp.net/project/s-xml</a>) +has been extended to support some necessary features (namespaces for now). +The code for these additions to S-XML has not yet been released, +and is only available in the CVS repository. +Some documentation of the XML Namespace feature in S-XML can be found in +<a href="http://common-lisp.net/pipermail/s-xml-devel/2005-August/000016.html">this mailing list message</a>. </p> <p> HTTP client and server code will be abstracted out and be made pluggable as to avoid unnecessary dependencies on other (larger) projects. +For now, a simple HTTP client has been added to the source code. </p> <h3>Organizational Notes</h3> <p> @@ -65,6 +80,6 @@ Initial developers and contributors will include Sven Van Caekenberghe (Beta Nine), Alain Picard (Memetrics), Ivan Melotte (Beta Nine) and Nicky Peeters (Beta Nine). <p> -<p>$Id: index.html,v 1.1 2005/09/05 07:07:08 scaekenberghe Exp $</p> +<p>$Id: index.html,v 1.2 2005/09/05 08:03:12 scaekenberghe Exp $</p> </body> </html>

1 0

[cl-soap-cvs] CVS update: public_html/index.html
by scaekenberghe＠common-lisp.net 05 Sep '05

05 Sep '05

Update of /project/cl-soap/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv7679 Added Files: index.html Log Message: newly added from project proposal Date: Mon Sep 5 09:07:09 2005 Author: scaekenberghe

1 0