Commit 88ae2870 authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/soap-client.el: Add "comm" and "hypermedia" to the

keywords.  Reflow too long lines.

* net/soap-inspect.el: Ditto.  Require 'cl.
parent 026d69ec
2011-02-16 Michael Albinus <michael.albinus@gmx.de>
* net/soap-client.el: Add "comm" and "hypermedia" to the
keywords. Reflow too long lines.
* net/soap-inspect.el: Ditto. Require 'cl.
2011-02-16 Bastien Guerry <bzg@altern.org>
 
* play/doctor.el (doctor-mode): Bugfix: escape the "," character
......
This diff is collapsed.
......@@ -17,12 +17,12 @@
;; Author: Alexandru Harsanyi (AlexHarsanyi@gmail.com)
;; Created: October 2010
;; Keywords: soap, web-services
;; Keywords: soap, web-services, comm, hypermedia
;; Homepage: http://code.google.com/p/emacs-soap-client
;;
;;; Commentary:
;;
;;
;; This package provides an inspector for a WSDL document loaded with
;; `soap-load-wsdl' or `soap-load-wsdl-from-url'. To use it, evaluate:
;;
......@@ -32,11 +32,13 @@
;; and types to explore the structure of the wsdl document.
;;
(require 'soap-client)
;;; Code:
(eval-when-compile (require 'cl))
(require 'soap-client)
;;; sample-value
(defun soap-sample-value (type)
......@@ -148,12 +150,12 @@ entire WSDL can be inspected."
(setq buffer-read-only t)
(let ((inhibit-read-only t))
(erase-buffer)
(when soap-inspect-current-item
(push soap-inspect-current-item
soap-inspect-previous-items))
(setq soap-inspect-current-item element)
(funcall inspect element)
(unless (null soap-inspect-previous-items)
......@@ -252,11 +254,13 @@ entire WSDL can be inspected."
(insert "\tOutput: " (symbol-name (car output)) " (")
(soap-insert-describe-button (cdr output))
(insert ")\n"))
(insert "\n\nSample invocation:\n")
(let ((sample-message-value (soap-sample-value (cdr (soap-operation-input operation))))
(let ((sample-message-value
(soap-sample-value (cdr (soap-operation-input operation))))
(funcall (list 'soap-invoke '*WSDL* "SomeService" (soap-element-name operation))))
(let ((sample-invocation (append funcall (mapcar 'cdr sample-message-value))))
(let ((sample-invocation
(append funcall (mapcar 'cdr sample-message-value))))
(pp sample-invocation (current-buffer)))))
(defun soap-inspect-port-type (port-type)
......@@ -335,7 +339,7 @@ entire WSDL can be inspected."
'soap-inspect-message)
(put (aref (make-soap-operation) 0) 'soap-inspect
'soap-inspect-operation)
(put (aref (make-soap-port-type) 0) 'soap-inspect
'soap-inspect-port-type)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment