Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
net /
Delete
Unzip
Name
Size
Permission
Date
Action
ange-ftp.elc
119.46
KB
-rw-r--r--
2023-06-07 04:15
browse-url.elc
48.13
KB
-rw-r--r--
2023-06-07 04:15
dbus.elc
52.95
KB
-rw-r--r--
2023-06-07 04:15
dig.elc
6.32
KB
-rw-r--r--
2023-06-07 04:15
dns.elc
11.16
KB
-rw-r--r--
2023-06-07 04:16
eudc-bob.elc
8.76
KB
-rw-r--r--
2023-06-07 04:16
eudc-export.elc
5.84
KB
-rw-r--r--
2023-06-07 04:16
eudc-hotlist.elc
5.4
KB
-rw-r--r--
2023-06-07 04:16
eudc-vars.elc
13.99
KB
-rw-r--r--
2023-06-07 04:16
eudc.elc
31.94
KB
-rw-r--r--
2023-06-07 04:16
eudcb-bbdb.elc
5.29
KB
-rw-r--r--
2023-06-07 04:16
eudcb-ldap.elc
5.12
KB
-rw-r--r--
2023-06-07 04:16
eudcb-mab.elc
2.74
KB
-rw-r--r--
2023-06-07 04:16
eudcb-ph.elc
6.29
KB
-rw-r--r--
2023-06-07 04:16
gnutls.elc
7.86
KB
-rw-r--r--
2023-06-07 04:16
goto-addr.elc
9
KB
-rw-r--r--
2023-06-07 04:11
hmac-def.elc
2.01
KB
-rw-r--r--
2023-06-07 04:16
hmac-md5.elc
2.09
KB
-rw-r--r--
2023-06-07 04:16
imap.elc
101.96
KB
-rw-r--r--
2023-06-07 04:16
ldap.elc
15.05
KB
-rw-r--r--
2023-06-07 04:16
mairix.elc
24.06
KB
-rw-r--r--
2023-06-07 04:16
net-utils.elc
30.27
KB
-rw-r--r--
2023-06-07 04:16
netrc.elc
5.05
KB
-rw-r--r--
2023-06-07 04:16
network-stream.elc
10.07
KB
-rw-r--r--
2023-06-07 04:16
newst-backend.elc
65.62
KB
-rw-r--r--
2023-06-07 04:16
newst-plainview.elc
49.23
KB
-rw-r--r--
2023-06-07 04:16
newst-reader.elc
8.38
KB
-rw-r--r--
2023-06-07 04:16
newst-ticker.elc
7.51
KB
-rw-r--r--
2023-06-07 04:16
newst-treeview.elc
70.56
KB
-rw-r--r--
2023-06-07 04:16
newsticker.elc
830
B
-rw-r--r--
2023-06-07 04:16
ntlm.elc
11.63
KB
-rw-r--r--
2023-06-07 04:16
quickurl.elc
15.75
KB
-rw-r--r--
2023-06-07 04:16
rcirc.elc
98.21
KB
-rw-r--r--
2023-06-07 04:16
rcompile.elc
3.15
KB
-rw-r--r--
2023-06-07 04:16
rlogin.elc
10.83
KB
-rw-r--r--
2023-06-07 04:16
sasl-cram.elc
1.1
KB
-rw-r--r--
2023-06-07 04:16
sasl-digest.elc
3.47
KB
-rw-r--r--
2023-06-07 04:16
sasl-ntlm.elc
1.76
KB
-rw-r--r--
2023-06-07 04:16
sasl.elc
6.73
KB
-rw-r--r--
2023-06-07 04:16
secrets.elc
21.06
KB
-rw-r--r--
2023-06-07 04:16
snmp-mode.elc
14.64
KB
-rw-r--r--
2023-06-07 04:16
soap-client.elc
140.7
KB
-rw-r--r--
2023-06-07 04:16
soap-inspect.elc
14.6
KB
-rw-r--r--
2023-06-07 04:16
socks.elc
13.76
KB
-rw-r--r--
2023-06-07 04:16
telnet.elc
9.33
KB
-rw-r--r--
2023-06-07 04:16
tls.elc
7.8
KB
-rw-r--r--
2023-06-07 04:16
tramp-cache.elc
15.15
KB
-rw-r--r--
2023-06-07 04:16
tramp-cmds.elc
9.49
KB
-rw-r--r--
2023-06-07 04:16
tramp-compat.elc
16.15
KB
-rw-r--r--
2023-06-07 04:16
tramp-ftp.elc
5.49
KB
-rw-r--r--
2023-06-07 04:16
tramp-gvfs.elc
83.6
KB
-rw-r--r--
2023-06-07 04:16
tramp-gw.elc
13.8
KB
-rw-r--r--
2023-06-07 04:16
tramp-loaddefs.el
34.92
KB
-rw-r--r--
2023-06-07 03:59
tramp-sh.elc
251.02
KB
-rw-r--r--
2023-06-07 04:16
tramp-smb.elc
98.83
KB
-rw-r--r--
2023-06-07 04:16
tramp-uu.elc
1.95
KB
-rw-r--r--
2023-06-07 04:16
tramp.elc
134.83
KB
-rw-r--r--
2023-06-07 04:16
trampver.elc
1.11
KB
-rw-r--r--
2023-06-07 04:16
webjump.elc
13.71
KB
-rw-r--r--
2023-06-07 04:16
xesam.elc
24.97
KB
-rw-r--r--
2023-06-07 04:16
zeroconf.elc
18.31
KB
-rw-r--r--
2023-06-07 04:16
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:16:11 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require xml warnings url url-http url-util mm-decode] 2) #@75 Display a warning MESSAGE with ARGS, using the 'soap-client warning type. (defalias 'soap-warning #[(message &rest args) "\302\303\304\305 #\306#\207" [message args display-warning soap-client apply format :warning] 6 (#$ . 704)]) (byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313&\207" [put soap-warning byte-optimizer byte-compile-inline-expand custom-declare-group soap-client nil "Access SOAP web services from Emacs." :version "24.1" :group tools] 8) #@56 A list of well known xml namespaces and their aliases. (defconst soap-well-known-xmlns '(("apachesoap" . "http://xml.apache.org/xml-soap") ("soapenc" . "http://schemas.xmlsoap.org/soap/encoding/") ("wsdl" . "http://schemas.xmlsoap.org/wsdl/") ("wsdlsoap" . "http://schemas.xmlsoap.org/wsdl/soap/") ("xsd" . "http://www.w3.org/2001/XMLSchema") ("xsi" . "http://www.w3.org/2001/XMLSchema-instance") ("soap" . "http://schemas.xmlsoap.org/soap/envelope/") ("soap12" . "http://schemas.xmlsoap.org/wsdl/soap12/") ("http" . "http://schemas.xmlsoap.org/wsdl/http/") ("mime" . "http://schemas.xmlsoap.org/wsdl/mime/")) (#$ . 1184)) #@113 A list of local namespace aliases. This is a dynamically bound variable, controlled by `soap-with-local-xmlns'. (defvar soap-local-xmlns nil (#$ . 1814)) #@151 The default XML namespaces. Names in this namespace will be unqualified. This is a dynamically bound variable, controlled by `soap-with-local-xmlns' (defvar soap-default-xmlns nil (#$ . 1975)) #@215 The target XML namespace. New XSD elements will be defined in this namespace, unless they are fully qualified for a different namespace. This is a dynamically bound variable, controlled by `soap-with-local-xmlns' (defvar soap-target-xmlns nil (#$ . 2176)) #@266 Return local variant of WELL-KNOWN-NAME. This is done by looking up the namespace in the `soap-well-known-xmlns' table and resolving the namespace to the local name based on the current local translation table `soap-local-xmlns'. See also `soap-with-local-xmlns'. (defalias 'soap-wk2l #[(well-known-name) "9\203 \306!\202\f \307\310 \"\203[ \311\312 \"\311\313 \"\314 \f\"A\211 \232\203: 9\2036 \315\n!\202W \n\202W \316 \"@\211 \317\nQ 9\203T \315!\202V *+\202\\ )\207" [well-known-name wk-name-1 name ns soap-well-known-xmlns namespace symbol-name string-match "^\\(.*\\):\\(.*\\)$" match-string 1 2 assoc intern rassoc ":" soap-default-xmlns soap-local-xmlns local-ns local-name] 5 (#$ . 2440)]) #@260 Convert LOCAL-NAME into a well known name. The namespace of LOCAL-NAME is looked up in the `soap-well-known-xmlns' table and a well known namespace tag is used in the name. nil is returned if there is no well-known namespace for the namespace of LOCAL-NAME. (defalias 'soap-l2wk #[(local-name) "9\203 \306!\202\f \307\211\310\311 \"\2036 \312\313 \"\312\314 \" \315\f \"A\211\2042 \316\317\f#\210)\202; \n\203f \320\n\"@\211 \205b \321 Q \306!\203_ \322!\202a ))\202g +\207" [local-name name namespace l-name-1 ns soap-local-xmlns symbol-name nil string-match "^\\(.*\\):\\(.*\\)$" match-string 2 1 assoc error "Soap-l2wk(%s): no namespace for alias %s" rassoc ":" intern soap-default-xmlns soap-well-known-xmlns well-known-ns well-known-name] 5 (#$ . 3167)]) #@563 Convert LOCAL-NAME into a fully qualified name. A fully qualified name is a cons of the namespace name and the name of the element itself. For example "xsd:string" is converted to ("http://www.w3.org/2001/XMLSchema" . "string"). The USE-TNS argument specifies what to do when LOCAL-NAME has no namespace tag. If USE-TNS is non-nil, the `soap-target-xmlns' will be used as the element's namespace, otherwise `soap-default-xmlns' will be used. This is needed because different parts of a WSDL document can use different namespace aliases for the same element. (defalias 'soap-l2fq #[(local-name &optional use-tns) "9\203 \306!\202\f \307\310 \"\2037 \311\312 \"\311\313 \"\314 \f\"A\211 \203. \nB\2023 \315\316 #+\202E \203A \202C B)\207" [local-name local-name-1 name ns soap-local-xmlns namespace symbol-name string-match "^\\(.*\\):\\(.*\\)$" match-string 1 2 assoc error "Soap-l2fq(%s): unknown alias %s" use-tns soap-target-xmlns soap-default-xmlns] 5 (#$ . 3962)]) #@67 Return a namespace alias table for NODE by extending XMLNS-TABLE. (defalias 'soap-extract-xmlns #[(node &optional xmlns-table) "\306\211\211 \211A@)\306 \211 \203T @\307\f@!\fA \211 \310\230\203, \202L \311\230\2039 \202L \312\313\"\203L \314\315\"B\nB* A\211\204 *\316\317\n\"\211 \203\206 \203\206 A\232\204\245 \320 \211@)C \321\322\323\324#\325#*\210\202\245 \203\226 \204\226 A\202\245 \204\245 \203\245 \317B\nB) \326\n \"E+\207" [target-ns default-ns xmlns node a --dolist-tail-- nil symbol-name "targetNamespace" "xmlns" string-match "^xmlns:\\(.*\\)$" match-string 1 assoc "tns" "soap-extract-xmlns(%s): tns alias and targetNamespace mismatch" display-warning soap-client apply format :warning append value name tns args message xmlns-table] 7 (#$ . 4957)]) #@57 Install a local alias table from NODE and execute BODY. (defalias 'soap-with-local-xmlns '(macro . #[(node &rest body) "\303\304!\305\306 \307BBDC\305\310\311\312\313E\314BBD\315\311\312\316E\317BBD\320\312\321EDE\nBBE)\207" [xmlns node body make-symbol "xmlns" let soap-extract-xmlns (soap-local-xmlns) soap-default-xmlns or nth 0 (soap-default-xmlns) soap-target-xmlns 1 (soap-target-xmlns) soap-local-xmlns 2] 9 (#$ . 5781)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put soap-with-local-xmlns edebug-form-spec (form &rest form) lisp-indent-function 1] 4) #@99 Return the target namespace of NODE. This is the namespace in which new elements will be defined. (defalias 'soap-get-target-namespace #[(node) "\303\304\"\206 \305\306 \"A\206 \n\207" [node soap-local-xmlns soap-target-xmlns xml-get-attribute-or-nil targetNamespace assoc "tns"] 3 (#$ . 6367)]) #@126 Return the children of NODE named CHILD-NAME. This is the same as `xml-get-children', but CHILD-NAME can have namespace tag. (defalias 'soap-xml-get-children1 #[(node child-name) "\306 \211\211AA*\306\211 \203N \f@\211:\203G \307 \"\211 @\206& \f A@\206/ \310 8 \f\306\311\312\217,=\203G B\fA\211\204 *\237)\207" [result node x c --dolist-tail-- soap-local-xmlns nil soap-extract-xmlns 2 (byte-code "\302\211@)!\207" [c node soap-l2wk] 3) ((error)) #1=#:xmlns soap-default-xmlns soap-target-xmlns child-name] 5 (#$ . 6673)]) #@157 Return the NODE's ATTRIBUTE, or nil if it does not exist. This is the same as `xml-get-attribute-or-nil', but ATTRIBUTE can be tagged with a namespace tag. (defalias 'soap-xml-get-attribute-or-nil1 #[(node attribute) "\300\301\215\207" [found (byte-code "\306 \"\211@\206 \nA@\206 \f\307\n8 \211A@)\310 \211 \205D @\310\311\312\217=\203: \313\314 A\"\210 A\211 \204& \310.\207" [node soap-local-xmlns #1=#:xmlns soap-default-xmlns soap-target-xmlns a soap-extract-xmlns 2 nil (byte-code "\301@!\207" [a soap-l2wk] 2) ((error)) throw found --dolist-tail-- attribute] 5)] 2 (#$ . 7230)]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-element-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-element-name (or (and (memq (aref cl-x 0) cl-struct-soap-element-tags)) (error "%s accessing a non-%s" 'soap-element-name 'soap-element)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-element-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-element-tags 0 error "%s accessing a non-%s" soap-element-name soap-element 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-element-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-element-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-element-tags)) (error "%s accessing a non-%s" 'soap-element-namespace-tag 'soap-element)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-element-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-element-tags 0 error "%s accessing a non-%s" soap-element-namespace-tag soap-element 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-element-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-element-p (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-soap-element-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-element-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-element-tags vectorp 3 0 t] 2]) (defalias 'copy-soap-element #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-element compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\305>A@\306>A@ \2038 @\307>\203! AA\211\202 \310>A@\203/ \311\211\202 \312\313 @\"\210\202 )\314\315\316\311\f\311 \n&*\207" [#1# name namespace-tag #:--cl-keys-- cl-whole :name :namespace-tag (:name :namespace-tag :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag)" cl--defsubst-expand (name namespace-tag) (cl-block make-soap-element (vector 'cl-struct-soap-element name namespace-tag))] 9 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@32 (fn &key NAME NAMESPACE-TAG) (defalias 'make-soap-element #[(&rest #1=#:--cl-rest--) "\304>A@\305>A@ \2038 @\306>\203! AA\211\202 \307>A@\203/ \310\211\202 \311\312 @\"\210\202 )\313\314 \n#*\207" [#1# name namespace-tag #2=#:--cl-keys-- :name :namespace-tag (:name :namespace-tag :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag)" vector cl-struct-soap-element] 5 (#$ . 10710)]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\207" [cl-struct-soap-element-tags cl-struct-soap-element put soap-element cl-struct-slots ((cl-tag-slot) (name) (namespace-tag)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-soap-element side-effect-free copy-soap-element soap-element-p error-free soap-element-namespace-tag soap-element-name] 4) #@118 Return a fully qualified name for ELEMENT. A fq name is the concatenation of the namespace tag and the element name. (defalias 'soap-element-fq-name #[(element) "\302H >\204 \303\304\305\306#\210\307H\310\302H >\204 \303\304\311\306#\210\312HQ\207" [element cl-struct-soap-element-tags 0 error "%s accessing a non-%s" soap-element-namespace-tag soap-element 2 ":" soap-element-name 1] 6 (#$ . 11694)]) (byte-code "\302\303\"\203\f \210\202 \303B\304\305\306\307#\210\310\304\305\311\312\313 !!#\210)\302\207" [cl-struct-soap-element-tags file memql cl-struct-soap-namespace-link put soap-namespace-link-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-name (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags)) (error "%s accessing a non-%s" 'soap-namespace-link-name 'soap-namespace-link)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-link-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-namespace-link-tags 0 error "%s accessing a non-%s" soap-namespace-link-name soap-namespace-link 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-namespace-link-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags)) (error "%s accessing a non-%s" 'soap-namespace-link-namespace-tag 'soap-namespace-link)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-link-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-namespace-link-tags 0 error "%s accessing a non-%s" soap-namespace-link-namespace-tag soap-namespace-link 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-namespace-link-target compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-target (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags)) (error "%s accessing a non-%s" 'soap-namespace-link-target 'soap-namespace-link)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-link-target #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-namespace-link-tags 0 error "%s accessing a non-%s" soap-namespace-link-target soap-namespace-link 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-namespace-link-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-link-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-namespace-link-tags vectorp 4 0 t] 2]) (defalias 'copy-soap-namespace-link #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-namespace-link compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317\320\313 \313 \n &+\207" [#1# name namespace-tag target #:--cl-keys-- cl-whole :name :namespace-tag :target (:name :namespace-tag :target :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :target)" cl--defsubst-expand (name namespace-tag target) (cl-block make-soap-namespace-link (vector 'cl-struct-soap-namespace-link name namespace-tag target))] 10 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG TARGET)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@39 (fn &key NAME NAMESPACE-TAG TARGET) (defalias 'make-soap-namespace-link #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@ \f\203> \f@\310>\203' \fAA\211\202 \311>A@\2035 \312\211\202 \313\314\f@\"\210\202 )\315\316 \n $+\207" [#1# name namespace-tag target #2=#:--cl-keys-- :name :namespace-tag :target (:name :namespace-tag :target :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :target)" vector cl-struct-soap-namespace-link] 6 (#$ . 16096)]) (byte-code "\302C\303\304\305\306#\210\303\304\307\310#\210\303\304\311\312#\210\303\304\313\314#\210\303\315\316\314#\210\303\317\316\314#\210\303\320\316\321#\210\303\322\316\314#\210\303\323\316\314#\210\303\324\316\314#\210\303\325\326\327#\210\330\303\325\331\332\333 !!#\210)\302\207" [cl-struct-soap-namespace-link-tags file cl-struct-soap-namespace-link put soap-namespace-link cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (target)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-namespace-link side-effect-free copy-soap-namespace-link soap-namespace-link-p error-free soap-namespace-link-target soap-namespace-link-namespace-tag soap-namespace-link-name soap-namespace-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-name (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-tags)) (error "%s accessing a non-%s" 'soap-namespace-name 'soap-namespace)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-namespace-tags 0 error "%s accessing a non-%s" soap-namespace-name soap-namespace 1] 4]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put soap-namespace-name gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" soap-namespace-name] 3] soap-namespace-elements compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-elements (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-tags)) (error "%s accessing a non-%s" 'soap-namespace-elements 'soap-namespace)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-elements #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-namespace-tags 0 error "%s accessing a non-%s" soap-namespace-elements soap-namespace 2] 4]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\310\301\305\311\312\313!!#\210)\301\207" [file put soap-namespace-elements gv-expander #[(_cl-do _cl-x) "\300\301\302\"\207" [error "%s is a read-only slot" soap-namespace-elements] 3] soap-namespace-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-namespace-p (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-soap-namespace-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-namespace-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-namespace-tags vectorp 3 0 t] 2]) (defalias 'copy-soap-namespace #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-namespace compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\305>A@\306>\206 \307A@ \203< @\310>\203% AA\211\202 \311>A@\2033 \312\211\202 \313\314 @\"\210\202 )\315\316\317\312\f\312 \n&*\207" [#1# name elements #:--cl-keys-- cl-whole :name :elements (nil (make-hash-table :test 'equal)) (:name :elements :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :elements)" cl--defsubst-expand (name elements) (cl-block make-soap-namespace (vector 'cl-struct-soap-namespace name elements))] 9 "\n\n(fn CL-WHOLE &cl-quote &key NAME ELEMENTS)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@27 (fn &key NAME ELEMENTS) (defalias 'make-soap-namespace #[(&rest #1=#:--cl-rest--) "\304>A@\305>\206 \306\307\310\311\"DA@ \203A @\312>\203* AA\211\202 \313>A@\2038 \306\211\202 \314\315 @\"\210\202 )\316\317 \n#*\207" [#1# name elements #2=#:--cl-keys-- :name :elements nil make-hash-table :test equal (:name :elements :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :elements)" vector cl-struct-soap-namespace] 5 (#$ . 20456)]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\317#\210\302\320\315\313#\210\302\321\315\313#\207" [cl-struct-soap-namespace-tags cl-struct-soap-namespace put soap-namespace cl-struct-slots ((cl-tag-slot) (name nil :read-only t) (elements (make-hash-table :test 'equal) :read-only t)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t copy-soap-namespace side-effect-free soap-namespace-p error-free soap-namespace-elements soap-namespace-name] 4) #@183 Store ELEMENT in NS. Multiple elements with the same name can be stored in a namespace. When retrieving the element you can specify a discriminant predicate to `soap-namespace-get' (defalias 'soap-namespace-put #[(element ns) "\306H >\204 \307\310\311\312#\210\313H\211\f\306H >\204\" \307\310\314\315#\210\f\316H \317 \320 \"B#+\207" [element cl-struct-soap-element-tags name #1=#:v ns cl-struct-soap-namespace-tags 0 error "%s accessing a non-%s" soap-element-name soap-element 1 soap-namespace-elements soap-namespace 2 puthash gethash #2=#:v] 7 (#$ . 21498)]) #@338 Store a link from NAME to TARGET in NS. An error will be signaled if an element by the same name is already present in NS, unless REPLACE is non nil. TARGET can be either a SOAP-ELEMENT or a string denoting an element name into another namespace. If NAME is nil, an element with the same name as TARGET will be added to the namespace. (defalias 'soap-namespace-put-link #[(name target ns &optional replace) "\203\n \306\232\203U \307 !\2034 G\310Y\2034 \311H\n>\2034 \311H\n>\204- \312\313\314\315#\210 \316H\202U :\203? A\202U ;\203U \317\320 \"\203S \321\322 \"\202U \203_ \306\232\203c \312\323!\210\324\325\326 $ \311H>\204{ \312\313\327\330#\210 \322H \331\f \332\f \"B #+\207" [name target cl-struct-soap-element-tags #1=#:v #2=#:v ns "" vectorp 3 0 error "%s accessing a non-%s" soap-element-name soap-element 1 string-match "^\\(.*\\):\\(.*\\)$" match-string 2 "Cannot determine name for namespace link" vector cl-struct-soap-namespace-link nil soap-namespace-elements soap-namespace puthash gethash cl-struct-soap-namespace-tags #3=#:v] 6 (#$ . 22081)]) #@257 Retrieve an element with NAME from the namespace NS. If multiple elements with the same name exist, DISCRIMINANT-PREDICATE is used to pick one of them. This allows storing elements of different types (like a message type and a binding) but the same name. (defalias 'soap-namespace-get #[(name ns &optional discriminant-predicate) ";\204 \305\306\307C\"\210\310 \311H\n>\204 \312\313\314\315#\210 \316H\"\f\203* \317\320\215\202E G\321U\2036 @\202E G\321V\203D \312\322\"\202E \323)\207" [name ns cl-struct-soap-namespace-tags elements discriminant-predicate signal cl-assertion-failed (stringp name) gethash 0 error "%s accessing a non-%s" soap-namespace-elements soap-namespace 2 found (byte-code "\304\211\205 \n@ !\203 \305\306 \"\210\nA\211\204 \304*\207" [elements e --dolist-tail-- discriminant-predicate nil throw found] 4) 1 "Soap-namespace-get(%s): multiple elements, discriminant needed" nil] 6 (#$ . 23177)]) (byte-code "\302\303\"\203\f \210\202 \303B\304\305\306\307#\210\310\304\305\311\312\313 !!#\210)\302\207" [cl-struct-soap-element-tags file memql cl-struct-soap-basic-type put soap-basic-type-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-basic-type-name (or (and (memq (aref cl-x 0) cl-struct-soap-basic-type-tags)) (error "%s accessing a non-%s" 'soap-basic-type-name 'soap-basic-type)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-basic-type-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-basic-type-tags 0 error "%s accessing a non-%s" soap-basic-type-name soap-basic-type 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-basic-type-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-basic-type-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-basic-type-tags)) (error "%s accessing a non-%s" 'soap-basic-type-namespace-tag 'soap-basic-type)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-basic-type-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-basic-type-tags 0 error "%s accessing a non-%s" soap-basic-type-namespace-tag soap-basic-type 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-basic-type-kind compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-basic-type-kind (or (and (memq (aref cl-x 0) cl-struct-soap-basic-type-tags)) (error "%s accessing a non-%s" 'soap-basic-type-kind 'soap-basic-type)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-basic-type-kind #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-basic-type-tags 0 error "%s accessing a non-%s" soap-basic-type-kind soap-basic-type 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-basic-type-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-basic-type-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-basic-type-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-basic-type-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-basic-type-tags vectorp 4 0 t] 2]) (defalias 'copy-soap-basic-type #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-basic-type compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317\320\313 \313 \n &+\207" [#1# name namespace-tag kind #:--cl-keys-- cl-whole :name :namespace-tag :kind (:name :namespace-tag :kind :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :kind)" cl--defsubst-expand (name namespace-tag kind) (cl-block make-soap-basic-type (vector 'cl-struct-soap-basic-type name namespace-tag kind))] 10 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG KIND)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@37 (fn &key NAME NAMESPACE-TAG KIND) (defalias 'make-soap-basic-type #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@ \f\203> \f@\310>\203' \fAA\211\202 \311>A@\2035 \312\211\202 \313\314\f@\"\210\202 )\315\316 \n $+\207" [#1# name namespace-tag kind #2=#:--cl-keys-- :name :namespace-tag :kind (:name :namespace-tag :kind :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :kind)" vector cl-struct-soap-basic-type] 6 (#$ . 27938)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\326\327\"\203K \210\202O \327B\326\327 \"\203[ \210\202_ \327 B\304\330\331\332#\210\333\304\330\334\335\336\n!!#\210)\303\207" [cl-struct-soap-basic-type-tags cl-struct-soap-element-tags file cl-struct-soap-basic-type put soap-basic-type cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (kind)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-basic-type side-effect-free copy-soap-basic-type soap-basic-type-p error-free soap-basic-type-kind soap-basic-type-namespace-tag soap-basic-type-name memql cl-struct-soap-simple-type soap-simple-type-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-simple-type-name (or (and (memq (aref cl-x 0) cl-struct-soap-simple-type-tags)) (error "%s accessing a non-%s" 'soap-simple-type-name 'soap-simple-type)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-simple-type-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-simple-type-tags 0 error "%s accessing a non-%s" soap-simple-type-name soap-simple-type 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-simple-type-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-simple-type-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-simple-type-tags)) (error "%s accessing a non-%s" 'soap-simple-type-namespace-tag 'soap-simple-type)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-simple-type-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-simple-type-tags 0 error "%s accessing a non-%s" soap-simple-type-namespace-tag soap-simple-type 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-simple-type-kind compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-simple-type-kind (or (and (memq (aref cl-x 0) cl-struct-soap-simple-type-tags)) (error "%s accessing a non-%s" 'soap-simple-type-kind 'soap-simple-type)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-simple-type-kind #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-simple-type-tags 0 error "%s accessing a non-%s" soap-simple-type-kind soap-simple-type 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-simple-type-enumeration compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-simple-type-enumeration (or (and (memq (aref cl-x 0) cl-struct-soap-simple-type-tags)) (error "%s accessing a non-%s" 'soap-simple-type-enumeration 'soap-simple-type)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-simple-type-enumeration #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-simple-type-tags 0 error "%s accessing a non-%s" soap-simple-type-enumeration soap-simple-type 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-simple-type-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-simple-type-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-simple-type-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-simple-type-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-simple-type-tags vectorp 5 0 t] 2]) (defalias 'copy-soap-simple-type #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-simple-type compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\321\314\314 \n \f& ,\207" [#1# name namespace-tag kind enumeration #:--cl-keys-- :name :namespace-tag :kind :enumeration (:name :namespace-tag :kind :enumeration :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :kind :enumeration)" cl--defsubst-expand (name namespace-tag kind enumeration) (cl-block make-soap-simple-type (vector 'cl-struct-soap-simple-type name namespace-tag kind enumeration)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG KIND ENUMERATION)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@49 (fn &key NAME NAMESPACE-TAG KIND ENUMERATION) (defalias 'make-soap-simple-type #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320 \n \f%,\207" [#1# name namespace-tag kind enumeration #2=#:--cl-keys-- :name :namespace-tag :kind :enumeration (:name :namespace-tag :kind :enumeration :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :kind :enumeration)" vector cl-struct-soap-simple-type] 7 (#$ . 33773)]) (byte-code "\302C\303\304\305\306#\210\303\304\307\310#\210\303\304\311\312#\210\303\304\313\314#\210\303\315\316\314#\210\303\317\316\314#\210\303\320\316\321#\210\303\322\316\314#\210\303\323\316\314#\210\303\324\316\314#\210\303\325\316\314#\210\303\326\327\330#\210\331\303\326\332\333\334 !!#\210)\302\207" [cl-struct-soap-simple-type-tags file cl-struct-soap-simple-type put soap-simple-type cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (kind) (enumeration)) cl-struct-type (vector nil) cl-struct-include soap-basic-type cl-struct-print t make-soap-simple-type side-effect-free copy-soap-simple-type soap-simple-type-p error-free soap-simple-type-enumeration soap-simple-type-kind soap-simple-type-namespace-tag soap-simple-type-name soap-sequence-element-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-element-name (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-element-tags)) (error "%s accessing a non-%s" 'soap-sequence-element-name 'soap-sequence-element)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-element-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-element-tags 0 error "%s accessing a non-%s" soap-sequence-element-name soap-sequence-element 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-element-type compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-element-type (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-element-tags)) (error "%s accessing a non-%s" 'soap-sequence-element-type 'soap-sequence-element)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-element-type #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-element-tags 0 error "%s accessing a non-%s" soap-sequence-element-type soap-sequence-element 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-element-nillable\? compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-element-nillable\? (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-element-tags)) (error "%s accessing a non-%s" 'soap-sequence-element-nillable\? 'soap-sequence-element)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-element-nillable\? #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-element-tags 0 error "%s accessing a non-%s" soap-sequence-element-nillable\? soap-sequence-element 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-element-multiple\? compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-element-multiple\? (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-element-tags)) (error "%s accessing a non-%s" 'soap-sequence-element-multiple\? 'soap-sequence-element)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-element-multiple\? #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-element-tags 0 error "%s accessing a non-%s" soap-sequence-element-multiple\? soap-sequence-element 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-element-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-element-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-sequence-element-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-element-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-sequence-element-tags vectorp 5 0 t] 2]) (defalias 'copy-soap-sequence-element #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-sequence-element compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\321\314\314 \n \f& ,\207" [#1# name type nillable\? multiple\? #:--cl-keys-- :name :type :nillable\? :multiple\? (:name :type :nillable\? :multiple\? :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :type :nillable? :multiple?)" cl--defsubst-expand (name type nillable\? multiple\?) (cl-block make-soap-sequence-element (vector 'cl-struct-soap-sequence-element name type nillable\? multiple\?)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key NAME TYPE NILLABLE\\? MULTIPLE\\?)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@45 (fn &key NAME TYPE NILLABLE\? MULTIPLE\?) (defalias 'make-soap-sequence-element #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320 \n \f%,\207" [#1# name type nillable\? multiple\? #2=#:--cl-keys-- :name :type :nillable\? :multiple\? (:name :type :nillable\? :multiple\? :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :type :nillable? :multiple?)" vector cl-struct-soap-sequence-element] 7 (#$ . 39801)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\327\330 \"\203Q \210\202U \330 B\304\331\332\333#\210\334\304\331\335\336\337\n!!#\210)\313\207" [cl-struct-soap-sequence-element-tags cl-struct-soap-element-tags file cl-struct-soap-sequence-element put soap-sequence-element cl-struct-slots ((cl-tag-slot) (name) (type) (nillable\?) (multiple\?)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-soap-sequence-element side-effect-free copy-soap-sequence-element soap-sequence-element-p error-free soap-sequence-element-multiple\? soap-sequence-element-nillable\? soap-sequence-element-type soap-sequence-element-name memql cl-struct-soap-sequence-type soap-sequence-type-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-type-name (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-type-tags)) (error "%s accessing a non-%s" 'soap-sequence-type-name 'soap-sequence-type)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-type-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-type-tags 0 error "%s accessing a non-%s" soap-sequence-type-name soap-sequence-type 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-type-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-type-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-type-tags)) (error "%s accessing a non-%s" 'soap-sequence-type-namespace-tag 'soap-sequence-type)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-type-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-type-tags 0 error "%s accessing a non-%s" soap-sequence-type-namespace-tag soap-sequence-type 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-type-parent compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-type-parent (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-type-tags)) (error "%s accessing a non-%s" 'soap-sequence-type-parent 'soap-sequence-type)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-type-parent #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-type-tags 0 error "%s accessing a non-%s" soap-sequence-type-parent soap-sequence-type 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-type-elements compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-type-elements (or (and (memq (aref cl-x 0) cl-struct-soap-sequence-type-tags)) (error "%s accessing a non-%s" 'soap-sequence-type-elements 'soap-sequence-type)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-type-elements #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-sequence-type-tags 0 error "%s accessing a non-%s" soap-sequence-type-elements soap-sequence-type 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-sequence-type-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-sequence-type-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-sequence-type-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-sequence-type-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-sequence-type-tags vectorp 5 0 t] 2]) (defalias 'copy-soap-sequence-type #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-sequence-type compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\321\314\314 \n \f& ,\207" [#1# name namespace-tag parent elements #:--cl-keys-- :name :namespace-tag :parent :elements (:name :namespace-tag :parent :elements :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parent :elements)" cl--defsubst-expand (name namespace-tag parent elements) (cl-block make-soap-sequence-type (vector 'cl-struct-soap-sequence-type name namespace-tag parent elements)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PARENT ELEMENTS)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@48 (fn &key NAME NAMESPACE-TAG PARENT ELEMENTS) (defalias 'make-soap-sequence-type #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320 \n \f%,\207" [#1# name namespace-tag parent elements #2=#:--cl-keys-- :name :namespace-tag :parent :elements (:name :namespace-tag :parent :elements :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parent :elements)" vector cl-struct-soap-sequence-type] 7 (#$ . 45847)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\327\330 \"\203Q \210\202U \330 B\304\331\332\333#\210\334\304\331\335\336\337\n!!#\210)\303\207" [cl-struct-soap-sequence-type-tags cl-struct-soap-element-tags file cl-struct-soap-sequence-type put soap-sequence-type cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (parent) (elements)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-sequence-type side-effect-free copy-soap-sequence-type soap-sequence-type-p error-free soap-sequence-type-elements soap-sequence-type-parent soap-sequence-type-namespace-tag soap-sequence-type-name memql cl-struct-soap-array-type soap-array-type-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-array-type-name (or (and (memq (aref cl-x 0) cl-struct-soap-array-type-tags)) (error "%s accessing a non-%s" 'soap-array-type-name 'soap-array-type)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-array-type-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-array-type-tags 0 error "%s accessing a non-%s" soap-array-type-name soap-array-type 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-array-type-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-array-type-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-array-type-tags)) (error "%s accessing a non-%s" 'soap-array-type-namespace-tag 'soap-array-type)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-array-type-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-array-type-tags 0 error "%s accessing a non-%s" soap-array-type-namespace-tag soap-array-type 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-array-type-element-type compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-array-type-element-type (or (and (memq (aref cl-x 0) cl-struct-soap-array-type-tags)) (error "%s accessing a non-%s" 'soap-array-type-element-type 'soap-array-type)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-array-type-element-type #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-array-type-tags 0 error "%s accessing a non-%s" soap-array-type-element-type soap-array-type 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-array-type-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-array-type-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-array-type-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-array-type-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-array-type-tags vectorp 4 0 t] 2]) (defalias 'copy-soap-array-type #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-array-type compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317\320\313 \313 \n &+\207" [#1# name namespace-tag element-type #:--cl-keys-- cl-whole :name :namespace-tag :element-type (:name :namespace-tag :element-type :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :element-type)" cl--defsubst-expand (name namespace-tag element-type) (cl-block make-soap-array-type (vector 'cl-struct-soap-array-type name namespace-tag element-type))] 10 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ELEMENT-TYPE)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@45 (fn &key NAME NAMESPACE-TAG ELEMENT-TYPE) (defalias 'make-soap-array-type #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@ \f\203> \f@\310>\203' \fAA\211\202 \311>A@\2035 \312\211\202 \313\314\f@\"\210\202 )\315\316 \n $+\207" [#1# name namespace-tag element-type #2=#:--cl-keys-- :name :namespace-tag :element-type (:name :namespace-tag :element-type :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :element-type)" vector cl-struct-soap-array-type] 6 (#$ . 51011)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\326\327 \"\203K \210\202O \327 B\304\330\331\332#\210\333\304\330\334\335\336\n!!#\210)\303\207" [cl-struct-soap-array-type-tags cl-struct-soap-element-tags file cl-struct-soap-array-type put soap-array-type cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (element-type)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-array-type side-effect-free copy-soap-array-type soap-array-type-p error-free soap-array-type-element-type soap-array-type-namespace-tag soap-array-type-name memql cl-struct-soap-message soap-message-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-message-name (or (and (memq (aref cl-x 0) cl-struct-soap-message-tags)) (error "%s accessing a non-%s" 'soap-message-name 'soap-message)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-message-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-message-tags 0 error "%s accessing a non-%s" soap-message-name soap-message 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-message-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-message-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-message-tags)) (error "%s accessing a non-%s" 'soap-message-namespace-tag 'soap-message)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-message-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-message-tags 0 error "%s accessing a non-%s" soap-message-namespace-tag soap-message 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-message-parts compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-message-parts (or (and (memq (aref cl-x 0) cl-struct-soap-message-tags)) (error "%s accessing a non-%s" 'soap-message-parts 'soap-message)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-message-parts #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-message-tags 0 error "%s accessing a non-%s" soap-message-parts soap-message 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-message-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-message-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-message-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-message-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-message-tags vectorp 4 0 t] 2]) (defalias 'copy-soap-message #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-message compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317\320\313 \313 \n &+\207" [#1# name namespace-tag parts #:--cl-keys-- cl-whole :name :namespace-tag :parts (:name :namespace-tag :parts :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parts)" cl--defsubst-expand (name namespace-tag parts) (cl-block make-soap-message (vector 'cl-struct-soap-message name namespace-tag parts))] 10 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PARTS)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@38 (fn &key NAME NAMESPACE-TAG PARTS) (defalias 'make-soap-message #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@ \f\203> \f@\310>\203' \fAA\211\202 \311>A@\2035 \312\211\202 \313\314\f@\"\210\202 )\315\316 \n $+\207" [#1# name namespace-tag parts #2=#:--cl-keys-- :name :namespace-tag :parts (:name :namespace-tag :parts :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parts)" vector cl-struct-soap-message] 6 (#$ . 55874)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\326\327 \"\203K \210\202O \327 B\304\330\331\332#\210\333\304\330\334\335\336\n!!#\210)\303\207" [cl-struct-soap-message-tags cl-struct-soap-element-tags file cl-struct-soap-message put soap-message cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (parts)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-message side-effect-free copy-soap-message soap-message-p error-free soap-message-parts soap-message-namespace-tag soap-message-name memql cl-struct-soap-operation soap-operation-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-name (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (error "%s accessing a non-%s" 'soap-operation-name 'soap-operation)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-operation-tags 0 error "%s accessing a non-%s" soap-operation-name soap-operation 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-operation-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (error "%s accessing a non-%s" 'soap-operation-namespace-tag 'soap-operation)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-operation-tags 0 error "%s accessing a non-%s" soap-operation-namespace-tag soap-operation 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-operation-parameter-order compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-parameter-order (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (error "%s accessing a non-%s" 'soap-operation-parameter-order 'soap-operation)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-parameter-order #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-operation-tags 0 error "%s accessing a non-%s" soap-operation-parameter-order soap-operation 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-operation-input compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-input (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (error "%s accessing a non-%s" 'soap-operation-input 'soap-operation)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-input #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-operation-tags 0 error "%s accessing a non-%s" soap-operation-input soap-operation 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-operation-output compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-output (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (error "%s accessing a non-%s" 'soap-operation-output 'soap-operation)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-output #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-operation-tags 0 error "%s accessing a non-%s" soap-operation-output soap-operation 5] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-operation-faults compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-faults (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (error "%s accessing a non-%s" 'soap-operation-faults 'soap-operation)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-faults #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-operation-tags 0 error "%s accessing a non-%s" soap-operation-faults soap-operation 6] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-operation-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-operation-p (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-soap-operation-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-operation-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-operation-tags vectorp 7 0 t] 2]) (defalias 'copy-soap-operation #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-operation compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \203X @\314>\203? AA\211\202* \315>A@\203N \316\211\202* \317\320@\"\210\202( )\321\322\323\316\316 \n \f & .\207" [#1# name namespace-tag parameter-order input output :name :namespace-tag :parameter-order :input :output :faults (:name :namespace-tag :parameter-order :input :output :faults :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parameter-order :input :output :faults)" cl--defsubst-expand (name namespace-tag parameter-order input output faults) (cl-block make-soap-operation (vector 'cl-struct-soap-operation name namespace-tag parameter-order input output faults)) faults #:--cl-keys-- cl-whole] 13 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PARAMETER-ORDER INPUT OUTPUT FAULTS)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@68 (fn &key NAME NAMESPACE-TAG PARAMETER-ORDER INPUT OUTPUT FAULTS) (defalias 'make-soap-operation #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \203X @\314>\203? AA\211\202* \315>A@\203N \316\211\202* \317\320@\"\210\202( )\321\322 \n \f &.\207" [#1# name namespace-tag parameter-order input output :name :namespace-tag :parameter-order :input :output :faults (:name :namespace-tag :parameter-order :input :output :faults :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parameter-order :input :output :faults)" vector cl-struct-soap-operation faults #2=#:--cl-keys--] 9 (#$ . 63188)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\210\331\332 \"\203] \210\202a \332 B\304\333\334\335#\210\336\304\333\337\340\341\n!!#\210)\303\207" [cl-struct-soap-operation-tags cl-struct-soap-element-tags file cl-struct-soap-operation put soap-operation cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (parameter-order) (input) (output) (faults)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-operation side-effect-free copy-soap-operation soap-operation-p error-free soap-operation-faults soap-operation-output soap-operation-input soap-operation-parameter-order soap-operation-namespace-tag soap-operation-name memql cl-struct-soap-port-type soap-port-type-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-type-name (or (and (memq (aref cl-x 0) cl-struct-soap-port-type-tags)) (error "%s accessing a non-%s" 'soap-port-type-name 'soap-port-type)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-type-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-type-tags 0 error "%s accessing a non-%s" soap-port-type-name soap-port-type 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-type-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-type-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-port-type-tags)) (error "%s accessing a non-%s" 'soap-port-type-namespace-tag 'soap-port-type)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-type-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-type-tags 0 error "%s accessing a non-%s" soap-port-type-namespace-tag soap-port-type 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-type-operations compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-type-operations (or (and (memq (aref cl-x 0) cl-struct-soap-port-type-tags)) (error "%s accessing a non-%s" 'soap-port-type-operations 'soap-port-type)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-type-operations #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-type-tags 0 error "%s accessing a non-%s" soap-port-type-operations soap-port-type 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-type-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-type-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-port-type-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-type-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-port-type-tags vectorp 4 0 t] 2]) (defalias 'copy-soap-port-type #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-port-type compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317\320\313 \313 \n &+\207" [#1# name namespace-tag operations #:--cl-keys-- cl-whole :name :namespace-tag :operations (:name :namespace-tag :operations :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :operations)" cl--defsubst-expand (name namespace-tag operations) (cl-block make-soap-port-type (vector 'cl-struct-soap-port-type name namespace-tag operations))] 10 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG OPERATIONS)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@43 (fn &key NAME NAMESPACE-TAG OPERATIONS) (defalias 'make-soap-port-type #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@ \f\203> \f@\310>\203' \fAA\211\202 \311>A@\2035 \312\211\202 \313\314\f@\"\210\202 )\315\316 \n $+\207" [#1# name namespace-tag operations #2=#:--cl-keys-- :name :namespace-tag :operations (:name :namespace-tag :operations :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :operations)" vector cl-struct-soap-port-type] 6 (#$ . 68496)]) (byte-code "\302C\303\304\305\306#\210\303\304\307\310#\210\303\304\311\312#\210\303\304\313\314#\210\303\315\316\314#\210\303\317\316\314#\210\303\320\316\321#\210\303\322\316\314#\210\303\323\316\314#\210\303\324\316\314#\210\303\325\326\327#\210\330\303\325\331\332\333 !!#\210)\302\207" [cl-struct-soap-port-type-tags file cl-struct-soap-port-type put soap-port-type cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (operations)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-port-type side-effect-free copy-soap-port-type soap-port-type-p error-free soap-port-type-operations soap-port-type-namespace-tag soap-port-type-name soap-bound-operation-operation compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-operation (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (error "%s accessing a non-%s" 'soap-bound-operation-operation 'soap-bound-operation)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-bound-operation-operation #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-bound-operation-tags 0 error "%s accessing a non-%s" soap-bound-operation-operation soap-bound-operation 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-bound-operation-soap-action compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-soap-action (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (error "%s accessing a non-%s" 'soap-bound-operation-soap-action 'soap-bound-operation)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-bound-operation-soap-action #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-bound-operation-tags 0 error "%s accessing a non-%s" soap-bound-operation-soap-action soap-bound-operation 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-bound-operation-use compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-use (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (error "%s accessing a non-%s" 'soap-bound-operation-use 'soap-bound-operation)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-bound-operation-use #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-bound-operation-tags 0 error "%s accessing a non-%s" soap-bound-operation-use soap-bound-operation 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-bound-operation-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-p (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-bound-operation-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-bound-operation-tags vectorp 4 0 t] 2]) (defalias 'copy-soap-bound-operation #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-bound-operation compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@ \f\203> \f@\311>\203' \fAA\211\202 \312>A@\2035 \313\211\202 \314\315\f@\"\210\202 )\316\317\320\313 \313 \n &+\207" [#1# operation soap-action use #:--cl-keys-- cl-whole :operation :soap-action :use (:operation :soap-action :use :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:operation :soap-action :use)" cl--defsubst-expand (operation soap-action use) (cl-block make-soap-bound-operation (vector 'cl-struct-soap-bound-operation operation soap-action use))] 10 "\n\n(fn CL-WHOLE &cl-quote &key OPERATION SOAP-ACTION USE)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@39 (fn &key OPERATION SOAP-ACTION USE) (defalias 'make-soap-bound-operation #[(&rest #1=#:--cl-rest--) "\305>A@\306>A@\307>A@ \f\203> \f@\310>\203' \fAA\211\202 \311>A@\2035 \312\211\202 \313\314\f@\"\210\202 )\315\316 \n $+\207" [#1# operation soap-action use #2=#:--cl-keys-- :operation :soap-action :use (:operation :soap-action :use :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:operation :soap-action :use)" vector cl-struct-soap-bound-operation] 6 (#$ . 73541)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\326\327 \"\203K \210\202O \327 B\304\330\331\332#\210\333\304\330\334\335\336\n!!#\210)\313\207" [cl-struct-soap-bound-operation-tags cl-struct-soap-element-tags file cl-struct-soap-bound-operation put soap-bound-operation cl-struct-slots ((cl-tag-slot) (operation) (soap-action) (use)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-soap-bound-operation side-effect-free copy-soap-bound-operation soap-bound-operation-p error-free soap-bound-operation-use soap-bound-operation-soap-action soap-bound-operation-operation memql cl-struct-soap-binding soap-binding-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-binding-name (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (error "%s accessing a non-%s" 'soap-binding-name 'soap-binding)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-binding-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-binding-tags 0 error "%s accessing a non-%s" soap-binding-name soap-binding 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-binding-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-binding-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (error "%s accessing a non-%s" 'soap-binding-namespace-tag 'soap-binding)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-binding-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-binding-tags 0 error "%s accessing a non-%s" soap-binding-namespace-tag soap-binding 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-binding-port-type compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-binding-port-type (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (error "%s accessing a non-%s" 'soap-binding-port-type 'soap-binding)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-binding-port-type #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-binding-tags 0 error "%s accessing a non-%s" soap-binding-port-type soap-binding 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-binding-operations compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-binding-operations (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (error "%s accessing a non-%s" 'soap-binding-operations 'soap-binding)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-binding-operations #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-binding-tags 0 error "%s accessing a non-%s" soap-binding-operations soap-binding 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-binding-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-binding-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-binding-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-binding-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-binding-tags vectorp 5 0 t] 2]) (defalias 'copy-soap-binding #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-binding compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>\206 \312A@ \203H @\313>\2031 AA\211\202 \314>A@\203? \315\211\202 \316\317 @\"\210\202 )\320\321\322\315\315 \n \f& ,\207" [#1# name namespace-tag port-type operations #:--cl-keys-- :name :namespace-tag :port-type :operations (nil (make-hash-table :test 'equal)) (:name :namespace-tag :port-type :operations :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :port-type :operations)" cl--defsubst-expand (name namespace-tag port-type operations) (cl-block make-soap-binding (vector 'cl-struct-soap-binding name namespace-tag port-type operations)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PORT-TYPE OPERATIONS)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@53 (fn &key NAME NAMESPACE-TAG PORT-TYPE OPERATIONS) (defalias 'make-soap-binding #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>\206 \312\313\314\315\"DA@ \203M @\316>\2036 AA\211\202$ \317>A@\203D \312\211\202$ \320\321 @\"\210\202# )\322\323 \n \f%,\207" [#1# name namespace-tag port-type operations #2=#:--cl-keys-- :name :namespace-tag :port-type :operations nil make-hash-table :test equal (:name :namespace-tag :port-type :operations :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :namespace-tag :port-type :operations)" vector cl-struct-soap-binding] 7 (#$ . 79312)]) (byte-code "\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\321#\210\304\322\317\315#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\326\327 \"\203K \210\202O \327 B\304\330\331\332#\210\333\304\330\334\335\336\n!!#\210)\303\207" [cl-struct-soap-binding-tags cl-struct-soap-element-tags file cl-struct-soap-binding put soap-binding cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (port-type) (operations (make-hash-table :test 'equal) :readonly t)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t copy-soap-binding side-effect-free soap-binding-p error-free soap-binding-operations soap-binding-port-type soap-binding-namespace-tag soap-binding-name memql cl-struct-soap-port soap-port-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-name (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (error "%s accessing a non-%s" 'soap-port-name 'soap-port)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-name #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-tags 0 error "%s accessing a non-%s" soap-port-name soap-port 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-namespace-tag compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-namespace-tag (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (error "%s accessing a non-%s" 'soap-port-namespace-tag 'soap-port)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-namespace-tag #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-tags 0 error "%s accessing a non-%s" soap-port-namespace-tag soap-port 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-service-url compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-service-url (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (error "%s accessing a non-%s" 'soap-port-service-url 'soap-port)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-service-url #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-tags 0 error "%s accessing a non-%s" soap-port-service-url soap-port 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-binding compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-binding (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (error "%s accessing a non-%s" 'soap-port-binding 'soap-port)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-binding #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-port-tags 0 error "%s accessing a non-%s" soap-port-binding soap-port 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-port-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-port-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-port-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-port-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-port-tags vectorp 5 0 t] 2]) (defalias 'copy-soap-port #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-port compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\321\314\314 \n \f& ,\207" [#1# name namespace-tag service-url binding #:--cl-keys-- :name :namespace-tag :service-url :binding (:name :namespace-tag :service-url :binding :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :service-url :binding)" cl--defsubst-expand (name namespace-tag service-url binding) (cl-block make-soap-port (vector 'cl-struct-soap-port name namespace-tag service-url binding)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG SERVICE-URL BINDING)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@52 (fn &key NAME NAMESPACE-TAG SERVICE-URL BINDING) (defalias 'make-soap-port #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320 \n \f%,\207" [#1# name namespace-tag service-url binding #2=#:--cl-keys-- :name :namespace-tag :service-url :binding (:name :namespace-tag :service-url :binding :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :service-url :binding)" vector cl-struct-soap-port] 7 (#$ . 85008)]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\207" [cl-struct-soap-port-tags cl-struct-soap-port put soap-port cl-struct-slots ((cl-tag-slot) (name) (namespace-tag) (service-url) (binding)) cl-struct-type (vector nil) cl-struct-include soap-element cl-struct-print t make-soap-port side-effect-free copy-soap-port soap-port-p error-free soap-port-binding soap-port-service-url soap-port-namespace-tag soap-port-name] 4) #@60 Return a namespace containing some of the XMLSchema types. (defalias 'soap-default-xsd-types #[nil "\303\304\305\"\306\307\211\203# \n@\310\311\304 \312\313 !$\"\210\nA\211\204 *)\207" [ns type --dolist-tail-- make-soap-namespace :name "http://www.w3.org/2001/XMLSchema" ("string" "dateTime" "boolean" "long" "int" "integer" "unsignedInt" "byte" "float" "double" "base64Binary" "anyType" "anyURI" "Array" "byte[]") nil soap-namespace-put make-soap-basic-type :kind intern] 8 (#$ . 86203)]) #@58 Return a namespace containing some of the SOAPEnc types. (defalias 'soap-default-soapenc-types #[nil "\303\304\305\"\306\307\211\203# \n@\310\311\304 \312\313 !$\"\210\nA\211\204 *)\207" [ns type --dolist-tail-- make-soap-namespace :name "http://schemas.xmlsoap.org/soap/encoding/" ("string" "dateTime" "boolean" "long" "int" "integer" "unsignedInt" "byte" "float" "double" "base64Binary" "anyType" "anyURI" "Array" "byte[]") nil soap-namespace-put make-soap-basic-type :kind intern] 8 (#$ . 86707)]) #@61 Return t if ELEMENT is a SOAP data type (basic or complex). (defalias 'soap-type-p #[(element) "\304!\203 G\305Y\203 \306H >\203 \307\207\304!\203. G\310Y\203. \306H\n>\203. \307\207\304!\205D G\305Y\205D \306H >\205D \307\207" [element cl-struct-soap-basic-type-tags cl-struct-soap-sequence-type-tags cl-struct-soap-array-type-tags vectorp 4 0 t 5] 2 (#$ . 87222)]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-wsdl-origin compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-wsdl-origin (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (error "%s accessing a non-%s" 'soap-wsdl-origin 'soap-wsdl)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-wsdl-origin #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-wsdl-tags 0 error "%s accessing a non-%s" soap-wsdl-origin soap-wsdl 1] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-wsdl-ports compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-wsdl-ports (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (error "%s accessing a non-%s" 'soap-wsdl-ports 'soap-wsdl)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-wsdl-ports #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-wsdl-tags 0 error "%s accessing a non-%s" soap-wsdl-ports soap-wsdl 2] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-wsdl-alias-table compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-wsdl-alias-table (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (error "%s accessing a non-%s" 'soap-wsdl-alias-table 'soap-wsdl)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-wsdl-alias-table #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-wsdl-tags 0 error "%s accessing a non-%s" soap-wsdl-alias-table soap-wsdl 3] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-wsdl-namespaces compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-wsdl-namespaces (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (error "%s accessing a non-%s" 'soap-wsdl-namespaces 'soap-wsdl)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-wsdl-namespaces #[(cl-x) "\302H >\204 \303\304\305\306#\210\307H\207" [cl-x cl-struct-soap-wsdl-tags 0 error "%s accessing a non-%s" soap-wsdl-namespaces soap-wsdl 4] 4]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put soap-wsdl-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block soap-wsdl-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-wsdl-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'soap-wsdl-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-soap-wsdl-tags vectorp 5 0 t] 2]) (defalias 'copy-soap-wsdl #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-soap-wsdl compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320\321\314\314 \n \f& ,\207" [#1# origin ports alias-table namespaces #:--cl-keys-- :origin :ports :alias-table :namespaces (:origin :ports :alias-table :namespaces :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:origin :ports :alias-table :namespaces)" cl--defsubst-expand (origin ports alias-table namespaces) (cl-block make-soap-wsdl (vector 'cl-struct-soap-wsdl origin ports alias-table namespaces)) cl-whole] 11 "\n\n(fn CL-WHOLE &cl-quote &key ORIGIN PORTS ALIAS-TABLE NAMESPACES)"] "/builddir/build/BUILD/emacs-24.3/lisp/net/soap-client.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@49 (fn &key ORIGIN PORTS ALIAS-TABLE NAMESPACES) (defalias 'make-soap-wsdl #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202 \313>A@\203; \314\211\202 \315\316 @\"\210\202 )\317\320 \n \f%,\207" [#1# origin ports alias-table namespaces #2=#:--cl-keys-- :origin :ports :alias-table :namespaces (:origin :ports :alias-table :namespaces :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:origin :ports :alias-table :namespaces)" vector cl-struct-soap-wsdl] 7 (#$ . 91905)]) (byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\207" [cl-struct-soap-wsdl-tags cl-struct-soap-wsdl put soap-wsdl cl-struct-slots ((cl-tag-slot) (origin) (ports) (alias-table) (namespaces)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-soap-wsdl side-effect-free copy-soap-wsdl soap-wsdl-p error-free soap-wsdl-namespaces soap-wsdl-alias-table soap-wsdl-ports soap-wsdl-origin] 4) #@54 Add a namespace ALIAS for NAME to the WSDL document. (defalias 'soap-wsdl-add-alias #[(alias name wsdl) " B \306H\f>\204 \307\310\311\312#\210 \211 \313\n \313HBI*\207" [alias name #1=#:v wsdl cl-struct-soap-wsdl-tags #2=#:v 0 error "%s accessing a non-%s" soap-wsdl-alias-table soap-wsdl 3] 6 (#$ . 93070)]) #@48 Find a namespace by NAME in the WSDL document. (defalias 'soap-wsdl-find-namespace #[(name wsdl) "\300\301\215\207" [found (byte-code "\306H >\204 \307\310\311\312#\210\313H\314\211\205> @\f\n\306H >\204* \307\310\315\316#\210\n\317H\232\2036 \320\321\n\"\210 A\211\204 \314*\207" [wsdl cl-struct-soap-wsdl-tags ns --dolist-tail-- name cl-struct-soap-namespace-tags 0 error "%s accessing a non-%s" soap-wsdl-namespaces soap-wsdl 4 nil soap-namespace-name soap-namespace 1 throw found] 6)] 2 (#$ . 93388)]) #@137 Add the namespace NS to the WSDL document. If a namespace by this name already exists in WSDL, individual elements will be added to it. (defalias 'soap-wsdl-add-namespace #[(ns wsdl) "\306\307H >\204 \310\311\312\313#\210\314H\n\"\211\2030 \315\316\307H >\204) \310\311\317\313#\210\320H\"\202I \n\307H\f>\204> \310\311\321\322#\210\n\211 \323 \323HBI))\207" [ns cl-struct-soap-namespace-tags wsdl existing cl-struct-soap-wsdl-tags #1=#:v soap-wsdl-find-namespace 0 error "%s accessing a non-%s" soap-namespace-name soap-namespace 1 maphash #[(key value) "\304\211\205 \n@\305 \"\210\nA\211\204 \304*\207" [value v --dolist-tail-- existing nil soap-namespace-put] 4] soap-namespace-elements 2 soap-wsdl-namespaces soap-wsdl 4] 7 (#$ . 93910)]) #@502 Retrieve element NAME from the WSDL document. PREDICATE is used to differentiate between elements when NAME refers to multiple elements. A typical value for this would be a structure predicate for the type of element you want to retrieve. For example, to retrieve a message named "foo" when other elements named "foo" exist in the WSDL you could use: (soap-wsdl-get "foo" WSDL 'soap-message-p) If USE-LOCAL-ALIAS-TABLE is not nil, `soap-local-xmlns` will be used to resolve the namespace alias. (defalias 'soap-wsdl-get #[(name wsdl &optional predicate use-local-alias-table) "\306H >\204 \307\310\311\312#\210\313H\314\211\211 \"9\203$ \315\"!\"#\203/ \316$ \"\":\203W \"A\2119\203B \315 !\317\"@\"\211\204\236 \307\320\"\f#\210\202\236 \321\322\"\"\203\230 \323\324\"\"\323\325\"\" %\326% \"A\211 &\204\200 \307\327\"%#\210\317&\"\211\204\224 \307\330\"&%$\210*\202\236 \307\331\"\"\210\332 \f'\205\247 \333#\211\204\263 \307\334\"\"\210\335\n!\203\343 \nG\336Y\203\343 \n\306H(>\203\343 \337\n\306H(>\204\331 \307\310\340\341#\210\n\313H'#\202\344 \n,\207" [wsdl cl-struct-soap-wsdl-tags element element-name namespace alias-table 0 error "%s accessing a non-%s" soap-wsdl-alias-table soap-wsdl 3 nil symbol-name append soap-wsdl-find-namespace "Soap-wsdl-get(%s): unknown namespace: %s" string-match "^\\(.*\\):\\(.*\\)$" match-string 2 1 assoc "Soap-wsdl-get(%s): cannot find namespace alias %s" "Soap-wsdl-get(%s): unknown namespace %s, referenced by alias %s" "Soap-wsdl-get(%s): bad name" soap-namespace-get #[(e) "\302!\206 !\207" [e predicate soap-namespace-link-p] 2] "Soap-wsdl-get(%s): cannot find element" vectorp 4 soap-wsdl-get soap-namespace-link-target soap-namespace-link name use-local-alias-table soap-local-xmlns ns-alias ns-name predicate cl-struct-soap-namespace-link-tags] 6 (#$ . 94676)]) #@281 Resolve references in ELEMENT using the WSDL document. This is a generic function which invokes a specific function depending on the element type. If ELEMENT has no resolver function, it is silently ignored. All references are resolved in-place, that is the ELEMENT is updated. (defalias 'soap-resolve-references-for-element #[(element wsdl) "\303H\304N\211\205 \n\")\207" [element resolver wsdl 0 soap-resolve-references] 4 (#$ . 96549)]) #@70 Resolve the base type for the simple TYPE using the WSDL document. (defalias 'soap-resolve-references-for-simple-type #[(type wsdl) "\306H >\204 \307\310\311\312#\210\313H\2119?\205C \314\n \315# \306H >\204, \307\310\311\312#\210\211 \313\f\306H >\204> \307\310\311\312#\210\f\313HI*)\207" [type cl-struct-soap-basic-type-tags kind wsdl basic-type #1=#:v 0 error "%s accessing a non-%s" soap-basic-type-kind soap-basic-type 3 soap-wsdl-get soap-basic-type-p] 7 (#$ . 97002)]) #@143 Resolve references for a sequence TYPE using WSDL document. See also `soap-resolve-references-for-element' and `soap-wsdl-resolve-references' (defalias 'soap-resolve-references-for-sequence-type #[(type wsdl) "\306H >\204 \307\310\311\312#\210\313H\211:\204 \n;\2036 \306H >\204* \307\310\311\312#\210\211\313\314\n\f\315#I\210))\306H >\204E \307\310\316\312#\210\317H\320 \211 \205\275 @\211\306H>\204c \307\310\321\322#\210 \323H\211 :\204s ;\203\223 \306H>\204\202 \307\310\321\322#\210 \211 \323\314\f\324#I\210)\202\262 \325!\203\262 G\313Y\203\262 \306H>\203\262 \326\f\"\210)A\211\204P \320*\207" [type cl-struct-soap-sequence-type-tags parent #1=#:v wsdl element 0 error "%s accessing a non-%s" soap-sequence-type-parent soap-sequence-type 3 soap-wsdl-get #[(e) " =?\205\n \302!\207" [e type soap-type-p] 2] soap-sequence-type-elements 4 nil soap-sequence-element-type soap-sequence-element 2 #[(e) " =?\205\n \302!\207" [e type soap-type-p] 2] vectorp soap-resolve-references-for-element --dolist-tail-- cl-struct-soap-sequence-element-tags element-type #2=#:v cl-struct-soap-element-tags] 7 (#$ . 97494)]) #@132 Resolve references for an array TYPE using WSDL. See also `soap-resolve-references-for-element' and `soap-wsdl-resolve-references' (defalias 'soap-resolve-references-for-array-type #[(type wsdl) "\305H >\204 \306\307\310\311#\210\312H\211:\204 \n;\2055 \305H >\204* \306\307\310\311#\210\211\312\313\n\f\314#I))\207" [type cl-struct-soap-array-type-tags element-type #1=#:v wsdl 0 error "%s accessing a non-%s" soap-array-type-element-type soap-array-type 3 soap-wsdl-get #[(e) " =?\205\n \302!\207" [e type soap-type-p] 2]] 7 (#$ . 98660)]) #@146 Resolve references for a MESSAGE type using the WSDL document. See also `soap-resolve-references-for-element' and `soap-wsdl-resolve-references' (defalias 'soap-resolve-references-for-message #[(message wsdl) "\306 \307H\n>\204 \310\311\312\313#\210 \314H\306\211 \203O \f@\211@ A \211 ;\203/ \315! :\2049 ;\203@ \316 \317# BB*\fA\211\204 * \307H\n>\204^ \310\311\312\313#\210 \211 \314\237I*\207" [resolved-parts message cl-struct-soap-message-tags part --dolist-tail-- type nil 0 error "%s accessing a non-%s" soap-message-parts soap-message 3 intern soap-wsdl-get soap-type-p name wsdl #1=#:v] 5 (#$ . 99219)]) #@149 Resolve references for an OPERATION type using the WSDL document. See also `soap-resolve-references-for-element' and `soap-wsdl-resolve-references' (defalias 'soap-resolve-references-for-operation #[(operation wsdl) "\306H >\204 \307\310\311\312#\210\313H\306\211@ A \211 \203$ \314\232\203, \315\316\nT\211\"\f:\2046 \f;\203V \306H >\204D \307\310\311\312#\210\211 \313\317 !\320\f!\321#BI\210),\306H >\204e \307\310\322\312#\210\323H\306\211 \"@\"A \211 \203} \314\232\203\205 \315\324\nT\211\"\f:\204\217 \f;\203\257 \306H >\204\235 \307\310\322\312#\210\211 #\323\317 !\320\f!\321#BI\210),\325\306 $\306H >\204\303 \307\310\326\312#\210\327H\325 %\211 &\203&@\211%@%A \211 \203\345 \314\232\203\355 \315\330\nT\211\"\f:\204\367 \f;\203 \317 !\320\f!\321#B$B$\202%$B$*&A\211&\204\317 *\306H >\204)\307\310\326\312#\210\211 '\327$I\210+\306H >\204A\307\310\331\312#\210\332HG\306U\203\227\306H >\204X\307\310\331\312#\210\211 (\332\333\334\306H >\204m\307\310\311\312#\210\313HA\306H)>\204\307\310\335\336#\210\306H >\204\215\307\310\311\312#\210\313HA\332H\"I\210)\306H >\204\245\307\310\331\312#\210\211 *\332\333\337\306H >\204\272\307\310\331\312#\210\332H\"I)\207" [operation cl-struct-soap-operation-tags counter input message name 0 error "%s accessing a non-%s" soap-operation-input soap-operation 4 "" format "in%d" intern soap-wsdl-get soap-message-p soap-operation-output 5 "out%d" nil soap-operation-faults 6 "fault%d" soap-operation-parameter-order 3 mapcar car soap-message-parts soap-message #[(p) ";\203 \301!\207\207" [p intern] 2] #1=#:v wsdl output #2=#:v resolved-faults fault --dolist-tail-- #3=#:v #4=#:v cl-struct-soap-message-tags #5=#:v] 9 (#$ . 99861)]) #@146 Resolve references for a BINDING type using the WSDL document. See also `soap-resolve-references-for-element' and `soap-wsdl-resolve-references' (defalias 'soap-resolve-references-for-binding #[(binding wsdl) "\306H >\204 \307\310\311\312#\210\313H:\204* \306H >\204# \307\310\311\312#\210\313H;\203T \306H >\2048 \307\310\311\312#\210\211\313\314\306H >\204K \307\310\311\312#\210\313H \315#I\210)\306H >\204b \307\310\311\312#\210\313H\306H\f>\204r \307\310\316\317#\210\306H >\204\200 \307\310\311\312#\210\313H\313H \320\321\306H >\204\226 \307\310\322\312#\210\323H\")\207" [binding cl-struct-soap-binding-tags #1=#:v wsdl cl-struct-soap-port-type-tags port-ops 0 error #3="%s accessing a non-%s" soap-binding-port-type soap-binding 3 soap-wsdl-get soap-port-type-p soap-port-type-operations soap-port-type maphash #[(k v) "\305H >\204 \306\307\310\311#\210\211\312\313 \f\314#I)\207" [v cl-struct-soap-bound-operation-tags #2=#:v k port-ops 0 error #3# soap-bound-operation-operation soap-bound-operation 1 soap-namespace-get soap-operation-p] 7] soap-binding-operations 4] 8 (#$ . 101624)]) #@143 Resolve references for a PORT type using the WSDL document. See also `soap-resolve-references-for-element' and `soap-wsdl-resolve-references' (defalias 'soap-resolve-references-for-port #[(port wsdl) "\304H >\204 \305\306\307\310#\210\311H:\204* \304H >\204# \305\306\307\310#\210\311H;\205S \304H >\2048 \305\306\307\310#\210\211\311\312\304H >\204K \305\306\307\310#\210\311H \313#I)\207" [port cl-struct-soap-port-tags #1=#:v wsdl 0 error "%s accessing a non-%s" soap-port-binding soap-port 4 soap-wsdl-get soap-binding-p] 8 (#$ . 102749)]) (byte-code "\300\301\302\303\211\211\211%\304H\305\306#\210\300\301\307\303\211\211\211%\304H\305\310#\210\300\301\311\303\211\211$\304H\305\312#\210\300\301\313\303\211\211$\304H\305\314#\210\300\301\315\303\211\211\211\211\211&\304H\305\316#\210\300\317 \304H\305\320#\210\300\301\321\303\211\211\211%\304H\305\322#\207" [put vector cl-struct-soap-simple-type nil 0 soap-resolve-references soap-resolve-references-for-simple-type cl-struct-soap-sequence-type soap-resolve-references-for-sequence-type cl-struct-soap-array-type soap-resolve-references-for-array-type cl-struct-soap-message soap-resolve-references-for-message cl-struct-soap-operation soap-resolve-references-for-operation make-soap-binding soap-resolve-references-for-binding cl-struct-soap-port soap-resolve-references-for-port] 9) #@521 Resolve all references inside the WSDL structure. When the WSDL elements are created from the XML document, they refer to each other by name. For example, the ELEMENT-TYPE slot of an SOAP-ARRAY-TYPE will contain the name of the element and the user would have to call `soap-wsdl-get' to obtain the actual element. After the entire document is loaded, we resolve all these references to the actual elements they refer to so that at runtime, we don't have to call `soap-wsdl-get' each time we traverse an element tree. (defalias 'soap-wsdl-resolve-references #[(wsdl) "\306\211\306H >\204 \307\310\311\312#\210\313H \306H >\204$ \307\310\314\312#\210\315H\316 \211 \203s @\317 \306H>\204C \307\310\320\321#\210 \322H\n\"\242\211 \204S \323\324\215\210\325\326 \306H>\204d \307\310\327\321#\210 \330H\"\210)A\211\204/ -\207" [wsdl cl-struct-soap-wsdl-tags alias-table nstag-id nprocessed ns 0 error #1="%s accessing a non-%s" soap-wsdl-alias-table soap-wsdl 3 soap-wsdl-namespaces 4 nil rassoc soap-namespace-name soap-namespace 1 done (byte-code "\306\307T\211\"\310 \n\"\204 \311 \312H\f>\204 \313\314\315\316#\210 \317H #\210\320\321\322\"\210\202 " [nstag-id nstag alias-table ns cl-struct-soap-namespace-tags wsdl format "ns%d" assoc soap-wsdl-add-alias 0 error #1# soap-namespace-name soap-namespace 1 throw done t] 6) maphash #[(name element) "\306!\2033 G\307Y\2033 \310H >\2033 \nT\311 \"\210\310H >\204+ \312\313\314\315#\210\211 \316 I)\207<\205\214 \317 \211 \205\213 @\306!\203\201 G\307Y\203\201 \310H >\203\201 \nT\311 \"\210\310H >\204w \312\313\314\315#\210\211 \316 I\210)A\211\204B \317*\207" [element cl-struct-soap-element-tags nprocessed wsdl #2=#:v nstag vectorp 3 0 soap-resolve-references-for-element error #1# soap-element-namespace-tag soap-element 2 nil e --dolist-tail-- #3=#:v] 5] soap-namespace-elements 2 --dolist-tail-- cl-struct-soap-namespace-tags nstag] 7 (#$ . 104112)]) #@115 Load a WSDL document from URL and return it. The returned WSDL document needs to be used for `soap-invoke' calls. (defalias 'soap-load-wsdl-from-url #[(url) "\306\307\310\311\312\313 \314!! \"r\"q\210#\315V\203$ \316\317#\"\210\320\321\211\"\211 $\2042 \316\322!\210$A@@\323\232\204@ \316\324!\210\325\326! %r%q\210\327\216\330$!\210\331ed\"@ &\332&!\211 '\333H(>\204m \316\334\335\336#\210'\211 )\337!I\210)')\340\"!\210. \207" [url-http-attempt-keepalives url-request-coding-system url-mime-charset-string url-package-version url-package-name url-request-method "GET" "soap-client.el" "1.0" "utf-8;q=1, iso-8859-1;q=0.5" utf-8 nil url-retrieve-synchronously 299 error "Error retrieving WSDL: %s" mm-dissect-buffer t "Failed to decode response from server" "text/xml" "Server response is not an XML document" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) mm-insert-part xml-parse-region soap-parse-wsdl 0 "%s accessing a non-%s" soap-wsdl-origin soap-wsdl 1 kill-buffer url buffer url-http-response-status mime-part #1# wsdl-xml wsdl cl-struct-soap-wsdl-tags #2=#:v] 7 (#$ . 106088)]) #@47 Load a WSDL document from FILE and return it. (defalias 'soap-load-wsdl #[(file) "\306\307!rq\210\310\216\311 !\210\312ed\"@\313\n!\211\314H\f>\204& \315\316\317\320#\210 \211 \321 I\210) -\207" [#1=#:temp-buffer file xml wsdl cl-struct-soap-wsdl-tags #2=#:v generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents xml-parse-region soap-parse-wsdl 0 error "%s accessing a non-%s" soap-wsdl-origin soap-wsdl 1] 5 (#$ . 107275)]) #@65 Construct a WSDL structure from NODE, which is an XML document. (defalias 'soap-parse-wsdl #[(node) "\306 \"\211@\206 \nA@\206 \f\307\n8 \310\211@)!\311=\204/ \312\313\310\211@)!\"\210\314\315\316\211\211\211%\211 \317H<>\204F \312\320\321\322#\210 \211 =\323 I\210)\324 >\325> \"\210\326\327>\317H?>\204k \312\320\330\331#\210>\332H #\210)\333 >\325> \"\210\326\334>\317H?>\204\217 \312\320\330\331#\210>\332H #\210)\335\336\"@\211 @\211\211 AAA*\316\211 B\203\360 B@\211:\203\347 \306 \"\211 C@\206\304 CA@\206\314 \f\307C8 \310\211@)!\337=\203\346 \325\340! \"\210,BA\211B\204\257 +\341\342\343!\" >\335\344\"\316\211 B\203B@\345\346!>\"\210BA\211B\204*\335\347\"\316\211 B\203YB@\350! D\345D>\"\210\325D\317HE>\204H\312\320\351\352#\210D\323H \"\210)BA\211B\204'*\335\353\"\316\211 B\203{B@\345\354!>\"\210BA\211B\204f*\335\355\"\316\211 B\203 B@\335\356\"\316\211 B\203B@\211\357 F\360F\"\206\252\361*\362 F\360F\"\206\271\361*\335\363\"@\211 G\364 F\360F\"\206\317\361+ H 2 /\365\342/\366\3672\370\"\371H& I\345I>\"\210 \317H<>\204\375\312\320\372\322#\210 \211 J\307IJ\307HBI\210-BA\211B\204\230*BA\211B\204\210*\325> \"\210)\373 !\210 -\207" [node soap-local-xmlns #1=#:xmlns soap-default-xmlns soap-target-xmlns wsdl soap-extract-xmlns 2 soap-l2wk wsdl:definitions error "soap-parse-wsdl: expecting wsdl:definitions node, got %s" vector cl-struct-soap-wsdl nil 0 "%s accessing a non-%s" soap-wsdl-alias-table soap-wsdl 3 soap-default-xsd-types soap-wsdl-add-namespace soap-wsdl-add-alias "xsd" soap-namespace-name soap-namespace 1 soap-default-soapenc-types "soapenc" soap-xml-get-children1 wsdl:types xsd:schema soap-parse-schema make-soap-namespace :name soap-get-target-namespace wsdl:message soap-namespace-put soap-parse-message wsdl:portType soap-parse-port-type soap-port-type-operations soap-port-type wsdl:binding soap-parse-binding wsdl:service wsdl:port name xml-get-attribute-or-nil "" binding wsdlsoap:address location make-soap-port :binding soap-l2fq tns :service-url soap-wsdl-ports soap-wsdl-resolve-references cl-struct-soap-wsdl-tags #2=#:v ns cl-struct-soap-namespace-tags types x --dolist-tail-- #3=#:xmlns port-type cl-struct-soap-port-type-tags attribute n url port #4=#:v] 8 (#$ . 107788)]) #@71 Parse a schema NODE. Return a SOAP-NAMESPACE containing the elements. (defalias 'soap-parse-schema #[(node) "\306 \"\211@\206 \nA@\206 \f\307\n8 \310\211@)!\311=\204/ \312\313\310\211@)!\"\210\314\315\316!\" \317\320\"\321\211 \203V @\322\323! \"\210A\211\204B *\317\324\"\321\211 \203w @\322\325! \"\210A\211\204c *\317\326\"\321\211 \203\230 @\322\327! \"\210A\211\204\204 * -\207" [node soap-local-xmlns #1=#:xmlns soap-default-xmlns soap-target-xmlns ns soap-extract-xmlns 2 soap-l2wk xsd:schema error "soap-parse-schema: expecting an xsd:schema node, got %s" make-soap-namespace :name soap-get-target-namespace soap-xml-get-children1 xsd:simpleType nil soap-namespace-put soap-parse-simple-type xsd:complexType soap-parse-complex-type xsd:element soap-parse-schema-element --dolist-tail--] 5 (#$ . 110136)]) #@49 Parse NODE and construct a simple type from it. (defalias 'soap-parse-simple-type #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\304\"\313\211\314\315\"\242 \204/ \310\316\f\"\210\312 \317\"\314 \320\"\313 \211 \203_ @\211\321 \312\"\206R \322*\nBA\211\204@ *\323\324\f\313 \n%,\207" [node restriction enumeration type name e soap-l2wk xsd:simpleType error "soap-parse-complex-type: expecting xsd:simpleType node, got %s" xml-get-attribute-or-nil nil soap-xml-get-children1 xsd:restriction "simpleType %s has no base type" base xsd:enumeration value "" vector cl-struct-soap-simple-type --dolist-tail-- attribute] 7 (#$ . 111000)]) #@52 Parse NODE and construct a schema element from it. (defalias 'soap-parse-schema-element #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\302\"\313\314\315\"\211G\316V\203< G\317U\2047 \320\321\322C\"\210\323 @!) \316H\f>\204K \310\324\325\326#\210 \211 \317\nI\210) *\207" [node type name type-node cl-struct-soap-element-tags #1=#:v soap-l2wk xsd:element error "soap-parse-schema-element: expecting xsd:element node, got %s" xml-get-attribute-or-nil nil soap-xml-get-children1 xsd:complexType 0 1 signal cl-assertion-failed (= (length type-node) 1) soap-parse-complex-type "%s accessing a non-%s" soap-element-name soap-element] 5 (#$ . 111678)]) #@50 Parse NODE and construct a complex type from it. (defalias 'soap-parse-complex-type #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\302\"\313\314\315\211\211\211%\211\211AA*\315 \211 \203\207 @\211:\203\200 \306\f\211@)!\211 \316=\204Q \317=\203X \320\f!\202 \321=\203f \322\f!\202 \323=\203y \312\f\302\"\211 )\202 \310\324\"\210) A\211\2043 * \325H >\204\227 \310\326\327\330#\210 \211 \331\nI\210) *\207" [node type name x c --dolist-tail-- soap-l2wk xsd:complexType error "soap-parse-complex-type: expecting xsd:complexType node, got %s" xml-get-attribute-or-nil vector cl-struct-soap-sequence-type nil xsd:sequence xsd:all soap-parse-complex-type-sequence xsd:complexContent soap-parse-complex-type-complex-content xsd:attribute "Unknown node type %s" 0 "%s accessing a non-%s" soap-element-name soap-element 1 node-name n cl-struct-soap-element-tags #1=#:v] 8 (#$ . 112356)]) #@283 Parse NODE and a list of sequence elements that it defines. NODE is assumed to be an xsd:sequence node. In that case, each of its children is assumed to be a sequence element. Each sequence element is parsed constructing the corresponding type. A list of these types is returned. (defalias 'soap-parse-sequence #[(node) "\306\211@)!\211\307>)\204 \310\311\306\211@)!\"\210\312\313\314\"\312\211 \203\250 \f@\315 \316\"\315 \317\"\315 \320\"\321\232\206H \315 \322\"\211\205G \323\232)\315 \324\"\211\205U \325\232?) # \203l \326\327\"\202\215 \313 \330\"\211 $G\331V\203\214 $G\332U\204\205 \310\333!\210\334$@!)\335\336\337!\340\341#\342 &\nB,\fA\211\204' *\n\237)\207" [node n elements e --dolist-tail-- multiple\? soap-l2wk (xsd:sequence xsd:all) error "soap-parse-sequence: expecting xsd:sequence or xsd:all node, got %s" nil soap-xml-get-children1 xsd:element xml-get-attribute-or-nil name type nillable "true" minOccurs "0" maxOccurs "1" soap-l2fq tns xsd:complexType 0 1 "only one complex type definition per element supported" soap-parse-complex-type make-soap-sequence-element :name intern :type :nillable\? :multiple\? nillable\? type-node] 10 (#$ . 113291)]) #@32 Parse NODE as a sequence type. (defalias 'soap-parse-complex-type-sequence #[(node) "\302!\303\304\305\211\211 %)\207" [node elements soap-parse-sequence vector cl-struct-soap-sequence-type nil] 6 (#$ . 114505)]) #@116 Parse NODE as a xsd:complexContent node. A sequence or an array type is returned depending on the actual contents. (defalias 'soap-parse-complex-type-complex-content #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\211\211\313\314\"\242\313\315\"\242 \211 \203= \316 \317\"\320\313 \321\"@!\202| \f\203x \316\f\317\"\211 \322\323!\232\204U \310\324\"\210)\325\313\f\326\"@ #\327#\330\" $\331\332$\"\203t \333\334$\"*\202| \310\335!\210*\n\203\206 \336\n\337\" \203\223 \340\341\312\211\n$\202\232 \340\342\312\211\n %+\207" [node elements parent array\? restriction extension soap-l2wk xsd:complexContent error "soap-parse-complex-type-complex-content: expecting xsd:complexContent node, got %s" nil soap-xml-get-children1 xsd:extension xsd:restriction xml-get-attribute-or-nil base soap-parse-sequence xsd:sequence soap-wk2l "soapenc:Array" "restrictions supported only for soapenc:Array types, this is a %s" t xsd:attribute soap-xml-get-attribute-or-nil1 wsdl:arrayType string-match "^\\(.*\\)\\[\\]$" match-string 1 "Unknown complex type" soap-l2fq tns vector cl-struct-soap-array-type cl-struct-soap-sequence-type attribute array-type] 7 (#$ . 114727)]) #@65 Parse NODE as a wsdl:message and return the corresponding type. (defalias 'soap-parse-message #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\302\"\313\314\315\"\313\211 \203d \f@\312 \302\"\312 \316\"\312 \305\" \203H \317\320\" \203Q \317 \320\"\n\206X B B+\fA\211\204) *\321\322\n\323 \237$*\207" [node parts name p --dolist-tail-- element soap-l2wk wsdl:message error "soap-parse-message: expecting wsdl:message node, got %s" xml-get-attribute-or-nil nil soap-xml-get-children1 wsdl:part type soap-l2fq tns make-soap-message :name :parts] 6 (#$ . 115924)]) #@66 Parse NODE as a wsdl:portType and return the corresponding port. (defalias 'soap-parse-port-type #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\313\314\315\316 \"\206& \317*P\"\320\321\"\322\211\203@ @\323! \324\f\325H >\204K \310\326\327\330#\210\f\331H\n\332#\211 /\203~ \333\f\325H >\204f \310\326\327\330#\210\f\331HC 0 1\334\335\336\33710#\340#*\210\2028\341\f\n\"\210\f\325H2>\204\222 \310\326\342\343#\210\f\344H\211 1\203\245 1\211A1@\202\255 \345\346\3221GD\" \347 1\n#\210*\f\325H2>\204\307 \310\326\350\343#\210\f\351H\211 1\203\332 1\211A1@\202\342 \345\346\3221GD\" \347 1\n#\210*\f\325H2>\204\374 \310\326\352\343#\210\f\353H\322 3\211\2037 @\2113\211 1\203 1\211A1@\202$\345\346\3221GD\" \347 1\n\354$\210* A\211\204** A\211\2045 *\355\313\315\316 \"\206O\317*\356\n$)\207" [node attribute ns --dolist-tail-- o cl-struct-soap-element-tags soap-l2wk wsdl:portType error "soap-parse-port-type: expecting wsdl:portType node got %s" make-soap-namespace :name "urn:" name xml-get-attribute-or-nil "" soap-xml-get-children1 wsdl:operation nil soap-parse-operation soap-namespace-get 0 "%s accessing a non-%s" soap-element-name soap-element 1 soap-operation-p "Discarding duplicate operation: %s" display-warning soap-client apply format :warning soap-namespace-put soap-operation-input soap-operation 4 signal wrong-number-of-arguments soap-namespace-put-link soap-operation-output 5 soap-operation-faults 6 replace make-soap-port-type :operations other-operation args message cl-struct-soap-operation-tags fault] 7 (#$ . 116530)]) #@67 Parse NODE as a wsdl:operation and return the corresponding type. (defalias 'soap-parse-operation #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\312\313 \"\206# \314*\315\316\313 \"\2061 \314*!\317\211\211 \n\211\211 AA*\317 \211 \203 @\211 :\203\375 \306 \211@)!\211 \320=\203\225 \321\313 \"\206u \314* \312\313 \"\206\203 \314* \n \n\322\323\"B*\202\374 \324=\203\311 \321\313 \"\206\251 \314* \312\313 \"\206\267 \314* \n \n\322\323\"B*\202\374 \325=\203\374 \321\313 \"\206\335 \314* \312\313 \"\206\353 \314* \n \n\322\323\"B\nB*) A\211 \204N *\326\327\n\330 \331\f\332 \333\n\237&\n-\207" [node attribute faults output input parameter-order soap-l2wk wsdl:operation error "soap-parse-operation: expecting wsdl:operation node, got %s" name xml-get-attribute-or-nil "" split-string parameterOrder nil wsdl:input message soap-l2fq tns wsdl:output wsdl:fault make-soap-operation :name :parameter-order :input :output :faults x n --dolist-tail-- node-name] 12 (#$ . 118145)]) #@65 Parse NODE as a wsdl:binding and return the corresponding type. (defalias 'soap-parse-binding #[(node) "\306\211@)!\307=\204 \310\311\306\211@)!\"\210\303\312 \"\206# \313*\302\312 \"\2060 \313*\314\315 \316\317\n\320\"$ \321\322\"\323 \211 %\203E%@\211\303\312 \"\206Y \313*\323\211 &\321 \324\"\323 '\211 %\203\203 %@'\312'\325\"&%A\211%\204n *\321 \326\"\323 (\211 %\203\310 %@(\321(\327\"\323 )\211 %\203\276 %@)\206\263 \312)\330\"%A\211%\204\244 *%A\211%\204\221 *\204\321 \331\"\323 (\211 %\203%@(\321(\327\"\323 )\211 %\203%@)\206\375 \312)\330\"%A\211%\204\356 *%A\211%\204\333 *\332 \333\334 \335&\336\205%\337!&\f\340H*>\2046\310\341\342\343#\210\f\344H#\210+%A\211%\204I *\f+\207" [node attribute type name binding wo soap-l2wk wsdl:binding error "soap-parse-binding: expecting wsdl:binding node, got %s" xml-get-attribute-or-nil "" make-soap-binding :name :port-type soap-l2fq tns soap-xml-get-children1 wsdl:operation nil wsdlsoap:operation soapAction wsdl:input wsdlsoap:body use wsdl:output puthash make-soap-bound-operation :operation :soap-action :use intern 0 "%s accessing a non-%s" soap-binding-operations soap-binding 4 --dolist-tail-- soap-action so i b cl-struct-soap-binding-tags] 11 (#$ . 119217)]) #@136 The list of multi-ref nodes in the current SOAP response. This is a dynamically bound variable used during decoding the SOAP response. (defvar soap-multi-refs nil (#$ . 120527)) #@140 List of decoded multi-ref nodes in the current SOAP response. This is a dynamically bound variable used during decoding the SOAP response. (defvar soap-decoded-multi-refs nil (#$ . 120712)) #@103 The current WSDL document used when decoding the SOAP response. This is a dynamically bound variable. (defvar soap-current-wsdl nil (#$ . 120909)) #@298 Use TYPE (an xsd type) to decode the contents of NODE. NODE is an XML node, representing some SOAP encoded value or a reference to another XML node (a multiRef). This function will resolve the multiRef reference, if any, than call a TYPE specific decode function to perform the actual decoding. (defalias 'soap-decode-type #[(type node) "\306\301\"\211\203 \307\310\215\202M \311\n\"\211@\206 \f A@\206! \312 8 \313\314\"\315\232?\205L \316H\317N\211 \204E \320\321\316H\"\210\"),)\207" [node href soap-local-xmlns #1=#:xmlns soap-default-xmlns soap-target-xmlns xml-get-attribute-or-nil done (byte-code "\306 \"A\211\203 \307\310\n\"\210)\311\312\"\210\313\314\"\f\315 \211 \203] @\211\303 \316\"\2067 \317* \232\203S \320 \"\nB B\307\310\n\"\210))A\211\204# *\321\322\")\207" [href soap-decoded-multi-refs decoded id soap-multi-refs mr assoc throw done string-match "^#\\(.*\\)$" match-string 1 nil xml-get-attribute-or-nil "" soap-decode-type error "Cannot find href %s" --dolist-tail-- attribute node mrid type] 4) soap-extract-xmlns 2 soap-xml-get-attribute-or-nil1 xsi:nil "true" 0 soap-decoder error "no soap-decoder for %s type" type decoder] 5 (#$ . 121063)]) #@47 Decode NODE using type information inside it. (defalias 'soap-decode-any-type #[(node) "\306\307\"\211\203\" \310 \n\311#\211\203 \312 \"\202 \313\314 \")\202u \211\211 AA*\211 G\315U\203= @;\203= @\202t \316 \316 \211 \203o @\211\211@)\317! \211 BB*A\211\204J *\237)))\207" [node type soap-current-wsdl wtype x contents soap-xml-get-attribute-or-nil1 xsi:type soap-wsdl-get soap-type-p soap-decode-type error "Soap-decode-any-type: node has unknown type: %s" 1 nil soap-decode-any-type result element --dolist-tail-- value key] 5 (#$ . 122291)]) #@59 Decode NODE as an Array using type information inside it. (defalias 'soap-decode-array #[(node) "\306\307\"\310\211\211AA*\310 \211 \203, \311\312\313 #\314 \315#\211\204, \316\317 \"\210 \310 \211 \203\\ @\211:\203S \f\203L \320\f\"\202P \321!\nBA\211\2046 *\n\237,\207" [node x result contents wtype type soap-xml-get-attribute-or-nil1 soapenc:arrayType nil replace-regexp-in-string "\\[[0-9]+\\]\\'" "" soap-wsdl-get soap-type-p error "Soap-decode-array: node has unknown type: %s" soap-decode-type soap-decode-any-type soap-current-wsdl e --dolist-tail--] 5 (#$ . 122879)]) #@196 Use TYPE to decode the contents of NODE. TYPE is a `soap-basic-type' struct, and NODE is an XML document. A LISP value is returned based on the contents of NODE and the type-info stored in TYPE. (defalias 'soap-decode-basic-type #[(type node) "\211\211AA*\n\306H >\204 \307\310\311\312#\210\n\313H \211 \205\205 \314\f\315\"\203+ @\202\205 \316\f\317\"\2037 @\202\205 \314\f\320\"\203E \321 @!\202\205 \316\f\322\"\203T @\227\323\230\202\205 \316\f\324\"\203b \325 @!\202\205 \316\f\326\"\203o \327!\202\205 \316\f\330\"\203| \331!\202\205 \307\332\f\333#\205\205 \334*\207" [node x type cl-struct-soap-basic-type-tags type-kind contents 0 error "%s accessing a non-%s" soap-basic-type-kind soap-basic-type 3 memql (string anyURI) eql dateTime (long int integer unsignedInt byte float double) string-to-number boolean "true" base64Binary base64-decode-string anyType soap-decode-any-type Array soap-decode-array "cl-ecase failed: %s, %s" (anyURI string dateTime double float byte unsignedInt integer int long boolean base64Binary anyType Array) nil] 6 (#$ . 123489)]) #@136 Use TYPE to decode the contents of NODE. TYPE is assumed to be a sequence type and an ALIST with the contents of the NODE is returned. (defalias 'soap-decode-sequence-type #[(type node) "\306\307H >\204 \310\311\312\313#\210\314H\n\203 \315\n\f\"\237\307H >\204, \310\311\316\313#\210\317H\306 \211 !\203$!@\307 \307H\">\204K \310\311\320\321#\210 \322H \307H\">\204] \310\311\323\321#\210 \324H # $ %\325\f$\"\306 \211 !\203\220 !@%T%$\315#\f\"B B!A\211!\204s *%\307U\203\327 \307H\">\204\247 \310\311\326\321#\210 \314H\204\327 \327\307H&>\204\275 \310\311\330\331#\210\322H$D ' (\332\333\334\335('#\336#*\210\202%\322V\203 \307H\">\204\355 \310\311\337\321#\210 \317H\204\340\307H&>\204\310\311\330\331#\210\322H$D ' (\332\333\334\335('#\336#*\210+!A\211!\2047 * \237*\207" [type cl-struct-soap-sequence-type-tags parent result node element nil 0 error "%s accessing a non-%s" soap-sequence-type-parent soap-sequence-type 3 soap-decode-type soap-sequence-type-elements 4 soap-sequence-element-name soap-sequence-element 1 soap-sequence-element-type 2 xml-get-children soap-sequence-element-nillable\? "While decoding %s: missing non-nillable slot %s" soap-element-name soap-element display-warning soap-client apply format :warning soap-sequence-element-multiple\? "While decoding %s: multiple slots named %s" --dolist-tail-- cl-struct-soap-sequence-element-tags e-type e-name instance-count cl-struct-soap-element-tags args message] 7 (#$ . 124573)]) #@173 Use TYPE to decode the contents of NODE. TYPE is assumed to be an array type. Arrays are decoded as lists. This is because it is easier to work with list results in LISP. (defalias 'soap-decode-array-type #[(type node) "\306\307H >\204 \310\311\312\313#\210\314H\f\211 \211 AA*\306 \211 \203= @\211:\2034 \315\n\f\" BA\211\204$ * \237*\207" [type cl-struct-soap-array-type-tags element-type result node x nil 0 error "%s accessing a non-%s" soap-array-type-element-type soap-array-type 3 soap-decode-type --dolist-tail--] 6 (#$ . 126086)]) (byte-code "\300\301\302\303\211\211$\304H\305\306#\210\300\301\307\303\211\211\211%\304H\305\306#\210\300\301\310\303\211\211\211%\304H\305\311#\210\300\301\312\303\211\211$\304H\305\313#\210\300\314\315\316#\210\300\314\317\320#\207" [put vector cl-struct-soap-basic-type nil 0 soap-decoder soap-decode-basic-type cl-struct-soap-simple-type cl-struct-soap-sequence-type soap-decode-sequence-type cl-struct-soap-array-type soap-decode-array-type soap-error error-conditions (error soap-error) error-message "SOAP error"] 7) #@156 Parse the SOAP envelope in NODE and return the response. OPERATION is the WSDL operation for which we expect the response, WSDL is used to decode the NODE (defalias 'soap-parse-envelope #[(node operation wsdl) "\306 \"\211@\206 \nA@\206 \f\307\n8 \310\211@)!\311=\204/ \312\313\310\211@)!\"\210\314\315\"@ \314 \316\"@\211 \203 \317 \320\"@\211 \211\211 AA*\242)\317 \321\"@\211 \211\211 AA*\242)\317 \322\" ! \"\323\324\"!E\"\210\202q )#\325H$>\204\220 \312\326\327\330#\210#\331H\332=\203\235 \202\240 \333\334\215 %\335%#& $.\207" [node soap-local-xmlns #1=#:xmlns soap-default-xmlns soap-target-xmlns body soap-extract-xmlns 2 soap-l2wk soap:Envelope error "soap-parse-envelope: expecting soap:Envelope node, got %s" soap-xml-get-children1 soap:Body soap:Fault xml-get-children faultcode faultstring detail signal soap-error 0 "%s accessing a non-%s" soap-bound-operation-use soap-bound-operation 3 literal found (byte-code "\211\211AA*\305\211 \205$ \f@\211:\203 \306\307 \"\210\fA\211\204 \305*\207" [body node x n --dolist-tail-- nil throw found] 4) soap-parse-response fault n x fault-string fault-code operation cl-struct-soap-bound-operation-tags response wsdl] 6 (#$ . 127173)]) #@339 Parse RESPONSE-NODE and return the result as a LISP value. OPERATION is the WSDL operation for which we expect the response, WSDL is used to decode the NODE. SOAP-BODY is the body of the SOAP envelope (of which RESPONSE-NODE is a sub-node). It is used in case RESPONSE-NODE reference multiRef parts which are external to RESPONSE-NODE. (defalias 'soap-parse-response #[(response-node operation wsdl soap-body) "\n\306H >\204 \307\310\311\312#\210\n\313H \n\306H >\204\" \307\310\314\312#\210\n\315H \f\306H$>\2045 \307\310\316\317#\210\f\320HA %\321&'\"\211 (@\206J )(A@\206S *\322(8 ' * ) \323=\203\230 \324&\211 +@)! ,\325,\326#\211 -%=\204\227 \307\327,%\306H.>\204\221 \307\310\330\331#\210%\313H#\210*\332\333/\334\"\332 0 1 2%\306H3>\204\265 \307\310\335\336#\210%\315H\332 4\211 5\203 5@\2114@4A\332 + 6 7 \323=\203\343 \333&7\"@\202\354 \337=\205\354 \340\341\215\211+\204\n\307\342\f\306H.>\204\307\310\330\331#\210\f\313H7#\210\3436+\"2B2+5A\2115\204\302 *2. \207" [wsdl soap-current-wsdl operation cl-struct-soap-bound-operation-tags op use 0 error #1="%s accessing a non-%s" soap-bound-operation-operation soap-bound-operation 1 soap-bound-operation-use 3 soap-operation-output soap-operation 5 soap-extract-xmlns 2 encoded soap-l2fq soap-wsdl-get soap-message-p "Unexpected message: got %s, expecting %s" soap-element-name soap-element nil xml-get-children multiRef soap-message-parts soap-message literal found (byte-code "\306H >\204 \307\310\311\312#\210\313H\314 \306H\f>\204! \307\310\315\316#\210 \317H\n\"A\211 \306H\f>\2047 \307\310\320\316#\210 \321HB \211 \211 AA*\322 \211 \205\235 @\211:\203\223 \323 \"\211 @\206j A@\206s \317 8 \324\211 @)!\232\203\222 \325\326\"\210, A\211 \204Q \322-\207" [wsdl cl-struct-soap-wsdl-tags ns-aliases type cl-struct-soap-element-tags ns-name 0 error #1# soap-wsdl-alias-table soap-wsdl 3 assoc soap-element-namespace-tag soap-element 2 soap-element-name 1 nil soap-extract-xmlns soap-l2fq throw found fqname response-node node x c --dolist-tail-- soap-local-xmlns #2=#:xmlns soap-default-xmlns soap-target-xmlns] 6) "Soap-parse-response(%s): cannot find message part %s" soap-decode-type cl-struct-soap-operation-tags message response-node soap-local-xmlns #3=#:xmlns soap-default-xmlns soap-target-xmlns node received-message-name received-message cl-struct-soap-element-tags soap-body soap-decoded-multi-refs soap-multi-refs decoded-parts cl-struct-soap-message-tags part --dolist-tail-- type tag] 8 (#$ . 128415)]) #@257 A list of namespace tags used during encoding a message. This list is populated by `soap-encode-value' and used by `soap-create-envelope' to add aliases for these namespace to the XML request. This variable is dynamically bound in `soap-create-envelope'. (defvar soap-encoded-namespaces nil (#$ . 130985)) #@315 Encode inside an XML-TAG the VALUE using TYPE. The resulting XML data is inserted in the current buffer at (point)/ TYPE is one of the soap-*-type structures which defines how VALUE is to be encoded. This is a generic function which finds an encoder function based on TYPE and calls that encoder to do the work. (defalias 'soap-encode-value #[(xml-tag value type) "\305H\306N\211\204 \307\310\305H\"\210\n9\203 \311\n! \n #\210)\312\313\305H\f>\2041 \307\314\315\316#\210\317H\"\207" [type encoder xml-tag value cl-struct-soap-element-tags 0 soap-encoder error "no soap-encoder for %s type" symbol-name add-to-list soap-encoded-namespaces "%s accessing a non-%s" soap-element-namespace-tag soap-element 2] 7 (#$ . 131299)]) #@126 Encode inside XML-TAG the LISP VALUE according to TYPE. Do not call this function directly, use `soap-encode-value' instead. (defalias 'soap-encode-basic-type #[(xml-tag value type) "\306!\307H >\204 \310\311\312\313#\210\314H\n\315=\203H \f;\203( \316\317\202H \f\250\2034 \320\321\202H \f\322>\203A \323\324\202H \310\325 \f $\210\326 \327 \330\261\210\f\204Z \n\324=\203H\331c\210\332\n\333\"\203x \f;\204p \310\334 \f $\210\335\f!c\210\202K\336\n\337\"\203\270 \f:\203\241 \fG\340Y\203\241 \f@\247\203\241 \fA@\247\203\241 \341\342\f\"c\210\202K\f;\203\256 \335\f!c\210\202K\310\343 \f $\210\202K\336\n\324\"\203\332 \f\344>\204\314 \310\345 \f $\210\f\203\324 \346\202\325 \347c\210\202K\332\n\350\"\203\f\250\204\355 \310\351 \f $\210\n\352=\203 \f\307W\203 \310\353 \f $\210\354\f!c\210\202K\332\n\355\"\203#\f\247\204\310\356 \f $\210\354\f!c\210\202K\336\n\357\"\203>\f;\2046\310\334 \f $\210\360\f!c\210\202K\310\361 \f $\210\202K\362c\210\363 \364\261*\207" [type cl-struct-soap-basic-type-tags basic-type xsi-type value xml-tag soap-element-fq-name 0 error "%s accessing a non-%s" soap-basic-type-kind soap-basic-type 3 anyType "xsd:string" string "xsd:int" int (t nil) "xsd:boolean" boolean "Soap-encode-basic-type(%s, %s, %s): cannot classify anyType value" "<" " xsi:type=\"" "\"" ">" memql (string anyURI) "Soap-encode-basic-type(%s, %s, %s): not a string value" url-insert-entities-in-string eql dateTime 2 format-time-string "%Y-%m-%dT%H:%M:%S" "Soap-encode-basic-type(%s, %s, %s): not a dateTime value" (t nil) "Soap-encode-basic-type(%s, %s, %s): not a boolean value" "true" "false" (long int integer byte unsignedInt) "Soap-encode-basic-type(%s, %s, %s): not an integer value" unsignedInt "Soap-encode-basic-type(%s, %s, %s): not a positive integer" number-to-string (float double) "Soap-encode-basic-type(%s, %s, %s): not a number" base64Binary base64-encode-string "Soap-encode-basic-type(%s, %s, %s): don't know how to encode" " xsi:nil=\"true\">" "</" ">\n"] 5 (#$ . 132041)]) #@57 Encode inside XML-TAG the LISP VALUE according to TYPE. (defalias 'soap-encode-simple-type #[(xml-tag value type) "\305H >\204 \306\307\310\311#\210\312H\211G\313V\203 \n\235\204) \306\314\f \315!\n%\210)\316\f #\207" [type cl-struct-soap-simple-type-tags enumeration value xml-tag 0 error "%s accessing a non-%s" soap-simple-type-enumeration soap-simple-type 4 1 "soap-encode-simple-type(%s, %s, %s): bad value, should be one of %s" soap-element-fq-name soap-encode-basic-type] 7 (#$ . 134082)]) #@126 Encode inside XML-TAG the LISP VALUE according to TYPE. Do not call this function directly, use `soap-encode-value' instead. (defalias 'soap-encode-sequence-type #[(xml-tag value type) "\306!\307\n\310 \311\261\210 \203z\312c\210C\313H\f>\204# \314\315\316\317#\210\320H ' \203I 'B' \313H\f>\204A \314\315\316\317#\210 \320H\211\204- '\321\211 (\203v(@\211\313H\f>\204e \314\315\322\317#\210\323H\321 )\211 (\203l(@)\313)\313H*>\204\207 \314\315\324\325#\210)\326H)\313H*>\204\233 \314\315\327\325#\210)\330H + , - \321 .\211 (\203\324 (@\211.@,\232\203\313 -T-\331,.A+#\210(A\211(\204\257 *-\313U\203 )\313H*>\204\354 \314\315\332\325#\210)\320H\204 \333\313H/>\204\314\315\334\335#\210\326H,D 0 1\336\337\340\34110#\342#*\210\202b-\326V\203b)\313H*>\2044\314\315\343\325#\210)\323H\204b\344\313H/>\204K\314\315\334\335#\210\326H,D 0 1\336\337\340\34110#\342#*\210+(A\211(\204q *(A\211(\204S ,\202}\345c\210\346\n\312\261)\207" [type xsi-type xml-tag value cl-struct-soap-sequence-type-tags parent soap-element-fq-name "<" " xsi:type=\"" "\"" ">\n" 0 error "%s accessing a non-%s" soap-sequence-type-parent soap-sequence-type 3 nil soap-sequence-type-elements 4 soap-sequence-element-name soap-sequence-element 1 soap-sequence-element-type 2 soap-encode-value soap-sequence-element-nillable\? "While encoding %s: missing non-nillable slot %s" soap-element-name soap-element display-warning soap-client apply format :warning soap-sequence-element-multiple\? "While encoding %s: multiple slots named %s" " xsi:nil=\"true\">" "</" parents --dolist-tail-- element cl-struct-soap-sequence-element-tags e-type e-name instance-count v cl-struct-soap-element-tags args message] 7 (#$ . 134594)]) #@126 Encode inside XML-TAG the LISP VALUE according to TYPE. Do not call this function directly, use `soap-encode-value' instead. (defalias 'soap-encode-array-type #[(xml-tag value type) "\306!\204 \307\310 \311\n!$\210\n\312H >\204 \307\313\314\315#\210\n\316H \311\f!\317\320\321G\"\322R \323 \324 \325\326\261\210\312 G W\203W \327 H\f#\210T\211\202? *\330 \331\261*\207" [value xml-tag type cl-struct-soap-array-type-tags element-type array-type vectorp error "Soap-encode: %s(%s) expects a vector, got: %s" soap-element-fq-name 0 "%s accessing a non-%s" soap-array-type-element-type soap-array-type 3 "[" format "%s" "]" "<" " soapenc:arrayType=\"" "\" " " xsi:type=\"soapenc:Array\">\n" soap-encode-value "</" ">\n" i #1=#:--cl-var--] 7 (#$ . 136362)]) (byte-code "\300\301\302\303\211\211$\304H\305\306#\210\300\301\307\303\211\211\211%\304H\305\310#\210\300\301\311\303\211\211\211%\304H\305\312#\210\300\301\313\303\211\211$\304H\305\314#\207" [put vector cl-struct-soap-basic-type nil 0 soap-encoder soap-encode-basic-type cl-struct-soap-simple-type soap-encode-simple-type cl-struct-soap-sequence-type soap-encode-sequence-type cl-struct-soap-array-type soap-encode-array-type] 7) #@208 Create the body of a SOAP request for OPERATION in the current buffer. PARAMETERS is a list of parameters supplied to the OPERATION. The OPERATION and PARAMETERS are encoded according to the WSDL document. (defalias 'soap-encode-body #[(operation parameters wsdl) "\306H >\204 \307\310\311\312#\210\313H\306H >\204 \307\310\314\312#\210\315H\n\306H\f>\2042 \307\310\316\317#\210\n\320HA \n\306H\f>\204E \307\310\321\317#\210\n\315H\211 ,G-GU\204o \307\322\n\306H.>\204d \307\310\323\324#\210\n\313H,G-G$\210\325c\210 \326=\203\226 \327\330\n\306H.>\204\211 \307\310\331\324#\210\n\332H\"\210\333\334\n!\335\261\210, /\336 0- 1\336\211 2 3/:\203\324 /@01:\203\324 1@202B3B3/A/1A1\202\247 3\237- 4 \306H5>\204\351 \307\310\337\340#\210 \315H\336 6\211 7\203\2227@\2116@ 86A 9 \326=\2038\202\"9\306H.>\204 \307\310\323\324#\2109\313H :\34184\"A 2` ;\342:29#\210 \343=\203\210\212;b\210\344\345!\203\2079\306H.>\204Z\307\310\331\324#\2109\332H <\341<=\306H>>\204s\307\310\346\347#\210=\315H\"A\211 ?\203\206\350?\351\261\210*)-7A\2117\204\365 + \326=\203\241\352\334\n!\335\261\210\353c,\207" [operation cl-struct-soap-bound-operation-tags op use cl-struct-soap-operation-tags message 0 error "%s accessing a non-%s" soap-bound-operation-operation soap-bound-operation 1 soap-bound-operation-use 3 soap-operation-input soap-operation 4 soap-operation-parameter-order "Wrong number of parameters for %s: expected %d, got %s" soap-element-name soap-element "<soap:Body>\n" encoded add-to-list soap-encoded-namespaces soap-element-namespace-tag 2 "<" soap-element-fq-name ">\n" nil soap-message-parts soap-message assoc soap-encode-value literal re-search-forward " " soap-wsdl-alias-table soap-wsdl "xmlns=\"" "\" " "</" "</soap:Body>\n" parameter-order parameters cl-struct-soap-element-tags #1=#:--cl-var-- formal #2=#:--cl-var-- value #3=#:--cl-var-- param-table cl-struct-soap-message-tags part --dolist-tail-- param-name type tag-name start-pos ns wsdl cl-struct-soap-wsdl-tags namespace] 7 (#$ . 137577)]) #@121 Create a SOAP request envelope for OPERATION using PARAMETERS. WSDL is the wsdl document used to encode the PARAMETERS. (defalias 'soap-create-envelope #[(operation parameters wsdl) "\306\307!rq\210\310\216\311 \312H\n>\204 \313\314\315\316#\210 \317H \320 #\210eb\210\321c\210 \322=\2034 \323c\210\f\324 \211 \203\203 @ \325 \326\261\210\327 !\"A\211 \"\204r \327 \312H#>\204j \313\314\330\331#\210 \317H\"A\"\"c\210\332c\210) A\211 \204> *\333c\210db\210\334c\210*\335 +\207" [#1=#:temp-buffer operation cl-struct-soap-bound-operation-tags use soap-encoded-namespaces parameters generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ("xsi" "soap" "soapenc") 0 error "%s accessing a non-%s" soap-bound-operation-use soap-bound-operation 3 soap-encode-body "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<soap:Envelope\n" encoded " soapenc:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\"\n" nil " xmlns:" "=\"" assoc soap-wsdl-alias-table soap-wsdl "\"\n" ">\n" "</soap:Envelope>\n" buffer-string wsdl nstag --dolist-tail-- soap-well-known-xmlns nsname cl-struct-soap-wsdl-tags] 7 (#$ . 139659)]) #@43 When t, enable some debugging facilities. (custom-declare-variable 'soap-debug nil '(#$ . 140859) :type 'boolean :group 'soap-client) #@585 Invoke a SOAP operation and return the result. WSDL is used for encoding the request and decoding the response. It also contains information about the WEB server address that will service the request. SERVICE is the SOAP service to invoke. OPERATION-NAME is the operation to invoke. PARAMETERS -- the remaining parameters are used as parameters for the SOAP request. NOTE: The SOAP service provider should document the available operations and their parameters for the service. You can also use the `soap-inspect' function to browse the available operations in a WSDL document. (defalias 'soap-invoke #[(wsdl service operation-name &rest parameters) "\306\307\215\211\204 \310\311 \"\210\312H\n>\204 \310\313\314\315#\210\316H\317\f \312H >\204/ \310\313\320\321#\210 \316H\"\211 &\204? \310\322\f #\210\323\324\325\211\326&'(#\327\330\331\332&\312H)>\204_ \310\313\333\334#\210&\335HB\336\337BD * + , - . / 0 1 2\340\312H\n>\204\211 \310\313\341\315#\210\342H! 3\343\344\345\217. \207" [port service cl-struct-soap-port-tags binding operation-name cl-struct-soap-binding-tags found (byte-code "\306H >\204 \307\310\311\312#\210\313H\314\211\205> @\f\n\306H >\204* \307\310\315\316#\210\n\317H\232\2036 \320\321\n\"\210 A\211\204 \314*\207" [wsdl cl-struct-soap-wsdl-tags p --dolist-tail-- service cl-struct-soap-element-tags 0 error #1="%s accessing a non-%s" soap-wsdl-ports soap-wsdl 2 nil soap-element-name soap-element 1 throw found] 6) error "Unknown SOAP service: %s" 0 #1# soap-port-binding soap-port 4 gethash soap-binding-operations soap-binding "No operation %s for SOAP service %s" "POST" "soap-client.el" "1.0" soap-create-envelope "utf-8;q=1, iso-8859-1;q=0.5" utf-8 t "SOAPAction" soap-bound-operation-soap-action soap-bound-operation 2 "Content-Type" "text/xml; charset=utf-8" url-retrieve-synchronously soap-port-service-url 3 err (byte-code "rq\210 \204\f \306\307!\210\n\203 \310V\203 \311\312 \"\210\313\314\211\"\211\204( \306\315!\210 A@@\316\232\2045 \306\317!\210\320\321! r\fq\210\322\216\323 !\210\324ed\"@ \325 #\326!\210\327 !\210.\207" [buffer url-http-response-status soap-debug mime-part #2=#:temp-buffer response error "No HTTP response from server" 299 warn "Error in SOAP response: HTTP code %s" mm-dissect-buffer t "Failed to decode response from server" "text/xml" "Server response is not an XML document" generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2# buffer-name kill-buffer] 2)) mm-insert-part xml-parse-region soap-parse-envelope kill-buffer mm-destroy-part operation wsdl] 5) ((soap-error (byte-code "\301@A\"\207" [err signal] 3)) (error (byte-code "\203 \303 !\210\304\305\n!!\207" [soap-debug buffer err pop-to-buffer error error-message-string] 3))) operation parameters wsdl cl-struct-soap-bound-operation-tags url-request-extra-headers url-http-attempt-keepalives url-request-coding-system url-mime-charset-string url-request-data url-http-version url-package-version url-package-name url-request-method buffer] 14 (#$ . 141000)]) (provide 'soap-client)