ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/soap-client.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\207" [require cl-lib xml xsd-regexp rng-xsd rng-dt warnings url url-http url-util url-vars mm-decode] 2)
#@101 Display a warning MESSAGE with ARGS, using the `soap-client' warning type.
(fn MESSAGE &rest ARGS)
(defalias 'soap-warning #[385 "\300\301\302\303#\304#\207" [display-warning soap-client apply format :warning] 8 (#$ . 668)])
(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") ("wsa" . "http://www.w3.org/2005/08/addressing") ("wsaw" . "http://www.w3.org/2006/05/addressing/wsdl") ("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/") ("xml" . "http://www.w3.org/XML/1998/namespace")) (#$ . 1144))
#@113 A list of local namespace aliases.
This is a dynamically bound variable, controlled by
`soap-with-local-xmlns'.
(defvar soap-local-xmlns '(("xml" . "http://www.w3.org/XML/1998/namespace")) (#$ . 1927))
#@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 (#$ . 2136))
#@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 (#$ . 2337))
#@103 The current WSDL document used when decoding the SOAP response.
This is a dynamically bound variable.
(defvar soap-current-wsdl nil (#$ . 2601))
#@288 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'.
(fn WELL-KNOWN-NAME)
(defalias 'soap-wk2l #[257 "\2119\203 \303!\202\f \211\304\305\"\203T \306\307\"\306\310\"\311\"A\211 \232\2035 9\2031 \312!\202M \202M \313\n\"@\211\314Q9\203J \312!\202K \211\266\202\262\266\202\202U \207" [soap-well-known-xmlns soap-default-xmlns soap-local-xmlns symbol-name string-match "^\\(.*\\):\\(.*\\)$" match-string 1 2 assoc intern rassoc ":"] 9 (#$ . 2753)])
#@277 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.
(fn LOCAL-NAME)
(defalias 'soap-l2wk #[257 "\2119\203 \303!\202\f \211\304\211\305\306\"\2035 \307\310\"\262\307\311\"\312\"A\262\2041 \313\314#\210\210\202; \262 \262\203_ \315\n\"@\211\205Z \211\316Q9\203W \317!\202X \211\262\262\202` \211\207" [soap-local-xmlns soap-default-xmlns soap-well-known-xmlns symbol-name nil string-match "^\\(.*\\):\\(.*\\)$" match-string 2 1 assoc error "Soap-l2wk(%s): no namespace for alias %s" rassoc ":" intern] 9 (#$ . 3436)])
#@598 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.
(fn LOCAL-NAME &optional USE-TNS)
(defalias 'soap-l2fq #[513 "9\203 \303!\202\f \304\305\"\2037 \306\307\"\306\310\"\311\"A\211\203* \211B\2020 \312\313#\262\266\202\202B \203? \202@ \nB\207" [soap-local-xmlns soap-target-xmlns soap-default-xmlns symbol-name string-match "^\\(.*\\):\\(.*\\)$" match-string 1 2 assoc error "Soap-l2fq(%s): unknown alias %s"] 10 (#$ . 4190)])
#@134 Return true if NAME is a valid name for XMLSchema types.
A valid name is either a string or a cons of (NAMESPACE . NAME).
(fn NAME)
(defalias 'soap-name-p #[257 "\211;\206 \211:\205 \211@;\205 \211A;\207" [] 2 (#$ . 5152)])
#@100 Return a namespace alias table for NODE by extending XMLNS-TABLE.
(fn NODE &optional XMLNS-TABLE)
(defalias 'soap-extract-xmlns #[513 "\301\211\211\211A@)\211\203H \211@\302@!A\303\230\203! \211\262\202? \304\230\203- \211\262\202? \305\306\"\203? \307\310\"BB\262\266A\266\202\202 \210\311\312\"\211\203r \203r A\232\204~ \313\211@)C\314\315\316\317#\320#\266\202~ \211\203~ \204~ \211A\262\210\321\"E\207" [node 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] 15 (#$ . 5387)])
#@79 Install a local alias table from NODE and execute BODY.
(fn NODE &rest BODY)
(defalias 'soap-with-local-xmlns '(macro . #[385 "\300\301!\302\303\304BBDC\302\305\306\307\310E\311BBD\312\306\307\313E\314BBD\315\307\316EDEBBE\207" [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] 12 (#$ . 6083)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put soap-with-local-xmlns edebug-form-spec (form &rest form) function-put lisp-indent-function 1] 4)
#@110 Return the target namespace of NODE.
This is the namespace in which new elements will be defined.
(fn NODE)
(defalias 'soap-get-target-namespace #[257 "\302\303\"\206 \304\305\"A\206 \207" [soap-local-xmlns soap-target-xmlns xml-get-attribute-or-nil targetNamespace assoc "tns"] 4 (#$ . 6676)])
#@148 Return the children of NODE named CHILD-NAME.
This is the same as `xml-get-children', but CHILD-NAME can have
namespace tag.
(fn NODE CHILD-NAME)
(defalias 'soap-xml-get-children1 #[514 "\304\211AA)\211\203N \211@\211:\203G \305 \"\211@\206 \nA@\206# \3068\30718 \310\211@)!0\202: \210\304+=\262\203G \211B\262A\266\202\202 \210\211\237\207" [node soap-local-xmlns soap-default-xmlns soap-target-xmlns nil soap-extract-xmlns 2 (error) soap-l2wk] 11 (#$ . 6984)])
#@78 Return the first child of NODE whose name is a member of SET.
(fn NODE SET)
(defalias 'soap-xml-node-find-matching-child #[514 "\30120 \211AA)\211\205- \211@\211:\203& \302\211@)!>\203& \303\301\"\210A\266\202\202\n \2620\207" [node found soap-l2wk throw] 8 (#$ . 7472)])
#@178 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.
(fn NODE ATTRIBUTE)
(defalias 'soap-xml-get-attribute-or-nil1 #[514 "\3042M \305\"\211@\206 A@\206 \n\3068\211A@)\211\205G \211@\30713 \310@!0\2025 \210\311=\203@ \312\304A\"\210A\266\202\202! \262+\2620\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns node found soap-extract-xmlns 2 (error) soap-l2wk nil throw] 9 (#$ . 7760)])
(defalias 'soap-element-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-element-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-soap-element-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-element-p 'compiler-macro 'soap-element-p--cmacro)
(defalias 'soap-element-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-element-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-element-p side-effect-free error-free put soap-element cl-deftype-satisfies] 4)
(defalias 'soap-element-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-element-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-element-tags)) (signal 'wrong-type-argument (list 'soap-element cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-element-name 'compiler-macro 'soap-element-name--cmacro)
(defalias 'soap-element-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-element-tags 0 signal wrong-type-argument soap-element 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-element-name 'side-effect-free t)
(defalias 'soap-element-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-element-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-element-tags)) (signal 'wrong-type-argument (list 'soap-element cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-element-namespace-tag 'compiler-macro 'soap-element-namespace-tag--cmacro)
(defalias 'soap-element-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-element-tags 0 signal wrong-type-argument soap-element 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-element-namespace-tag side-effect-free t defalias copy-soap-element copy-sequence] 4)
#@51
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG)
(defalias 'make-soap-element--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311\312\305\305&\207" [plist-member :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 "Constructor for objects of type `soap-element'." (declare (side-effect-free t)) (vector 'cl-struct-soap-element name namespace-tag))] 12 (#$ . 10376)])
(put 'make-soap-element 'compiler-macro 'make-soap-element--cmacro)
#@79 Constructor for objects of type `soap-element'.
(fn &key NAME NAMESPACE-TAG)
(defalias 'make-soap-element #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311#\207" [plist-member :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] 7 (#$ . 11085)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-element side-effect-free t cl-struct-define soap-element nil cl-structure-object ((cl-tag-slot) (name) (namespace-tag)) cl-struct-soap-element-tags cl-struct-soap-element] 10)
#@132 Return a fully qualified name for ELEMENT.
A fq name is the concatenation of the namespace tag and the
element name.
(fn ELEMENT)
(defalias 'soap-element-fq-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\203< \211\301H>\204$ \302\303\304D\"\210\211\305H\306\301H>\2047 \302\303\304D\"\210\307HQ\207\211\301H>\204K \302\303\304D\"\210\211\307H\203d \211\301H>\204` \302\303\304D\"\210\211\307H\207\310\207" [cl-struct-soap-element-tags 0 signal wrong-type-argument soap-element 2 ":" 1 "*unnamed*"] 7 (#$ . 11837)])
(defalias 'soap-namespace-link-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-link-p 'compiler-macro 'soap-namespace-link-p--cmacro)
(defalias 'soap-namespace-link-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-namespace-link-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-namespace-link-p side-effect-free error-free put soap-namespace-link cl-deftype-satisfies] 4)
(defalias 'soap-namespace-link-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags)) (signal 'wrong-type-argument (list 'soap-namespace-link cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-link-name 'compiler-macro 'soap-namespace-link-name--cmacro)
(defalias 'soap-namespace-link-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-link-tags 0 signal wrong-type-argument soap-namespace-link 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-namespace-link-name 'side-effect-free t)
(defalias 'soap-namespace-link-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags)) (signal 'wrong-type-argument (list 'soap-namespace-link cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-link-namespace-tag 'compiler-macro 'soap-namespace-link-namespace-tag--cmacro)
(defalias 'soap-namespace-link-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-link-tags 0 signal wrong-type-argument soap-namespace-link 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-namespace-link-namespace-tag 'side-effect-free t)
(defalias 'soap-namespace-link-target--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-link-target (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-link-tags)) (signal 'wrong-type-argument (list 'soap-namespace-link cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-link-target 'compiler-macro 'soap-namespace-link-target--cmacro)
(defalias 'soap-namespace-link-target #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-link-tags 0 signal wrong-type-argument soap-namespace-link 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-namespace-link-target side-effect-free t defalias copy-soap-namespace-link copy-sequence] 4)
#@58
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG TARGET)
(defalias 'make-soap-namespace-link--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306\306&\207" [plist-member :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 "Constructor for objects of type `soap-namespace-link'." (declare (side-effect-free t)) (vector 'cl-struct-soap-namespace-link name namespace-tag target))] 14 (#$ . 15405)])
(put 'make-soap-namespace-link 'compiler-macro 'make-soap-namespace-link--cmacro)
#@93 Constructor for objects of type `soap-namespace-link'.
(fn &key NAME NAMESPACE-TAG TARGET)
(defalias 'make-soap-namespace-link #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312$\207" [plist-member :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] 9 (#$ . 16216)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-namespace-link side-effect-free t cl-struct-define soap-namespace-link nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (target)) cl-struct-soap-namespace-link-tags cl-struct-soap-namespace-link] 10)
(defalias 'soap-namespace-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-soap-namespace-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-p 'compiler-macro 'soap-namespace-p--cmacro)
(defalias 'soap-namespace-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-namespace-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-namespace-p side-effect-free error-free put soap-namespace cl-deftype-satisfies] 4)
(defalias 'soap-namespace-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-tags)) (signal 'wrong-type-argument (list 'soap-namespace cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-name 'compiler-macro 'soap-namespace-name--cmacro)
(defalias 'soap-namespace-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-tags 0 signal wrong-type-argument soap-namespace 1] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put soap-namespace-name side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" soap-namespace-name] 5 "\n\n(fn CL-DO CL-X)"]] 4)
(defalias 'soap-namespace-elements--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-elements (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-namespace-tags)) (signal 'wrong-type-argument (list 'soap-namespace cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-namespace-elements 'compiler-macro 'soap-namespace-elements--cmacro)
(defalias 'soap-namespace-elements #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-tags 0 signal wrong-type-argument soap-namespace 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\307\310\311\"\207" [function-put soap-namespace-elements side-effect-free t put gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" soap-namespace-elements] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-soap-namespace copy-sequence] 4)
#@46
(fn CL-WHOLE &cl-quote &key NAME ELEMENTS)
(defalias 'make-soap-namespace--cmacro #[385 "\300\301\"A@\300\302\"\206 \303A@\211\203; \211@\304>\203$ \211AA\262\202 \305>A@\2032 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306\306&\207" [plist-member :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 "Constructor for objects of type `soap-namespace'." (vector 'cl-struct-soap-namespace name elements))] 12 (#$ . 19519)])
(put 'make-soap-namespace 'compiler-macro 'make-soap-namespace--cmacro)
#@76 Constructor for objects of type `soap-namespace'.
(fn &key NAME ELEMENTS)
(defalias 'make-soap-namespace #[128 "\300\301\"A@\300\302\"\206 \303\304\305\306\"DA@\211\203@ \211@\307>\203) \211AA\262\202 \310>A@\2037 \303\262\202 \311\312@\"\210\202 \210\313\314#\207" [plist-member :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] 7 (#$ . 20226)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define soap-namespace nil cl-structure-object ((cl-tag-slot) (name nil :read-only t) (elements (make-hash-table :test 'equal) :read-only t)) cl-struct-soap-namespace-tags cl-struct-soap-namespace t] 10)
#@200 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'
(fn ELEMENT NS)
(defalias 'soap-namespace-put #[514 "\302H>\204 \303\304\305D\"\210\306H\211\302H >\204\" \303\304\307D\"\210\310H\311\312\"B#\266\202\207" [cl-struct-soap-element-tags cl-struct-soap-namespace-tags 0 signal wrong-type-argument soap-element 1 soap-namespace 2 puthash gethash] 11 (#$ . 21010)])
#@248 Store a link from NAME to TARGET in NS.
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.
(fn NAME TARGET NS)
(defalias 'soap-namespace-put-link #[771 "\203\n \302\232\203Z \303!\2036 G\304Y\2036 \305H>\2036 \305H>\204. \306\307\310D\"\210\311H\262\202Z :\203B A\262\202Z ;\203Z \312\313\"\203W \314\315\"\262\202Z \262\203d \302\232\203k \316\317\320\321\211$\210\322\323\321$\305H >\204\201 \306\307\324D\"\210\315H\325\326\"B#\207" [cl-struct-soap-element-tags cl-struct-soap-namespace-tags #1="" vectorp 3 0 signal wrong-type-argument soap-element 1 string-match "^\\(.*\\):\\(.*\\)$" match-string 2 cl--assertion-failed (and name (not (equal name #1#))) "Cannot determine name for namespace link" nil vector cl-struct-soap-namespace-link soap-namespace puthash gethash] 12 (#$ . 21525)])
#@304 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.
(fn NAME NS &optional DISCRIMINANT-PREDICATE)
(defalias 'soap-namespace-get #[770 ";\204 \301\302!\210\303\304H>\204 \305\306\307D\"\210\310H\"\203F \3112a \211\211\205@ \211@!\2039 \312\311\"\210A\266\202\202( \2620\202a \211G\313U\203R \211@\202a \211G\313V\203` \314\315\"\202a \316\207" [cl-struct-soap-namespace-tags cl--assertion-failed (stringp name) gethash 0 signal wrong-type-argument soap-namespace 2 found throw 1 error "Soap-namespace-get(%s): multiple elements, discriminant needed" nil] 9 (#$ . 22495)])
(defalias 'soap-xs-type-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-type-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-soap-xs-type-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-type-p 'compiler-macro 'soap-xs-type-p--cmacro)
(defalias 'soap-xs-type-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-type-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-type-p side-effect-free error-free put soap-xs-type cl-deftype-satisfies] 4)
(defalias 'soap-xs-type-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-type-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-type-name 'compiler-macro 'soap-xs-type-name--cmacro)
(defalias 'soap-xs-type-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-type 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-type-name 'side-effect-free t)
(defalias 'soap-xs-type-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-type-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-type-namespace-tag 'compiler-macro 'soap-xs-type-namespace-tag--cmacro)
(defalias 'soap-xs-type-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-type 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-type-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-type-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-type-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-type-id 'compiler-macro 'soap-xs-type-id--cmacro)
(defalias 'soap-xs-type-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-type 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-type-id 'side-effect-free t)
(defalias 'soap-xs-type-attributes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-type-attributes (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-type-attributes 'compiler-macro 'soap-xs-type-attributes--cmacro)
(defalias 'soap-xs-type-attributes #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-type 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-type-attributes 'side-effect-free t)
(defalias 'soap-xs-type-attribute-groups--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-type-attribute-groups (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-type-attribute-groups 'compiler-macro 'soap-xs-type-attribute-groups--cmacro)
(defalias 'soap-xs-type-attribute-groups #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-type 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-type-attribute-groups side-effect-free t defalias copy-soap-xs-type copy-sequence] 4)
#@82
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS)
(defalias 'make-soap-xs-type--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups (:name :namespace-tag :id :attributes :attribute-groups :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups)" cl--defsubst-expand (name namespace-tag id attributes attribute-groups) (cl-block make-soap-xs-type "Constructor for objects of type `soap-xs-type'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-type name namespace-tag id attributes attribute-groups))] 18 (#$ . 27397)])
(put 'make-soap-xs-type 'compiler-macro 'make-soap-xs-type--cmacro)
#@110 Constructor for objects of type `soap-xs-type'.
(fn &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS)
(defalias 'make-soap-xs-type #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314&\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups (:name :namespace-tag :id :attributes :attribute-groups :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups)" vector cl-struct-soap-xs-type] 13 (#$ . 28355)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-type side-effect-free t cl-struct-define soap-xs-type nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (id) (attributes) (attribute-groups)) cl-struct-soap-xs-type-tags cl-struct-soap-xs-type] 10)
(defalias 'soap-xs-basic-type-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-p 'compiler-macro 'soap-xs-basic-type-p--cmacro)
(defalias 'soap-xs-basic-type-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-basic-type-tags vectorp 7 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-basic-type-p side-effect-free error-free put soap-xs-basic-type cl-deftype-satisfies] 4)
(defalias 'soap-xs-basic-type-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-name 'compiler-macro 'soap-xs-basic-type-name--cmacro)
(defalias 'soap-xs-basic-type-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-basic-type-name 'side-effect-free t)
(defalias 'soap-xs-basic-type-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-namespace-tag 'compiler-macro 'soap-xs-basic-type-namespace-tag--cmacro)
(defalias 'soap-xs-basic-type-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-basic-type-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-basic-type-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-id 'compiler-macro 'soap-xs-basic-type-id--cmacro)
(defalias 'soap-xs-basic-type-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-basic-type-id 'side-effect-free t)
(defalias 'soap-xs-basic-type-attributes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-attributes (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-attributes 'compiler-macro 'soap-xs-basic-type-attributes--cmacro)
(defalias 'soap-xs-basic-type-attributes #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-basic-type-attributes 'side-effect-free t)
(defalias 'soap-xs-basic-type-attribute-groups--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-attribute-groups (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-attribute-groups 'compiler-macro 'soap-xs-basic-type-attribute-groups--cmacro)
(defalias 'soap-xs-basic-type-attribute-groups #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-basic-type-attribute-groups 'side-effect-free t)
(defalias 'soap-xs-basic-type-kind--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-basic-type-kind (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-basic-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-basic-type-kind 'compiler-macro 'soap-xs-basic-type-kind--cmacro)
(defalias 'soap-xs-basic-type-kind #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 6] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-basic-type-kind side-effect-free t defalias copy-soap-xs-basic-type copy-sequence] 4)
#@87
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS KIND)
(defalias 'make-soap-xs-basic-type--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315\316\311 \311 & \207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :kind (:name :namespace-tag :id :attributes :attribute-groups :kind :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :kind)" cl--defsubst-expand (name namespace-tag id attributes attribute-groups kind) (cl-block make-soap-xs-basic-type "Constructor for objects of type `soap-xs-basic-type'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-basic-type name namespace-tag id attributes attribute-groups kind))] 20 (#$ . 34489)])
(put 'make-soap-xs-basic-type 'compiler-macro 'make-soap-xs-basic-type--cmacro)
#@121 Constructor for objects of type `soap-xs-basic-type'.
(fn &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS KIND)
(defalias 'make-soap-xs-basic-type #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315&\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :kind (:name :namespace-tag :id :attributes :attribute-groups :kind :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :kind)" vector cl-struct-soap-xs-basic-type] 15 (#$ . 35526)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-basic-type side-effect-free t cl-struct-define soap-xs-basic-type nil soap-xs-type ((cl-tag-slot) (name nil) (namespace-tag nil) (id nil) (attributes nil) (attribute-groups nil) (kind)) cl-struct-soap-xs-basic-type-tags cl-struct-soap-xs-basic-type] 10)
#@158 Construct NAMESPACE-NAME containing the XMLSchema basic types.
An optional NAMESPACE-TAG can also be specified.
(fn NAMESPACE-NAME &optional NAMESPACE-TAG)
(defalias 'soap-make-xs-basic-types #[513 "\300\301\"\302\211\203# \211@\303\304\301\305\306\307!&\"\210A\266\202\202 \210\211\207" [make-soap-namespace :name ("string" "language" "ID" "IDREF" "dateTime" "time" "date" "boolean" "gYearMonth" "gYear" "gMonthDay" "gDay" "gMonth" "long" "short" "int" "integer" "nonNegativeInteger" "unsignedLong" "unsignedShort" "unsignedInt" "decimal" "duration" "byte" "unsignedByte" "float" "double" "base64Binary" "anyType" "anyURI" "QName" "Array" "byte[]") soap-namespace-put make-soap-xs-basic-type :namespace-tag :kind intern] 14 (#$ . 36600)])
#@296 Encode the XML attributes for VALUE according to TYPE.
The xsi:type and an optional xsi:nil attributes are added. The
attributes are inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-attributes' for
`soap-xs-basic-type' objects.
(fn VALUE TYPE)
(defalias 'soap-encode-xs-basic-type-attributes #[514 "\301!\302H>\204 \303\304\305D\"\210\306H\211\307=\203J ;\203) \310\262\311\262\202J \250\2037 \312\262\313\262\202J \314>\203F \315\262\316\262\202J \317\320!\210\321\322\261\210\206W \211\316=?\205] \323c\207" [cl-struct-soap-xs-basic-type-tags soap-element-fq-name 0 signal wrong-type-argument soap-xs-basic-type 6 anyType "xsd:string" string "xsd:int" int (t nil) "xsd:boolean" boolean error "Cannot classify anyType value" " xsi:type=\"" "\"" " xsi:nil=\"true\""] 7 (#$ . 37358)])
#@205 Encode the VALUE according to TYPE.
The data is inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-value' for
`soap-xs-basic-type' objects.
(fn VALUE TYPE)
(defalias 'soap-encode-xs-basic-type #[514 "\211\301H>\204 \302\303\304D\"\210\211\305H\211\306=\203> ;\203# \307\262\202> \250\203. \310\262\202> \311>\203: \312\262\202> \313\314!\210\204H \211\312=\205j\315\316\"\203_ ;\204Y \313\317\"\210\320!\202a\315\321\"\203\353 :\203\325 \322\323\324\"\203w \325\202\315 \323\326\"\203\202 \327\202\315 \323\330\"\203\215 \331\202\315 \323\332\"\203\230 \333\202\315 \323\334\"\203\243 \335\202\315 \323\336\"\203\256 \337\202\315 \323\340\"\203\271 \341\202\315 \323\342\"\203\304 \343\202\315 \313\344\345#\205\315 \346\347P\350#\202a;\203\345 \351\"\210\320!\202a\313\352!\202a\323\312\"\203\353>\204\374 \313\354!\210\203\355\202a\356\202a\315\357\"\203.\250\204\313\360!\210\211\361>\203(\301W\203(\313\362!\210\363!\202a\315\364\"\203D\247\204>\313\365!\210\363!\202a\323\366\"\203Z;\204T\313\367!\210\370!\202a\313\371\372!#\373\"\210\211c\262\207" [cl-struct-soap-xs-basic-type-tags 0 signal wrong-type-argument soap-xs-basic-type 6 anyType string int (t nil) boolean error "Cannot classify anyType value" memql (string anyURI QName ID IDREF language) "Not a string value: %s" url-insert-entities-in-string (dateTime time date gYearMonth gYear gMonthDay gDay gMonth) format-time-string eql dateTime "%Y-%m-%dT%H:%M:%S" time "%H:%M:%S" date "%Y-%m-%d" gYearMonth "%Y-%m" gYear "%Y" gMonthDay "--%m-%d" gDay "---%d" gMonth "--%m" "cl-ecase failed: %s, %s" (dateTime time date gYearMonth gYear gMonthDay gDay gMonth) nil "Z" t soap-decode-date-time "Invalid date-time format" (t nil) "Not a boolean value" "true" "false" (long short int integer byte unsignedInt unsignedLong unsignedShort nonNegativeInteger decimal duration) "Not an integer value" (unsignedInt unsignedLong unsignedShort nonNegativeInteger) "Not a positive integer" number-to-string (float double) "Not a number" base64Binary "Not a string value for base64Binary" base64-encode-string "Don't know how to encode %s for type %s" soap-element-fq-name soap-validate-xs-basic-type] 8 (#$ . 38218)])
#@1007 Decode DATE-TIME-STRING as DATATYPE.
DATE-TIME-STRING should be in ISO 8601 basic or extended format.
DATATYPE is one of dateTime, time, date, gYearMonth, gYear,
gMonthDay, gDay or gMonth.
Return a list in a format (SEC MINUTE HOUR DAY MONTH YEAR
SEC-FRACTION DATATYPE ZONE). This format is meant to be similar
to that returned by `decode-time' (and compatible with
`encode-time'). The differences are the DOW (day-of-week) field
is replaced with SEC-FRACTION, a float representing the
fractional seconds, and the DST (daylight savings time) field is
replaced with DATATYPE, a symbol representing the XSD primitive
datatype. This symbol can be used to determine which fields
apply and which don't when it's not already clear from context.
For example a datatype of `time' means the year, month and day
fields should be ignored.
This function will throw an error if DATE-TIME-STRING represents
a leap second, since the XML Schema 1.1 standard explicitly
disallows them.
(fn DATE-TIME-STRING DATATYPE)
(defalias 'soap-decode-date-time #[514 "\211\300NA@\301\"\210\302\303\"\302\304\"\302\305\"\302\306\"\302\307\"\302\310 \"\302\311\n\"\302\312 \"\302\313\f\"\302\314
\"\302\315\"\302\316\" \203M \317\202N \303\262\f\n\203_ \320\f!_\202` \321\262 \203n \320\n!\202o \303\262\n\203} \320 !\202~ \303\262 \203\214 \320!\202\215 \322\262\203\233 \320!\202\234 \322\262\203\251 \320!\202\252 \322\262\203\271 \323\320!!\202\272 \324\262\205\301 \325\262\326\232\203\315 \317\202\316 \303\262\203\332 \320!\202\333 \322\262\211\203\347 \320!\202\350 \322\262\n\322V\203R \303Y\203R \316X\203R\303Y\203R\327\f\f\"X\203R\322Y\203R\330X\203R\322Y\203R\331X\203R\322Y\203R\331X\203R\322Y\203R\330X\203R\211\322Y\203R\211\331X\204X\332\333\"\210
\n \203y\334\n\n\322# _\202z\322\257 \207" [rng-xsd-convert string-match match-string 1 2 3 4 5 6 7 8 9 10 11 12 -1 string-to-number 1970 0 float 0.0 t "-" rng-xsd-days-in-month 23 59 error "Invalid or unsupported time: %s" rng-xsd-time-to-seconds] 27 (#$ . 40511)])
#@254 Use TYPE, a `soap-xs-basic-type', to decode the contents of NODE.
A LISP value is returned based on the contents of NODE and the
type-info stored in TYPE.
This is a specialization of `soap-decode-type' for
`soap-xs-basic-type' objects.
(fn TYPE NODE)
(defalias 'soap-decode-xs-basic-type #[514 "\211\211AA)\303H >\204 \304\305\306D\"\210\307H\211A@)\310\211\203R \211@\311@!A\311\312!\232\203; \313\n\"\262\311\314!\232\203I \211\227\315\230\262\266A\266\202\202! \210\211\204b \316\206^ \317C@\"\210\205\316 \320\321\"\203r @\202\316 \320\322\"\203~ @\202\316 \320\323\"\203\214 \324@!\202\316 \325\326\"\203\233 @\227\315\230\202\316 \325\327\"\203\251 \330@!\202\316 \325\331\"\203\267 \332!\202\316 \325\333\"\203\305 \334!\202\316 \335\336\337#\205\316 \310\207" [node cl-struct-soap-xs-basic-type-tags soap-current-wsdl 0 signal wrong-type-argument soap-xs-basic-type 6 nil soap-l2fq "xsi:type" soap-wsdl-get "xsi:nil" "true" soap-validate-xs-basic-type "" memql (string anyURI QName ID IDREF language) (dateTime time date gYearMonth gYear gMonthDay gDay gMonth) (long short int integer unsignedInt unsignedLong unsignedShort nonNegativeInteger decimal byte float double duration) string-to-number eql boolean base64Binary base64-decode-string anyType soap-decode-any-type Array soap-decode-array error "cl-ecase failed: %s, %s" (language IDREF ID QName anyURI string gMonth gDay gMonthDay gYear gYearMonth date time dateTime duration double float byte decimal nonNegativeInteger unsignedShort unsignedLong unsignedInt integer int short long boolean base64Binary anyType Array)] 15 (#$ . 42640)])
(byte-code "\300\301\302\211\211\211\211\211&\303H\304\305\306#\210\304\307\310#\210\304\311\312#\210\207" [vector cl-struct-soap-xs-basic-type nil 0 put soap-attribute-encoder soap-encode-xs-basic-type-attributes soap-encoder soap-encode-xs-basic-type soap-decoder soap-decode-xs-basic-type] 8)
(defalias 'soap-xs-element-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 11) (memq (aref cl-x 0) cl-struct-soap-xs-element-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-p 'compiler-macro 'soap-xs-element-p--cmacro)
(defalias 'soap-xs-element-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-element-tags vectorp 11 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-element-p side-effect-free error-free put soap-xs-element cl-deftype-satisfies] 4)
(defalias 'soap-xs-element-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-name 'compiler-macro 'soap-xs-element-name--cmacro)
(defalias 'soap-xs-element-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-name 'side-effect-free t)
(defalias 'soap-xs-element-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-namespace-tag 'compiler-macro 'soap-xs-element-namespace-tag--cmacro)
(defalias 'soap-xs-element-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-element-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-id 'compiler-macro 'soap-xs-element-id--cmacro)
(defalias 'soap-xs-element-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-id 'side-effect-free t)
(defalias 'soap-xs-element-type^--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-type^ (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-type^ 'compiler-macro 'soap-xs-element-type^--cmacro)
(defalias 'soap-xs-element-type^ #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-type^ 'side-effect-free t)
(defalias 'soap-xs-element-optional\?--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-optional\? (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-optional\? 'compiler-macro 'soap-xs-element-optional\?--cmacro)
(defalias 'soap-xs-element-optional\? #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-optional\? 'side-effect-free t)
(defalias 'soap-xs-element-multiple\?--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-multiple\? (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-multiple\? 'compiler-macro 'soap-xs-element-multiple\?--cmacro)
(defalias 'soap-xs-element-multiple\? #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 6] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-multiple\? 'side-effect-free t)
(defalias 'soap-xs-element-reference--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-reference (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-reference 'compiler-macro 'soap-xs-element-reference--cmacro)
(defalias 'soap-xs-element-reference #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 7] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-reference 'side-effect-free t)
(defalias 'soap-xs-element-substitution-group--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-substitution-group (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-substitution-group 'compiler-macro 'soap-xs-element-substitution-group--cmacro)
(defalias 'soap-xs-element-substitution-group #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 8] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-substitution-group 'side-effect-free t)
(defalias 'soap-xs-element-alternatives--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-alternatives (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-alternatives 'compiler-macro 'soap-xs-element-alternatives--cmacro)
(defalias 'soap-xs-element-alternatives #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 9] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-element-alternatives 'side-effect-free t)
(defalias 'soap-xs-element-is-group--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-element-is-group (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-element-tags)) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-element-is-group 'compiler-macro 'soap-xs-element-is-group--cmacro)
(defalias 'soap-xs-element-is-group #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 10] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-element-is-group side-effect-free t defalias copy-soap-xs-element copy-sequence] 4)
#@137
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ID TYPE^ OPTIONAL\=\? MULTIPLE\=\? REFERENCE SUBSTITUTION-GROUP ALTERNATIVES IS-GROUP)
(defalias 'make-soap-xs-element--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\n\211\203n \211@\313>\203V \211AA\262\202C \314\f>A@\203e \315\262\202C \316\317@\"\210\202C \210\320\321\322\315\315&\207" [plist-member :name :namespace-tag :id :type^ :optional\? :multiple\? :reference :substitution-group :alternatives :is-group (:name :namespace-tag :id :type^ :optional\? :multiple\? :reference :substitution-group :alternatives :is-group :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :type^ :optional? :multiple? :reference :substitution-group :alternatives :is-group)" cl--defsubst-expand (name namespace-tag id type^ optional\? multiple\? reference substitution-group alternatives is-group) (cl-block make-soap-xs-element "Constructor for objects of type `soap-xs-element'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-element name namespace-tag id type^ optional\? multiple\? reference substitution-group alternatives is-group))] 28 (#$ . 52374)])
(put 'make-soap-xs-element 'compiler-macro 'make-soap-xs-element--cmacro)
#@168 Constructor for objects of type `soap-xs-element'.
(fn &key NAME NAMESPACE-TAG ID TYPE^ OPTIONAL\=\? MULTIPLE\=\? REFERENCE SUBSTITUTION-GROUP ALTERNATIVES IS-GROUP)
(defalias 'make-soap-xs-element #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\n\211\203n \211@\313>\203V \211AA\262\202C \314\f>A@\203e \315\262\202C \316\317@\"\210\202C \210\320\321 & \207" [plist-member :name :namespace-tag :id :type^ :optional\? :multiple\? :reference :substitution-group :alternatives :is-group (:name :namespace-tag :id :type^ :optional\? :multiple\? :reference :substitution-group :alternatives :is-group :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :type^ :optional? :multiple? :reference :substitution-group :alternatives :is-group)" vector cl-struct-soap-xs-element] 23 (#$ . 53750)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-element side-effect-free t cl-struct-define soap-xs-element nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (id) (type^) (optional\?) (multiple\?) (reference) (substitution-group) (alternatives) (is-group)) cl-struct-soap-xs-element-tags cl-struct-soap-xs-element] 10)
#@166 Retrieve the type of ELEMENT.
This is normally stored in the TYPE^ slot, but if this element
contains a reference, retrieve the type of the reference.
(fn ELEMENT)
(defalias 'soap-xs-element-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\203* \306\301H>\204% \302\303\304D\"\210\305H!\207\211\301H>\2049 \302\303\304D\"\210\211\307H\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 7 soap-xs-element-type 4] 6 (#$ . 55110)])
#@60 Return t if NODE specifies an optional element.
(fn NODE)
(defalias 'soap-node-optional #[257 "\300\301\"\302\232\206 \300\303\"\211\205 \211\304\232\262\207" [xml-get-attribute-or-nil nillable "true" minOccurs "0"] 4 (#$ . 55593)])
#@56 Return t if NODE permits multiple elements.
(fn NODE)
(defalias 'soap-node-multiple #[257 "\300\301\"\211\205\f \211\302\232?\207" [xml-get-attribute-or-nil maxOccurs "1"] 4 (#$ . 55838)])
#@53 Construct a `soap-xs-element' from NODE.
(fn NODE)
(defalias 'soap-xs-parse-element #[257 "\302\303\"\302\304\"\302\305\"\306!\307!\302\310\"\302\311\"\312\211@)!\211\313>\2042 \314\315\211C\316$\210\203= \317\320\"\262\203G \317\320\"\262\203Q \317\320\"\262\204\203 \204\203 \321 \322\"\211\203k \323@!\262\202\202 \321\n\324\"\211\203} \325@!\262\202\201 \326\327!\210\210\210\330\331 \n\n\n\n\n\n\316 \332=& \207" [node soap-target-xmlns xml-get-attribute-or-nil name id type soap-node-optional soap-node-multiple ref substitutionGroup soap-l2wk #1=(xsd:element xsd:group) cl--assertion-failed (memq node-name '#1#) nil soap-l2fq tns soap-xml-get-children1 xsd:simpleType soap-xs-parse-simple-type xsd:complexType soap-xs-parse-complex-type error "Soap-xs-parse-element: missing type or ref" vector cl-struct-soap-xs-element xsd:group] 23 (#$ . 56035)])
#@213 Replace names in ELEMENT with the referenced objects in the WSDL.
This is a specialization of `soap-resolve-references' for
`soap-xs-element' objects.
See also `soap-wsdl-resolve-references'.
(fn ELEMENT WSDL)
(defalias 'soap-resolve-references-for-xs-element #[514 "\303H>\204 \304\305\306D\"\210\307H\211\2039 \310\311!\"@\211\2038 \303H>\2041 \304\305\306D\"\210\211\307I\266\210\210\303H >\204I \304\305\312D\"\210\313H\314!\203p \303H >\204a \304\305\312D\"\210\211\313\315\316#I\266\202\212 \317!\203\212 \211G\320Y\203\212 \211\303H\n>\203\212 \321\"\210\210\303H >\204\232 \304\305\312D\"\210\322H\314!\203\323 \303H >\204\262 \304\305\312D\"\210\323H\204\323 \303H >\204\307 \304\305\312D\"\210\211\322\315\324#I\266\210\303H >\204\343 \304\305\312D\"\210\325H\314!\205\"\315\"\211\203\211\303H >\204\304\305\312D\"\210\211\211\326\326HBI\262\202 \327C\330\331\332\333#\334#\266\202\262\207" [cl-struct-soap-element-tags cl-struct-soap-xs-element-tags cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-element 2 rassoc soap-wsdl-alias-table soap-xs-element 4 soap-name-p soap-wsdl-get soap-xs-type-p vectorp 6 soap-resolve-references 7 10 soap-xs-element-p 8 9 "No target found for substitution-group" display-warning soap-client apply format :warning] 12 (#$ . 56941)])
#@203 Encode the XML attributes for VALUE according to ELEMENT.
Currently no attributes are needed.
This is a specialization of `soap-encode-attributes' for
`soap-xs-basic-type' objects.
(fn VALUE ELEMENT)
(defalias 'soap-encode-xs-element-attributes #[514 "\300\207" [nil] 3 (#$ . 58305)])
#@85 Return t if VALUE should be encoded for ELEMENT, nil otherwise.
(fn VALUE ELEMENT)
(defalias 'soap-should-encode-value-for-xs-element #[514 "\206k \302!\303!\2050 \211G\304Y\2050 \211\305H>\2050 \211\305H>\204+ \306\307\310D\"\210\211\311H\312=\262\206k \302!\3132i \211\305H >\204K \306\307\314D\"\210\211\315H\211\205f \211@\316!\203_ \317\313\320\"\210A\266\202\202N \2620\262\207" [cl-struct-soap-xs-basic-type-tags cl-struct-soap-xs-type-tags soap-xs-element-type vectorp 7 0 signal wrong-type-argument soap-xs-basic-type 6 boolean found soap-xs-type 4 soap-xs-attribute-default throw t] 8 (#$ . 58598)])
#@47 Return t if TYPE defines an ARRAY.
(fn TYPE)
(defalias 'soap-type-is-array\? #[257 "\300!\205 \301!\302=\207" [soap-xs-complex-type-p soap-xs-complex-type-indicator array] 3 (#$ . 59228)])
#@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 (#$ . 59428))
#@211 Encode the VALUE according to ELEMENT.
The data is inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-value' for
`soap-xs-basic-type' objects.
(fn VALUE ELEMENT)
(defalias 'soap-encode-xs-element #[514 "\304!\305!\306H>\204 \307\310\311D\"\210\312H\203\341 \313\"\205\354 \314\261\210\315\"\210\204\\ \316!\203\334 \211G\317Y\203\334 \211\306H >\203\334 \211\306H >\204T \307\310\320D\"\210\211\321H\322=\203\334 \323c\210\324!\203\317 \325!\306H>\204w \307\310\311D\"\210\326H\203\232 \306H>\204\214 \307\310\311D\"\210\326H\211\n\235\204\231 \211\nB\210\211\306H >\204\251 \307\310\327D\"\210\211\211\330\331!I\266\306GW\203\312 \332H\"\210T\262\202\265 \266\202\324 \333\"\210\334\335\261\202\354 \336c\202\354 \313\"\205\354 \333\"\207" [cl-struct-soap-element-tags cl-struct-soap-xs-basic-type-tags soap-encoded-namespaces cl-struct-soap-xs-element-tags soap-element-fq-name soap-xs-element-type 0 signal wrong-type-argument soap-element 1 soap-should-encode-value-for-xs-element "<" soap-encode-attributes vectorp 7 soap-xs-basic-type 6 boolean ">" soap-type-is-array\? copy-soap-xs-element 2 soap-xs-element 4 soap-xs-complex-type-base soap-encode-xs-element soap-encode-value "</" ">\n" "/>\n"] 10 (#$ . 59741)])
#@260 Use ELEMENT, a `soap-xs-element', to decode the contents of NODE.
A LISP value is returned based on the contents of NODE and the
type-info stored in ELEMENT.
This is a specialization of `soap-decode-type' for
`soap-xs-basic-type' objects.
(fn ELEMENT NODE)
(defalias 'soap-decode-xs-element #[514 "\300!\301\"\207" [soap-xs-element-type soap-decode-type] 6 (#$ . 61065)])
(byte-code "\300\301\302\211\211\211\211\211\211\211\211\211& \303H\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\207" [vector cl-struct-soap-xs-element nil 0 put soap-resolve-references soap-resolve-references-for-xs-element soap-attribute-encoder soap-encode-xs-element-attributes soap-encoder soap-encode-xs-element soap-decoder soap-decode-xs-element] 12)
(defalias 'soap-xs-attribute-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-soap-xs-attribute-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-p 'compiler-macro 'soap-xs-attribute-p--cmacro)
(defalias 'soap-xs-attribute-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-attribute-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-attribute-p side-effect-free error-free put soap-xs-attribute cl-deftype-satisfies] 4)
(defalias 'soap-xs-attribute-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-name 'compiler-macro 'soap-xs-attribute-name--cmacro)
(defalias 'soap-xs-attribute-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags 0 signal wrong-type-argument soap-xs-attribute 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-name 'side-effect-free t)
(defalias 'soap-xs-attribute-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-namespace-tag 'compiler-macro 'soap-xs-attribute-namespace-tag--cmacro)
(defalias 'soap-xs-attribute-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags 0 signal wrong-type-argument soap-xs-attribute 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-attribute-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-type 'compiler-macro 'soap-xs-attribute-type--cmacro)
(defalias 'soap-xs-attribute-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags 0 signal wrong-type-argument soap-xs-attribute 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-type 'side-effect-free t)
(defalias 'soap-xs-attribute-default--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-default (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-default 'compiler-macro 'soap-xs-attribute-default--cmacro)
(defalias 'soap-xs-attribute-default #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags 0 signal wrong-type-argument soap-xs-attribute 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-default 'side-effect-free t)
(defalias 'soap-xs-attribute-reference--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-reference (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-reference 'compiler-macro 'soap-xs-attribute-reference--cmacro)
(defalias 'soap-xs-attribute-reference #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags 0 signal wrong-type-argument soap-xs-attribute 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-attribute-reference side-effect-free t defalias copy-soap-xs-attribute copy-sequence] 4)
#@74
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG TYPE DEFAULT REFERENCE)
(defalias 'make-soap-xs-attribute--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :name :namespace-tag :type :default :reference (:name :namespace-tag :type :default :reference :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :type :default :reference)" cl--defsubst-expand (name namespace-tag type default reference) (cl-block make-soap-xs-attribute "Constructor for objects of type `soap-xs-attribute'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-attribute name namespace-tag type default reference))] 18 (#$ . 66190)])
(put 'make-soap-xs-attribute 'compiler-macro 'make-soap-xs-attribute--cmacro)
#@107 Constructor for objects of type `soap-xs-attribute'.
(fn &key NAME NAMESPACE-TAG TYPE DEFAULT REFERENCE)
(defalias 'make-soap-xs-attribute #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314&\207" [plist-member :name :namespace-tag :type :default :reference (:name :namespace-tag :type :default :reference :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :type :default :reference)" vector cl-struct-soap-xs-attribute] 13 (#$ . 67130)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-attribute side-effect-free t cl-struct-define soap-xs-attribute nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (type) (default) (reference)) cl-struct-soap-xs-attribute-tags cl-struct-soap-xs-attribute] 10)
(defalias 'soap-xs-attribute-group-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-p 'compiler-macro 'soap-xs-attribute-group-p--cmacro)
(defalias 'soap-xs-attribute-group-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-attribute-group-tags vectorp 7 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-attribute-group-p side-effect-free error-free put soap-xs-attribute-group cl-deftype-satisfies] 4)
(defalias 'soap-xs-attribute-group-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-name 'compiler-macro 'soap-xs-attribute-group-name--cmacro)
(defalias 'soap-xs-attribute-group-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-group-name 'side-effect-free t)
(defalias 'soap-xs-attribute-group-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-namespace-tag 'compiler-macro 'soap-xs-attribute-group-namespace-tag--cmacro)
(defalias 'soap-xs-attribute-group-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-group-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-attribute-group-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-id 'compiler-macro 'soap-xs-attribute-group-id--cmacro)
(defalias 'soap-xs-attribute-group-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-group-id 'side-effect-free t)
(defalias 'soap-xs-attribute-group-attributes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-attributes (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-attributes 'compiler-macro 'soap-xs-attribute-group-attributes--cmacro)
(defalias 'soap-xs-attribute-group-attributes #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-group-attributes 'side-effect-free t)
(defalias 'soap-xs-attribute-group-attribute-groups--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-attribute-groups (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-attribute-groups 'compiler-macro 'soap-xs-attribute-group-attribute-groups--cmacro)
(defalias 'soap-xs-attribute-group-attribute-groups #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-attribute-group-attribute-groups 'side-effect-free t)
(defalias 'soap-xs-attribute-group-reference--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-attribute-group-reference (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-attribute-group-tags)) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-attribute-group-reference 'compiler-macro 'soap-xs-attribute-group-reference--cmacro)
(defalias 'soap-xs-attribute-group-reference #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 6] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-attribute-group-reference side-effect-free t defalias copy-soap-xs-attribute-group copy-sequence] 4)
#@92
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS REFERENCE)
(defalias 'make-soap-xs-attribute-group--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315\316\311 \311 & \207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :reference (:name :namespace-tag :id :attributes :attribute-groups :reference :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :reference)" cl--defsubst-expand (name namespace-tag id attributes attribute-groups reference) (cl-block make-soap-xs-attribute-group "Constructor for objects of type `soap-xs-attribute-group'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-attribute-group name namespace-tag id attributes attribute-groups reference))] 20 (#$ . 73639)])
(put 'make-soap-xs-attribute-group 'compiler-macro 'make-soap-xs-attribute-group--cmacro)
#@131 Constructor for objects of type `soap-xs-attribute-group'.
(fn &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS REFERENCE)
(defalias 'make-soap-xs-attribute-group #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315&\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :reference (:name :namespace-tag :id :attributes :attribute-groups :reference :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :reference)" vector cl-struct-soap-xs-attribute-group] 15 (#$ . 74736)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-attribute-group side-effect-free t cl-struct-define soap-xs-attribute-group nil soap-xs-type ((cl-tag-slot) (name nil) (namespace-tag nil) (id nil) (attributes nil) (attribute-groups nil) (reference)) cl-struct-soap-xs-attribute-group-tags cl-struct-soap-xs-attribute-group] 10)
#@55 Construct a `soap-xs-attribute' from NODE.
(fn NODE)
(defalias 'soap-xs-parse-attribute #[257 "\301\211@)!\302=\204 \303\304\301\211@)!\301\211@)!C\305$\210\306\307\"\310\306\311\"!\306\312\"\306\313\"\211\2059 \310!\204J \211\204J \314\315\316\"!\262\317\320\305&\207" [node soap-l2wk xsd:attribute cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'xsd:attribute) nil xml-get-attribute-or-nil name soap-l2fq type fixed ref soap-xs-parse-simple-type soap-xml-node-find-matching-child (xsd:restriction xsd:list xsd:union) vector cl-struct-soap-xs-attribute] 14 (#$ . 75869)])
#@61 Construct a `soap-xs-attribute-group' from NODE.
(fn NODE)
(defalias 'soap-xs-parse-attribute-group #[257 "\303\211@)!\211\304=\204 \305\306\211C\307$\210\310\311\"\310\312\"\310\313\"\307\2038 \2038 \314C\315\316\317\320#\321#\266\322\323\324\325\205H \326!&\262\204\276 \211AA)\211\203\275 \211@\211;\204\266 \303\211@)!\327\330\"\203\220 \331!\332H >\204\202 \333\334\335D\"\210\211\336\336HBI\266\202\265 \327\304\"\203\265 \337!\332H\n>\204\252 \333\334\340D\"\210\211\341\341HBI\266\210A\266\202\202V \210\266\203\207" [node cl-struct-soap-xs-type-tags cl-struct-soap-xs-attribute-group-tags soap-l2wk xsd:attributeGroup cl--assertion-failed (eq node-name 'xsd:attributeGroup) nil xml-get-attribute-or-nil name id ref "name and ref set for attribute group %s" display-warning soap-client apply format :warning make-soap-xs-attribute-group :id :name :reference soap-l2fq eql xsd:attribute soap-xs-parse-attribute 0 signal wrong-type-argument soap-xs-type 4 soap-xs-parse-attribute-group soap-xs-attribute-group 5] 17 (#$ . 76485)])
#@219 Replace names in ATTRIBUTE with the referenced objects in the WSDL.
This is a specialization of `soap-resolve-references' for
`soap-xs-attribute' objects.
See also `soap-wsdl-resolve-references'.
(fn ATTRIBUTE WSDL)
(defalias 'soap-resolve-references-for-xs-attribute #[514 "\302H>\204 \303\304\305D\"\210\306H\302H>\204! \303\304\305D\"\210\307H\310\311!\205/ @\312\232\211\203< \313\262\314\262\202} \311!\203b \302H>\204R \303\304\305D\"\210\211\306\315 \316#I\266\202} \317!\203} G\320Y\203} \302H >\203} \321\"\210\311!\205\241 \302H>\204\223 \303\304\305D\"\210\211\307\315 #I\262\207" [cl-struct-soap-xs-attribute-tags cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-attribute 3 5 soap-xs-element-p soap-name-p "http://www.w3.org/XML/1998/namespace" ("http://www.w3.org/2001/XMLSchema" . "string") soap-xs-basic-type-p soap-wsdl-get #[257 "\301!\203 \211G\302Y\203 \211\303H>\203 \304\207\305!\207" [cl-struct-soap-xs-basic-type-tags vectorp 7 0 t soap-xs-simple-type-p] 3 "\n\n(fn TYPE)"] vectorp 6 soap-resolve-references] 13 (#$ . 77576)])
(byte-code "\300\301\302\303\211\211\211\211&\304H\305\306#\207" [put vector cl-struct-soap-xs-attribute nil 0 soap-resolve-references soap-resolve-references-for-xs-attribute] 8)
#@231 Set slots in ATTRIBUTE-GROUP to the referenced objects in the WSDL.
This is a specialization of `soap-resolve-references' for
`soap-xs-attribute-group' objects.
See also `soap-wsdl-resolve-references'.
(fn ATTRIBUTE-GROUP WSDL)
(defalias 'soap-resolve-references-for-xs-attribute-group #[514 "\301H>\204 \302\303\304D\"\210\305H\306!\205 \307\310#\211\301H>\204, \302\303\304D\"\210\211\311H\211\203B \211@\312\"\210A\266\202\202/ \210\301H>\204S \302\303\304D\"\210\211\313\301H>\204f \302\303\304D\"\210\313HI\266\301H>\204| \302\303\304D\"\210\211\314\301H>\204\217 \302\303\304D\"\210\314HI\266\301H>\204\245 \302\303\304D\"\210\211\305\315I\266\301H>\204\274 \302\303\304D\"\210\211\311\301H>\204\317 \302\303\304D\"\210\311HI\266\301H>\204\345 \302\303\304D\"\210\211\316\301H>\204\370 \302\303\304D\"\210\316HI\262\262\207" [cl-struct-soap-xs-attribute-group-tags 0 signal wrong-type-argument soap-xs-attribute-group 6 soap-name-p soap-wsdl-get soap-xs-attribute-group-p 4 soap-resolve-references 1 3 nil 5] 11 (#$ . 78880)])
(byte-code "\300\301\302\303\211\211\211\211\211&\304H\305\306#\207" [put vector cl-struct-soap-xs-attribute-group nil 0 soap-resolve-references soap-resolve-references-for-xs-attribute-group] 9)
(defalias 'soap-xs-simple-type-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-p 'compiler-macro 'soap-xs-simple-type-p--cmacro)
(defalias 'soap-xs-simple-type-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-simple-type-tags vectorp 12 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-simple-type-p side-effect-free error-free put soap-xs-simple-type cl-deftype-satisfies] 4)
(defalias 'soap-xs-simple-type-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-name 'compiler-macro 'soap-xs-simple-type-name--cmacro)
(defalias 'soap-xs-simple-type-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-name 'side-effect-free t)
(defalias 'soap-xs-simple-type-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-namespace-tag 'compiler-macro 'soap-xs-simple-type-namespace-tag--cmacro)
(defalias 'soap-xs-simple-type-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-simple-type-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-id 'compiler-macro 'soap-xs-simple-type-id--cmacro)
(defalias 'soap-xs-simple-type-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-id 'side-effect-free t)
(defalias 'soap-xs-simple-type-attributes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-attributes (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-attributes 'compiler-macro 'soap-xs-simple-type-attributes--cmacro)
(defalias 'soap-xs-simple-type-attributes #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-attributes 'side-effect-free t)
(defalias 'soap-xs-simple-type-attribute-groups--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-attribute-groups (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-attribute-groups 'compiler-macro 'soap-xs-simple-type-attribute-groups--cmacro)
(defalias 'soap-xs-simple-type-attribute-groups #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-attribute-groups 'side-effect-free t)
(defalias 'soap-xs-simple-type-base--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-base (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-base 'compiler-macro 'soap-xs-simple-type-base--cmacro)
(defalias 'soap-xs-simple-type-base #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 6] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-base 'side-effect-free t)
(defalias 'soap-xs-simple-type-enumeration--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-enumeration (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-enumeration 'compiler-macro 'soap-xs-simple-type-enumeration--cmacro)
(defalias 'soap-xs-simple-type-enumeration #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 7] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-enumeration 'side-effect-free t)
(defalias 'soap-xs-simple-type-pattern--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-pattern (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-pattern 'compiler-macro 'soap-xs-simple-type-pattern--cmacro)
(defalias 'soap-xs-simple-type-pattern #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 8] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-pattern 'side-effect-free t)
(defalias 'soap-xs-simple-type-length-range--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-length-range (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-length-range 'compiler-macro 'soap-xs-simple-type-length-range--cmacro)
(defalias 'soap-xs-simple-type-length-range #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 9] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-length-range 'side-effect-free t)
(defalias 'soap-xs-simple-type-integer-range--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-integer-range (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-integer-range 'compiler-macro 'soap-xs-simple-type-integer-range--cmacro)
(defalias 'soap-xs-simple-type-integer-range #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 10] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-simple-type-integer-range 'side-effect-free t)
(defalias 'soap-xs-simple-type-is-list--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-simple-type-is-list (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-simple-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-simple-type-is-list 'compiler-macro 'soap-xs-simple-type-is-list--cmacro)
(defalias 'soap-xs-simple-type-is-list #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags 0 signal wrong-type-argument soap-xs-simple-type 11] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-simple-type-is-list side-effect-free t defalias copy-soap-xs-simple-type copy-sequence] 4)
#@142
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS BASE ENUMERATION PATTERN LENGTH-RANGE INTEGER-RANGE IS-LIST)
(defalias 'make-soap-xs-simple-type--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203u \211@\314>\203] \211AA\262\202J \315
>A@\203l \316\262\202J \317\320@\"\210\202J \210\321\322\323\316\316&\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :base :enumeration :pattern :length-range :integer-range :is-list (:name :namespace-tag :id :attributes :attribute-groups :base :enumeration :pattern :length-range :integer-range :is-list :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :base :enumeration :pattern :length-range :integer-range :is-list)" cl--defsubst-expand (name namespace-tag id attributes attribute-groups base enumeration pattern length-range integer-range is-list) (cl-block make-soap-xs-simple-type "Constructor for objects of type `soap-xs-simple-type'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-simple-type name namespace-tag id attributes attribute-groups base enumeration pattern length-range integer-range is-list))] 30 (#$ . 89143)])
(put 'make-soap-xs-simple-type 'compiler-macro 'make-soap-xs-simple-type--cmacro)
#@177 Constructor for objects of type `soap-xs-simple-type'.
(fn &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS BASE ENUMERATION PATTERN LENGTH-RANGE INTEGER-RANGE IS-LIST)
(defalias 'make-soap-xs-simple-type #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203u \211@\314>\203] \211AA\262\202J \315
>A@\203l \316\262\202J \317\320@\"\210\202J \210\321\322\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :base :enumeration :pattern :length-range :integer-range :is-list (:name :namespace-tag :id :attributes :attribute-groups :base :enumeration :pattern :length-range :integer-range :is-list :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :base :enumeration :pattern :length-range :integer-range :is-list)" vector cl-struct-soap-xs-simple-type] 25 (#$ . 90612)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-simple-type side-effect-free t cl-struct-define soap-xs-simple-type nil soap-xs-type ((cl-tag-slot) (name nil) (namespace-tag nil) (id nil) (attributes nil) (attribute-groups nil) (base) (enumeration) (pattern) (length-range) (integer-range) (is-list)) cl-struct-soap-xs-simple-type-tags cl-struct-soap-xs-simple-type] 10)
#@73 Construct an `soap-xs-simple-type' object from the XML NODE.
(fn NODE)
(defalias 'soap-xs-parse-simple-type #[257 "\302\211@)!\303>\204 \304\305\306\307\302\211@)!C$\210\310\311\"\310\312\"\313\314 \307\211\211\211\211\211\211\211&\f\315\316\"\302\211@)!\317\320\"\203K \321\"\210\202~ \317\322\"\203Z \323\"\210\202~ \317\324\"\203i \325\"\210\202~ \317\326\"\203x \327\"\210\202~ \330\331\332#\210\210\266\202\207" [node soap-target-xmlns soap-l2wk #1=(xsd:simpleType xsd:simpleContent) cl--assertion-failed (memq (soap-l2wk (xml-node-name node)) '#1#) "expecting xsd:simpleType or xsd:simpleContent node, got %s" nil xml-get-attribute-or-nil name id vector cl-struct-soap-xs-simple-type soap-xml-node-find-matching-child (xsd:restriction xsd:extension xsd:union xsd:list) eql xsd:restriction soap-xs-add-restriction xsd:extension soap-xs-add-extension xsd:union soap-xs-add-union xsd:list soap-xs-add-list error "cl-ecase failed: %s, %s" (xsd:restriction xsd:extension xsd:union xsd:list)] 17 (#$ . 92085)])
#@89 Add restrictions defined in XML NODE to TYPE, an `soap-xs-simple-type'.
(fn NODE TYPE)
(defalias 'soap-xs-add-restriction #[514 "\303\211@)!\304=\204 \305\306\307\310\303\211@)!C$\210\211\311H >\204* \312\313\314D\"\210\211\211\315\316\317\320\n\"\206: \321*!I\266\211AA)\211\205\366\211@\211;\204\357\211\322\320\n\"\206\\ \321*\303\211@)!\323\324\"\203\211 \311H >\204{ \312\313\314D\"\210\211\325\325HBI\266\202\355\323\326\"\203\260 \311H >\204\240 \312\313\314D\"\210\211\327\330\331!\332QI\266\202\355\323\333\"\203\326 \334!\311H >\204\312 \312\313\314D\"\210\211\335\211BI\266\202\355\323\336\"\203/\334!\311H >\204\360 \312\313\314D\"\210\211\335\311H >\204\312\313\314 D\"\210\335H\203& \311H >\204 \312\313\314\fD\"\210 \335HAB\202)\310BI\266\202\355\323\337\"\203\210\334!\311H >\204I\312\313\314D\"\210\211\335\311H >\204]\312\313\314 D\"\210\335H\203\311H >\204u\312\313\314 D\"\210\335H@B\202\202\310BI\266\202\355\323\340\"\203\343\334!\311H >\204\242\312\313\314D\"\210\211\341\311H >\204\266\312\313\314 D\"\210\341H\203\331T \311H >\204\320\312\313\314\fD\"\210 \341HAB\202\335T\310BI\266\202\355\323\342\"\203>\334!\311H >\204\375\312\313\314D\"\210\211\341\311H >\204\312\313\314 D\"\210\341H\2034\311H >\204)\312\313\314 D\"\210\341H@SB\2028\310SBI\266\202\355\323\343\"\203\227\334!\311H >\204X\312\313\314D\"\210\211\341\311H >\204l\312\313\314 D\"\210\341H\203\216 \311H >\204\205\312\313\314\fD\"\210 \341HAB\202\221\310BI\266\202\355\323\344\"\203\355\334!\311H >\204\261\312\313\314D\"\210\211\341\311H >\204\305\312\313\314 D\"\210\341H\203\347\311H >\204\335\312\313\314 D\"\210\341H@B\202\352\310BI\266\266A\266\202\202E \207" [node cl-struct-soap-xs-simple-type-tags attribute soap-l2wk xsd:restriction cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'xsd:restriction) "expecting xsd:restriction node, got %s" nil 0 signal wrong-type-argument soap-xs-simple-type 6 soap-l2fq base xml-get-attribute-or-nil "" value eql xsd:enumeration 7 xsd:pattern 8 "\\`" xsdre-translate "\\'" xsd:length string-to-number 9 xsd:minLength xsd:maxLength xsd:minExclusive 10 xsd:maxExclusive xsd:minInclusive xsd:maxInclusive] 16 (#$ . 93129)])
#@90 Add union members defined in XML NODE to TYPE, an `soap-xs-simple-type'.
(fn NODE TYPE)
(defalias 'soap-xs-add-union #[514 "\302\211@)!\303=\204 \304\305\306\307\302\211@)!C$\210\211\310H >\204* \311\312\313D\"\210\211\211\314\315\316\317\320\321\"\2069 \322!\"I\266\307\323\324\"\211\203W \211@\325!B\262A\266\202\202C \210\310H >\204g \311\312\313D\"\210\211\314\326\310H >\204{ \311\312\313D\"\210\314H\237\"I\262\207" [node cl-struct-soap-xs-simple-type-tags soap-l2wk xsd:union cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'xsd:union) "expecting xsd:union node, got %s" nil 0 signal wrong-type-argument soap-xs-simple-type 6 mapcar soap-l2fq split-string xml-get-attribute-or-nil memberTypes "" soap-xml-get-children1 xsd:simpleType soap-xs-parse-simple-type append] 12 (#$ . 95505)])
#@80 Add list defined in XML NODE to TYPE, a `soap-xs-simple-type'.
(fn NODE TYPE)
(defalias 'soap-xs-add-list #[514 "\303\211@)!\304=\204 \305\306\307\310\303\211@)!C$\210\311\312\"\313\314\"\203l \211G\315U\203I \315H >\204= \316\317\320D\"\210\211\321\322!I\266\202\263 \323\315H\n>\204Z \316\317\324D\"\210\325HC\326\327\330\331#\332#\266\202\263 \211G\325U\203\223 \315H >\204\202 \316\317\320D\"\210\211\321\333\313\314\"@!I\266\202\263 \334\315H\n>\204\244 \316\317\324D\"\210\325HC\326\327\330\331#\332#\266\315H >\204\302 \316\317\320D\"\210\211\335\336I\262\207" [node cl-struct-soap-xs-simple-type-tags cl-struct-soap-xs-type-tags soap-l2wk xsd:list cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'xsd:list) "expecting xsd:list node, got %s" nil xml-get-attribute-or-nil itemType soap-xml-get-children1 xsd:simpleType 0 signal wrong-type-argument soap-xs-simple-type 6 soap-l2fq "xsd:list node with itemType has more than zero children: %s" soap-xs-type 1 display-warning soap-client apply format :warning soap-xs-parse-simple-type "xsd:list node has more than one child %s" 11 t] 13 (#$ . 96339)])
#@94 Add the extended type defined in XML NODE to TYPE, an `soap-xs-simple-type'.
(fn NODE TYPE)
(defalias 'soap-xs-add-extension #[514 "\211\304H>\204 \305\306\307D\"\210\211\211\310\311\312\313\n \"\206 \314*!I\266\315\316\"\211\203S \211@\317!\304H >\204A \305\306\320D\"\210\211\321\321HBI\266A\266\202\202( \210\315\322\"\211\205\203 \211@\323!\304H >\204q \305\306\320D\"\210\211\324\324HBI\266A\266\202\202X \207" [cl-struct-soap-xs-simple-type-tags attribute node cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-simple-type 6 soap-l2fq base xml-get-attribute-or-nil "" soap-xml-get-children1 xsd:attribute soap-xs-parse-attribute soap-xs-type 4 xsd:attributeGroup soap-xs-parse-attribute-group 5] 11 (#$ . 97500)])
#@62 Validate VALUE against the basic type TYPE.
(fn VALUE TYPE)
(defalias 'soap-validate-xs-basic-type #[514 "\211\303H>\204 \304\305\306D\"\210\211\307H\310\311\"\203 \202I \211\312N\211\203C \211\313\n@ \nAB\"*\2038 \202G \314\315\316!#\202G \314\317\"\262\207" [cl-struct-soap-xs-basic-type-tags str dt 0 signal wrong-type-argument soap-xs-basic-type 6 memql (anyType Array byte []) rng-xsd-convert apply error "Invalid %s: %s" symbol-name "Don't know how to convert %s"] 8 (#$ . 98270)])
#@67 Validate VALUE against the restrictions of TYPE.
(fn VALUE TYPE)
(defalias 'soap-validate-xs-simple-type #[514 "\211\304H>\204 \305\306\307D\"\210\211\310H\311C<\203\217 \3122\213 \211\203{ \211@\3131i \314!\203H \211G\315Y\203H \211\304H>\203H \316\312\317\"\"\202e \314!\205e \211G\320Y\205e \211\304H >\205e \316\312\321\"\"0\202s A@\242B\240\262\210A\266\202\202 \210\211\242\205\212 \322\323\324\242\237\325#!0\210\202\277\311\326\327\330\331\332!\333\"\310\334%\262\3352\207\304H>\204\263 \305\306\307D\"\210\320H\211G\336V\203\310 \235\204\310 \337\"\210\210\304H>\204\331 \305\306\307D\"\210\340H\211\203\366 \211\311\341\342#)\266\203\204\366 \343\"\210\210\304H>\204\305\306\307D\"\210\344H\211\203>;\204\345\"\210\211@\203+G@Y\204+\346@\"\210\211A\203>GAX\204>\347A\"\210\210\304H>\204O\305\306\307D\"\210\350H\211\205\204\247\204`\351\"\210\211@\203r@Y\204r\352@\"\210\211A\205\204AX?\205\204\353A\"\2620\266\211\242\203\277\322\354\304H >\204\241\305\306\355D\"\210\336H\206\272\304H >\204\267\305\306\355D\"\210\356H\242@$\210\266\207" [cl-struct-soap-xs-simple-type-tags cl-struct-soap-xs-basic-type-tags inhibit-changing-match-data cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-xs-simple-type 6 nil valid (error) vectorp 12 throw soap-validate-xs-simple-type 7 soap-validate-xs-basic-type error mapconcat identity "; and: " make-byte-code 514 "\300\301\"\300\242B\240\210\302\303\304\"\207" vconcat vector [format throw invalid nil] "\n\n(fn FORMAT VALUE)" invalid 1 "bad value, should be one of %s" 8 t string-match "bad value, should match pattern %s" 9 "bad value, should be a string with length range %s" "short string, should be at least %s chars" "long string, should be at most %s chars" 10 "bad value, should be a number with range %s" "small value, should be at least %s" "big value, should be at most %s" "Xs-simple-type(%s, %s): %s" soap-xs-type 3] 13 (#$ . 98780)])
#@211 Replace names in TYPE with the referenced objects in the WSDL.
This is a specialization of `soap-resolve-references' for
`soap-xs-simple-type' objects.
See also `soap-wsdl-resolve-references'.
(fn TYPE WSDL)
(defalias 'soap-resolve-references-for-xs-simple-type #[514 "\303H>\204 \304\305\306D\"\210\307H\211\2039 \310\311!\"@\211\2038 \303H>\2041 \304\305\306D\"\210\211\307I\266\210\210\303H >\204I \304\305\312D\"\210\313H\314!\203p \303H >\204a \304\305\312D\"\210\211\313\315\316#I\266\202\276 \317!\203\215 \211G\313Y\203\215 \211\303H\n>\203\215 \320\"\210\202\276 \211<\203\272 \303H >\204\241 \304\305\312D\"\210\211\313\321\322\323\324\325\326\n!\327\"\330\331%\"I\266\202\276 \332\333!\210\210\303H\n>\204\316 \304\305\334D\"\210\335H\211\203\343 \211@\320\"\210A\266\202\202\321 \210\303H\n>\204\363 \304\305\334D\"\210\330H\211\205\211@\320\"\210A\266\202\202\366 \207" [cl-struct-soap-element-tags cl-struct-soap-xs-simple-type-tags cl-struct-soap-xs-type-tags 0 signal wrong-type-argument soap-element 2 rassoc soap-wsdl-alias-table soap-xs-simple-type 6 soap-name-p soap-wsdl-get soap-xs-type-p vectorp soap-resolve-references mapcar make-byte-code 257 "\302!\203\f \303\300\304#\207\305!\203' \211G\306Y\203' \211\307H >\203' \310\300\"\210\207\207" vconcat vector [cl-struct-soap-xs-type-tags soap-name-p soap-wsdl-get soap-xs-type-p vectorp 6 0 soap-resolve-references] 5 "\n\n(fn TYPE)" error "Oops" soap-xs-type 4] 13 (#$ . 100814)])
#@297 Encode the XML attributes for VALUE according to TYPE.
The xsi:type and an optional xsi:nil attributes are added. The
attributes are inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-attributes' for
`soap-xs-simple-type' objects.
(fn VALUE TYPE)
(defalias 'soap-encode-xs-simple-type-attributes #[514 "\300\301!\302\261\210?\205 \303c\207" [" xsi:type=\"" soap-element-fq-name "\"" " xsi:nil=\"true\""] 5 (#$ . 102330)])
#@206 Encode the VALUE according to TYPE.
The data is inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-value' for
`soap-xs-simple-type' objects.
(fn VALUE TYPE)
(defalias 'soap-encode-xs-simple-type #[514 "\301\"\210\211\302H>\204 \303\304\305D\"\210\211\306H\203^ \307!\211\203D \211@\310\302H>\2045 \303\304\305D\"\210\311H\"\210\312c\210A\266\202\202 \210\310\313!@\302H>\204Y \303\304\305D\"\210\311H\"\207\310\302H>\204o \303\304\305D\"\210\311H\"\207" [cl-struct-soap-xs-simple-type-tags soap-validate-xs-simple-type 0 signal wrong-type-argument soap-xs-simple-type 11 butlast soap-encode-value 6 " " last] 10 (#$ . 102812)])
#@256 Use TYPE, a `soap-xs-simple-type', to decode the contents of NODE.
A LISP value is returned based on the contents of NODE and the
type-info stored in TYPE.
This is a specialization of `soap-decode-type' for
`soap-xs-simple-type' objects.
(fn TYPE NODE)
(defalias 'soap-decode-xs-simple-type #[514 "\302H>\204 \303\304\305D\"\210\306H\203 \307\211AA)@!\207\310\302H>\204/ \303\304\305D\"\210\311H\"\312\"\207" [cl-struct-soap-xs-simple-type-tags node 0 signal wrong-type-argument soap-xs-simple-type 11 split-string soap-decode-type 6 soap-validate-xs-simple-type] 8 (#$ . 103519)])
(byte-code "\300\301\302\211\211\211\211\211\211\211\211\211\211&\f\303H\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\207" [vector cl-struct-soap-xs-simple-type nil 0 put soap-resolve-references soap-resolve-references-for-xs-simple-type soap-attribute-encoder soap-encode-xs-simple-type-attributes soap-encoder soap-encode-xs-simple-type soap-decoder soap-decode-xs-simple-type] 13)
(defalias 'soap-xs-complex-type-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 12) (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-p 'compiler-macro 'soap-xs-complex-type-p--cmacro)
(defalias 'soap-xs-complex-type-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-xs-complex-type-tags vectorp 12 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-xs-complex-type-p side-effect-free error-free put soap-xs-complex-type cl-deftype-satisfies] 4)
(defalias 'soap-xs-complex-type-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-name 'compiler-macro 'soap-xs-complex-type-name--cmacro)
(defalias 'soap-xs-complex-type-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-name 'side-effect-free t)
(defalias 'soap-xs-complex-type-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-namespace-tag 'compiler-macro 'soap-xs-complex-type-namespace-tag--cmacro)
(defalias 'soap-xs-complex-type-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-namespace-tag 'side-effect-free t)
(defalias 'soap-xs-complex-type-id--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-id (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-id 'compiler-macro 'soap-xs-complex-type-id--cmacro)
(defalias 'soap-xs-complex-type-id #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-id 'side-effect-free t)
(defalias 'soap-xs-complex-type-attributes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-attributes (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-attributes 'compiler-macro 'soap-xs-complex-type-attributes--cmacro)
(defalias 'soap-xs-complex-type-attributes #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-attributes 'side-effect-free t)
(defalias 'soap-xs-complex-type-attribute-groups--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-attribute-groups (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-attribute-groups 'compiler-macro 'soap-xs-complex-type-attribute-groups--cmacro)
(defalias 'soap-xs-complex-type-attribute-groups #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-attribute-groups 'side-effect-free t)
(defalias 'soap-xs-complex-type-indicator--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-indicator (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-indicator 'compiler-macro 'soap-xs-complex-type-indicator--cmacro)
(defalias 'soap-xs-complex-type-indicator #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 6] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-indicator 'side-effect-free t)
(defalias 'soap-xs-complex-type-base--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-base (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-base 'compiler-macro 'soap-xs-complex-type-base--cmacro)
(defalias 'soap-xs-complex-type-base #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 7] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-base 'side-effect-free t)
(defalias 'soap-xs-complex-type-elements--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-elements (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-elements 'compiler-macro 'soap-xs-complex-type-elements--cmacro)
(defalias 'soap-xs-complex-type-elements #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 8] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-elements 'side-effect-free t)
(defalias 'soap-xs-complex-type-optional\?--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-optional\? (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-optional\? 'compiler-macro 'soap-xs-complex-type-optional\?--cmacro)
(defalias 'soap-xs-complex-type-optional\? #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 9] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-optional\? 'side-effect-free t)
(defalias 'soap-xs-complex-type-multiple\?--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-multiple\? (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-multiple\? 'compiler-macro 'soap-xs-complex-type-multiple\?--cmacro)
(defalias 'soap-xs-complex-type-multiple\? #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 10] 5 "\n\n(fn CL-X)"])
(function-put 'soap-xs-complex-type-multiple\? 'side-effect-free t)
(defalias 'soap-xs-complex-type-is-group--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-xs-complex-type-is-group (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-xs-complex-type-tags)) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-xs-complex-type-is-group 'compiler-macro 'soap-xs-complex-type-is-group--cmacro)
(defalias 'soap-xs-complex-type-is-group #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 11] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-xs-complex-type-is-group side-effect-free t defalias copy-soap-xs-complex-type copy-sequence] 4)
#@141
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS INDICATOR BASE ELEMENTS OPTIONAL\=\? MULTIPLE\=\? IS-GROUP)
(defalias 'make-soap-xs-complex-type--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203u \211@\314>\203] \211AA\262\202J \315
>A@\203l \316\262\202J \317\320@\"\210\202J \210\321\322\323\316\316&\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :indicator :base :elements :optional\? :multiple\? :is-group (:name :namespace-tag :id :attributes :attribute-groups :indicator :base :elements :optional\? :multiple\? :is-group :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :indicator :base :elements :optional? :multiple? :is-group)" cl--defsubst-expand (name namespace-tag id attributes attribute-groups indicator base elements optional\? multiple\? is-group) (cl-block make-soap-xs-complex-type "Constructor for objects of type `soap-xs-complex-type'." (declare (side-effect-free t)) (vector 'cl-struct-soap-xs-complex-type name namespace-tag id attributes attribute-groups indicator base elements optional\? multiple\? is-group))] 30 (#$ . 113584)])
(put 'make-soap-xs-complex-type 'compiler-macro 'make-soap-xs-complex-type--cmacro)
#@177 Constructor for objects of type `soap-xs-complex-type'.
(fn &key NAME NAMESPACE-TAG ID ATTRIBUTES ATTRIBUTE-GROUPS INDICATOR BASE ELEMENTS OPTIONAL\=\? MULTIPLE\=\? IS-GROUP)
(defalias 'make-soap-xs-complex-type #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@ \211\203u \211@\314>\203] \211AA\262\202J \315
>A@\203l \316\262\202J \317\320@\"\210\202J \210\321\322\f\f\f\f\f\f\f\f\f\f\f&\f\207" [plist-member :name :namespace-tag :id :attributes :attribute-groups :indicator :base :elements :optional\? :multiple\? :is-group (:name :namespace-tag :id :attributes :attribute-groups :indicator :base :elements :optional\? :multiple\? :is-group :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :id :attributes :attribute-groups :indicator :base :elements :optional? :multiple? :is-group)" vector cl-struct-soap-xs-complex-type] 25 (#$ . 115032)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-xs-complex-type side-effect-free t cl-struct-define soap-xs-complex-type nil soap-xs-type ((cl-tag-slot) (name nil) (namespace-tag nil) (id nil) (attributes nil) (attribute-groups nil) (indicator) (base) (elements) (optional\?) (multiple\?) (is-group)) cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-complex-type] 10)
#@72 Construct a `soap-xs-complex-type' by parsing the XML NODE.
(fn NODE)
(defalias 'soap-xs-parse-complex-type #[257 "\304\305\"\304\306\"\307\211@)!\310\211\211\311>\204! \312\313\314\310C$\210\211AA)\211\203\350 \211@\211:\203\341 \307\211@)!\315\316\"\203K \317!B\262\202\340 \315\320\"\203\\ \321!B\262\202\340 \315\322\"\203k \323!\262\202\340 \324\325\"\203z \326!\262\202\340 \315\327\"\203\340 \211AA)\211\203\337 \211@\211:\203\330 \307\211@)!\315\316\"\203\253 \317!B\262\202\327 \315\320\"\203\275 \321!B\262\202\327 \324\330\"\203\314 \331!\262 \202\327 \324\332\"\203\327 \326!\210\210A\266\202\202\207 \210\210A\266\202\202( \210\204\376 \333\334\310\211\211\211\211\211\211\211\211\211\211&\f\262\335H >\204
\336\337\340D\"\210\211\341I\266\335H >\204$\336\337\340D\"\210\211\342\nI\266\335H >\204:\336\337\340D\"\210\211\343I\266\335H >\204Q\336\337\340D\"\210\211\344\345\335H >\204g\336\337\340\nD\"\210\344H\"I\266\335H >\204~\336\337\340D\"\210\211\346\345\335H >\204\224\336\337\340\nD\"\210\346H\"I\266\347!\203\312G\350Y\203\312\335H >\203\312\335H >\204\300\336\337\351D\"\210\211\352\353=I\266\207" [node cl-struct-soap-xs-type-tags soap-target-xmlns cl-struct-soap-xs-complex-type-tags xml-get-attribute-or-nil name id soap-l2wk nil #1=(xsd:complexType xsd:complexContent xsd:group) cl--assertion-failed (memq node-name '#1#) "unexpected node: %s" eql xsd:attribute soap-xs-parse-attribute xsd:attributeGroup soap-xs-parse-attribute-group xsd:simpleContent soap-xs-parse-simple-type memql (xsd:sequence xsd:all xsd:choice) soap-xs-parse-sequence xsd:complexContent (xsd:extension xsd:restriction) soap-xs-parse-extension-or-restriction (xsd:sequence xsd:all xsd:choice) vector cl-struct-soap-xs-complex-type 0 signal wrong-type-argument soap-xs-type 1 2 3 4 append 5 vectorp 12 soap-xs-complex-type 11 xsd:group] 21 (#$ . 116490)])
#@88 Parse a sequence definition from XML NODE.
Returns a `soap-xs-complex-type'
(fn NODE)
(defalias 'soap-xs-parse-sequence #[257 "\303\211@)!\304>\204 \305\306\307\310\303\211@)!C$\210\311\312\310\211\211\211\211\211\211\211\211\211\211&\f\211\313H >\2048 \314\315\316D\"\210\211\211\317\303\211@)!\320\321\"\203M \322\202l \320\323\"\203X \324\202l \320\325\"\203c \326\202l \327\330\331#\205l \310\262I\266\211\313H >\204\200 \314\315\316D\"\210\211\211\332\333!I\266\211\313H >\204\230 \314\315\316D\"\210\211\211\334\335!I\266\211AA)\211\203l\211@\211;\204e\303\211@)!\336\337\"\203\341 \340!\313H >\204\323 \314\315\316D\"\210\211\341\341HBI\266\202d\336\342\"\203\343!\311\344\310\211\211\310\211\211\211\211\211& \313H >\204 \314\315\316D\"\210\211\341\341HBI\266\202d\320\345\"\203?\346!\313H\n>\2041\314\315\347D\"\210\211\350\350HBI\266\202d\320\351\"\203d\352!\313H\n>\204Y\314\315\347D\"\210\211\353\353HBI\266\210A\266\202\202\247 \210\211\313H >\204|\314\315\316D\"\210\211\211\341\313H >\204\217\314\315\316D\"\210\341H\237I\266\211\207" [node cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-type-tags soap-l2wk #1=(xsd:sequence xsd:choice xsd:all) cl--assertion-failed (memq (soap-l2wk (xml-node-name node)) '#1#) "unexpected node: %s" nil vector cl-struct-soap-xs-complex-type 0 signal wrong-type-argument soap-xs-complex-type 6 eql xsd:sequence sequence xsd:all all xsd:choice choice error "cl-ecase failed: %s, %s" (xsd:sequence xsd:all xsd:choice) 9 soap-node-optional 10 soap-node-multiple memql (xsd:element xsd:group) soap-xs-parse-element 8 (xsd:sequence xsd:choice xsd:all) soap-xs-parse-sequence cl-struct-soap-xs-element xsd:attribute soap-xs-parse-attribute soap-xs-type 4 xsd:attributeGroup soap-xs-parse-attribute-group 5] 19 (#$ . 118458)])
#@105 Parse an extension or restriction definition from XML NODE.
Return a `soap-xs-complex-type'.
(fn NODE)
(defalias 'soap-xs-parse-extension-or-restriction #[257 "\302\211@)!\303>\204 \304\305\306\307\302\211@)!C$\210\307\211\211\211\310\311\"\302\211@)!\312=\2054 \211\313\314!\232\262\211AA)\211\203\243 \211@\211:\203\234 \302\211@)!\315\316\"\203] \317!\262\202\233 \320\321\"\203\214 \203\201 \322\323\"\211\203} \324\325\"\203} \326\327\"\262\210\202\233 \330!B\262\202\233 \320\331\"\203\233 \332!B\262\210A\266\202\202< \210\204\324 \333\334\307\211\211\211\211\211\211\211\211\211\211&\f\262\203\324 \335H >\204\315 \336\337\340D\"\210\211\341\342I\266\335H >\204\344 \336\337\340D\"\210\211\343\344!I\266\335H >\204\375 \336\337\340D\"\210\211\345I\266\335H >\204\336\337\340D\"\210\211\346I\266\207" [node cl-struct-soap-xs-complex-type-tags soap-l2wk #1=(xsd:extension xsd:restriction) cl--assertion-failed (memq (soap-l2wk (xml-node-name node)) '#1#) "unexpected node: %s" nil xml-get-attribute-or-nil base xsd:restriction soap-wk2l "soapenc:Array" memql (xsd:sequence xsd:choice xsd:all) soap-xs-parse-sequence eql xsd:attribute soap-xml-get-attribute-or-nil1 wsdl:arrayType string-match "^\\(.*\\)\\[\\]$" match-string 1 soap-xs-parse-attribute xsd:attributeGroup soap-xs-parse-attribute-group vector cl-struct-soap-xs-complex-type 0 signal wrong-type-argument soap-xs-complex-type 6 array 7 soap-l2fq 4 5] 20 (#$ . 120323)])
#@212 Replace names in TYPE with the referenced objects in the WSDL.
This is a specialization of `soap-resolve-references' for
`soap-xs-complex-type' objects.
See also `soap-wsdl-resolve-references'.
(fn TYPE WSDL)
(defalias 'soap-resolve-references-for-xs-complex-type #[514 "\304H>\204 \305\306\307D\"\210\310H\211\2039 \311\312!\"@\211\2038 \304H>\2041 \305\306\307D\"\210\211\310I\266\210\210\304H >\204I \305\306\313D\"\210\314H\315!\203p \304H >\204a \305\306\313D\"\210\211\314\316\317#I\266\202\212 \320!\203\212 \211G\321Y\203\212 \211\304H\n>\203\212 \322\"\210\210\323\304H >\204\233 \305\306\313D\"\210\324H\211\203\211@\211\304H >\204\263 \305\306\325D\"\210\211\326H\203\377 \316\304H >\204\311 \305\306\325D\"\210\314H\327#\211\304H >\204\336 \305\306\313D\"\210\211\324H\211\203\372 \211@\322\"\210\211B\262A\266\202\202\341 \266\202 \322\"\210\211B\262A\266\202\202\236 \210\304H >\204 \305\306\313D\"\210\211\324\237I\266\304H\n>\2047\305\306\330D\"\210\331H\211\203L\211@\322\"\210A\266\202\202:\210\304H\n>\204\\\305\306\330D\"\210\332H\211\205q\211@\322\"\210A\266\202\202_\207" [cl-struct-soap-element-tags cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-type-tags cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-element 2 rassoc soap-wsdl-alias-table soap-xs-complex-type 7 soap-name-p soap-wsdl-get soap-xs-type-p vectorp 6 soap-resolve-references nil 8 soap-xs-element 10 #[257 "\301!\205' \211G\302Y\205' \211\303H>\205' \211\303H>\204$ \304\305\306D\"\210\211\307H\207" [cl-struct-soap-xs-complex-type-tags vectorp 12 0 signal wrong-type-argument soap-xs-complex-type 11] 5 "\n\n(fn TYPE)"] soap-xs-type 4 5] 11 (#$ . 121832)])
#@371 Encode the XML attributes for encoding VALUE according to TYPE.
The xsi:type and optional xsi:nil attributes are added, plus
additional attributes needed for arrays types, if applicable. The
attributes are inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-attributes' for
`soap-xs-complex-type' objects.
(fn VALUE TYPE)
(defalias 'soap-encode-xs-complex-type-attributes #[514 "\211\303H>\204 \304\305\306D\"\210\211\307H\310=\203< \211\303H>\204& \304\305\306D\"\210\211\311H\312c\210\313\314!\315\316\317G\"\320\321\261\207\322!\211\203\262 \211@\211\303H >\204T \304\305\323D\"\210\211\324H\303H\n>\204f \304\305\325D\"\210\326H\203\211 \327\330\303H\n>\204 \304\305\325D\"\210\326H\321\261\210\202\252 \211\203\251 \211@\331@!\232\203\242 \327\330A\321\261\210A\266\202\202\212 \210\210A\266\202\202? \210\211\303H>\204\302 \304\305\306D\"\210\211\307H\205\317 ?\205\317 \332c\207" [cl-struct-soap-xs-complex-type-tags cl-struct-soap-element-tags cl-struct-soap-xs-attribute-tags 0 signal wrong-type-argument soap-xs-complex-type 6 array 7 " xsi:type=\"soapenc:Array\"" " soapenc:arrayType=\"" soap-element-fq-name "[" format "%s" "]" "\"" soap-get-xs-attributes soap-element 1 soap-xs-attribute 4 " " "=\"" symbol-name " xsi:nil=\"true\""] 12 (#$ . 123594)])
#@141 Return a list of elements that are compatible with ELEMENT.
The returned list includes ELEMENT's references and
alternatives.
(fn ELEMENT)
(defalias 'soap-get-candidate-elements #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\211\203/ \306C\301H>\204( \302\303\304D\"\210\307H\"\202F \306C\301H>\204B \302\303\304D\"\210\307H\"\207" [cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-element 7 append 9] 8 (#$ . 124946)])
#@207 Encode the VALUE according to TYPE.
The data is inserted in the current buffer at the current
position.
This is a specialization of `soap-encode-value' for
`soap-xs-complex-type' objects.
(fn VALUE TYPE)
(defalias 'soap-encode-xs-complex-type #[514 "\211\302H>\204 \303\304\305D\"\210\211\306H\307\310\"\203 \311\312!\202T\313\314\"\203>C\302H>\2047 \303\304\305D\"\210\315H\211\203Z \211B\262\211\302H>\204R \303\304\305D\"\210\211\315H\262\202: \210\211\211\2057\211@\211\302H>\204q \303\304\305D\"\210\211\316H\211\203/\211@\3172'\302\320!\211\203 \211@\211\302H >\204\227 \303\304\321D\"\210\211\322H\211\203\310 \323!\f\211\203\303 \211@\211@\232\203\274 T\262\324A\"\210A\266\202\202\243 \266\202\302H>\204\331 \303\304\305 D\"\210\306H\203\365 `\324
\"\210\211`\232\204\361 T\262\210\202 \211\203\211@`\324\"\210\211`\232\204T\262\210A\266\202\202\367 \210\210A\266\202\202\202 \210\302H>\2041\303\304\305D\"\210\306H\325!\302H >\204G\303\304\321D\"\210\315H\302H >\204Z\303\304\321D\"\210\322H\206v\211\205v\211\302H >\204s\303\304\321D\"\210\211\322H\326=\203\211\302V\203\211\327\317\330\"\202\"\326=\204\331\302U\203\331\302H >\204\245\303\304\321D\"\210\331H\204\331\332!\203\331G\333Y\203\331\302H>\203\331\334!\204\331\335
D\336\337\340\341#\342#\266\202\202\"\322V\205\"\302H >\204\357\303\304\321D\"\210\306H?\205\"\332!\205\"G\333Y\205\"\302H>\205\"\343!?\205\"\344
D\336\337\340\341#\342#\266\202\266\204\2620\210A\266\202\202t \210A\266\202\202\\ \262\262\202T\311\345\302H>\204P\303\304\305D\"\210\306H\"\207" [cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-element-tags 0 signal wrong-type-argument soap-xs-complex-type 6 eql array error "soap-encode-xs-complex-type arrays are handled elsewhere" memql (sequence choice all nil) 7 8 done soap-get-candidate-elements soap-xs-element 1 intern soap-encode-value soap-xs-element-type choice throw t 5 vectorp 12 soap-xs-complex-type-optional-p "While encoding %s: missing non-nillable slot %s" display-warning soap-client apply format :warning soap-xs-complex-type-multiple-p "While encoding %s: expected single, found multiple elements for slot %s" "Don't know how to encode complex type: %s"] 21 (#$ . 125411)])
#@187 Return the children of NODE named CHILD-NAME.
This is the same as `xml-get-children1', but NODE's local
namespace is used to resolve the children's namespace tags.
(fn NODE CHILD-NAME)
(defalias 'soap-xml-get-children-fq #[514 "\304\211AA)\211\203N \211@\211:\203G \305 \"\211@\206 \nA@\206# \3068\30718 \310\211@)!0\202: \210\304\232+\262\203G \211B\262A\266\202\202 \210\211\237\207" [node soap-local-xmlns soap-default-xmlns soap-target-xmlns nil soap-extract-xmlns 2 (error) soap-l2fq] 11 (#$ . 127755)])
#@128 Return ELEMENT's fully-qualified name using WSDL's alias table.
Return nil if ELEMENT does not have a name.
(fn ELEMENT WSDL)
(defalias 'soap-xs-element-get-fq-name #[514 "\301!\302\303H>\204 \304\305\306D\"\210\307H\"A\211\2053 \211\303H>\204/ \304\305\306D\"\210\310HB\207" [cl-struct-soap-element-tags soap-wsdl-alias-table assoc 0 signal wrong-type-argument soap-element 2 1] 9 (#$ . 128290)])
#@96 Return t if TYPE or any of TYPE's ancestor types is optional.
Return nil otherwise.
(fn TYPE)
(defalias 'soap-xs-complex-type-optional-p #[257 "\211\205B \211\301H>\204 \302\303\304D\"\210\211\305H\206B \306!\205B \211G\307Y\205B \211\301H>\205B \310\301H>\204> \302\303\304D\"\210\311H!\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 9 vectorp 12 soap-xs-complex-type-optional-p 7] 6 (#$ . 128708)])
#@110 Return t if TYPE or any of TYPE's ancestor types permits multiple elements.
Return nil otherwise.
(fn TYPE)
(defalias 'soap-xs-complex-type-multiple-p #[257 "\211\205B \211\301H>\204 \302\303\304D\"\210\211\305H\206B \306!\205B \211G\307Y\205B \211\301H>\205B \310\301H>\204> \302\303\304D\"\210\311H!\207" [cl-struct-soap-xs-complex-type-tags 0 signal wrong-type-argument soap-xs-complex-type 10 vectorp 12 soap-xs-complex-type-multiple-p 7] 6 (#$ . 129171)])
#@79 Return a list of attributes from all ATTRIBUTE-GROUPS.
(fn ATTRIBUTE-GROUPS)
(defalias 'soap-get-xs-attributes-from-groups #[257 "\301\211\203= \211@\211\302H>\204 \303\304\305D\"\210\211\306H\307\310!\302H>\204/ \303\304\305D\"\210\311H#\262\210A\266\202\202 \210\211\207" [cl-struct-soap-xs-attribute-group-tags nil 0 signal wrong-type-argument soap-xs-attribute-group 5 append soap-get-xs-attributes-from-groups 4] 12 (#$ . 129648)])
#@77 Return a list of all of TYPE's and TYPE's ancestors' attributes.
(fn TYPE)
(defalias 'soap-get-xs-attributes #[257 "\302!\205' \211G\303Y\205' \211\304H>\205' \211\304H>\204$ \305\306\307D\"\210\211\310H\311\304H >\2047 \305\306\312D\"\210\313H\314\304H >\204K \305\306\312D\"\210\315H!\"\203] \311\316!\"\202^ \211\207" [cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-type-tags vectorp 12 0 signal wrong-type-argument soap-xs-complex-type 7 append soap-xs-type 4 soap-get-xs-attributes-from-groups 5 soap-get-xs-attributes] 9 (#$ . 130106)])
#@87 Use TYPE, a `soap-xs-complex-type', to decode the attributes of NODE.
(fn TYPE NODE)
(defalias 'soap-decode-xs-attributes #[514 "\303\304!\211\203\231 \211@\211\305H>\204 \306\307\310D\"\210\211\311H\305H>\204+ \306\307\310D\"\210\312H\313!\314\"\315!\203` G\316Y\203` \305H >\203` \211\203\220 \317\303E\"BB\262\202\220 \315!\203\207 G\320Y\203\207 \305H\n>\203\207 \211\203\220 \321\"BB\262\202\220 \322\323\324!#\210\266A\266\202\202 \210\211\207" [cl-struct-soap-xs-attribute-tags cl-struct-soap-xs-basic-type-tags cl-struct-soap-xs-simple-type-tags nil soap-get-xs-attributes 0 signal wrong-type-argument soap-xs-attribute 1 3 intern xml-get-attribute-or-nil vectorp 7 soap-decode-xs-basic-type 12 soap-validate-xs-simple-type error "Attribute %s is of type %s which is not a basic or simple type" soap-name-p] 15 (#$ . 130677)])
#@256 Use TYPE, a `soap-xs-complex-type', to decode the contents of NODE.
A LISP value is returned based on the contents of NODE and the
type-info stored in TYPE.
This is a specialization of `soap-decode-type' for
`soap-xs-basic-type' objects.
(fn TYPE NODE)
(defalias 'soap-decode-xs-complex-type #[514 "\304H>\204 \305\306\307D\"\210\310H\311\312\"\203U \313\304H>\204* \305\306\307D\"\210\314H\211AA)\211\203M \211@\211:\203F \315\"B\262A\266\202\2023 \210\237\266\202\202/\316\317\"\203\313\304H>\204m \305\306\307D\"\210\314H\211\203{ \315\"\237\262\3202\304H>\204\217 \305\306\307D\"\210\321H\211\205\211@\304\304H\n>\204\250 \305\306\322D\"\210\323H\324\325\326\n@!\"\203\321 \211\203\307 \327 \330 \"\"\202\324 \331 \332!\"\202\324 C\333!\211\203'\211@T\262\334\"\335\336\"\203\374 \337\340\335\336\"! \341\342$\202\375 \315\"\203\332 !\343\"BB\262\202 \343\"\262\266A\266\202\202\330 \210 \304H>\2049\305\306\307D\"\210 \310H\344=\203W\345\f!\204W\304V\203W\346\320\342\"\210\202 \304H>\204h\305\306\307D\"\210 \310H\344=\204\271\304U\203\271\304H\n>\204\207\305\306\322D\"\210\347H\204\271\350!\203\271\211G\351Y\203\271\211\304H>\203\271\352!\204\271\353C\354\355\356\357#\360#\266\202\323V\203\345\f!\204\304H\n>\204\326\305\306\322D\"\210\310H\204\350!\203\211G\351Y\203\211\304H>\203\345!\204\361C\354\355\356\357#\360#\266\266A\266\202\202\222 \2620\210\237\266\202\202/\362\363\304H>\204+\305\306\307D\"\210\310H\"\207" [cl-struct-soap-xs-complex-type-tags node cl-struct-soap-xs-element-tags soap-current-wsdl 0 signal wrong-type-argument soap-xs-complex-type 6 eql array nil 7 soap-decode-type memql (sequence choice all nil) done 8 soap-xs-element 1 string-match ":" symbol-name soap-xml-get-children-fq soap-xs-element-get-fq-name xml-get-children intern soap-xs-element-type soap-decode-xs-attributes soap-xml-get-attribute-or-nil1 xsi:type soap-wsdl-get soap-l2fq soap-xs-type-p t append choice soap-xs-complex-type-multiple-p throw 5 vectorp 12 soap-xs-complex-type-optional-p "missing non-nillable slot %s" display-warning soap-client apply format :warning "expected single %s slot, found multiple" error "Don't know how to decode complex type: %s"] 22 (#$ . 131557)])
(byte-code "\300\301\302\211\211\211\211\211\211\211\211\211\211&\f\303H\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\207" [vector cl-struct-soap-xs-complex-type nil 0 put soap-resolve-references soap-resolve-references-for-xs-complex-type soap-attribute-encoder soap-encode-xs-complex-type-attributes soap-encoder soap-encode-xs-complex-type soap-decoder soap-decode-xs-complex-type] 13)
(defalias 'soap-message-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-message-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-message-p 'compiler-macro 'soap-message-p--cmacro)
(defalias 'soap-message-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-message-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-message-p side-effect-free error-free put soap-message cl-deftype-satisfies] 4)
(defalias 'soap-message-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-message-tags)) (signal 'wrong-type-argument (list 'soap-message cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-message-name 'compiler-macro 'soap-message-name--cmacro)
(defalias 'soap-message-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-message-tags 0 signal wrong-type-argument soap-message 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-message-name 'side-effect-free t)
(defalias 'soap-message-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-message-tags)) (signal 'wrong-type-argument (list 'soap-message cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-message-namespace-tag 'compiler-macro 'soap-message-namespace-tag--cmacro)
(defalias 'soap-message-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-message-tags 0 signal wrong-type-argument soap-message 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-message-namespace-tag 'side-effect-free t)
(defalias 'soap-message-parts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-parts (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-message-tags)) (signal 'wrong-type-argument (list 'soap-message cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-message-parts 'compiler-macro 'soap-message-parts--cmacro)
(defalias 'soap-message-parts #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-message-tags 0 signal wrong-type-argument soap-message 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-message-parts side-effect-free t defalias copy-soap-message copy-sequence] 4)
#@57
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PARTS)
(defalias 'make-soap-message--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306\306&\207" [plist-member :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 "Constructor for objects of type `soap-message'." (declare (side-effect-free t)) (vector 'cl-struct-soap-message name namespace-tag parts))] 14 (#$ . 137068)])
(put 'make-soap-message 'compiler-macro 'make-soap-message--cmacro)
#@85 Constructor for objects of type `soap-message'.
(fn &key NAME NAMESPACE-TAG PARTS)
(defalias 'make-soap-message #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312$\207" [plist-member :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] 9 (#$ . 137832)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-message side-effect-free t cl-struct-define soap-message nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (parts)) cl-struct-soap-message-tags cl-struct-soap-message] 10)
(defalias 'soap-operation-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 9) (memq (aref cl-x 0) cl-struct-soap-operation-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-p 'compiler-macro 'soap-operation-p--cmacro)
(defalias 'soap-operation-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-operation-tags vectorp 9 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-operation-p side-effect-free error-free put soap-operation cl-deftype-satisfies] 4)
(defalias 'soap-operation-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-name 'compiler-macro 'soap-operation-name--cmacro)
(defalias 'soap-operation-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-name 'side-effect-free t)
(defalias 'soap-operation-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-namespace-tag 'compiler-macro 'soap-operation-namespace-tag--cmacro)
(defalias 'soap-operation-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-namespace-tag 'side-effect-free t)
(defalias 'soap-operation-parameter-order--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-parameter-order (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-parameter-order 'compiler-macro 'soap-operation-parameter-order--cmacro)
(defalias 'soap-operation-parameter-order #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-parameter-order 'side-effect-free t)
(defalias 'soap-operation-input--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-input (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-input 'compiler-macro 'soap-operation-input--cmacro)
(defalias 'soap-operation-input #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-input 'side-effect-free t)
(defalias 'soap-operation-output--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-output (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-output 'compiler-macro 'soap-operation-output--cmacro)
(defalias 'soap-operation-output #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-output 'side-effect-free t)
(defalias 'soap-operation-faults--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-faults (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-faults 'compiler-macro 'soap-operation-faults--cmacro)
(defalias 'soap-operation-faults #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 6] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-faults 'side-effect-free t)
(defalias 'soap-operation-input-action--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-input-action (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-input-action 'compiler-macro 'soap-operation-input-action--cmacro)
(defalias 'soap-operation-input-action #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 7] 5 "\n\n(fn CL-X)"])
(function-put 'soap-operation-input-action 'side-effect-free t)
(defalias 'soap-operation-output-action--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-output-action (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-operation-tags)) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-operation-output-action 'compiler-macro 'soap-operation-output-action--cmacro)
(defalias 'soap-operation-output-action #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags 0 signal wrong-type-argument soap-operation 8] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-operation-output-action side-effect-free t defalias copy-soap-operation copy-sequence] 4)
#@114
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PARAMETER-ORDER INPUT OUTPUT FAULTS INPUT-ACTION OUTPUT-ACTION)
(defalias 'make-soap-operation--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203` \211@\311>\203H \211AA\262\2025 \312\n>A@\203W \313\262\2025 \314\315@\"\210\2025 \210\316\317\320\313
\313
&
\207" [plist-member :name :namespace-tag :parameter-order :input :output :faults :input-action :output-action (:name :namespace-tag :parameter-order :input :output :faults :input-action :output-action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parameter-order :input :output :faults :input-action :output-action)" cl--defsubst-expand (name namespace-tag parameter-order input output faults input-action output-action) (cl-block make-soap-operation "Constructor for objects of type `soap-operation'." (declare (side-effect-free t)) (vector 'cl-struct-soap-operation name namespace-tag parameter-order input output faults input-action output-action))] 24 (#$ . 144935)])
(put 'make-soap-operation 'compiler-macro 'make-soap-operation--cmacro)
#@144 Constructor for objects of type `soap-operation'.
(fn &key NAME NAMESPACE-TAG PARAMETER-ORDER INPUT OUTPUT FAULTS INPUT-ACTION OUTPUT-ACTION)
(defalias 'make-soap-operation #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203` \211@\311>\203H \211AA\262\2025 \312\n>A@\203W \313\262\2025 \314\315@\"\210\2025 \210\316\317 & \207" [plist-member :name :namespace-tag :parameter-order :input :output :faults :input-action :output-action (:name :namespace-tag :parameter-order :input :output :faults :input-action :output-action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :namespace-tag :parameter-order :input :output :faults :input-action :output-action)" vector cl-struct-soap-operation] 19 (#$ . 146150)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-operation side-effect-free t cl-struct-define soap-operation nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (parameter-order) (input) (output) (faults) (input-action) (output-action)) cl-struct-soap-operation-tags cl-struct-soap-operation] 10)
(defalias 'soap-port-type-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-type-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 4) (memq (aref cl-x 0) cl-struct-soap-port-type-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-type-p 'compiler-macro 'soap-port-type-p--cmacro)
(defalias 'soap-port-type-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-port-type-tags vectorp 4 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-port-type-p side-effect-free error-free put soap-port-type cl-deftype-satisfies] 4)
(defalias 'soap-port-type-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-type-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-type-tags)) (signal 'wrong-type-argument (list 'soap-port-type cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-type-name 'compiler-macro 'soap-port-type-name--cmacro)
(defalias 'soap-port-type-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-type-tags 0 signal wrong-type-argument soap-port-type 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-port-type-name 'side-effect-free t)
(defalias 'soap-port-type-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-type-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-type-tags)) (signal 'wrong-type-argument (list 'soap-port-type cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-type-namespace-tag 'compiler-macro 'soap-port-type-namespace-tag--cmacro)
(defalias 'soap-port-type-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-type-tags 0 signal wrong-type-argument soap-port-type 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-port-type-namespace-tag 'side-effect-free t)
(defalias 'soap-port-type-operations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-type-operations (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-type-tags)) (signal 'wrong-type-argument (list 'soap-port-type cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-type-operations 'compiler-macro 'soap-port-type-operations--cmacro)
(defalias 'soap-port-type-operations #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-type-tags 0 signal wrong-type-argument soap-port-type 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-port-type-operations side-effect-free t defalias copy-soap-port-type copy-sequence] 4)
#@62
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG OPERATIONS)
(defalias 'make-soap-port-type--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306\306&\207" [plist-member :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 "Constructor for objects of type `soap-port-type'." (declare (side-effect-free t)) (vector 'cl-struct-soap-port-type name namespace-tag operations))] 14 (#$ . 150210)])
(put 'make-soap-port-type 'compiler-macro 'make-soap-port-type--cmacro)
#@92 Constructor for objects of type `soap-port-type'.
(fn &key NAME NAMESPACE-TAG OPERATIONS)
(defalias 'make-soap-port-type #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203= \211@\304>\203& \211AA\262\202 \305>A@\2034 \306\262\202 \307\310@\"\210\202 \210\311\312$\207" [plist-member :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] 9 (#$ . 151016)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-port-type side-effect-free t cl-struct-define soap-port-type nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (operations)) cl-struct-soap-port-type-tags cl-struct-soap-port-type] 10)
(defalias 'soap-bound-operation-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-bound-operation-p 'compiler-macro 'soap-bound-operation-p--cmacro)
(defalias 'soap-bound-operation-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-bound-operation-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-bound-operation-p side-effect-free error-free put soap-bound-operation cl-deftype-satisfies] 4)
(defalias 'soap-bound-operation-operation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-operation (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-bound-operation-operation 'compiler-macro 'soap-bound-operation-operation--cmacro)
(defalias 'soap-bound-operation-operation #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags 0 signal wrong-type-argument soap-bound-operation 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-bound-operation-operation 'side-effect-free t)
(defalias 'soap-bound-operation-soap-action--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-soap-action (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-bound-operation-soap-action 'compiler-macro 'soap-bound-operation-soap-action--cmacro)
(defalias 'soap-bound-operation-soap-action #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags 0 signal wrong-type-argument soap-bound-operation 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-bound-operation-soap-action 'side-effect-free t)
(defalias 'soap-bound-operation-soap-headers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-soap-headers (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-bound-operation-soap-headers 'compiler-macro 'soap-bound-operation-soap-headers--cmacro)
(defalias 'soap-bound-operation-soap-headers #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags 0 signal wrong-type-argument soap-bound-operation 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-bound-operation-soap-headers 'side-effect-free t)
(defalias 'soap-bound-operation-soap-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-soap-body (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-bound-operation-soap-body 'compiler-macro 'soap-bound-operation-soap-body--cmacro)
(defalias 'soap-bound-operation-soap-body #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags 0 signal wrong-type-argument soap-bound-operation 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-bound-operation-soap-body 'side-effect-free t)
(defalias 'soap-bound-operation-use--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-bound-operation-use (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-bound-operation-tags)) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-bound-operation-use 'compiler-macro 'soap-bound-operation-use--cmacro)
(defalias 'soap-bound-operation-use #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags 0 signal wrong-type-argument soap-bound-operation 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-bound-operation-use side-effect-free t defalias copy-soap-bound-operation copy-sequence] 4)
#@81
(fn CL-WHOLE &cl-quote &key OPERATION SOAP-ACTION SOAP-HEADERS SOAP-BODY USE)
(defalias 'make-soap-bound-operation--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :operation :soap-action :soap-headers :soap-body :use (:operation :soap-action :soap-headers :soap-body :use :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:operation :soap-action :soap-headers :soap-body :use)" cl--defsubst-expand (operation soap-action soap-headers soap-body use) (cl-block make-soap-bound-operation "Constructor for objects of type `soap-bound-operation'." (declare (side-effect-free t)) (vector 'cl-struct-soap-bound-operation operation soap-action soap-headers soap-body use))] 18 (#$ . 156435)])
(put 'make-soap-bound-operation 'compiler-macro 'make-soap-bound-operation--cmacro)
#@117 Constructor for objects of type `soap-bound-operation'.
(fn &key OPERATION SOAP-ACTION SOAP-HEADERS SOAP-BODY USE)
(defalias 'make-soap-bound-operation #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\314&\207" [plist-member :operation :soap-action :soap-headers :soap-body :use (:operation :soap-action :soap-headers :soap-body :use :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:operation :soap-action :soap-headers :soap-body :use)" vector cl-struct-soap-bound-operation] 13 (#$ . 157436)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-bound-operation side-effect-free t cl-struct-define soap-bound-operation nil cl-structure-object ((cl-tag-slot) (operation) (soap-action) (soap-headers) (soap-body) (use)) cl-struct-soap-bound-operation-tags cl-struct-soap-bound-operation] 10)
(defalias 'soap-binding-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-binding-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-binding-p 'compiler-macro 'soap-binding-p--cmacro)
(defalias 'soap-binding-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-binding-tags vectorp 5 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-binding-p side-effect-free error-free put soap-binding cl-deftype-satisfies] 4)
(defalias 'soap-binding-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-binding-name 'compiler-macro 'soap-binding-name--cmacro)
(defalias 'soap-binding-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags 0 signal wrong-type-argument soap-binding 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-binding-name 'side-effect-free t)
(defalias 'soap-binding-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-binding-namespace-tag 'compiler-macro 'soap-binding-namespace-tag--cmacro)
(defalias 'soap-binding-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags 0 signal wrong-type-argument soap-binding 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-binding-namespace-tag 'side-effect-free t)
(defalias 'soap-binding-port-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-port-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-binding-port-type 'compiler-macro 'soap-binding-port-type--cmacro)
(defalias 'soap-binding-port-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags 0 signal wrong-type-argument soap-binding 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-binding-port-type 'side-effect-free t)
(defalias 'soap-binding-operations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-operations (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-binding-tags)) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-binding-operations 'compiler-macro 'soap-binding-operations--cmacro)
(defalias 'soap-binding-operations #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags 0 signal wrong-type-argument soap-binding 4] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-binding-operations side-effect-free t defalias copy-soap-binding copy-sequence] 4)
#@72
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG PORT-TYPE OPERATIONS)
(defalias 'make-soap-binding--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206 \305A@\211\203H \211@\306>\2030 \211AA\262\202 \307>A@\203? \310\262\202 \311\312@\"\210\202 \210\313\314\315\310 \310 & \207" [plist-member :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 "Constructor for objects of type `soap-binding'." (vector 'cl-struct-soap-binding name namespace-tag port-type operations))] 16 (#$ . 161895)])
(put 'make-soap-binding 'compiler-macro 'make-soap-binding--cmacro)
#@100 Constructor for objects of type `soap-binding'.
(fn &key NAME NAMESPACE-TAG PORT-TYPE OPERATIONS)
(defalias 'make-soap-binding #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206 \305\306\307\310\"DA@\211\203M \211@\311>\2035 \211AA\262\202\" \312>A@\203D \305\262\202\" \313\314@\"\210\202\" \210\315\316%\207" [plist-member :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] 11 (#$ . 162785)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define soap-binding nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (port-type) (operations (make-hash-table :test 'equal) :readonly t)) cl-struct-soap-binding-tags cl-struct-soap-binding t] 10)
(defalias 'soap-port-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-soap-port-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-p 'compiler-macro 'soap-port-p--cmacro)
(defalias 'soap-port-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-port-tags vectorp 5 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-port-p side-effect-free error-free put soap-port cl-deftype-satisfies] 4)
(defalias 'soap-port-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-name 'compiler-macro 'soap-port-name--cmacro)
(defalias 'soap-port-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags 0 signal wrong-type-argument soap-port 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-port-name 'side-effect-free t)
(defalias 'soap-port-namespace-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-namespace-tag (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-namespace-tag 'compiler-macro 'soap-port-namespace-tag--cmacro)
(defalias 'soap-port-namespace-tag #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags 0 signal wrong-type-argument soap-port 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-port-namespace-tag 'side-effect-free t)
(defalias 'soap-port-service-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-service-url (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-service-url 'compiler-macro 'soap-port-service-url--cmacro)
(defalias 'soap-port-service-url #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags 0 signal wrong-type-argument soap-port 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-port-service-url 'side-effect-free t)
(defalias 'soap-port-binding--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-binding (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-port-tags)) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-port-binding 'compiler-macro 'soap-port-binding--cmacro)
(defalias 'soap-port-binding #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags 0 signal wrong-type-argument soap-port 4] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-port-binding side-effect-free t defalias copy-soap-port copy-sequence] 4)
#@71
(fn CL-WHOLE &cl-quote &key NAME NAMESPACE-TAG SERVICE-URL BINDING)
(defalias 'make-soap-port--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313\314\307 \307 & \207" [plist-member :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 "Constructor for objects of type `soap-port'." (declare (side-effect-free t)) (vector 'cl-struct-soap-port name namespace-tag service-url binding))] 16 (#$ . 166993)])
(put 'make-soap-port 'compiler-macro 'make-soap-port--cmacro)
#@96 Constructor for objects of type `soap-port'.
(fn &key NAME NAMESPACE-TAG SERVICE-URL BINDING)
(defalias 'make-soap-port #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313%\207" [plist-member :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] 11 (#$ . 167842)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-soap-port side-effect-free t cl-struct-define soap-port nil soap-element ((cl-tag-slot) (name nil) (namespace-tag nil) (service-url) (binding)) cl-struct-soap-port-tags cl-struct-soap-port] 10)
(defalias 'soap-wsdl-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-soap-wsdl-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-p 'compiler-macro 'soap-wsdl-p--cmacro)
(defalias 'soap-wsdl-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-soap-wsdl-tags vectorp 7 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put soap-wsdl-p side-effect-free error-free put soap-wsdl cl-deftype-satisfies] 4)
(defalias 'soap-wsdl-origin--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-origin (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-origin 'compiler-macro 'soap-wsdl-origin--cmacro)
(defalias 'soap-wsdl-origin #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 1] 5 "\n\n(fn CL-X)"])
(function-put 'soap-wsdl-origin 'side-effect-free t)
(defalias 'soap-wsdl-current-file--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-current-file (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-current-file 'compiler-macro 'soap-wsdl-current-file--cmacro)
(defalias 'soap-wsdl-current-file #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 2] 5 "\n\n(fn CL-X)"])
(function-put 'soap-wsdl-current-file 'side-effect-free t)
(defalias 'soap-wsdl-xmlschema-imports--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-xmlschema-imports (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-xmlschema-imports 'compiler-macro 'soap-wsdl-xmlschema-imports--cmacro)
(defalias 'soap-wsdl-xmlschema-imports #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 3] 5 "\n\n(fn CL-X)"])
(function-put 'soap-wsdl-xmlschema-imports 'side-effect-free t)
(defalias 'soap-wsdl-ports--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-ports (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-ports 'compiler-macro 'soap-wsdl-ports--cmacro)
(defalias 'soap-wsdl-ports #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 4] 5 "\n\n(fn CL-X)"])
(function-put 'soap-wsdl-ports 'side-effect-free t)
(defalias 'soap-wsdl-alias-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-alias-table (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-alias-table 'compiler-macro 'soap-wsdl-alias-table--cmacro)
(defalias 'soap-wsdl-alias-table #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 5] 5 "\n\n(fn CL-X)"])
(function-put 'soap-wsdl-alias-table 'side-effect-free t)
(defalias 'soap-wsdl-namespaces--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-namespaces (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-soap-wsdl-tags)) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'soap-wsdl-namespaces 'compiler-macro 'soap-wsdl-namespaces--cmacro)
(defalias 'soap-wsdl-namespaces #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 6] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put soap-wsdl-namespaces side-effect-free t defalias soap-copy-wsdl copy-sequence] 4)
#@99
(fn CL-WHOLE &cl-quote &key ORIGIN CURRENT-FILE XMLSCHEMA-IMPORTS PORTS ALIAS-TABLE NAMESPACES)
(defalias 'soap-make-wsdl^--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315\316\311 \311 & \207" [plist-member :origin :current-file :xmlschema-imports :ports :alias-table :namespaces (:origin :current-file :xmlschema-imports :ports :alias-table :namespaces :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:origin :current-file :xmlschema-imports :ports :alias-table :namespaces)" cl--defsubst-expand (origin current-file xmlschema-imports ports alias-table namespaces) (cl-block soap-make-wsdl^ "Constructor for objects of type `soap-wsdl'." (declare (side-effect-free t)) (vector 'cl-struct-soap-wsdl origin current-file xmlschema-imports ports alias-table namespaces))] 20 (#$ . 173318)])
(put 'soap-make-wsdl^ 'compiler-macro 'soap-make-wsdl^--cmacro)
#@124 Constructor for objects of type `soap-wsdl'.
(fn &key ORIGIN CURRENT-FILE XMLSCHEMA-IMPORTS PORTS ALIAS-TABLE NAMESPACES)
(defalias 'soap-make-wsdl^ #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R \211@\307>\203: \211AA\262\202' \310>A@\203I \311\262\202' \312\313@\"\210\202' \210\314\315&\207" [plist-member :origin :current-file :xmlschema-imports :ports :alias-table :namespaces (:origin :current-file :xmlschema-imports :ports :alias-table :namespaces :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:origin :current-file :xmlschema-imports :ports :alias-table :namespaces)" vector cl-struct-soap-wsdl] 15 (#$ . 174378)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put soap-make-wsdl^ side-effect-free t cl-struct-define soap-wsdl nil cl-structure-object ((cl-tag-slot) (origin) (current-file) (xmlschema-imports) (ports) (alias-table) (namespaces)) cl-struct-soap-wsdl-tags cl-struct-soap-wsdl] 10)
#@81 Create a new WSDL document, loaded from ORIGIN, and initialize it.
(fn ORIGIN)
(defalias 'soap-make-wsdl #[257 "\301\302\303\211\211\211\211&\304\305\306\"\307\"\210\310\306\311H>\204$ \312\313\314D\"\210\315H#\266\304\316\317\"\307\"\210\310\317\311H>\204E \312\313\314D\"\210\315H#\266\211\207" [cl-struct-soap-namespace-tags vector cl-struct-soap-wsdl nil soap-make-xs-basic-types "http://www.w3.org/2001/XMLSchema" "xsd" soap-wsdl-add-namespace soap-wsdl-add-alias 0 signal wrong-type-argument soap-namespace 1 "http://schemas.xmlsoap.org/soap/encoding/" "soapenc"] 9 (#$ . 175438)])
#@76 Add a namespace ALIAS for NAME to the WSDL document.
(fn ALIAS NAME WSDL)
(defalias 'soap-wsdl-add-alias #[771 "\301\302H>\204 \303\304\305D\"\210\306H\"\211\203L \211A\232?\205k \307\310A$\210B\302H>\204< \303\304\305D\"\210\211\306\306HBI\262\262\202k B\302H>\204^ \303\304\305D\"\210\211\306\306HBI\262\262\207" [cl-struct-soap-wsdl-tags assoc 0 signal wrong-type-argument soap-wsdl 5 warn "Redefining alias %s from %s to %s"] 11 (#$ . 176051)])
#@64 Find a namespace by NAME in the WSDL document.
(fn NAME WSDL)
(defalias 'soap-wsdl-find-namespace #[514 "\3022B \211\303H>\204 \304\305\306D\"\210\211\307H\211\205? \211@\303H >\204, \304\305\310D\"\210\311H\232\2038 \312\302\"\210A\266\202\202 \2620\207" [cl-struct-soap-wsdl-tags cl-struct-soap-namespace-tags found 0 signal wrong-type-argument soap-wsdl 6 soap-namespace 1 throw] 9 (#$ . 176538)])
#@151 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.
(fn NS WSDL)
(defalias 'soap-wsdl-add-namespace #[514 "\302\303H>\204 \304\305\306D\"\210\307H\"\211\203> \310\311\312\313\314\315!\316\"\317\320%\303H>\2047 \304\305\306D\"\210\321H\"\202X \303H >\204M \304\305\322D\"\210\211\323\323HBI\262\207" [cl-struct-soap-namespace-tags cl-struct-soap-wsdl-tags soap-wsdl-find-namespace 0 signal wrong-type-argument soap-namespace 1 maphash make-byte-code 514 "\211\211\205 \211@\301\300\"\210A\266\202\202 \207" vconcat vector [soap-namespace-put] 7 "\n\n(fn KEY VALUE)" 2 soap-wsdl 6] 10 (#$ . 176958)])
#@562 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.
(fn NAME WSDL &optional PREDICATE USE-LOCAL-ALIAS-TABLE)
(defalias 'soap-wsdl-get #[1026 "\303H>\204 \304\305\306D\"\210\307H\310\211\2119\203! \311!\262\203+ \312 \"\262:\203W A\2629\203@ \311!\262\313@\"\262\204\232 \314\315 #\210\202\232 \316\317 \"\203\224 \320\321 \"\262\320\322 \"\323\"A\211\204| \314\324 #\210\313\n\"\262\204\217 \314\325 $\210\266\202\232 \314\326 \"\210\327\205\257 \330\331\332\333\334
!\335\"\336\337%#\262\211\204\274 \314\340 \"\210\341!\203\354 \211G\342Y\203\354 \211\303H\n>\203\354 \343\303H\n>\204\341 \304\305\344D\"\210\336H#\202\355 \211\207" [cl-struct-soap-wsdl-tags soap-local-xmlns cl-struct-soap-namespace-link-tags 0 signal wrong-type-argument soap-wsdl 5 nil symbol-name append soap-wsdl-find-namespace error "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 as %s" "Soap-wsdl-get(%s): bad name" soap-namespace-get make-byte-code 257 "\301!\206 \300!\207" vconcat vector [soap-namespace-link-p] 3 "\n\n(fn E)" "Soap-wsdl-get(%s): cannot find element" vectorp 4 soap-wsdl-get soap-namespace-link] 17 (#$ . 177672)])
#@116 Parse a schema NODE, placing the results in WSDL.
Return a SOAP-NAMESPACE containing the elements.
(fn NODE WSDL)
(defalias 'soap-parse-schema #[514 "\305\"\211@\206\n A@\206 \n\3068\307\211@)!\310=\2042 \311\312\313\314\307\211@)!C$\210\315\316\317!\"\211AA)\211\203\341 \211@\211;\204\332 \307\211@)!\320\321\"\203\207 \322\323\"\206b \322\324\"\211\203\203 \325H\f>\204w \326\327\330 D\"\210\211\331\331HBI\266\210\202\331 \320\332\"\203\230 \333\334!\"\210\202\331 \320\335\"\203\251 \333\336!\"\210\202\331 \320\337\"\203\272 \333\340!\"\210\202\331 \320\341\"\203\313 \333\342!\"\210\202\331 \343\344\"\203\331 \333\345!\"\210\210A\266\202\202> \210\211\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns node cl-struct-soap-wsdl-tags soap-extract-xmlns 2 soap-l2wk xsd:schema cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'xsd:schema) "expecting an xsd:schema node, got %s" nil make-soap-namespace :name soap-get-target-namespace eql xsd:import xml-get-attribute-or-nil schemaLocation location 0 signal wrong-type-argument soap-wsdl 3 xsd:element soap-namespace-put soap-xs-parse-element xsd:attribute soap-xs-parse-attribute xsd:attributeGroup soap-xs-parse-attribute-group xsd:simpleType soap-xs-parse-simple-type memql (xsd:complexType xsd:group) soap-xs-parse-complex-type] 15 (#$ . 179466)])
#@256 Replace names in ELEMENT with the referenced objects in the WSDL.
This is a generic function which invokes a specific resolver
function depending on the type of the ELEMENT.
If ELEMENT has no resolver function, it is silently ignored.
(fn ELEMENT WSDL)
(defalias 'soap-resolve-references #[514 "\300H\301N\211\205
\211\"\207" [0 soap-resolve-references] 6 (#$ . 180851)])
#@231 Replace names in MESSAGE with the referenced objects in the WSDL.
This is a generic function, called by `soap-resolve-references',
you should use that function instead.
See also `soap-wsdl-resolve-references'.
(fn MESSAGE WSDL)
(defalias 'soap-resolve-references-for-message #[514 "\302\303H>\204 \304\305\306D\"\210\307H\211\203\215 \211@\211@A;\203' \310!\262\311!\2038 \312\313#\262\202} \314\"\210\211\303H >\204M \304\305\315D\"\210\211\316H\204} \211\303H >\204b \304\305\315D\"\210\211\211\316 \303H >\204v \304\305\315\fD\"\210 \316HI\266BB\262\266A\266\202\202 \210\303H>\204\235 \304\305\306D\"\210\211\307\237I\262\207" [cl-struct-soap-message-tags cl-struct-soap-element-tags nil 0 signal wrong-type-argument soap-message 3 intern soap-name-p soap-wsdl-get #[257 "\302!\203 \211G\303Y\203 \211\304H>\203 \305\207\302!\205- \211G\306Y\205- \211\304H >\205- \305\207" [cl-struct-soap-xs-type-tags cl-struct-soap-xs-element-tags vectorp 6 0 t 11] 3 "\n\n(fn X)"] soap-resolve-references soap-element 2] 14 (#$ . 181236)])
#@158 Resolve references for an OPERATION type using the WSDL document.
See also `soap-resolve-references' and
`soap-wsdl-resolve-references'
(fn OPERATION WSDL)
(defalias 'soap-resolve-references-for-operation #[514 "\304H>\204 \305\306\307D\"\210\310H\211\203I \311\304H >\204( \305\306\312D\"\210\313H\"@\211\203H \304H>\204A \305\306\307D\"\210\211\310I\266\210\210\304H\n>\204Y \305\306\314D\"\210\315H\304@A\203k \316\232\203u \317\320T\211\262\"\262\321!\203\233 \304H\n>\204\213 \305\306\314D\"\210\211\315\322!\323\n\324#BI\266\266\304H\n>\204\254 \305\306\314D\"\210\313H\304@A\203\276 \316\232\203\310 \317\325T\211\262\"\262\321!\203\356 \304H\n>\204\336 \305\306\314D\"\210\211\313\322!\323\n\324#BI\266\266\326\304\304H\n>\204\305\306\314D\"\210\327H\211\203K\211@\211@A\203\316\232\203$\317\330T\211\262\"\262\321!\203<\322!\323 \324#BB\262\202BB\262\266A\266\202\202\210\304H\n>\204\\\305\306\314D\"\210\211\327I\266\304H\n>\204r\305\306\314D\"\210\331HG\304U\203\275\304H\n>\204\212\305\306\314D\"\210\211\331\332\333\304H\n>\204\240\305\306\314 D\"\210\315HA\211\304H >\204\264\305\306\334D\"\210\211\331H\262\"I\266\304H\n>\204\314\305\306\314D\"\210\211\331\332\335\304H\n>\204\342\305\306\314 D\"\210\331H\"I\207" [cl-struct-soap-element-tags cl-struct-soap-wsdl-tags cl-struct-soap-operation-tags cl-struct-soap-message-tags 0 signal wrong-type-argument soap-element 2 rassoc soap-wsdl 5 soap-operation 4 "" format "in%d" soap-name-p intern soap-wsdl-get soap-message-p "out%d" nil 6 "fault%d" 3 mapcar car soap-message #[257 "\211;\203 \300!\207\207" [intern] 3 "\n\n(fn P)"]] 14 (#$ . 182318)])
#@153 Resolve references for a BINDING type using the WSDL document.
See also `soap-resolve-references' and
`soap-wsdl-resolve-references'
(fn BINDING WSDL)
(defalias 'soap-resolve-references-for-binding #[514 "\302\303H>\204 \304\305\306D\"\210\307H!\203C \303H>\204& \304\305\306D\"\210\211\307\310\303H>\204: \304\305\306D\"\210\307H\311#I\266\303H>\204R \304\305\306D\"\210\307H\211\303H >\204d \304\305\312D\"\210\211\307H\262\313\314\315\316\317\320\"\321\"\322\323%\303H>\204\211 \304\305\306D\"\210\324H\"\207" [cl-struct-soap-binding-tags cl-struct-soap-port-type-tags soap-name-p 0 signal wrong-type-argument soap-binding 3 soap-wsdl-get soap-port-type-p soap-port-type maphash make-byte-code 514 "\211\303H\n>\204 \304\305\306D\"\210\211\211\307\310\301\311#I\266\312\303H\n>\204* \304\305\306D\"\210\313H\211\203L \211@\314@\300\"\315A@!\3168EB\262A\266\202\202- \210\303H\n>\204\\ \304\305\306D\"\210\211\313\237I\262\207" vconcat vector [cl-struct-soap-bound-operation-tags 0 signal wrong-type-argument soap-bound-operation 1 soap-namespace-get soap-operation-p nil 3 soap-wsdl-get intern 2] 9 "\n\n(fn K V)" 4] 11 (#$ . 184068)])
#@225 Replace names in PORT with the referenced objects in the WSDL.
This is a generic function, called by `soap-resolve-references',
you should use that function instead.
See also `soap-wsdl-resolve-references'.
(fn PORT WSDL)
(defalias 'soap-resolve-references-for-port #[514 "\301\302H>\204 \303\304\305D\"\210\306H!\205C \302H>\204& \303\304\305D\"\210\211\306\307\302H>\204: \303\304\305D\"\210\306H\310#I\262\207" [cl-struct-soap-port-tags soap-name-p 0 signal wrong-type-argument soap-port 4 soap-wsdl-get soap-binding-p] 10 (#$ . 185264)])
(byte-code "\300\301\302\303\211\211$\304H\305\306#\210\300\301\307\303\211\211\211\211\211\211\211& \304H\305\310#\210\300\311 \304H\305\312#\210\300\301\313\303\211\211\211%\304H\305\314#\207" [put vector cl-struct-soap-message nil 0 soap-resolve-references 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] 11)
#@532 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.
(fn WSDL)
(defalias 'soap-wsdl-resolve-references #[257 "\302C\302\302H>\204 \303\304\305D\"\210\306H\302H>\204% \303\304\305D\"\210\307H\211\203\255 \211@\310\302H >\204> \303\304\311D\"\210\312H\"\242\211\204\200 \3132 \314\315T\211\262\"\262\316\"\204L \317\302H >\204p \303\304\311D\"\210\312H #\210\320\313\321\"\210\202L \210\322\323\324\325\326\327\f\f\"\330\"\331\332%\302H >\204\240 \303\304\311D\"\210\333H\"\266A\266\202\202( \266\207" [cl-struct-soap-wsdl-tags cl-struct-soap-namespace-tags 0 signal wrong-type-argument soap-wsdl 5 6 rassoc soap-namespace 1 done format "ns%d" assoc soap-wsdl-add-alias throw t maphash make-byte-code 514 "\303!\203 \211G\304Y\203 \211\305H\n>\203 \301\211\242T\240\210\306\300\"\207\211<\205U \211\211\205S \211@\303!\203L \211G\304Y\203L \211\305H\n>\203L \301\211\242T\240\210\306\300\"\210A\266\202\202& \262\207" vconcat vector [cl-struct-soap-element-tags vectorp 3 0 soap-resolve-references] 7 "\n\n(fn NAME ELEMENT)" 2] 15 (#$ . 186302)])
#@63 Error-check and parse the XML contents of the current buffer.
(defalias 'soap-parse-server-response #[0 "\300\301\211\"\211\204\f \302\303!\210\211A@@\304\232\204 \302\305!\210\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317!\210\320ed\"@\321 \210\322!\210*\262\207" [mm-dissect-buffer t error "Failed to decode response from server" "text/xml" "Server response is not an XML document" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-insert-part xml-parse-region kill-buffer mm-destroy-part] 8 (#$ . 187866)])
#@106 Load an XML document from URL and return it.
The previously parsed URL is read from WSDL.
(fn URL WSDL)
(defalias 'soap-fetch-xml-from-url #[514 "\306\307\"\210\310\311H>\204 \312\313\314D\"\210\315H\"\316\317\320\321\322 \311H>\2043 \312\313\314D\"\210\211\315I\266\323!r\211q\210\324V\203N \325\326\"\210\327 )\262-\207" [cl-struct-soap-wsdl-tags url-http-attempt-keepalives url-mime-charset-string url-package-version url-package-name url-request-method message "Fetching from %s" url-expand-file-name 0 signal wrong-type-argument soap-wsdl 2 "GET" "soap-client.el" "1.0" "utf-8;q=1, iso-8859-1;q=0.5" t url-retrieve-synchronously 299 error "Error retrieving WSDL: %s" soap-parse-server-response url-http-response-status] 8 (#$ . 188475)])
#@109 Load an XML document from FILE and return it.
The previously parsed file is read from WSDL.
(fn FILE WSDL)
(defalias 'soap-fetch-xml-from-file #[514 "\211\302H>\204 \303\304\305D\"\210\211\306H\307\203 \310!\202 \"\302H>\204/ \303\304\305D\"\210\211\306I\266\311\312!r\211q\210\313\302\314\315\316!\317\"\306$\216\320!\210\321ed\"@*\262\207" [cl-struct-soap-wsdl-tags default-directory 0 signal wrong-type-argument soap-wsdl 2 expand-file-name file-name-directory generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] insert-file-contents xml-parse-region] 11 (#$ . 189249)])
#@130 Load an XML document from FILE-OR-URL and return it.
The previously parsed file or URL is read from WSDL.
(fn FILE-OR-URL WSDL)
(defalias 'soap-fetch-xml #[514 "\211\301H>\204 \302\303\304D\"\210\211\305H\206 \211\203 \306!\204& \306!\203- \307\"\2021 \310\"\207" [cl-struct-soap-wsdl-tags 0 signal wrong-type-argument soap-wsdl 2 file-exists-p soap-fetch-xml-from-file soap-fetch-xml-from-url] 6 (#$ . 189914)])
#@115 Load a document from FILE-OR-URL and return it.
Build on WSDL if it is provided.
(fn FILE-OR-URL &optional WSDL)
(defalias 'soap-load-wsdl #[513 "\211\206 \300!\301\"\302\303\"!\210\207" [soap-make-wsdl soap-fetch-xml soap-wsdl-resolve-references soap-parse-wsdl] 8 (#$ . 190347)])
(defalias 'soap-load-wsdl-from-url 'soap-load-wsdl)
#@39 Assert that NODE is valid.
(fn NODE)
(defalias 'soap-parse-wsdl-phase-validate-node #[257 "\304\"\211@\206\n A@\206 \n\3058\306\211@)!\211\307=\204, \310\311\312\313C$\210\313\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns node soap-extract-xmlns 2 soap-l2wk wsdl:definitions cl--assertion-failed (eq node-name 'wsdl:definitions) "expecting wsdl:definitions node, got %s" nil] 9 (#$ . 190695)])
#@66 Fetch and load files imported by NODE into WSDL.
(fn NODE WSDL)
(defalias 'soap-parse-wsdl-phase-fetch-imports #[514 "\303\"\211@\206\n A@\206 \n\3048\305\306\"\211\2057 \211@\307\310\"\211\203/ \311\"\210\210A\266\202\202 \262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns soap-extract-xmlns 2 soap-xml-get-children1 wsdl:import xml-get-attribute-or-nil location soap-load-wsdl] 9 (#$ . 191128)])
#@53 Load types found in NODE into WSDL.
(fn NODE WSDL)
(defalias 'soap-parse-wsdl-phase-parse-schema #[514 "\304\"\211@\206\n A@\206 \n\3058\306\307\"@\211\211AA)\211\205c \211@\211:\203\\ \304\"\211@\2067 A@\206> \n\3058\310\211@)!\311=\203Z \312\313\"\"\210+\210A\266\202\202\" \262\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns node soap-extract-xmlns 2 soap-xml-get-children1 wsdl:types soap-l2wk xsd:schema soap-wsdl-add-namespace soap-parse-schema] 12 (#$ . 191565)])
#@74 Fetch and load schema imports defined by NODE into WSDL.
(fn NODE WSDL)
(defalias 'soap-parse-wsdl-phase-fetch-schema #[514 "\304\"\211@\206\n A@\206 \n\3058\306H >\204& \307\310\311D\"\210\312H\205Z \306H >\204; \307\310\311D\"\210\211\312H\211\312AI\210\266\202\242\313\"\314\315\"\"\266\202 +\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns cl-struct-soap-wsdl-tags soap-extract-xmlns 2 0 signal wrong-type-argument soap-wsdl 3 soap-fetch-xml soap-wsdl-add-namespace soap-parse-schema] 9 (#$ . 192090)])
#@48 Finish parsing NODE into WSDL.
(fn NODE WSDL)
(defalias 'soap-parse-wsdl-phase-finish-parsing #[514 "\306\"\211@\206\n A@\206 \n\3078\310\311\312!\"\313\314\"\211\2035 \211@\315\316!\"\210A\266\202\202! \210\313\317\"\211\203g \211@\320!\315\"\210\321\322H >\204X \323\324\325D\"\210\326H\"\266A\266\202\202: \210\313\327\"\211\203\200 \211@\315\330!\"\210A\266\202\202l \210\313\331\"\211\203\211@\313\332\"\211\203\374 \211@\211\333 \334
\f\"\206\241 \335*\336 \334
\f\"\206\256 \335*\313\337\"@\211\340 \334
\f\"\206\300 \335*\262\341\311\342\343\344\"\345&\315\n\"\210\n\322H(>\204\351 \323\324\346
D\"\210\n\211\347\347HBI\266A\266\202\202\217 \210A\266\202\202\205 \210\321\"\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns cl-struct-soap-port-type-tags attribute node soap-extract-xmlns 2 make-soap-namespace :name soap-get-target-namespace soap-xml-get-children1 wsdl:message soap-namespace-put soap-parse-message wsdl:portType soap-parse-port-type soap-wsdl-add-namespace 0 signal wrong-type-argument soap-port-type 3 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 4 cl-struct-soap-wsdl-tags] 18 (#$ . 192641)])
#@81 Construct from NODE a WSDL structure, which is an XML document.
(fn NODE WSDL)
(defalias 'soap-parse-wsdl #[514 "\300!\210\301\"\210\302\"\210\303\"\210\304\"\210\207" [soap-parse-wsdl-phase-validate-node soap-parse-wsdl-phase-fetch-imports soap-parse-wsdl-phase-parse-schema soap-parse-wsdl-phase-fetch-schema soap-parse-wsdl-phase-finish-parsing] 5 (#$ . 193981)])
#@76 Parse NODE as a wsdl:message and return the corresponding type.
(fn NODE)
(defalias 'soap-parse-message #[257 "\302\211@)!\303=\204 \304\305\306\307\302\211@)!C$\210\310\311\"\307\312\313\"\211\203n \211@\310\311\"\310\314\"\310\315\"\203? \316\317\"\262\211\203L \316\317\"\262\202] \320\321 \307\307\211\211\211\211\211& \262BB\262\266A\266\202\202# \210\322\323\324\237$\207" [node soap-target-xmlns soap-l2wk wsdl:message cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'wsdl:message) "expecting wsdl:message node, got %s" nil xml-get-attribute-or-nil name soap-xml-get-children1 wsdl:part type element soap-l2fq tns vector cl-struct-soap-xs-element make-soap-message :name :parts] 21 (#$ . 194364)])
#@77 Parse NODE as a wsdl:portType and return the corresponding port.
(fn NODE)
(defalias 'soap-parse-port-type #[257 "\305\211@)!\306=\204 \307\310\311\312\305\211@)!C$\210\313\314\315 \"\206' \316*P\317\320\n\"\321\322\"\211\203 \211@\323!\324\325H >\204K \326\327\330D\"\210\331H\332#\211\203w \333\325H >\204e \326\327\330D\"\210\331HC\334\335\336\337#\340#\266\202\341\"\210\325H\f>\204\214 \326\327\342D\"\210\343H\211\203\234 \211A\262\242\202\243 \326\344\312GD\"\345 #\266\325H\f>\204\272 \326\327\342D\"\210\346H\211\203\312 \211A\262\242\202\321 \326\344\312GD\"\345 #\266\325H\f>\204\350 \326\327\342D\"\210\347H\211\203\211@\211\211\203\377 \211A\262\242\202\326\344\312GD\"\345 #\266A\266\202\202\353 \210\266A\266\202\2022 \210\350\320\314\315 \"\206.\316*\351$)\207" [node attribute soap-target-xmlns cl-struct-soap-element-tags cl-struct-soap-operation-tags soap-l2wk wsdl:portType cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'wsdl:portType) "expecting wsdl:portType node got %s" nil "urn:" name xml-get-attribute-or-nil "" make-soap-namespace :name soap-xml-get-children1 wsdl:operation soap-parse-operation soap-namespace-get 0 signal wrong-type-argument soap-element 1 soap-operation-p "Discarding duplicate operation: %s" display-warning soap-client apply format :warning soap-namespace-put soap-operation 4 wrong-number-of-arguments soap-namespace-put-link 5 6 make-soap-port-type :operations] 15 (#$ . 195114)])
#@78 Parse NODE as a wsdl:operation and return the corresponding type.
(fn NODE)
(defalias 'soap-parse-operation #[257 "\303\211@)!\304=\204 \305\306\307\310\303\211@)!C$\210\211\311\312 \"\206& \313*\314\315\312 \"\2064 \313*!\310\211\211\211\211\211AA)\211\203\357 \211@\211:\203\350 \303\211@)!\211\316=\203\207 \317\312 \"\206f \313*\311\312 \"\206s \313*\320\321\"\322\323\"B\262 \262\266\202\347 \211\324=\203\272 \317\312 \"\206\231 \313*\311\312 \"\206\246 \313*\320\321\"\322\323\"B\262\n\262\266\202\347 \211\325=\203\347 \317\312 \"\206\314 \313*\311\312 \"\206\331 \313*\211\322\323\"BB\262\266\210A\266\202\202B \210\326\327\330\n\331 \332\f\333
\334\237\335\336&\207" [node attribute soap-target-xmlns soap-l2wk wsdl:operation cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'wsdl:operation) "expecting wsdl:operation node, got %s" nil name xml-get-attribute-or-nil "" split-string parameterOrder wsdl:input message soap-xml-get-attribute-or-nil1 wsaw:Action soap-l2fq tns wsdl:output wsdl:fault make-soap-operation :name :namespace-tag :parameter-order :input :output :faults :input-action :output-action] 26 (#$ . 196636)])
#@76 Parse NODE as a wsdl:binding and return the corresponding type.
(fn NODE)
(defalias 'soap-parse-binding #[257 "\303\211@)!\304=\204 \305\306\307\310\303\211@)!C$\210\211\311\312 \"\206& \313*\314\312 \"\2063 \313*\315\316\317\320\321\"$\322\323\"\211\203F\211@\211\311\312 \"\206S \313*\310\211\211\211\322\324\"\211\203p \211@\312\325\"\262A\266\202\202] \210\322\326\"\211\203\327 \211@\322\327\"\211\203\256 \211@\320\312\330\"!\312\331\"\312\332\"\203\245 \203\245 E\nB\262\n\266A\266\202\202\200 \210\322\333\"@\312\334\"\262\203\311 \335\336\337\310\340#\"\262\312\332\"\262\210A\266\202\202v \210\211\204 \322\341\"\211\203\n\211@\322\333\"\211\203\211@\206\371 \312\332\"\262A\266\202\202\353 \210A\266\202\202\341 \210\342\343\344\345 \346\n\237\347 \350\f\205%\336
!&\n\n\351H\n>\2048\352\353\354
D\"\210\n\355H#\266A\266\202\202A \210\211\262\207" [node attribute cl-struct-soap-binding-tags soap-l2wk wsdl:binding cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'wsdl:binding) "expecting wsdl:binding node, got %s" nil name xml-get-attribute-or-nil "" type make-soap-binding :name :port-type soap-l2fq tns soap-xml-get-children1 wsdl:operation wsdlsoap:operation soapAction wsdl:input wsdlsoap:header message part use wsdlsoap:body parts mapcar intern split-string omit-nulls wsdl:output puthash make-soap-bound-operation :operation :soap-action :soap-headers :soap-body :use 0 signal wrong-type-argument soap-binding 4] 26 (#$ . 197857)])
#@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 (#$ . 199403))
#@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 (#$ . 199588))
#@314 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.
(fn TYPE NODE)
(defalias 'soap-decode-type #[514 "\306\307\"\211\203i \3102\345 \311\"A\211\203 \312\310\"\210\210\313\314\"\204' \315\316\"\210\317\320\" \211\203^ \211@\211\321\306 \n\"\206> \322*\232\203V \323\"BB\312\310\"\266\210A\266\202\202, \210\315\324\"\2620\202\345 \325\f\"\211@\206s
A@\206{ !\3268 ! \327\330\"\331\232?\205\342 <\203\310 \3102\342 \211\205\302 \211@\211\332H\333N\3341\256 \211\"0\202\260 \210\335\211\203\271 \312\310\"\210\266A\266\202\202\226 \2620\202\342 \332H\333N\211\204\334 \336\337\340\335\332HC$\210\211\"\262+\262\207" [soap-decoded-multi-refs soap-multi-refs attribute node soap-local-xmlns soap-default-xmlns xml-get-attribute-or-nil href done assoc throw string-match "^#\\(.*\\)$" error "Invalid multiRef: %s" match-string 1 id "" soap-decode-type "Cannot find href %s" soap-extract-xmlns 2 soap-xml-get-attribute-or-nil1 xsi:nil "true" 0 soap-decoder (error) nil cl--assertion-failed decoder "no soap-decoder for %s type" soap-target-xmlns] 11 (#$ . 199785)])
#@58 Decode NODE using type information inside it.
(fn NODE)
(defalias 'soap-decode-any-type #[257 "\302\303\"\211\203
\304!\262\211\203* \305\306#\211\203! \307\"\202% \310\311\"\262\202n \211AA)\211G\312U\203B \211@;\203B \211@\202l \313\211\203g \211@\211;\204` \211\211@)\314!BB\262\266A\266\202\202D \210\211\237\262\262\207" [soap-current-wsdl node soap-xml-get-attribute-or-nil1 xsi:type soap-l2fq soap-wsdl-get soap-xs-type-p soap-decode-type error "Node has unknown type: %s" 1 nil soap-decode-any-type] 11 (#$ . 201143)])
#@70 Decode NODE as an Array using type information inside it.
(fn NODE)
(defalias 'soap-decode-array #[257 "\302\303\"\304\211AA)\304\203* \305\306\307#\262\310\311! \312#\262\204* \313\314\"\210\211\203O \211@\211:\203H \203A \315\"\202D \316!B\262A\266\202\202+ \210\211\237\207" [node soap-current-wsdl soap-xml-get-attribute-or-nil1 soapenc:arrayType nil replace-regexp-in-string "\\[[0-9]+\\]\\'" "" soap-wsdl-get soap-l2fq soap-xs-type-p error "Soap-decode-array: node has unknown type: %s" soap-decode-type soap-decode-any-type] 11 (#$ . 201700)])
(byte-code "\300\301!\203 \301\302\303\"\210\202 \304\302\305\306#\210\304\302\307\303#\210\300\207" [fboundp define-error soap-error "SOAP error" put error-conditions (error soap-error) error-message] 4)
#@182 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
(fn NODE OPERATION WSDL)
(defalias 'soap-parse-envelope #[771 "\305\"\211@\206\n A@\206 \n\3068\307\211@)!\310=\2042 \311\312\313\314\307\211@)!C$\210\315\316\"\315\317\"@\315\320\"@\211\203o \321\322\"@\211\211AA)\242\262\321\323\"@\211\211AA)\242\262\321\324\"\325\326E\"\210\202d \210\327H\f>\204\200 \325\330\331D\"\210\332H\333=\203\214 \211\202\260 \3342\260 \211\211AA)\211\205\255 \211@\211:\203\246 \335\334\"\210A\266\202\202\226 \2620\336%\262\266\202+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns node cl-struct-soap-bound-operation-tags soap-extract-xmlns 2 soap-l2wk soap:Envelope cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'soap:Envelope) "expecting soap:Envelope node, got %s" nil soap-xml-get-children1 soap:Header soap:Body soap:Fault xml-get-children faultcode faultstring detail signal soap-error 0 wrong-type-argument soap-bound-operation 5 literal found throw soap-parse-response] 16 (#$ . 202485)])
#@489 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-HEADERS is a list of the headers of the SOAP envelope or nil
if there are no headers.
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.
(fn RESPONSE-NODE OPERATION WSDL SOAP-HEADERS SOAP-BODY)
(defalias 'soap-parse-response #[1285 "\306H >\204 \307\310\311D\"\210\312H\306H >\204% \307\310\311D\"\210\313H\306H\n>\2047 \307\310\314D\"\210\313HA\315 \"\211@\206F \fA@\206M
\3168 \317=\203\213 \320 \211 %@)!\321 \322#\211=\204\211 \323\324\306H&>\204\203 \307\310\325 D\"\210\312H#\210\266\326\327\330\"\326 ' (\306H)>\204\246 \307\310\331D\"\210\332H\211\203\234\211@\211@A\326\317=\203\304 \327\"@\202d\333=\205d\3342d\f\306H*>\204\341 \307\310\335D\"\210\f\313H\336\306H&>\204\367 \307\310\325D\"\210\316H\"A\211\306H&>\204\307\310\325D\"\210\312HB\337\340\341\"\211 %AA)\"\211\205_\211@\211:\203X\315 \"\211@\2067\fA@\206>
\3168 \320\211 %@)!\232\203V\342\334\"\210+\210A\266\202\202\"\262\266\2030\262\211\204\205\323\343 \306H&>\204~\307\310\325D\"\210 \312H#\210\344\"\211\203\223\211B\262\266A\266\202\202\251 \210*\211\262+\262)\207" [soap-current-wsdl cl-struct-soap-bound-operation-tags cl-struct-soap-operation-tags soap-local-xmlns soap-default-xmlns soap-target-xmlns 0 signal wrong-type-argument soap-bound-operation 1 5 soap-operation soap-extract-xmlns 2 encoded soap-l2fq soap-wsdl-get soap-message-p error "Unexpected message: got %s, expecting %s" soap-element nil xml-get-children multiRef soap-message 3 literal found soap-wsdl assoc append mapcar #[257 "\211\211AA)@\207" [node] 2 "\n\n(fn HEADER)"] throw "Soap-parse-response(%s): cannot find message part %s" soap-decode-type node cl-struct-soap-element-tags soap-decoded-multi-refs soap-multi-refs cl-struct-soap-message-tags cl-struct-soap-wsdl-tags] 26 (#$ . 203645)])
#@272 Encode XML attributes for VALUE according to TYPE.
This is a generic function which determines the attribute encoder
for the type and calls that specialized function to do the work.
Attributes are inserted in the current buffer at the current
position.
(fn VALUE TYPE)
(defalias 'soap-encode-attributes #[514 "\211\300H\301N\211\204 \302\303\304\305\300HC$\210\211\"\207" [0 soap-attribute-encoder cl--assertion-failed attribute-encoder "no soap-attribute-encoder for %s type" nil] 9 (#$ . 205803)])
#@314 Encode 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.
(fn VALUE TYPE)
(defalias 'soap-encode-value #[514 "\211\302H\303N\211\204 \304\305\306\307\302HC$\210\211\"\266\211\302H>\204( \310\311\312D\"\210\211\313H\205Q \211\302H>\204= \310\311\312D\"\210\211\313H\211 \235\203J \202O \211 B\211\262\207" [cl-struct-soap-element-tags soap-encoded-namespaces 0 soap-encoder cl--assertion-failed encoder "no soap-encoder for %s type" nil signal wrong-type-argument soap-element 2] 9 (#$ . 206316)])
#@323 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. SERVICE-URL should be provided when WS-Addressing is
being used.
(fn OPERATION PARAMETERS &optional SERVICE-URL)
(defalias 'soap-encode-body #[770 "\305H>\204 \306\307\310D\"\210\311H\305H>\204\" \306\307\310D\"\210\312H\305H >\2044 \306\307\313D\"\210\314HA\305H >\204G \306\307\313D\"\210\315H\211\316\316\211:\203t @\262:\203t @\262BB\262A\262A\262\202P \211\237\266\205GGU\204\237 \317\320\305H\n>\204\224 \306\307\321 D\"\210\311HG\nG$\210\305H>\204\260 \306\307\310\nD\"\210\315H\305H >\204\304 \306\307\313D\"\210\322H\203u\323c\210\211\203\351 \324 \235\204\334 \324 B\325\326\261\210\327\330\261\210\211\203q\211@\211@A@\305H\f>\204\306\307\331D\"\210\315H\236\332@@\"A\3338A\334=\203U\211\305H\n>\204*\306\307\321D\"\210\211\333H\203M\211\305H\n>\204?\306\307\321D\"\210\211\333H\211 \235\204L\211 B\210\335\336!\337\261\210\340\"\210\334=\203h\341\336!\337\261\210\266A\266\202\202\352 \210\342c\210\266\343c\210\334=\203\275\305H\n>\204\220\306\307\321D\"\210\333H\203\264\305H\n>\204\246\306\307\321D\"\210\333H\211 \235\204\263\211 B\210\335\336!\337\261\210\305H\f>\204\314\306\307\331D\"\210\315H\211\203 \211@\211@A\332\"A\f\305H>\204\360\306\307\310D\"\210\f\314H\203
\305H>\204 \306\307\310D\"\210
\314H\235\203\340\"\210\266A\266\202\202\317\210\334=\203/\341\336!\337\261\210\344c\207" [cl-struct-soap-bound-operation-tags cl-struct-soap-operation-tags cl-struct-soap-element-tags soap-encoded-namespaces cl-struct-soap-message-tags 0 signal wrong-type-argument soap-bound-operation 1 5 soap-operation 4 3 nil error "Wrong number of parameters for %s: expected %d, got %s" soap-element 7 "<soap:Header>\n" "wsa" "<wsa:Action>" "</wsa:Action>\n" "<wsa:To>" "</wsa:To>\n" soap-message assoc 2 encoded "<" soap-element-fq-name ">\n" soap-encode-value "</" "</soap:Header>\n" "<soap:Body>\n" "</soap:Body>\n"] 21 (#$ . 207071)])
#@240 Create a SOAP request envelope for OPERATION using PARAMETERS.
WSDL is the wsdl document used to encode the PARAMETERS.
SERVICE-URL should be provided when WS-Addressing is being used.
(fn OPERATION PARAMETERS WSDL &optional SERVICE-URL)
(defalias 'soap-create-envelope #[1027 "\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\307H>\204$ \316\317\320D\"\210\321H\322#\210eb\210\323c\210\211\324=\203A \325c\210 \211\203\200 \211@\326\327\261\210\330\n\"A\211\204r \330 \307H >\204j \316\317\331\fD\"\210 \321H\"A\262\211c\210\332c\266A\266\202\202B \210\333c\210db\210\334c\210)\266\335 *\207" [cl-struct-soap-bound-operation-tags soap-encoded-namespaces soap-well-known-xmlns cl-struct-soap-wsdl-tags generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ("xsi" "soap" "soapenc") signal wrong-type-argument soap-bound-operation 5 soap-encode-body "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<soap:Envelope\n" encoded " soapenc:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\"\n" " xmlns:" "=\"" assoc soap-wsdl "\"\n" ">\n" "</soap:Envelope>\n" buffer-string] 16 (#$ . 209280)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable soap-debug funcall function #[0 "\300\207" [nil] 1] "When t, enable some debugging facilities." :type boolean :group soap-client] 8)
#@391 Implement `soap-invoke' and `soap-invoke-async'.
If CALLBACK is non-nil, operate asynchronously, then call CALLBACK as (apply
CALLBACK RESPONSE CBARGS), where RESPONSE is the SOAP invocation result.
If CALLBACK is nil, operate synchronously. WSDL, SERVICE,
OPERATION-NAME and PARAMETERS are as described in `soap-invoke'.
(fn CALLBACK CBARGS WSDL SERVICE OPERATION-NAME &rest PARAMETERS)
(defalias 'soap-invoke-internal #[1413 "\3062C \307H>\204 \310\311\312D\"\210\313H\211\205@ \211@\307H >\204- \310\311\314D\"\210\315H\232\2039 \316\306\"\210A\266\202\202 \2620\211\204L \317\320\"\210\211\307H\n>\204[ \310\311\321D\"\210\211\313H\322\307H >\204o \310\311\323D\"\210\313H\"\211\204 \317\324#\210\325\326\327\330\331
\n\307H\n>\204\232 \310\311\321
D\"\210\n\332H$\333\"\334\335\336\337\307H\f>\204\266 \310\311\340 D\"\210\341H\337QB\342\343BD 8 9 : ; < =\203\376 \344\307H\n>\204\344 \310\311\321D\"\210\332H\345\346\347\350\351\n$\352\"\353\354%\"\202e\355\307H\n>\204\310\311\321D\"\210\332H!\3561S\3571Gr\211q\210>\204(\317\360!\210?\203:>\361V\203:\362\363>\"\210\364\365 \n#)00\202c0\310@A\"\262\202c?\203\\\366!\210\317\367!!\262\262.\266\202\207" [cl-struct-soap-wsdl-tags cl-struct-soap-element-tags cl-struct-soap-port-tags cl-struct-soap-binding-tags cl-struct-soap-bound-operation-tags url-request-extra-headers found 0 signal wrong-type-argument soap-wsdl 4 soap-element 1 throw error "Unknown SOAP service: %s" soap-port gethash soap-binding "No operation %s for SOAP service %s" "POST" "soap-client.el" "1.0" encode-coding-string soap-create-envelope 3 utf-8 "utf-8;q=1, iso-8859-1;q=0.5" t "SOAPAction" "\"" soap-bound-operation 2 "Content-Type" "text/xml; charset=utf-8" url-retrieve make-byte-code 257 "p\304\305\306\307\310!\311\"\312$\216\313\314\"\211\203 \315@A\"\202( \316\300\317\320 \303\302#\301#\262)\207" vconcat vector [make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-live-p kill-buffer] 2 plist-get :error signal apply soap-parse-envelope soap-parse-server-response] 9 "\n\n(fn STATUS)" url-retrieve-synchronously (error) (soap-error) "No HTTP response from server" 299 warn "Error in SOAP response: HTTP code %s" soap-parse-envelope soap-parse-server-response pop-to-buffer error-message-string url-http-attempt-keepalives url-mime-charset-string url-request-data url-package-version url-package-name url-request-method url-http-response-status soap-debug] 21 (#$ . 210709)])
#@790 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.
NOTE: `soap-invoke' base64-decodes xsd:base64Binary return values
into unibyte strings; these byte-strings require further
interpretation by the caller.
(fn WSDL SERVICE OPERATION-NAME &rest PARAMETERS)
(defalias 'soap-invoke #[899 "\300\301\302\211&\207" [apply soap-invoke-internal nil] 12 (#$ . 213240)])
#@319 Like `soap-invoke', but call CALLBACK asynchronously with response.
CALLBACK is called as (apply CALLBACK RESPONSE CBARGS), where
RESPONSE is the SOAP invocation result. WSDL, SERVICE,
OPERATION-NAME and PARAMETERS are as described in `soap-invoke'.
(fn CALLBACK CBARGS WSDL SERVICE OPERATION-NAME &rest PARAMETERS)
(defalias 'soap-invoke-async #[1413 "\204 \300\301!\210\302\303&\207" [error "Callback argument is nil" apply soap-invoke-internal] 14 (#$ . 214150)])
(provide 'soap-client)
Kontol Shell Bypass