;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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 (#$ . 666)]) (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")) (#$ . 1142)) #@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")) (#$ . 1925)) #@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 (#$ . 2134)) #@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 (#$ . 2335)) #@103 The current WSDL document used when decoding the SOAP response. This is a dynamically bound variable. (defvar soap-current-wsdl nil (#$ . 2599)) #@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\20359\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 (#$ . 2751)]) #@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 (#$ . 3434)]) #@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 (#$ . 4188)]) #@131 Return t 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 (#$ . 5150)]) #@100 Return a namespace alias table for NODE by extending XMLNS-TABLE. (fn NODE &optional XMLNS-TABLE) (defalias 'soap-extract-xmlns #[513 "\300\211\211\211A@\262\211\203H\211@\301@!A\302\230\203!\211\262\202?\303\230\203-\211\262\202?\304\305\"\203?\306\307\"BB\262\266A\266\202\202 \210\310\311\"\211\203r\203rA\232\204~\312\211@\262C\313\314\315\316#\317#\266\202~\211\203~\204~\211A\262\210\320\"E\207" [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] 14 (#$ . 5382)]) #@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 (#$ . 6079)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\300\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 "\303\211AA\262\211\203N\211@\211:\203G\304\"\211@\206 A@\206#\n\3058\30618\307\211@\262!0\202:\210\303+=\262\203G\211B\262A\266\202\202\210\211\237\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns nil soap-extract-xmlns 2 (error) soap-l2wk] 10 (#$ . 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 "\30020\211AA\262\211\205-\211@\211:\203&\301\211@\262!>\203&\302\300\"\210A\266\202\202\n\2620\207" [found soap-l2wk throw] 7 (#$ . 7473)]) #@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 "\3032M\304\"\211@\206 A@\206\n\3058\211A@\262\211\205G\211@\30613\307@!0\2025\210\310=\203@\311\303A\"\210A\266\202\202!\262+\2620\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns found soap-extract-xmlns 2 (error) soap-l2wk nil throw] 8 (#$ . 7762)]) #@71 compiler-macro for inlining `soap-element-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-element-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-element-p (and (memq (type-of cl-x) cl-struct-soap-element-tags) t)) nil] 9 (#$ . 8282)]) (put 'soap-element-p 'compiler-macro 'soap-element-p--cmacro) #@13 (fn CL-X) (defalias 'soap-element-p #[257 "\301!>\205 \302\207" [cl-struct-soap-element-tags type-of t] 3 (#$ . 8628)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-element-p side-effect-free error-free put soap-element cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `soap-element-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-element-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-element-name (or (soap-element-p cl-x) (signal 'wrong-type-argument (list 'soap-element cl-x))) (aref cl-x 1)) nil] 9 (#$ . 8910)]) (put 'soap-element-name 'compiler-macro 'soap-element-name--cmacro) #@62 Access slot "name" of `soap-element' struct CL-X. (fn CL-X) (defalias 'soap-element-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-element-tags type-of signal wrong-type-argument soap-element 1] 5 (#$ . 9310)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-element-name side-effect-free t] 4) #@83 compiler-macro for inlining `soap-element-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-element-p cl-x) (signal 'wrong-type-argument (list 'soap-element cl-x))) (aref cl-x 2)) nil] 9 (#$ . 9652)]) (put 'soap-element-namespace-tag 'compiler-macro 'soap-element-namespace-tag--cmacro) #@71 Access slot "namespace-tag" of `soap-element' struct CL-X. (fn CL-X) (defalias 'soap-element-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-element-tags type-of signal wrong-type-argument soap-element 2] 5 (#$ . 10097)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-element-namespace-tag side-effect-free t defalias copy-soap-element copy-sequence] 4) #@99 compiler-macro for inlining `make-soap-element'. (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 (record 'soap-element name namespace-tag))] 12 (#$ . 10518)]) (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)" record soap-element] 7 (#$ . 11184)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-element side-effect-free t cl-struct-define soap-element nil cl-structure-object record ((cl-tag-slot) (name) (namespace-tag)) cl-struct-soap-element-tags] 11) #@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 "\301!>\204\302\303\304D\"\210\211\305H\203<\301!>\204$\302\303\304D\"\210\211\305H\306\301!>\2047\302\303\304D\"\210\307HQ\207\301!>\204K\302\303\304D\"\210\211\307H\203d\301!>\204`\302\303\304D\"\210\211\307H\207\310\207" [cl-struct-soap-element-tags type-of signal wrong-type-argument soap-element 2 ":" 1 "*unnamed*"] 7 (#$ . 11906)]) #@78 compiler-macro for inlining `soap-namespace-link-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-namespace-link-tags) t)) nil] 9 (#$ . 12444)]) (put 'soap-namespace-link-p 'compiler-macro 'soap-namespace-link-p--cmacro) #@13 (fn CL-X) (defalias 'soap-namespace-link-p #[257 "\301!>\205 \302\207" [cl-struct-soap-namespace-link-tags type-of t] 3 (#$ . 12833)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-namespace-link-p side-effect-free error-free put soap-namespace-link cl-deftype-satisfies] 5) #@81 compiler-macro for inlining `soap-namespace-link-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-namespace-link-p cl-x) (signal 'wrong-type-argument (list 'soap-namespace-link cl-x))) (aref cl-x 1)) nil] 9 (#$ . 13144)]) (put 'soap-namespace-link-name 'compiler-macro 'soap-namespace-link-name--cmacro) #@95 Access slot "name" of `(soap-namespace-link (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-namespace-link-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-link-tags type-of signal wrong-type-argument soap-namespace-link 1] 5 (#$ . 13594)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-namespace-link-name side-effect-free t] 4) #@90 compiler-macro for inlining `soap-namespace-link-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-namespace-link-p cl-x) (signal 'wrong-type-argument (list 'soap-namespace-link cl-x))) (aref cl-x 2)) nil] 9 (#$ . 13998)]) (put 'soap-namespace-link-namespace-tag 'compiler-macro 'soap-namespace-link-namespace-tag--cmacro) #@104 Access slot "namespace-tag" of `(soap-namespace-link (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-namespace-link-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-link-tags type-of signal wrong-type-argument soap-namespace-link 2] 5 (#$ . 14494)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-namespace-link-namespace-tag side-effect-free t] 4) #@83 compiler-macro for inlining `soap-namespace-link-target'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-namespace-link-p cl-x) (signal 'wrong-type-argument (list 'soap-namespace-link cl-x))) (aref cl-x 3)) nil] 9 (#$ . 14925)]) (put 'soap-namespace-link-target 'compiler-macro 'soap-namespace-link-target--cmacro) #@97 Access slot "target" of `(soap-namespace-link (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-namespace-link-target #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-link-tags type-of signal wrong-type-argument soap-namespace-link 3] 5 (#$ . 15385)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-namespace-link-target side-effect-free t defalias copy-soap-namespace-link copy-sequence] 4) #@113 compiler-macro for inlining `make-soap-namespace-link'. (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 (record 'soap-namespace-link name namespace-tag target))] 14 (#$ . 15854)]) (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)" record soap-namespace-link] 9 (#$ . 16622)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-namespace-link side-effect-free t cl-struct-define soap-namespace-link nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (target)) cl-struct-soap-namespace-link-tags] 11) #@73 compiler-macro for inlining `soap-namespace-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-namespace-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-p (and (memq (type-of cl-x) cl-struct-soap-namespace-tags) t)) nil] 9 (#$ . 17440)]) (put 'soap-namespace-p 'compiler-macro 'soap-namespace-p--cmacro) #@13 (fn CL-X) (defalias 'soap-namespace-p #[257 "\301!>\205 \302\207" [cl-struct-soap-namespace-tags type-of t] 3 (#$ . 17799)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-namespace-p side-effect-free error-free put soap-namespace cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `soap-namespace-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-namespace-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-name (or (soap-namespace-p cl-x) (signal 'wrong-type-argument (list 'soap-namespace cl-x))) (aref cl-x 1)) nil] 9 (#$ . 18090)]) (put 'soap-namespace-name 'compiler-macro 'soap-namespace-name--cmacro) #@64 Access slot "name" of `soap-namespace' struct CL-X. (fn CL-X) (defalias 'soap-namespace-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-tags type-of signal wrong-type-argument soap-namespace 1] 5 (#$ . 18505)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put soap-namespace-name side-effect-free t 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)"]] 5) #@80 compiler-macro for inlining `soap-namespace-elements'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-namespace-elements--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-namespace-elements (or (soap-namespace-p cl-x) (signal 'wrong-type-argument (list 'soap-namespace cl-x))) (aref cl-x 2)) nil] 9 (#$ . 18992)]) (put 'soap-namespace-elements 'compiler-macro 'soap-namespace-elements--cmacro) #@68 Access slot "elements" of `soap-namespace' struct CL-X. (fn CL-X) (defalias 'soap-namespace-elements #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-namespace-tags type-of signal wrong-type-argument soap-namespace 2] 5 (#$ . 19427)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put soap-namespace-elements side-effect-free t 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] 5) #@96 compiler-macro for inlining `make-soap-namespace'. (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 (record 'soap-namespace name elements))] 12 (#$ . 19983)]) (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)" record soap-namespace] 7 (#$ . 20678)]) (cl-struct-define 'soap-namespace nil 'cl-structure-object 'record nil '((cl-tag-slot) (name nil :read-only t) (elements (make-hash-table :test 'equal) :read-only t)) 'cl-struct-soap-namespace-tags 'soap-namespace t) #@201 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 "\302!>\204\303\304\305D\"\210\306H\211\302! >\204\"\303\304\307D\"\210\310H\311\312\"B#\266\202\207" [cl-struct-soap-element-tags cl-struct-soap-namespace-tags type-of signal wrong-type-argument soap-element 1 soap-namespace 2 puthash gethash] 11 (#$ . 21395)]) #@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\203M\303!>\203)\303!>\204!\304\305\306D\"\210\307H\262\202M:\2035A\262\202M;\203M\310\311\"\203J\312\313\"\262\202M\262\203W\302\232\203^\314\315\316\317\211$\210\320\321\317$\303! >\204t\304\305\322D\"\210\313H\323\324\"B#\207" [cl-struct-soap-element-tags cl-struct-soap-namespace-tags #1="" type-of 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 record soap-namespace-link soap-namespace puthash gethash] 12 (#$ . 21917)]) #@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\304!>\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 type-of signal wrong-type-argument soap-namespace 2 found throw 1 error "Soap-namespace-get(%s): multiple elements, discriminant needed" nil] 9 (#$ . 22845)]) #@71 compiler-macro for inlining `soap-xs-type-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-type-tags) t)) nil] 9 (#$ . 23649)]) (put 'soap-xs-type-p 'compiler-macro 'soap-xs-type-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-type-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-type-tags type-of t] 3 (#$ . 23996)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-xs-type-p side-effect-free error-free put soap-xs-type cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `soap-xs-type-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 1)) nil] 9 (#$ . 24279)]) (put 'soap-xs-type-name 'compiler-macro 'soap-xs-type-name--cmacro) #@88 Access slot "name" of `(soap-xs-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-type-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags type-of signal wrong-type-argument soap-xs-type 1] 5 (#$ . 24680)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-type-name side-effect-free t] 4) #@83 compiler-macro for inlining `soap-xs-type-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 2)) nil] 9 (#$ . 25049)]) (put 'soap-xs-type-namespace-tag 'compiler-macro 'soap-xs-type-namespace-tag--cmacro) #@97 Access slot "namespace-tag" of `(soap-xs-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-type-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags type-of signal wrong-type-argument soap-xs-type 2] 5 (#$ . 25495)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-type-namespace-tag side-effect-free t] 4) #@72 compiler-macro for inlining `soap-xs-type-id'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 3)) nil] 9 (#$ . 25891)]) (put 'soap-xs-type-id 'compiler-macro 'soap-xs-type-id--cmacro) #@86 Access slot "id" of `(soap-xs-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-type-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags type-of signal wrong-type-argument soap-xs-type 3] 5 (#$ . 26282)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-type-id side-effect-free t] 4) #@80 compiler-macro for inlining `soap-xs-type-attributes'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 4)) nil] 9 (#$ . 26645)]) (put 'soap-xs-type-attributes 'compiler-macro 'soap-xs-type-attributes--cmacro) #@94 Access slot "attributes" of `(soap-xs-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-type-attributes #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags type-of signal wrong-type-argument soap-xs-type 4] 5 (#$ . 27076)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-type-attributes side-effect-free t] 4) #@86 compiler-macro for inlining `soap-xs-type-attribute-groups'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-type cl-x))) (aref cl-x 5)) nil] 9 (#$ . 27463)]) (put 'soap-xs-type-attribute-groups 'compiler-macro 'soap-xs-type-attribute-groups--cmacro) #@100 Access slot "attribute-groups" of `(soap-xs-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-type-attribute-groups #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-type-tags type-of signal wrong-type-argument soap-xs-type 5] 5 (#$ . 27925)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-xs-type-attribute-groups side-effect-free t defalias copy-soap-xs-type copy-sequence] 4) #@130 compiler-macro for inlining `make-soap-xs-type'. (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 (record 'soap-xs-type name namespace-tag id attributes attribute-groups))] 18 (#$ . 28382)]) (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)" record soap-xs-type] 13 (#$ . 29297)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-type side-effect-free t cl-struct-define soap-xs-type nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (id) (attributes) (attribute-groups)) cl-struct-soap-xs-type-tags] 11) #@77 compiler-macro for inlining `soap-xs-basic-type-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-basic-type-tags) t)) nil] 9 (#$ . 30239)]) (put 'soap-xs-basic-type-p 'compiler-macro 'soap-xs-basic-type-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-basic-type-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-basic-type-tags type-of t] 3 (#$ . 30622)]) (byte-code "\300\301\302\303#\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] 5) #@80 compiler-macro for inlining `soap-xs-basic-type-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-basic-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 1)) nil] 9 (#$ . 30929)]) (put 'soap-xs-basic-type-name 'compiler-macro 'soap-xs-basic-type-name--cmacro) #@94 Access slot "name" of `(soap-xs-basic-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-basic-type-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 1] 5 (#$ . 31372)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-basic-type-name side-effect-free t] 4) #@89 compiler-macro for inlining `soap-xs-basic-type-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-basic-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 2)) nil] 9 (#$ . 31771)]) (put 'soap-xs-basic-type-namespace-tag 'compiler-macro 'soap-xs-basic-type-namespace-tag--cmacro) #@103 Access slot "namespace-tag" of `(soap-xs-basic-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-basic-type-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 2] 5 (#$ . 32260)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-basic-type-namespace-tag side-effect-free t] 4) #@78 compiler-macro for inlining `soap-xs-basic-type-id'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-basic-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 3)) nil] 9 (#$ . 32686)]) (put 'soap-xs-basic-type-id 'compiler-macro 'soap-xs-basic-type-id--cmacro) #@92 Access slot "id" of `(soap-xs-basic-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-basic-type-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 3] 5 (#$ . 33119)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-basic-type-id side-effect-free t] 4) #@86 compiler-macro for inlining `soap-xs-basic-type-attributes'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-basic-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 4)) nil] 9 (#$ . 33512)]) (put 'soap-xs-basic-type-attributes 'compiler-macro 'soap-xs-basic-type-attributes--cmacro) #@100 Access slot "attributes" of `(soap-xs-basic-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-basic-type-attributes #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 4] 5 (#$ . 33986)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-basic-type-attributes side-effect-free t] 4) #@92 compiler-macro for inlining `soap-xs-basic-type-attribute-groups'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-basic-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 5)) nil] 9 (#$ . 34403)]) (put 'soap-xs-basic-type-attribute-groups 'compiler-macro 'soap-xs-basic-type-attribute-groups--cmacro) #@106 Access slot "attribute-groups" of `(soap-xs-basic-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-basic-type-attribute-groups #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 5] 5 (#$ . 34907)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-basic-type-attribute-groups side-effect-free t] 4) #@80 compiler-macro for inlining `soap-xs-basic-type-kind'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-basic-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-basic-type cl-x))) (aref cl-x 6)) nil] 9 (#$ . 35342)]) (put 'soap-xs-basic-type-kind 'compiler-macro 'soap-xs-basic-type-kind--cmacro) #@94 Access slot "kind" of `(soap-xs-basic-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-basic-type-kind #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 6] 5 (#$ . 35785)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-xs-basic-type-kind side-effect-free t defalias copy-soap-xs-basic-type copy-sequence] 4) #@141 compiler-macro for inlining `make-soap-xs-basic-type'. (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 (record 'soap-xs-basic-type name namespace-tag id attributes attribute-groups kind))] 20 (#$ . 36242)]) (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)" record soap-xs-basic-type] 15 (#$ . 37236)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-basic-type side-effect-free t cl-struct-define soap-xs-basic-type nil soap-xs-type record ((cl-tag-slot) (name nil) (namespace-tag nil) (id nil) (attributes nil) (attribute-groups nil) (kind)) cl-struct-soap-xs-basic-type-tags] 11) #@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 (#$ . 38274)]) #@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!\302!>\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 type-of 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 (#$ . 39032)]) #@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 "\301!>\204\302\303\304D\"\210\211\305H<\203\306!@\202\307=\203K\211;\2030\310\262\202K\211\250\203;\311\262\202K\211\312>\203G\313\262\202K\314\315!\210\211\204U\313=\205x\316\317\"\203l\211;\204f\314\320\"\210\321!\202o\316\322\"\203\370\211:\203\342\323\324\325\"\203\204\326\202\332\324\327\"\203\217\330\202\332\324\331\"\203\232\332\202\332\324\333\"\203\245\334\202\332\324\335\"\203\260\336\202\332\324\337\"\203\273\340\202\332\324\341\"\203\306\342\202\332\324\343\"\203\321\344\202\332\314\345\346#\205\332\347\350P\351#\202o\211;\203\362\352\"\210\321!\202o\314\353!\202o\324\313\"\203\211\354>\204 \314\355!\210\211\203\356\202o\357\202o\316\360\"\203;\211\250\204%\314\361!\210\362>\2035\211\363W\2035\314\364!\210\365!\202o\316\366\"\203Q\211\247\204K\314\367!\210\365!\202o\324\370\"\203g\211;\204a\314\371!\210\372!\202o\314\373\374!#\375\"\210\211c\262\207" [cl-struct-soap-xs-basic-type-tags type-of signal wrong-type-argument soap-xs-basic-type 6 last 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) 0 "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] 9 (#$ . 39898)]) #@2841 Decode DATE-TIME-STRING as DATATYPE. DATE-TIME-STRING should be in ISO 8601 basic or extended format. DATATYPE can be omitted, or one of the symbols dateTime, time, date, gYearMonth, gYear, gMonthDay, gDay, or gMonth. If Emacs is a version that supports fractional seconds, DATATYPE can also be dateTime-subsecond, or time-subsecond. On older versions of Emacs (prior to 27.1), which do not support fractional seconds, leaving DATATYPE nil means that subseconds in DATE-TIME-STRING will be ignored. Return a list in a format identical or similar to that returned by `decode-time'. The returned format is always compatible with `encode-time'. If DATATYPE is omitted or nil, this function will return a list that has exactly the same format as that returned by `decode-time'. Note that on versions of Emacs that predate support for fractional seconds, `encode-time' will not notice the SUBSECOND field so it must be handled specially. The formats returned by this function are as follows, where _ means "should be ignored": DATATYPE | Return format ------------+---------------------------------------------------------------- nil | (SECOND MINUTE HOUR DAY MONTH YEAR DOW DST UTCOFF) dateTime | (SECOND MINUTE HOUR DAY MONTH YEAR SUBSECOND dateTime UTCOFF) time | (SECOND MINUTE HOUR _ _ _ SUBSECOND time _) date | (_ _ _ DAY MONTH YEAR _ date _) gYearMonth | (_ _ _ _ MONTH YEAR _ gYearMonth _) gYear | (_ _ _ _ _ YEAR _ gYear _) gMonthDay | (_ _ _ DAY MONTH _ _ gMonthDay _) gDay | (_ _ _ DAY _ _ _ gDay _) gMonth | (_ _ _ _ MONTH _ _ gMonth _) When DATATYPE is dateTime or time, the DOW (day-of-week) field is replaced with SUBSECOND, 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 do not, when it is not already clear from context. For example a datatype of `time' means the year, month, day and time zone fields should be ignored. New code that depends on Emacs 27.1 or newer anyway, and that wants dateTime or time but with the first argument with subsecond resolution, i.e., (TICKS . HZ), can set DATATYPE to dateTime-subsecond or time-subsecond respectively. This function throws an error if dateTime-subsecond or time-subsecond is specified when Emacs does not support subsecond resolution. This function throws an error if DATE-TIME-STRING represents a leap second, since the XML Schema 1.1 standard does not support representing leap seconds. (fn DATE-TIME-STRING &optional DATATYPE) (defalias 'soap-decode-date-time #[513 "\3001\301\302\211\303#??0\202\210\302\302\304\305\306\"\2037\203+\307\310\311\312\313!#!\202C\314\315\313!\"!\202C\305\316\"\203B\317\202C\211\320NA@\321\"\210\322\323\"\322\324 \"\322\325\n\"\322\326 \"\322\327\f\"\322\330 \"\322\331\"\322\332\"\302\322\333\"\322\334\"\322\335\"\322\336\"\f\203\224\337\202\225\323\262  \203\246\f\340 !_\202\247\341\262\f\n\203\265\340 !\202\266\323\262  \203\304\340\n!\202\305\323\262\n\203\323\340 !\202\324\342\262 \203\342\340!\202\343\342\262\203\205\203\310\343\312#\344\334G\"\211\340\n!_\340!\\\211B\266\203\202\323B\262\203\"\340!\202#\342\262\203@\2047\2047\345\346!\210\347\340!!\202A\350\262\205H\303\262\351\232\203T\337\202U\323\262\203a\340!\202b\342\262\211\203n\340!\202o\342\262\203\352\342#_\202\200\342\262 \342V\203\354\n\323Y\203\354\n\336X\203\354 \323Y\203\354 \353  \"X\203\354\342Y\203\354\354X\203\354\342Y\203\354\355X\203\354\342Y\203\354\355X\203\354\342Y\203\354\354X\203\354\211\342Y\203\354\211\355X\204\362\314\356\"\210\203\357>\203\202\n\f \f\257 \202K\360\361\203&\202(\n\f\302\211\257 \"\203F\301\302\303#\202I\301!\262\207" [(wrong-number-of-arguments) decode-time nil t "This Emacs version does not support %s" memql (dateTime-subsecond time-subsecond) intern replace-regexp-in-string "-subsecond" "" symbol-name error format (nil) dateTime 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 "\\." expt message "soap-decode-date-time: Discarding fractional seconds" float 0.0 "-" rng-xsd-time-to-seconds rng-xsd-days-in-month 23 59 "Invalid or unsupported time: %s" (dateTime-subsecond time-subsecond) apply encode-time] 31 (#$ . 42254)]) #@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\262\302!>\204\303\304\305D\"\210\306H\211A@\262\307\211\203R\211@\310@!A\310\311!\232\203;\312 \"\262\310\313!\232\203I\211\227\314\230\262\266A\266\202\202!\210\211\204b\315\206^\316C@\"\210\205\316\317\320\"\203r@\202\316\317\321\"\203~@\202\316\317\322\"\203\214\323@!\202\316\324\325\"\203\233@\227\314\230\202\316\324\326\"\203\251\327@!\202\316\324\330\"\203\267\331!\202\316\324\332\"\203\305\333!\202\316\334\335\336#\205\316\307\207" [cl-struct-soap-xs-basic-type-tags soap-current-wsdl type-of 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)] 14 (#$ . 47026)]) (byte-code "\300\301\302\303\304\305\211\211\211\211\211&!\304=\203\302\202\306\"\210\301\303\304\305\211\211\211\211\211&!\307\310\311#\210\307\312\313#\210\307\314\315#\210\207" [defalias soap-type-of type-of record soap-xs-basic-type nil #[257 "\300!\203\n\211\301H\207\302!\207" [vectorp 0 type-of] 3 "Return the type of ELEMENT.\n\n(fn ELEMENT)"] put soap-attribute-encoder soap-encode-xs-basic-type-attributes soap-encoder soap-encode-xs-basic-type soap-decoder soap-decode-xs-basic-type] 11) #@74 compiler-macro for inlining `soap-xs-element-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-element-tags) t)) nil] 9 (#$ . 49192)]) (put 'soap-xs-element-p 'compiler-macro 'soap-xs-element-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-element-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-element-tags type-of t] 3 (#$ . 49557)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-xs-element-p side-effect-free error-free put soap-xs-element cl-deftype-satisfies] 5) #@77 compiler-macro for inlining `soap-xs-element-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 1)) nil] 9 (#$ . 49852)]) (put 'soap-xs-element-name 'compiler-macro 'soap-xs-element-name--cmacro) #@91 Access slot "name" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 1] 5 (#$ . 50274)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-name side-effect-free t] 4) #@86 compiler-macro for inlining `soap-xs-element-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 2)) nil] 9 (#$ . 50658)]) (put 'soap-xs-element-namespace-tag 'compiler-macro 'soap-xs-element-namespace-tag--cmacro) #@100 Access slot "namespace-tag" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 2] 5 (#$ . 51126)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-namespace-tag side-effect-free t] 4) #@75 compiler-macro for inlining `soap-xs-element-id'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 3)) nil] 9 (#$ . 51537)]) (put 'soap-xs-element-id 'compiler-macro 'soap-xs-element-id--cmacro) #@89 Access slot "id" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 3] 5 (#$ . 51949)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-id side-effect-free t] 4) #@78 compiler-macro for inlining `soap-xs-element-type^'. (fn CL-WHOLE-ARG CL-X) (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^ (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 4)) nil] 9 (#$ . 52327)]) (put 'soap-xs-element-type^ 'compiler-macro 'soap-xs-element-type^--cmacro) #@92 Access slot "type^" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-type^ #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 4] 5 (#$ . 52754)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-type^ side-effect-free t] 4) #@82 compiler-macro for inlining `soap-xs-element-optional?'. (fn CL-WHOLE-ARG CL-X) (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\? (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 5)) nil] 9 (#$ . 53141)]) (put 'soap-xs-element-optional\? 'compiler-macro 'soap-xs-element-optional\?--cmacro) #@96 Access slot "optional?" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-optional\? #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 5] 5 (#$ . 53592)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-optional\? side-effect-free t] 4) #@82 compiler-macro for inlining `soap-xs-element-multiple?'. (fn CL-WHOLE-ARG CL-X) (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\? (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 6)) nil] 9 (#$ . 53993)]) (put 'soap-xs-element-multiple\? 'compiler-macro 'soap-xs-element-multiple\?--cmacro) #@96 Access slot "multiple?" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-multiple\? #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 6] 5 (#$ . 54444)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-multiple\? side-effect-free t] 4) #@82 compiler-macro for inlining `soap-xs-element-reference'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 7)) nil] 9 (#$ . 54845)]) (put 'soap-xs-element-reference 'compiler-macro 'soap-xs-element-reference--cmacro) #@96 Access slot "reference" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-reference #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 7] 5 (#$ . 55292)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-reference side-effect-free t] 4) #@91 compiler-macro for inlining `soap-xs-element-substitution-group'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 8)) nil] 9 (#$ . 55691)]) (put 'soap-xs-element-substitution-group 'compiler-macro 'soap-xs-element-substitution-group--cmacro) #@105 Access slot "substitution-group" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-substitution-group #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 8] 5 (#$ . 56184)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-substitution-group side-effect-free t] 4) #@85 compiler-macro for inlining `soap-xs-element-alternatives'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 9)) nil] 9 (#$ . 56610)]) (put 'soap-xs-element-alternatives 'compiler-macro 'soap-xs-element-alternatives--cmacro) #@99 Access slot "alternatives" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-alternatives #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 9] 5 (#$ . 57072)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-element-alternatives side-effect-free t] 4) #@81 compiler-macro for inlining `soap-xs-element-is-group'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-element-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-element cl-x))) (aref cl-x 10)) nil] 9 (#$ . 57480)]) (put 'soap-xs-element-is-group 'compiler-macro 'soap-xs-element-is-group--cmacro) #@95 Access slot "is-group" of `(soap-xs-element (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-element-is-group #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 10] 5 (#$ . 57923)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-xs-element-is-group side-effect-free t defalias copy-soap-xs-element copy-sequence] 4) #@188 compiler-macro for inlining `make-soap-xs-element'. (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 (record 'soap-xs-element name namespace-tag id type^ optional\? multiple\? reference substitution-group alternatives is-group))] 28 (#$ . 58375)]) (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)" record soap-xs-element] 23 (#$ . 59708)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-element side-effect-free t cl-struct-define soap-xs-element nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (id) (type^) (optional\?) (multiple\?) (reference) (substitution-group) (alternatives) (is-group)) cl-struct-soap-xs-element-tags] 11) #@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 "\301!>\204\302\303\304D\"\210\211\305H\203*\306\301!>\204%\302\303\304D\"\210\305H!\207\301!>\2049\302\303\304D\"\210\211\307H\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 7 soap-xs-element-type 4] 6 (#$ . 61035)]) #@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 (#$ . 61518)]) #@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 (#$ . 61763)]) #@53 Construct a `soap-xs-element' from NODE. (fn NODE) (defalias 'soap-xs-parse-element #[257 "\301\302\"\301\303\"\301\304\"\305!\306!\301\307\"\301\310\"\311\211@\262!\211\312>\2042\313\314\211C\315$\210\203=\316\317\"\262\203G\316\317\"\262\203Q\316\317\"\262\204\203\204\203\320 \321\"\211\203k\322@!\262\202\202\320\n\323\"\211\203}\324@!\262\202\201\325\326!\210\210\210\327\330 \n\n\n\n\n\n\315 \331=& \207" [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" record soap-xs-element xsd:group] 22 (#$ . 61960)]) #@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 "\303!>\204\304\305\306D\"\210\307H\211\2039\310\311!\"@\211\2038\303!>\2041\304\305\306D\"\210\211\307I\266\210\210\303! >\204I\304\305\312D\"\210\313H\314!\203p\303! >\204a\304\305\312D\"\210\211\313\315\316#I\266\202}\303!\n>\203}\317\"\210\210\303! >\204\215\304\305\312D\"\210\320H\314!\203\306\303! >\204\245\304\305\312D\"\210\321H\204\306\303! >\204\272\304\305\312D\"\210\211\320\315\322#I\266\210\303! >\204\326\304\305\312D\"\210\323H\314!\205\315\"\211\203\303! >\204\366\304\305\312D\"\210\211\211\324\324HBI\262\202\325C\326\327\330\331#\332#\266\202\262\207" [cl-struct-soap-element-tags cl-struct-soap-xs-element-tags cl-struct-soap-xs-type-tags type-of 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 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 (#$ . 62854)]) #@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 (#$ . 64170)]) #@85 Return t if VALUE should be encoded for ELEMENT, nil otherwise. (fn VALUE ELEMENT) (defalias 'soap-should-encode-value-for-xs-element #[514 "\203\302\207\303!\304!>\205%\304!>\204 \305\306\307D\"\210\211\310H\311=\262\206d\303!\3122^\304! >\204@\305\306\313D\"\210\211\314H\211\205[\211@\315!\203T\316\312\302\"\210A\266\202\202C\2620\262\206d\317\207" [cl-struct-soap-xs-basic-type-tags cl-struct-soap-xs-type-tags t soap-xs-element-type type-of signal wrong-type-argument soap-xs-basic-type 6 boolean found soap-xs-type 4 soap-xs-attribute-default throw nil] 8 (#$ . 64463)]) #@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 (#$ . 65074)]) #@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 (#$ . 65274)) #@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!\306!>\204\307\310\311D\"\210\312H\203\331\313\"\205\344\314\261\210\315\"\210\204O\306! >\203\324\306! >\204G\307\310\316D\"\210\211\317H\320=\203\324\321c\210\322!\203\307\323!\306!>\204j\307\310\311D\"\210\324H\203\222\306!>\204\307\310\311D\"\210\324H\211\n\235\203\215\n\210\202\221\211\nB\210\306! >\204\241\307\310\325D\"\210\211\211\326\327!I\266\330GW\203\302\331H\"\210T\262\202\255\266\202\314\332\"\210\333\334\261\202\344\335c\202\344\313\"\205\344\332\"\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 type-of signal wrong-type-argument soap-element 1 soap-should-encode-value-for-xs-element "<" soap-encode-attributes soap-xs-basic-type 6 boolean ">" soap-type-is-array\? copy-soap-xs-element 2 soap-xs-element 4 soap-xs-complex-type-base 0 soap-encode-xs-element soap-encode-value "\n" "/>\n"] 10 (#$ . 65587)]) #@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 (#$ . 66877)]) (byte-code "\300\301\302\303\211\211\211\211\211\211\211\211\211& !\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\207" [soap-type-of record soap-xs-element nil 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] 13) #@76 compiler-macro for inlining `soap-xs-attribute-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-attribute-tags) t)) nil] 9 (#$ . 67647)]) (put 'soap-xs-attribute-p 'compiler-macro 'soap-xs-attribute-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-attribute-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-attribute-tags type-of t] 3 (#$ . 68024)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-xs-attribute-p side-effect-free error-free put soap-xs-attribute cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `soap-xs-attribute-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 1)) nil] 9 (#$ . 68327)]) (put 'soap-xs-attribute-name 'compiler-macro 'soap-xs-attribute-name--cmacro) #@93 Access slot "name" of `(soap-xs-attribute (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags type-of signal wrong-type-argument soap-xs-attribute 1] 5 (#$ . 68763)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-name side-effect-free t] 4) #@88 compiler-macro for inlining `soap-xs-attribute-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 2)) nil] 9 (#$ . 69157)]) (put 'soap-xs-attribute-namespace-tag 'compiler-macro 'soap-xs-attribute-namespace-tag--cmacro) #@102 Access slot "namespace-tag" of `(soap-xs-attribute (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags type-of signal wrong-type-argument soap-xs-attribute 2] 5 (#$ . 69639)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-namespace-tag side-effect-free t] 4) #@79 compiler-macro for inlining `soap-xs-attribute-type'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 3)) nil] 9 (#$ . 70060)]) (put 'soap-xs-attribute-type 'compiler-macro 'soap-xs-attribute-type--cmacro) #@93 Access slot "type" of `(soap-xs-attribute (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags type-of signal wrong-type-argument soap-xs-attribute 3] 5 (#$ . 70496)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-type side-effect-free t] 4) #@82 compiler-macro for inlining `soap-xs-attribute-default'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 4)) nil] 9 (#$ . 70890)]) (put 'soap-xs-attribute-default 'compiler-macro 'soap-xs-attribute-default--cmacro) #@96 Access slot "default" of `(soap-xs-attribute (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-default #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags type-of signal wrong-type-argument soap-xs-attribute 4] 5 (#$ . 71341)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-default side-effect-free t] 4) #@84 compiler-macro for inlining `soap-xs-attribute-reference'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute cl-x))) (aref cl-x 5)) nil] 9 (#$ . 71744)]) (put 'soap-xs-attribute-reference 'compiler-macro 'soap-xs-attribute-reference--cmacro) #@98 Access slot "reference" of `(soap-xs-attribute (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-reference #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-tags type-of signal wrong-type-argument soap-xs-attribute 5] 5 (#$ . 72205)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-xs-attribute-reference side-effect-free t defalias copy-soap-xs-attribute copy-sequence] 4) #@127 compiler-macro for inlining `make-soap-xs-attribute'. (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 (record 'soap-xs-attribute name namespace-tag type default reference))] 18 (#$ . 72671)]) (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)" record soap-xs-attribute] 13 (#$ . 73568)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-attribute side-effect-free t cl-struct-define soap-xs-attribute nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (type) (default) (reference)) cl-struct-soap-xs-attribute-tags] 11) #@82 compiler-macro for inlining `soap-xs-attribute-group-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-attribute-group-tags) t)) nil] 9 (#$ . 74500)]) (put 'soap-xs-attribute-group-p 'compiler-macro 'soap-xs-attribute-group-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-attribute-group-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-attribute-group-tags type-of t] 3 (#$ . 74913)]) (byte-code "\300\301\302\303#\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] 5) #@85 compiler-macro for inlining `soap-xs-attribute-group-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-group-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 1)) nil] 9 (#$ . 75240)]) (put 'soap-xs-attribute-group-name 'compiler-macro 'soap-xs-attribute-group-name--cmacro) #@99 Access slot "name" of `(soap-xs-attribute-group (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-group-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags type-of signal wrong-type-argument soap-xs-attribute-group 1] 5 (#$ . 75718)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-group-name side-effect-free t] 4) #@94 compiler-macro for inlining `soap-xs-attribute-group-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-group-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 2)) nil] 9 (#$ . 76142)]) (put 'soap-xs-attribute-group-namespace-tag 'compiler-macro 'soap-xs-attribute-group-namespace-tag--cmacro) #@108 Access slot "namespace-tag" of `(soap-xs-attribute-group (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-group-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags type-of signal wrong-type-argument soap-xs-attribute-group 2] 5 (#$ . 76666)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-group-namespace-tag side-effect-free t] 4) #@83 compiler-macro for inlining `soap-xs-attribute-group-id'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-group-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 3)) nil] 9 (#$ . 77117)]) (put 'soap-xs-attribute-group-id 'compiler-macro 'soap-xs-attribute-group-id--cmacro) #@97 Access slot "id" of `(soap-xs-attribute-group (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-group-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags type-of signal wrong-type-argument soap-xs-attribute-group 3] 5 (#$ . 77585)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-group-id side-effect-free t] 4) #@91 compiler-macro for inlining `soap-xs-attribute-group-attributes'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-group-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 4)) nil] 9 (#$ . 78003)]) (put 'soap-xs-attribute-group-attributes 'compiler-macro 'soap-xs-attribute-group-attributes--cmacro) #@105 Access slot "attributes" of `(soap-xs-attribute-group (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-group-attributes #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags type-of signal wrong-type-argument soap-xs-attribute-group 4] 5 (#$ . 78512)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-group-attributes side-effect-free t] 4) #@97 compiler-macro for inlining `soap-xs-attribute-group-attribute-groups'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-group-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 5)) nil] 9 (#$ . 78954)]) (put 'soap-xs-attribute-group-attribute-groups 'compiler-macro 'soap-xs-attribute-group-attribute-groups--cmacro) #@111 Access slot "attribute-groups" of `(soap-xs-attribute-group (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-group-attribute-groups #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags type-of signal wrong-type-argument soap-xs-attribute-group 5] 5 (#$ . 79493)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-attribute-group-attribute-groups side-effect-free t] 4) #@90 compiler-macro for inlining `soap-xs-attribute-group-reference'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-attribute-group-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-attribute-group cl-x))) (aref cl-x 6)) nil] 9 (#$ . 79953)]) (put 'soap-xs-attribute-group-reference 'compiler-macro 'soap-xs-attribute-group-reference--cmacro) #@104 Access slot "reference" of `(soap-xs-attribute-group (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-attribute-group-reference #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-attribute-group-tags type-of signal wrong-type-argument soap-xs-attribute-group 6] 5 (#$ . 80457)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-xs-attribute-group-reference side-effect-free t defalias copy-soap-xs-attribute-group copy-sequence] 4) #@151 compiler-macro for inlining `make-soap-xs-attribute-group'. (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 (record 'soap-xs-attribute-group name namespace-tag id attributes attribute-groups reference))] 20 (#$ . 80959)]) (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)" record soap-xs-attribute-group] 15 (#$ . 82013)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-attribute-group side-effect-free t cl-struct-define soap-xs-attribute-group nil soap-xs-type record ((cl-tag-slot) (name nil) (namespace-tag nil) (id nil) (attributes nil) (attribute-groups nil) (reference)) cl-struct-soap-xs-attribute-group-tags] 11) #@55 Construct a `soap-xs-attribute' from NODE. (fn NODE) (defalias 'soap-xs-parse-attribute #[257 "\300\211@\262!\301=\204 \302\303\300\211@\262!\300\211@\262!C\304$\210\305\306\"\307\305\310\"!\305\311\"\305\312\"\211\2059\307!\204J\211\204J\313\314\315\"!\262\316\317\304&\207" [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) record soap-xs-attribute] 13 (#$ . 83105)]) #@61 Construct a `soap-xs-attribute-group' from NODE. (fn NODE) (defalias 'soap-xs-parse-attribute-group #[257 "\302\211@\262!\211\303=\204\304\305\211C\306$\210\307\310\"\307\311\"\307\312\"\306\2038\2038\313C\314\315\316\317#\320#\266\321\322\323\324\205H\325!&\262\204\276\211AA\262\211\203\275\211@\211;\204\266\302\211@\262!\326\327\"\203\220\330!\331!>\204\202\332\333\334D\"\210\211\335\335HBI\266\202\265\326\303\"\203\265\336!\331! >\204\252\332\333\337D\"\210\211\340\340HBI\266\210A\266\202\202V\210\266\203\207" [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 type-of signal wrong-type-argument soap-xs-type 4 soap-xs-parse-attribute-group soap-xs-attribute-group 5] 16 (#$ . 83715)]) #@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 "\302!>\204\303\304\305D\"\210\306H\302!>\204!\303\304\305D\"\210\307H\310\311!\205/@\312\232\211\203<\313\262\314\262\202q\311!\203c\302!>\204S\303\304\305D\"\210\211\306\315 \316#I\266\202q\302! >\203q\317\"\210\311!\205\226\302!>\204\210\303\304\305D\"\210\211\307\315 #I\262\207" [cl-struct-soap-xs-attribute-tags cl-struct-soap-xs-type-tags type-of 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\n\302\207\303!\207" [cl-struct-soap-xs-basic-type-tags type-of t soap-xs-simple-type-p] 3 "\n\n(fn TYPE)"] soap-resolve-references] 13 (#$ . 84815)]) (byte-code "\300\301\302\303\304\211\211\211\211&!\305\306#\207" [put soap-type-of record soap-xs-attribute nil soap-resolve-references soap-resolve-references-for-xs-attribute] 9) #@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 "\301!>\204\302\303\304D\"\210\305H\306!\205\307\310#\301!>\204,\302\303\304D\"\210\211\311H\211\203B\211@\312\"\210A\266\202\202/\210\301!>\204S\302\303\304D\"\210\211\313\301!>\204f\302\303\304D\"\210\313HI\266\301!>\204|\302\303\304D\"\210\211\314\301!>\204\217\302\303\304D\"\210\314HI\266\301!>\204\245\302\303\304D\"\210\211\305\315I\266\301!>\204\274\302\303\304D\"\210\211\311\301!>\204\317\302\303\304D\"\210\311HI\266\301!>\204\345\302\303\304D\"\210\211\316\301!>\204\370\302\303\304D\"\210\316HI\262\262\207" [cl-struct-soap-xs-attribute-group-tags type-of 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 (#$ . 86059)]) (byte-code "\300\301\302\303\304\211\211\211\211\211&!\305\306#\207" [put soap-type-of record soap-xs-attribute-group nil soap-resolve-references soap-resolve-references-for-xs-attribute-group] 10) #@78 compiler-macro for inlining `soap-xs-simple-type-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-simple-type-tags) t)) nil] 9 (#$ . 87368)]) (put 'soap-xs-simple-type-p 'compiler-macro 'soap-xs-simple-type-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-simple-type-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-simple-type-tags type-of t] 3 (#$ . 87757)]) (byte-code "\300\301\302\303#\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] 5) #@81 compiler-macro for inlining `soap-xs-simple-type-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 1)) nil] 9 (#$ . 88068)]) (put 'soap-xs-simple-type-name 'compiler-macro 'soap-xs-simple-type-name--cmacro) #@95 Access slot "name" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 1] 5 (#$ . 88518)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-name side-effect-free t] 4) #@90 compiler-macro for inlining `soap-xs-simple-type-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 2)) nil] 9 (#$ . 88922)]) (put 'soap-xs-simple-type-namespace-tag 'compiler-macro 'soap-xs-simple-type-namespace-tag--cmacro) #@104 Access slot "namespace-tag" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 2] 5 (#$ . 89418)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-namespace-tag side-effect-free t] 4) #@79 compiler-macro for inlining `soap-xs-simple-type-id'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 3)) nil] 9 (#$ . 89849)]) (put 'soap-xs-simple-type-id 'compiler-macro 'soap-xs-simple-type-id--cmacro) #@93 Access slot "id" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 3] 5 (#$ . 90289)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-id side-effect-free t] 4) #@87 compiler-macro for inlining `soap-xs-simple-type-attributes'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 4)) nil] 9 (#$ . 90687)]) (put 'soap-xs-simple-type-attributes 'compiler-macro 'soap-xs-simple-type-attributes--cmacro) #@101 Access slot "attributes" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-attributes #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 4] 5 (#$ . 91168)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-attributes side-effect-free t] 4) #@93 compiler-macro for inlining `soap-xs-simple-type-attribute-groups'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 5)) nil] 9 (#$ . 91590)]) (put 'soap-xs-simple-type-attribute-groups 'compiler-macro 'soap-xs-simple-type-attribute-groups--cmacro) #@107 Access slot "attribute-groups" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-attribute-groups #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 5] 5 (#$ . 92101)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-attribute-groups side-effect-free t] 4) #@81 compiler-macro for inlining `soap-xs-simple-type-base'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 6)) nil] 9 (#$ . 92541)]) (put 'soap-xs-simple-type-base 'compiler-macro 'soap-xs-simple-type-base--cmacro) #@95 Access slot "base" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-base #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 6] 5 (#$ . 92991)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-base side-effect-free t] 4) #@88 compiler-macro for inlining `soap-xs-simple-type-enumeration'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 7)) nil] 9 (#$ . 93395)]) (put 'soap-xs-simple-type-enumeration 'compiler-macro 'soap-xs-simple-type-enumeration--cmacro) #@102 Access slot "enumeration" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-enumeration #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 7] 5 (#$ . 93881)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-enumeration side-effect-free t] 4) #@84 compiler-macro for inlining `soap-xs-simple-type-pattern'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 8)) nil] 9 (#$ . 94306)]) (put 'soap-xs-simple-type-pattern 'compiler-macro 'soap-xs-simple-type-pattern--cmacro) #@98 Access slot "pattern" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-pattern #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 8] 5 (#$ . 94771)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-pattern side-effect-free t] 4) #@89 compiler-macro for inlining `soap-xs-simple-type-length-range'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 9)) nil] 9 (#$ . 95184)]) (put 'soap-xs-simple-type-length-range 'compiler-macro 'soap-xs-simple-type-length-range--cmacro) #@103 Access slot "length-range" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-length-range #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 9] 5 (#$ . 95675)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-length-range side-effect-free t] 4) #@90 compiler-macro for inlining `soap-xs-simple-type-integer-range'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 10)) nil] 9 (#$ . 96103)]) (put 'soap-xs-simple-type-integer-range 'compiler-macro 'soap-xs-simple-type-integer-range--cmacro) #@104 Access slot "integer-range" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-integer-range #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 10] 5 (#$ . 96600)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-simple-type-integer-range side-effect-free t] 4) #@84 compiler-macro for inlining `soap-xs-simple-type-is-list'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-simple-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-simple-type cl-x))) (aref cl-x 11)) nil] 9 (#$ . 97032)]) (put 'soap-xs-simple-type-is-list 'compiler-macro 'soap-xs-simple-type-is-list--cmacro) #@98 Access slot "is-list" of `(soap-xs-simple-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-simple-type-is-list #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 11] 5 (#$ . 97498)]) (byte-code "\300\301\302\303#\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) #@197 compiler-macro for inlining `make-soap-xs-simple-type'. (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 (record 'soap-xs-simple-type name namespace-tag id attributes attribute-groups base enumeration pattern length-range integer-range is-list))] 30 (#$ . 97971)]) (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)" record soap-xs-simple-type] 25 (#$ . 99397)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-simple-type side-effect-free t cl-struct-define soap-xs-simple-type nil soap-xs-type record ((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] 11) #@73 Construct an `soap-xs-simple-type' object from the XML NODE. (fn NODE) (defalias 'soap-xs-parse-simple-type #[257 "\301\211@\262!\302>\204\303\304\305\306\301\211@\262!C$\210\307\310\"\307\311\"\312\313\306\211\211\211\211\211\211\211&\f\314\315\"\301\211@\262!\316\317\"\203K\320\"\210\202~\316\321\"\203Z\322\"\210\202~\316\323\"\203i\324\"\210\202~\316\325\"\203x\326\"\210\202~\327\330\331#\210\210\266\202\207" [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 record 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)] 16 (#$ . 100833)]) #@89 Add restrictions defined in XML NODE to TYPE, an `soap-xs-simple-type'. (fn NODE TYPE) (defalias 'soap-xs-add-restriction #[514 "\301\211@\262!\302=\204\303\304\305\306\301\211@\262!C$\210\307!>\204*\310\311\312D\"\210\211\211\313\314\315\316\"\2068\317\266\202!I\266\211AA\262\211\205\373\211@\211;\204\364\211\320\316\"\206Y\317\266\202\301\211@\262!\321\322\"\203\207\307!>\204y\310\311\312D\"\210\211\323\323HBI\266\202\362\321\324\"\203\256\307!>\204\236\310\311\312D\"\210\211\325\326\327!\330QI\266\202\362\321\331\"\203\325\332!\307!>\204\311\310\311\312D\"\210\211\333\211BI\266\202\362\321\334\"\203/\332!\307!>\204\360\310\311\312D\"\210\211\333\307 !>\204\310\311\312 D\"\210\333H\203&\307\n!>\204\310\311\312\fD\"\210 \333HAB\202)\306BI\266\202\362\321\335\"\203\211\332!\307!>\204J\310\311\312D\"\210\211\333\307 !>\204^\310\311\312 D\"\210\333H\203\200\307 !>\204v\310\311\312 D\"\210\333H@B\202\203\306BI\266\202\362\321\336\"\203\345\332!\307!>\204\244\310\311\312D\"\210\211\337\307 !>\204\270\310\311\312 D\"\210\337H\203\333T\307\n!>\204\322\310\311\312\fD\"\210 \337HAB\202\337T\306BI\266\202\362\321\340\"\203A\332!\307!>\204\310\311\312D\"\210\211\337\307 !>\204\310\311\312 D\"\210\337H\2037\307 !>\204,\310\311\312 D\"\210\337H@SB\202;\306SBI\266\202\362\321\341\"\203\233\332!\307!>\204\\\310\311\312D\"\210\211\337\307 !>\204p\310\311\312 D\"\210\337H\203\222\307\n!>\204\211\310\311\312\fD\"\210 \337HAB\202\225\306BI\266\202\362\321\342\"\203\362\332!\307!>\204\266\310\311\312D\"\210\211\337\307 !>\204\312\310\311\312 D\"\210\337H\203\354\307 !>\204\342\310\311\312 D\"\210\337H@B\202\357\306BI\266\266A\266\202\202D\207" [cl-struct-soap-xs-simple-type-tags soap-l2wk xsd:restriction cl--assertion-failed (eq (soap-l2wk (xml-node-name node)) 'xsd:restriction) "expecting xsd:restriction node, got %s" nil type-of 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] 15 (#$ . 101872)]) #@90 Add union members defined in XML NODE to TYPE, an `soap-xs-simple-type'. (fn NODE TYPE) (defalias 'soap-xs-add-union #[514 "\301\211@\262!\302=\204\303\304\305\306\301\211@\262!C$\210\307!>\204*\310\311\312D\"\210\211\211\313\314\315\316\317\320\"\2069\321!\"I\266\306\322\323\"\211\203W\211@\324!B\262A\266\202\202C\210\307!>\204g\310\311\312D\"\210\211\313\325\307!>\204|\310\311\312D\"\210\313H\237\"I\262\207" [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 type-of 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] 11 (#$ . 104267)]) #@80 Add list defined in XML NODE to TYPE, a `soap-xs-simple-type'. (fn NODE TYPE) (defalias 'soap-xs-add-list #[514 "\302\211@\262!\303=\204\304\305\306\307\302\211@\262!C$\210\310\311\"\312\313\"\203l\211G\314U\203I\315!>\204=\316\317\320D\"\210\211\321\322!I\266\202\263\323\315! >\204Z\316\317\324D\"\210\325HC\326\327\330\331#\332#\266\202\263\211G\325U\203\223\315!>\204\202\316\317\320D\"\210\211\321\333\312\313\"@!I\266\202\263\334\315! >\204\244\316\317\324D\"\210\325HC\326\327\330\331#\332#\266\315!>\204\302\316\317\320D\"\210\211\335\336I\262\207" [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 type-of 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] 12 (#$ . 105107)]) #@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 "\302!>\204\303\304\305D\"\210\211\211\306\307\310\311\"\206\312\266\202!I\266\313\314\"\211\203R\211@\315!\302! >\204@\303\304\316D\"\210\211\317\317HBI\266A\266\202\202'\210\313\320\"\211\205\202\211@\321!\302! >\204p\303\304\316D\"\210\211\322\322HBI\266A\266\202\202W\207" [cl-struct-soap-xs-simple-type-tags cl-struct-soap-xs-type-tags type-of 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 (#$ . 106276)]) #@62 Validate VALUE against the basic type TYPE. (fn VALUE TYPE) (defalias 'soap-validate-xs-basic-type #[514 "\301!>\204\302\303\304D\"\210\211\305H\306\307\"\203\202H\211\310N\211\203B\211\311@AB\"\266\202\2037\202F\312\313\314!#\202F\312\315\"\262\207" [cl-struct-soap-xs-basic-type-tags type-of 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"] 10 (#$ . 107039)]) #@67 Validate VALUE against the restrictions of TYPE. (fn VALUE TYPE) (defalias 'soap-validate-xs-simple-type #[514 "\304!>\204\305\306\307D\"\210\211\310H\311C<\203u\3122q\211\203a\211@\3131O\304!>\203;\314\312\315\"\"\202K\304! >\205K\314\312\316\"\"0\202YA@\242B\240\262\210A\266\202\202\210\211\242\205p\317\320\321\242\237\322#!0\210\202\247\311\323\324\325\326\327!\330\"\310\331%\262\3322m\304!>\204\231\305\306\307D\"\210\333H\211G\334V\203\256\235\204\256\335\"\210\210\304!>\204\277\305\306\307D\"\210\336H\211\203\334\211\311\337\340#)\266\203\204\334\341\"\210\210\304!>\204\355\305\306\307D\"\210\342H\211\203$;\204\376\343\"\210\211@\203G@Y\204\344@\"\210\211A\203$GAX\204$\345A\"\210\210\304!>\2045\305\306\307D\"\210\346H\211\205j\247\204F\347\"\210\211@\203X@Y\204X\350@\"\210\211A\205jAX?\205j\351A\"\2620\266\211\242\203\247\317\352\304! >\204\210\305\306\353D\"\210\334H\206\242\304! >\204\237\305\306\353D\"\210\354H\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 type-of signal wrong-type-argument soap-xs-simple-type 6 nil valid (error) throw soap-validate-xs-simple-type 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 7 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 (#$ . 107550)]) #@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 "\303!>\204\304\305\306D\"\210\307H\211\2039\310\311!\"@\211\2038\303!>\2041\304\305\306D\"\210\211\307I\266\210\210\303! >\204I\304\305\312D\"\210\313H\314!\203p\303! >\204a\304\305\312D\"\210\211\313\315\316#I\266\202\261\303!\n>\203\200\317\"\210\202\261\211<\203\255\303! >\204\224\304\305\312D\"\210\211\313\320\321\322\323\324\325\n!\326\"\327\330%\"I\266\202\261\331\332!\210\210\303!\n>\204\301\304\305\333D\"\210\334H\211\203\326\211@\317\"\210A\266\202\202\304\210\303!\n>\204\346\304\305\333D\"\210\327H\211\205\373\211@\317\"\210A\266\202\202\351\207" [cl-struct-soap-element-tags cl-struct-soap-xs-simple-type-tags cl-struct-soap-xs-type-tags type-of 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 soap-resolve-references mapcar make-byte-code 257 "\302!\203\f\303\300\304#\207\305! >\203\306\300\"\210\207\207" vconcat vector [cl-struct-soap-xs-type-tags soap-name-p soap-wsdl-get soap-xs-type-p type-of soap-resolve-references] 5 "\n\n(fn TYPE)" error "Oops" soap-xs-type 4] 13 (#$ . 109502)]) #@333 Encode the XML attributes for VALUE according to TYPE. The attributes are inserted in the current buffer at the current position. If TYPE has no attributes, the xsi:type attribute and an optional xsi:nil attribute are added. 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 "\302!\211\211\203w\211@\303!>\204\304\305\306D\"\210\211\307H\303! >\204+\304\305\310D\"\210\311H\203N\312\313\303! >\204D\304\305\310D\"\210\311H\314\261\210\202o\211\203n\211@\315\242!\232\203g\312\313A\314\261\210A\266\202\202O\210\210A\266\202\202\210\211?\205\214\316\317!\314\261\210?\205\214\320c\207" [cl-struct-soap-element-tags cl-struct-soap-xs-attribute-tags soap-get-xs-attributes type-of signal wrong-type-argument soap-element 1 soap-xs-attribute 4 " " "=\"" "\"" symbol-name " xsi:type=\"" soap-element-fq-name " xsi:nil=\"true\""] 13 (#$ . 110947)]) #@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\302!>\204\303\304\305D\"\210\211\306H\203^\307!\211\203D\211@\310\302!>\2045\303\304\305D\"\210\311H\"\210\312c\210A\266\202\202\210\310\313!@\302!>\204Y\303\304\305D\"\210\311H\"\207\310\302!>\204o\303\304\305D\"\210\311H\"\207" [cl-struct-soap-xs-simple-type-tags soap-validate-xs-simple-type type-of signal wrong-type-argument soap-xs-simple-type 11 butlast soap-encode-value 6 " " last] 10 (#$ . 111947)]) #@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 "\301!>\204\302\303\304D\"\210\305H\203\306\211AA\262@!\207\307\301!>\204/\302\303\304D\"\210\310H\"\311\"\207" [cl-struct-soap-xs-simple-type-tags type-of signal wrong-type-argument soap-xs-simple-type 11 split-string soap-decode-type 6 soap-validate-xs-simple-type] 7 (#$ . 112657)]) (byte-code "\300\301\302\303\211\211\211\211\211\211\211\211\211\211&\f!\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\207" [soap-type-of record soap-xs-simple-type nil 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] 14) #@79 compiler-macro for inlining `soap-xs-complex-type-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-xs-complex-type-tags) t)) nil] 9 (#$ . 113678)]) (put 'soap-xs-complex-type-p 'compiler-macro 'soap-xs-complex-type-p--cmacro) #@13 (fn CL-X) (defalias 'soap-xs-complex-type-p #[257 "\301!>\205 \302\207" [cl-struct-soap-xs-complex-type-tags type-of t] 3 (#$ . 114074)]) (byte-code "\300\301\302\303#\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] 5) #@82 compiler-macro for inlining `soap-xs-complex-type-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 1)) nil] 9 (#$ . 114390)]) (put 'soap-xs-complex-type-name 'compiler-macro 'soap-xs-complex-type-name--cmacro) #@96 Access slot "name" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 1] 5 (#$ . 114848)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-name side-effect-free t] 4) #@91 compiler-macro for inlining `soap-xs-complex-type-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 2)) nil] 9 (#$ . 115258)]) (put 'soap-xs-complex-type-namespace-tag 'compiler-macro 'soap-xs-complex-type-namespace-tag--cmacro) #@105 Access slot "namespace-tag" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 2] 5 (#$ . 115762)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-namespace-tag side-effect-free t] 4) #@80 compiler-macro for inlining `soap-xs-complex-type-id'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 3)) nil] 9 (#$ . 116199)]) (put 'soap-xs-complex-type-id 'compiler-macro 'soap-xs-complex-type-id--cmacro) #@94 Access slot "id" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-id #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 3] 5 (#$ . 116647)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-id side-effect-free t] 4) #@88 compiler-macro for inlining `soap-xs-complex-type-attributes'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 4)) nil] 9 (#$ . 117051)]) (put 'soap-xs-complex-type-attributes 'compiler-macro 'soap-xs-complex-type-attributes--cmacro) #@102 Access slot "attributes" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-attributes #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 4] 5 (#$ . 117540)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-attributes side-effect-free t] 4) #@94 compiler-macro for inlining `soap-xs-complex-type-attribute-groups'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 5)) nil] 9 (#$ . 117968)]) (put 'soap-xs-complex-type-attribute-groups 'compiler-macro 'soap-xs-complex-type-attribute-groups--cmacro) #@108 Access slot "attribute-groups" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-attribute-groups #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 5] 5 (#$ . 118487)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-attribute-groups side-effect-free t] 4) #@87 compiler-macro for inlining `soap-xs-complex-type-indicator'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 6)) nil] 9 (#$ . 118933)]) (put 'soap-xs-complex-type-indicator 'compiler-macro 'soap-xs-complex-type-indicator--cmacro) #@101 Access slot "indicator" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-indicator #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 6] 5 (#$ . 119417)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-indicator side-effect-free t] 4) #@82 compiler-macro for inlining `soap-xs-complex-type-base'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 7)) nil] 9 (#$ . 119842)]) (put 'soap-xs-complex-type-base 'compiler-macro 'soap-xs-complex-type-base--cmacro) #@96 Access slot "base" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-base #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 7] 5 (#$ . 120300)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-base side-effect-free t] 4) #@86 compiler-macro for inlining `soap-xs-complex-type-elements'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 8)) nil] 9 (#$ . 120710)]) (put 'soap-xs-complex-type-elements 'compiler-macro 'soap-xs-complex-type-elements--cmacro) #@100 Access slot "elements" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-elements #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 8] 5 (#$ . 121189)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-elements side-effect-free t] 4) #@87 compiler-macro for inlining `soap-xs-complex-type-optional?'. (fn CL-WHOLE-ARG CL-X) (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\? (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 9)) nil] 9 (#$ . 121611)]) (put 'soap-xs-complex-type-optional\? 'compiler-macro 'soap-xs-complex-type-optional\?--cmacro) #@101 Access slot "optional?" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-optional\? #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 9] 5 (#$ . 122099)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-optional\? side-effect-free t] 4) #@87 compiler-macro for inlining `soap-xs-complex-type-multiple?'. (fn CL-WHOLE-ARG CL-X) (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\? (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 10)) nil] 9 (#$ . 122526)]) (put 'soap-xs-complex-type-multiple\? 'compiler-macro 'soap-xs-complex-type-multiple\?--cmacro) #@101 Access slot "multiple?" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-multiple\? #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 10] 5 (#$ . 123015)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-xs-complex-type-multiple\? side-effect-free t] 4) #@86 compiler-macro for inlining `soap-xs-complex-type-is-group'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-xs-complex-type-p cl-x) (signal 'wrong-type-argument (list 'soap-xs-complex-type cl-x))) (aref cl-x 11)) nil] 9 (#$ . 123443)]) (put 'soap-xs-complex-type-is-group 'compiler-macro 'soap-xs-complex-type-is-group--cmacro) #@100 Access slot "is-group" of `(soap-xs-complex-type (:include soap-xs-type))' struct CL-X. (fn CL-X) (defalias 'soap-xs-complex-type-is-group #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 11] 5 (#$ . 123923)]) (byte-code "\300\301\302\303#\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) #@197 compiler-macro for inlining `make-soap-xs-complex-type'. (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 (record 'soap-xs-complex-type name namespace-tag id attributes attribute-groups indicator base elements optional\? multiple\? is-group))] 30 (#$ . 124406)]) (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)" record soap-xs-complex-type] 25 (#$ . 125811)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-xs-complex-type side-effect-free t cl-struct-define soap-xs-complex-type nil soap-xs-type record ((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] 11) #@72 Construct a `soap-xs-complex-type' by parsing the XML NODE. (fn NODE) (defalias 'soap-xs-parse-complex-type #[257 "\303\304\"\303\305\"\306\211@\262!\307\211\211\310>\204!\311\312\313\307C$\210\211AA\262\211\203\350\211@\211:\203\341\306\211@\262!\314\315\"\203K\316!B\262\202\340\314\317\"\203\\\320!B\262\202\340\314\321\"\203k\322!\262\202\340\323\324\"\203z\325!\262\202\340\314\326\"\203\340\211AA\262\211\203\337\211@\211:\203\330\306\211@\262!\314\315\"\203\253\316!B\262\202\327\314\317\"\203\275\320!B\262\202\327\323\327\"\203\314\330!\262 \202\327\323\331\"\203\327\325!\210\210A\266\202\202\207\210\210A\266\202\202(\210\204\376\332\333\307\211\211\211\211\211\211\211\211\211\211&\f\262\334!>\204 \335\336\337D\"\210\211\340I\266\334!>\204$\335\336\337D\"\210\211\341 I\266\334!>\204:\335\336\337D\"\210\211\342I\266\334!>\204Q\335\336\337D\"\210\211\343\344\334!>\204g\335\336\337\nD\"\210\343H\"I\266\334!>\204~\335\336\337D\"\210\211\345\344\334!>\204\224\335\336\337\nD\"\210\345H\"I\266\334!\n>\203\275\334!\n>\204\263\335\336\333D\"\210\211\346\347=I\266\207" [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) record soap-xs-complex-type type-of signal wrong-type-argument soap-xs-type 1 2 3 4 append 5 11 xsd:group] 20 (#$ . 127231)]) #@89 Parse a sequence definition from XML NODE. Returns a `soap-xs-complex-type'. (fn NODE) (defalias 'soap-xs-parse-sequence #[257 "\302\211@\262!\303>\204\304\305\306\307\302\211@\262!C$\210\310\311\307\211\211\211\211\211\211\211\211\211\211&\f\312!>\2048\313\314\311D\"\210\211\211\315\302\211@\262!\316\317\"\203M\320\202l\316\321\"\203X\322\202l\316\323\"\203c\324\202l\325\326\327#\205l\307\262I\266\312!>\204\200\313\314\311D\"\210\211\211\330\331!I\266\312!>\204\230\313\314\311D\"\210\211\211\332\333!I\266\211AA\262\211\203m\211@\211;\204f\302\211@\262!\334\335\"\203\341\336!\312!>\204\323\313\314\311D\"\210\211\337\337HBI\266\202e\334\340\"\203\341!\310\342\307\211\211\307\211\211\211\211\211& \312!>\204\n\313\314\311D\"\210\211\337\337HBI\266\202e\316\343\"\203@\344!\312! >\2042\313\314\345D\"\210\211\346\346HBI\266\202e\316\347\"\203e\350!\312! >\204Z\313\314\345D\"\210\211\351\351HBI\266\210A\266\202\202\247\210\312!>\204}\313\314\311D\"\210\211\211\337\312!>\204\220\313\314\311D\"\210\337H\237I\266\211\207" [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 record soap-xs-complex-type type-of signal wrong-type-argument 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 soap-xs-element xsd:attribute soap-xs-parse-attribute soap-xs-type 4 xsd:attributeGroup soap-xs-parse-attribute-group 5] 18 (#$ . 129143)]) #@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 "\301\211@\262!\302>\204\303\304\305\306\301\211@\262!C$\210\306\211\211\211\307\310\"\301\211@\262!\311=\2054\211\312\313!\232\262\211AA\262\211\203\243\211@\211:\203\234\301\211@\262!\314\315\"\203]\316!\262\202\233\317\320\"\203\214\203\201\321\322\"\211\203}\323\324\"\203}\325\326\"\262\210\202\233\327!B\262\202\233\317\330\"\203\233\331!B\262\210A\266\202\202<\210\204\324\332\333\306\211\211\211\211\211\211\211\211\211\211&\f\262\203\324\334!>\204\315\335\336\333D\"\210\211\337\340I\266\334!>\204\344\335\336\333D\"\210\211\341\342!I\266\334!>\204\375\335\336\333D\"\210\211\343I\266\334!>\204\335\336\333D\"\210\211\344I\266\207" [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 record soap-xs-complex-type type-of signal wrong-type-argument 6 array 7 soap-l2fq 4 5] 19 (#$ . 130972)]) #@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 "\304!>\204\305\306\307D\"\210\310H\211\2039\311\312!\"@\211\2038\304!>\2041\305\306\307D\"\210\211\310I\266\210\210\304! >\204I\305\306\313D\"\210\314H\315!\203p\304! >\204a\305\306\313D\"\210\211\314\316\317#I\266\202}\304!\n>\203}\320\"\210\210\321\304! >\204\216\305\306\313D\"\210\322H\211\203\211@\304! >\204\246\305\306\323D\"\210\211\324H\203\362\316\304! >\204\274\305\306\323D\"\210\314H\325#\304! >\204\321\305\306\313D\"\210\211\322H\211\203\355\211@\320\"\210\211B\262A\266\202\202\324\266\202\374\320\"\210\211B\262A\266\202\202\221\210\304! >\204\305\306\313D\"\210\211\322\237I\266\304!\n>\204*\305\306\326D\"\210\327H\211\203?\211@\320\"\210A\266\202\202-\210\304!\n>\204O\305\306\326D\"\210\330H\211\205d\211@\320\"\210A\266\202\202R\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 type-of 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 soap-resolve-references nil 8 soap-xs-element 10 #[257 "\301!>\205\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 11] 5 "\n\n(fn TYPE)"] soap-xs-type 4 5] 11 (#$ . 132466)]) #@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 "\303!>\204\304\305\306D\"\210\211\307H\310=\203<\303!>\204&\304\305\306D\"\210\211\311H\312c\210\313\314!\315\316\317G\"\320\321\261\207\322!\211\203\262\211@\303! >\204T\304\305\323D\"\210\211\324H\303!\n>\204f\304\305\325D\"\210\326H\203\211\327\330\303!\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\303!>\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 type-of 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 (#$ . 134138)]) #@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 "\301!>\204\302\303\304D\"\210\211\305H\211\203/\306C\301!>\204(\302\303\304D\"\210\307H\"\202F\306C\301!>\204B\302\303\304D\"\210\307H\"\207" [cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-element 7 append 9] 8 (#$ . 135484)]) #@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 "\302!>\204\303\304\305D\"\210\211\306H\307\310\"\203\311\312!\202t\313\314\"\203^C\315\302!>\2049\303\304\305D\"\210\316H\211\203\\\211B\262\302!>\204T\303\304\305D\"\210\211\316H\262\202<\210\211\203\230\211@\302!>\204s\303\304\305D\"\210\211\317H\211\203\220\211@\211\235\204\211\320C\"\262A\266\202\202v\210A\266\202\202^\210\211\211\205W\211@\3212O\322\323!\211\203F\211@\302! >\204\275\303\304\324D\"\210\211\325H\211\203\356\326! \211\203\351\211@\211@\232\203\342T\262\327A\"\210A\266\202\202\311\266\202>\302\n!>\204\377\303\304\305\fD\"\210 \306H\203`\327\f\"\210\211`\232\204T\262\210\202>\n\211\203=\211@`\327\"\210\211`\232\2045T\262\210A\266\202\202\210\210A\266\202\202\250\210\302!>\204X\303\304\305 D\"\210\306H\330!\302! >\204o\303\304\324D\"\210\316H\302! >\204\202\303\304\324D\"\210\325H\206\236\211\205\236\302! >\204\233\303\304\324D\"\210\211\325H\331=\203\261\322V\203\261\332\321\333\"\202J\331=\204 \322U\203 \302! >\204\316\303\304\324D\"\210\334H\204 \302 !>\204\345\303\304\305 D\"\210\n\335H\204 \302!>\203 \336!\204 \337\fD\340\341\342\343#\344#\266\202\202J\325V\205J\302! >\204$\303\304\324D\"\210\306H?\205J\302!>\205J\345!?\205J\346\fD\340\341\342\343#\344#\266\202\266\204\2620\210A\266\202\202\232\262\266\202\202t\311\347\302!>\204p\303\304\305D\"\210\306H\"\207" [cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-element-tags type-of signal wrong-type-argument soap-xs-complex-type 6 eql array error "Arrays of type soap-encode-xs-complex-type are handled elsewhere" memql (sequence choice all nil) nil 7 8 append done 0 soap-get-candidate-elements soap-xs-element 1 intern soap-encode-value soap-xs-element-type choice throw t 5 9 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"] 20 (#$ . 135952)]) #@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 "\303\211AA\262\211\203N\211@\211:\203G\304\"\211@\206 A@\206#\n\3058\30618\307\211@\262!0\202:\210\303\232+\262\203G\211B\262A\266\202\202\210\211\237\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns nil soap-extract-xmlns 2 (error) soap-l2fq] 10 (#$ . 138367)]) #@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\303!>\204\304\305\306D\"\210\307H\"A\211\2053\211\303!>\204/\304\305\306D\"\210\310HB\207" [cl-struct-soap-element-tags soap-wsdl-alias-table assoc type-of signal wrong-type-argument soap-element 2 1] 9 (#$ . 138903)]) #@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\2055\301!>\204\302\303\304D\"\210\211\305H\2065\301!>\2055\306\301!>\2041\302\303\304D\"\210\307H!\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 9 soap-xs-complex-type-optional-p 7] 6 (#$ . 139327)]) #@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\2055\301!>\204\302\303\304D\"\210\211\305H\2065\301!>\2055\306\301!>\2041\302\303\304D\"\210\307H!\207" [cl-struct-soap-xs-complex-type-tags type-of signal wrong-type-argument soap-xs-complex-type 10 soap-xs-complex-type-multiple-p 7] 6 (#$ . 139751)]) #@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@\302!>\204\303\304\305D\"\210\211\306H\307\310!\302!>\204/\303\304\305D\"\210\311H#\262\210A\266\202\202\210\211\207" [cl-struct-soap-xs-attribute-group-tags nil type-of signal wrong-type-argument soap-xs-attribute-group 5 append soap-get-xs-attributes-from-groups 4] 12 (#$ . 140189)]) #@77 Return a list of all of TYPE's and TYPE's ancestors' attributes. (fn TYPE) (defalias 'soap-get-xs-attributes #[257 "\302!>\205\302!>\204\303\304\305D\"\210\211\306H\307\302! >\204*\303\304\310D\"\210\311H\312\302! >\204>\303\304\310D\"\210\313H!\"\203P\307\314!\"\202Q\211\207" [cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-type-tags type-of 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 (#$ . 140650)]) #@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\211@\305!>\204\306\307\310D\"\210\211\311H\305!>\204+\306\307\310D\"\210\312H\313!\314\"\305! >\203S\211\203v\315\303E\"BB\262\202v\305!\n>\203m\211\203v\316\"BB\262\202v\317\320\321!#\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 type-of signal wrong-type-argument soap-xs-attribute 1 3 intern xml-get-attribute-or-nil soap-decode-xs-basic-type soap-validate-xs-simple-type error "Attribute %s is of type %s which is not a basic or simple type" soap-name-p] 15 (#$ . 141182)]) #@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 "\303!>\204\304\305\306D\"\210\307H\310\311\"\203U\312\303!>\204*\304\305\306D\"\210\313H\211AA\262\211\203M\211@\211:\203F\314\"B\262A\266\202\2023\210\237\266\202\202\315\316\"\203\312\303!>\204m\304\305\306D\"\210\313H\211\203{\314\"\237\262\3172\371\303!>\204\217\304\305\306D\"\210\320H\211\205\366\211@\321\303! >\204\250\304\305\322D\"\210\323H\324\325\326\n@!\"\203\321\211\203\307\327 \330\n\"\"\202\324\331 \332!\"\202\324C\333!\211\203'\211@T\262\334\"\335\336\"\203\374\337\340\335\336\"!\n\341\342$\202\375\314\"\203\332 !\343\"BB\262\202\343\"\262\266A\266\202\202\330\210\303\f!>\2049\304\305\306D\"\210 \307H\344=\203W\345\f!\204W\321V\203W\346\317\342\"\210\202\355\303\f!>\204h\304\305\306D\"\210 \307H\344=\204\255\321U\203\255\303! >\204\210\304\305\322D\"\210\347H\204\255\303!>\203\255\350!\204\255\351C\352\353\354\355#\356#\266\202\355\323V\203\355\345\f!\204\355\303! >\204\313\304\305\322D\"\210\307H\204\355\303!>\203\355\345!\204\355\357C\352\353\354\355#\356#\266\266A\266\202\202\222\2620\210\237\266\202\202\360\361\303!>\204\304\305\306D\"\210\307H\"\207" [cl-struct-soap-xs-complex-type-tags cl-struct-soap-xs-element-tags soap-current-wsdl type-of signal wrong-type-argument soap-xs-complex-type 6 eql array nil 7 soap-decode-type memql (sequence choice all nil) done 8 0 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 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"] 21 (#$ . 141978)]) (byte-code "\300\301\302\303\211\211\211\211\211\211\211\211\211\211&\f!\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\207" [soap-type-of record soap-xs-complex-type nil 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] 14) #@71 compiler-macro for inlining `soap-message-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-message-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-p (and (memq (type-of cl-x) cl-struct-soap-message-tags) t)) nil] 9 (#$ . 144709)]) (put 'soap-message-p 'compiler-macro 'soap-message-p--cmacro) #@13 (fn CL-X) (defalias 'soap-message-p #[257 "\301!>\205 \302\207" [cl-struct-soap-message-tags type-of t] 3 (#$ . 145057)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-message-p side-effect-free error-free put soap-message cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `soap-message-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-message-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-name (or (soap-message-p cl-x) (signal 'wrong-type-argument (list 'soap-message cl-x))) (aref cl-x 1)) nil] 9 (#$ . 145341)]) (put 'soap-message-name 'compiler-macro 'soap-message-name--cmacro) #@88 Access slot "name" of `(soap-message (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-message-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-message-tags type-of signal wrong-type-argument soap-message 1] 5 (#$ . 145743)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-message-name side-effect-free t] 4) #@83 compiler-macro for inlining `soap-message-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-message-p cl-x) (signal 'wrong-type-argument (list 'soap-message cl-x))) (aref cl-x 2)) nil] 9 (#$ . 146113)]) (put 'soap-message-namespace-tag 'compiler-macro 'soap-message-namespace-tag--cmacro) #@97 Access slot "namespace-tag" of `(soap-message (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-message-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-message-tags type-of signal wrong-type-argument soap-message 2] 5 (#$ . 146560)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-message-namespace-tag side-effect-free t] 4) #@75 compiler-macro for inlining `soap-message-parts'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-message-parts--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-message-parts (or (soap-message-p cl-x) (signal 'wrong-type-argument (list 'soap-message cl-x))) (aref cl-x 3)) nil] 9 (#$ . 146957)]) (put 'soap-message-parts 'compiler-macro 'soap-message-parts--cmacro) #@89 Access slot "parts" of `(soap-message (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-message-parts #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-message-tags type-of signal wrong-type-argument soap-message 3] 5 (#$ . 147364)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-message-parts side-effect-free t defalias copy-soap-message copy-sequence] 4) #@105 compiler-macro for inlining `make-soap-message'. (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 (record 'soap-message name namespace-tag parts))] 14 (#$ . 147789)]) (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)" record soap-message] 9 (#$ . 148510)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-message side-effect-free t cl-struct-define soap-message nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (parts)) cl-struct-soap-message-tags] 11) #@73 compiler-macro for inlining `soap-operation-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-operation-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-p (and (memq (type-of cl-x) cl-struct-soap-operation-tags) t)) nil] 9 (#$ . 149282)]) (put 'soap-operation-p 'compiler-macro 'soap-operation-p--cmacro) #@13 (fn CL-X) (defalias 'soap-operation-p #[257 "\301!>\205 \302\207" [cl-struct-soap-operation-tags type-of t] 3 (#$ . 149642)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-operation-p side-effect-free error-free put soap-operation cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `soap-operation-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-operation-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-name (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 1)) nil] 9 (#$ . 149934)]) (put 'soap-operation-name 'compiler-macro 'soap-operation-name--cmacro) #@90 Access slot "name" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 1] 5 (#$ . 150350)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-name side-effect-free t] 4) #@85 compiler-macro for inlining `soap-operation-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 2)) nil] 9 (#$ . 150730)]) (put 'soap-operation-namespace-tag 'compiler-macro 'soap-operation-namespace-tag--cmacro) #@99 Access slot "namespace-tag" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 2] 5 (#$ . 151191)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-namespace-tag side-effect-free t] 4) #@87 compiler-macro for inlining `soap-operation-parameter-order'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 3)) nil] 9 (#$ . 151598)]) (put 'soap-operation-parameter-order 'compiler-macro 'soap-operation-parameter-order--cmacro) #@101 Access slot "parameter-order" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-parameter-order #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 3] 5 (#$ . 152070)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-parameter-order side-effect-free t] 4) #@77 compiler-macro for inlining `soap-operation-input'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-operation-input--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-input (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 4)) nil] 9 (#$ . 152483)]) (put 'soap-operation-input 'compiler-macro 'soap-operation-input--cmacro) #@91 Access slot "input" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-input #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 4] 5 (#$ . 152904)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-input side-effect-free t] 4) #@78 compiler-macro for inlining `soap-operation-output'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-operation-output--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-output (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 5)) nil] 9 (#$ . 153287)]) (put 'soap-operation-output 'compiler-macro 'soap-operation-output--cmacro) #@92 Access slot "output" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-output #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 5] 5 (#$ . 153713)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-output side-effect-free t] 4) #@78 compiler-macro for inlining `soap-operation-faults'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-operation-faults--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-operation-faults (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 6)) nil] 9 (#$ . 154099)]) (put 'soap-operation-faults 'compiler-macro 'soap-operation-faults--cmacro) #@92 Access slot "faults" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-faults #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 6] 5 (#$ . 154525)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-faults side-effect-free t] 4) #@84 compiler-macro for inlining `soap-operation-input-action'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 7)) nil] 9 (#$ . 154911)]) (put 'soap-operation-input-action 'compiler-macro 'soap-operation-input-action--cmacro) #@98 Access slot "input-action" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-input-action #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 7] 5 (#$ . 155367)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-operation-input-action side-effect-free t] 4) #@85 compiler-macro for inlining `soap-operation-output-action'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-operation cl-x))) (aref cl-x 8)) nil] 9 (#$ . 155771)]) (put 'soap-operation-output-action 'compiler-macro 'soap-operation-output-action--cmacro) #@99 Access slot "output-action" of `(soap-operation (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-operation-output-action #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-operation-tags type-of signal wrong-type-argument soap-operation 8] 5 (#$ . 156232)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-operation-output-action side-effect-free t defalias copy-soap-operation copy-sequence] 4) #@164 compiler-macro for inlining `make-soap-operation'. (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 (record 'soap-operation name namespace-tag parameter-order input output faults input-action output-action))] 24 (#$ . 156693)]) (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)" record soap-operation] 19 (#$ . 157865)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-operation side-effect-free t cl-struct-define soap-operation nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (parameter-order) (input) (output) (faults) (input-action) (output-action)) cl-struct-soap-operation-tags] 11) #@73 compiler-macro for inlining `soap-port-type-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-port-type-tags) t)) nil] 9 (#$ . 159045)]) (put 'soap-port-type-p 'compiler-macro 'soap-port-type-p--cmacro) #@13 (fn CL-X) (defalias 'soap-port-type-p #[257 "\301!>\205 \302\207" [cl-struct-soap-port-type-tags type-of t] 3 (#$ . 159405)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-port-type-p side-effect-free error-free put soap-port-type cl-deftype-satisfies] 5) #@76 compiler-macro for inlining `soap-port-type-name'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-port-type-p cl-x) (signal 'wrong-type-argument (list 'soap-port-type cl-x))) (aref cl-x 1)) nil] 9 (#$ . 159697)]) (put 'soap-port-type-name 'compiler-macro 'soap-port-type-name--cmacro) #@90 Access slot "name" of `(soap-port-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-type-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-type-tags type-of signal wrong-type-argument soap-port-type 1] 5 (#$ . 160113)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-port-type-name side-effect-free t] 4) #@85 compiler-macro for inlining `soap-port-type-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-port-type-p cl-x) (signal 'wrong-type-argument (list 'soap-port-type cl-x))) (aref cl-x 2)) nil] 9 (#$ . 160493)]) (put 'soap-port-type-namespace-tag 'compiler-macro 'soap-port-type-namespace-tag--cmacro) #@99 Access slot "namespace-tag" of `(soap-port-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-type-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-type-tags type-of signal wrong-type-argument soap-port-type 2] 5 (#$ . 160954)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-port-type-namespace-tag side-effect-free t] 4) #@82 compiler-macro for inlining `soap-port-type-operations'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-port-type-p cl-x) (signal 'wrong-type-argument (list 'soap-port-type cl-x))) (aref cl-x 3)) nil] 9 (#$ . 161361)]) (put 'soap-port-type-operations 'compiler-macro 'soap-port-type-operations--cmacro) #@96 Access slot "operations" of `(soap-port-type (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-type-operations #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-type-tags type-of signal wrong-type-argument soap-port-type 3] 5 (#$ . 161807)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-port-type-operations side-effect-free t defalias copy-soap-port-type copy-sequence] 4) #@112 compiler-macro for inlining `make-soap-port-type'. (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 (record 'soap-port-type name namespace-tag operations))] 14 (#$ . 162259)]) (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)" record soap-port-type] 9 (#$ . 163022)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-port-type side-effect-free t cl-struct-define soap-port-type nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (operations)) cl-struct-soap-port-type-tags] 11) #@79 compiler-macro for inlining `soap-bound-operation-p'. (fn CL-WHOLE-ARG CL-X) (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 (and (memq (type-of cl-x) cl-struct-soap-bound-operation-tags) t)) nil] 9 (#$ . 163831)]) (put 'soap-bound-operation-p 'compiler-macro 'soap-bound-operation-p--cmacro) #@13 (fn CL-X) (defalias 'soap-bound-operation-p #[257 "\301!>\205 \302\207" [cl-struct-soap-bound-operation-tags type-of t] 3 (#$ . 164227)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-bound-operation-p side-effect-free error-free put soap-bound-operation cl-deftype-satisfies] 5) #@87 compiler-macro for inlining `soap-bound-operation-operation'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-bound-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 1)) nil] 9 (#$ . 164543)]) (put 'soap-bound-operation-operation 'compiler-macro 'soap-bound-operation-operation--cmacro) #@75 Access slot "operation" of `soap-bound-operation' struct CL-X. (fn CL-X) (defalias 'soap-bound-operation-operation #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags type-of signal wrong-type-argument soap-bound-operation 1] 5 (#$ . 165026)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-bound-operation-operation side-effect-free t] 4) #@89 compiler-macro for inlining `soap-bound-operation-soap-action'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-bound-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 2)) nil] 9 (#$ . 165425)]) (put 'soap-bound-operation-soap-action 'compiler-macro 'soap-bound-operation-soap-action--cmacro) #@77 Access slot "soap-action" of `soap-bound-operation' struct CL-X. (fn CL-X) (defalias 'soap-bound-operation-soap-action #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags type-of signal wrong-type-argument soap-bound-operation 2] 5 (#$ . 165918)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-bound-operation-soap-action side-effect-free t] 4) #@90 compiler-macro for inlining `soap-bound-operation-soap-headers'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-bound-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 3)) nil] 9 (#$ . 166323)]) (put 'soap-bound-operation-soap-headers 'compiler-macro 'soap-bound-operation-soap-headers--cmacro) #@78 Access slot "soap-headers" of `soap-bound-operation' struct CL-X. (fn CL-X) (defalias 'soap-bound-operation-soap-headers #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags type-of signal wrong-type-argument soap-bound-operation 3] 5 (#$ . 166821)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-bound-operation-soap-headers side-effect-free t] 4) #@87 compiler-macro for inlining `soap-bound-operation-soap-body'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-bound-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 4)) nil] 9 (#$ . 167229)]) (put 'soap-bound-operation-soap-body 'compiler-macro 'soap-bound-operation-soap-body--cmacro) #@75 Access slot "soap-body" of `soap-bound-operation' struct CL-X. (fn CL-X) (defalias 'soap-bound-operation-soap-body #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags type-of signal wrong-type-argument soap-bound-operation 4] 5 (#$ . 167712)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-bound-operation-soap-body side-effect-free t] 4) #@81 compiler-macro for inlining `soap-bound-operation-use'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-bound-operation-p cl-x) (signal 'wrong-type-argument (list 'soap-bound-operation cl-x))) (aref cl-x 5)) nil] 9 (#$ . 168111)]) (put 'soap-bound-operation-use 'compiler-macro 'soap-bound-operation-use--cmacro) #@69 Access slot "use" of `soap-bound-operation' struct CL-X. (fn CL-X) (defalias 'soap-bound-operation-use #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-bound-operation-tags type-of signal wrong-type-argument soap-bound-operation 5] 5 (#$ . 168564)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-bound-operation-use side-effect-free t defalias copy-soap-bound-operation copy-sequence] 4) #@137 compiler-macro for inlining `make-soap-bound-operation'. (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 (record 'soap-bound-operation operation soap-action soap-headers soap-body use))] 18 (#$ . 169005)]) (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)" record soap-bound-operation] 13 (#$ . 169963)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-bound-operation side-effect-free t cl-struct-define soap-bound-operation nil cl-structure-object record ((cl-tag-slot) (operation) (soap-action) (soap-headers) (soap-body) (use)) cl-struct-soap-bound-operation-tags] 11) #@71 compiler-macro for inlining `soap-binding-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-binding-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-p (and (memq (type-of cl-x) cl-struct-soap-binding-tags) t)) nil] 9 (#$ . 170948)]) (put 'soap-binding-p 'compiler-macro 'soap-binding-p--cmacro) #@13 (fn CL-X) (defalias 'soap-binding-p #[257 "\301!>\205 \302\207" [cl-struct-soap-binding-tags type-of t] 3 (#$ . 171296)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-binding-p side-effect-free error-free put soap-binding cl-deftype-satisfies] 5) #@74 compiler-macro for inlining `soap-binding-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-binding-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-name (or (soap-binding-p cl-x) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 1)) nil] 9 (#$ . 171580)]) (put 'soap-binding-name 'compiler-macro 'soap-binding-name--cmacro) #@88 Access slot "name" of `(soap-binding (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-binding-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags type-of signal wrong-type-argument soap-binding 1] 5 (#$ . 171982)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-binding-name side-effect-free t] 4) #@83 compiler-macro for inlining `soap-binding-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-binding-p cl-x) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 2)) nil] 9 (#$ . 172352)]) (put 'soap-binding-namespace-tag 'compiler-macro 'soap-binding-namespace-tag--cmacro) #@97 Access slot "namespace-tag" of `(soap-binding (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-binding-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags type-of signal wrong-type-argument soap-binding 2] 5 (#$ . 172799)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-binding-namespace-tag side-effect-free t] 4) #@79 compiler-macro for inlining `soap-binding-port-type'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-binding-p cl-x) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 3)) nil] 9 (#$ . 173196)]) (put 'soap-binding-port-type 'compiler-macro 'soap-binding-port-type--cmacro) #@93 Access slot "port-type" of `(soap-binding (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-binding-port-type #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags type-of signal wrong-type-argument soap-binding 3] 5 (#$ . 173623)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-binding-port-type side-effect-free t] 4) #@80 compiler-macro for inlining `soap-binding-operations'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-binding-operations--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-binding-operations (or (soap-binding-p cl-x) (signal 'wrong-type-argument (list 'soap-binding cl-x))) (aref cl-x 4)) nil] 9 (#$ . 174008)]) (put 'soap-binding-operations 'compiler-macro 'soap-binding-operations--cmacro) #@94 Access slot "operations" of `(soap-binding (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-binding-operations #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-binding-tags type-of signal wrong-type-argument soap-binding 4] 5 (#$ . 174440)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-binding-operations side-effect-free t defalias copy-soap-binding copy-sequence] 4) #@120 compiler-macro for inlining `make-soap-binding'. (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 (record 'soap-binding name namespace-tag port-type operations))] 16 (#$ . 174880)]) (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)" record soap-binding] 11 (#$ . 175758)]) (cl-struct-define 'soap-binding nil 'soap-element 'record nil '((cl-tag-slot) (name nil) (namespace-tag nil) (port-type) (operations (make-hash-table :test 'equal) :readonly t)) 'cl-struct-soap-binding-tags 'soap-binding t) #@68 compiler-macro for inlining `soap-port-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-port-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-p (and (memq (type-of cl-x) cl-struct-soap-port-tags) t)) nil] 9 (#$ . 176619)]) (put 'soap-port-p 'compiler-macro 'soap-port-p--cmacro) #@13 (fn CL-X) (defalias 'soap-port-p #[257 "\301!>\205 \302\207" [cl-struct-soap-port-tags type-of t] 3 (#$ . 176949)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-port-p side-effect-free error-free put soap-port cl-deftype-satisfies] 5) #@71 compiler-macro for inlining `soap-port-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-port-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-name (or (soap-port-p cl-x) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 1)) nil] 9 (#$ . 177221)]) (put 'soap-port-name 'compiler-macro 'soap-port-name--cmacro) #@85 Access slot "name" of `(soap-port (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags type-of signal wrong-type-argument soap-port 1] 5 (#$ . 177602)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-port-name side-effect-free t] 4) #@80 compiler-macro for inlining `soap-port-namespace-tag'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-port-p cl-x) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 2)) nil] 9 (#$ . 177957)]) (put 'soap-port-namespace-tag 'compiler-macro 'soap-port-namespace-tag--cmacro) #@94 Access slot "namespace-tag" of `(soap-port (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-namespace-tag #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags type-of signal wrong-type-argument soap-port 2] 5 (#$ . 178383)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-port-namespace-tag side-effect-free t] 4) #@78 compiler-macro for inlining `soap-port-service-url'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-port-p cl-x) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 3)) nil] 9 (#$ . 178765)]) (put 'soap-port-service-url 'compiler-macro 'soap-port-service-url--cmacro) #@92 Access slot "service-url" of `(soap-port (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-service-url #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags type-of signal wrong-type-argument soap-port 3] 5 (#$ . 179181)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-port-service-url side-effect-free t] 4) #@74 compiler-macro for inlining `soap-port-binding'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-port-binding--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-port-binding (or (soap-port-p cl-x) (signal 'wrong-type-argument (list 'soap-port cl-x))) (aref cl-x 4)) nil] 9 (#$ . 179557)]) (put 'soap-port-binding 'compiler-macro 'soap-port-binding--cmacro) #@88 Access slot "binding" of `(soap-port (:include soap-element))' struct CL-X. (fn CL-X) (defalias 'soap-port-binding #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-port-tags type-of signal wrong-type-argument soap-port 4] 5 (#$ . 179953)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-port-binding side-effect-free t defalias copy-soap-port copy-sequence] 4) #@116 compiler-macro for inlining `make-soap-port'. (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 (record 'soap-port name namespace-tag service-url binding))] 16 (#$ . 180366)]) (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)" record soap-port] 11 (#$ . 181172)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-soap-port side-effect-free t cl-struct-define soap-port nil soap-element record ((cl-tag-slot) (name nil) (namespace-tag nil) (service-url) (binding)) cl-struct-soap-port-tags] 11) #@68 compiler-macro for inlining `soap-wsdl-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-wsdl-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-p (and (memq (type-of cl-x) cl-struct-soap-wsdl-tags) t)) nil] 9 (#$ . 182017)]) (put 'soap-wsdl-p 'compiler-macro 'soap-wsdl-p--cmacro) #@13 (fn CL-X) (defalias 'soap-wsdl-p #[257 "\301!>\205 \302\207" [cl-struct-soap-wsdl-tags type-of t] 3 (#$ . 182347)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put soap-wsdl-p side-effect-free error-free put soap-wsdl cl-deftype-satisfies] 5) #@73 compiler-macro for inlining `soap-wsdl-origin'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-wsdl-origin--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-origin (or (soap-wsdl-p cl-x) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 1)) nil] 9 (#$ . 182619)]) (put 'soap-wsdl-origin 'compiler-macro 'soap-wsdl-origin--cmacro) #@119 Access slot "origin" of `(soap-wsdl (:constructor soap-make-wsdl^) (:copier soap-copy-wsdl))' struct CL-X. (fn CL-X) (defalias 'soap-wsdl-origin #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 1] 5 (#$ . 183011)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-wsdl-origin side-effect-free t] 4) #@79 compiler-macro for inlining `soap-wsdl-current-file'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-wsdl-p cl-x) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 2)) nil] 9 (#$ . 183404)]) (put 'soap-wsdl-current-file 'compiler-macro 'soap-wsdl-current-file--cmacro) #@125 Access slot "current-file" of `(soap-wsdl (:constructor soap-make-wsdl^) (:copier soap-copy-wsdl))' struct CL-X. (fn CL-X) (defalias 'soap-wsdl-current-file #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 2] 5 (#$ . 183826)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-wsdl-current-file side-effect-free t] 4) #@84 compiler-macro for inlining `soap-wsdl-xmlschema-imports'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-wsdl-p cl-x) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 3)) nil] 9 (#$ . 184237)]) (put 'soap-wsdl-xmlschema-imports 'compiler-macro 'soap-wsdl-xmlschema-imports--cmacro) #@130 Access slot "xmlschema-imports" of `(soap-wsdl (:constructor soap-make-wsdl^) (:copier soap-copy-wsdl))' struct CL-X. (fn CL-X) (defalias 'soap-wsdl-xmlschema-imports #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 3] 5 (#$ . 184684)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-wsdl-xmlschema-imports side-effect-free t] 4) #@72 compiler-macro for inlining `soap-wsdl-ports'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-wsdl-ports--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-ports (or (soap-wsdl-p cl-x) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 4)) nil] 9 (#$ . 185110)]) (put 'soap-wsdl-ports 'compiler-macro 'soap-wsdl-ports--cmacro) #@118 Access slot "ports" of `(soap-wsdl (:constructor soap-make-wsdl^) (:copier soap-copy-wsdl))' struct CL-X. (fn CL-X) (defalias 'soap-wsdl-ports #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 4] 5 (#$ . 185497)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-wsdl-ports side-effect-free t] 4) #@78 compiler-macro for inlining `soap-wsdl-alias-table'. (fn CL-WHOLE-ARG CL-X) (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 (or (soap-wsdl-p cl-x) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 5)) nil] 9 (#$ . 185887)]) (put 'soap-wsdl-alias-table 'compiler-macro 'soap-wsdl-alias-table--cmacro) #@124 Access slot "alias-table" of `(soap-wsdl (:constructor soap-make-wsdl^) (:copier soap-copy-wsdl))' struct CL-X. (fn CL-X) (defalias 'soap-wsdl-alias-table #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 5] 5 (#$ . 186304)]) (byte-code "\300\301\302\303#\300\207" [function-put soap-wsdl-alias-table side-effect-free t] 4) #@77 compiler-macro for inlining `soap-wsdl-namespaces'. (fn CL-WHOLE-ARG CL-X) (defalias 'soap-wsdl-namespaces--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block soap-wsdl-namespaces (or (soap-wsdl-p cl-x) (signal 'wrong-type-argument (list 'soap-wsdl cl-x))) (aref cl-x 6)) nil] 9 (#$ . 186712)]) (put 'soap-wsdl-namespaces 'compiler-macro 'soap-wsdl-namespaces--cmacro) #@123 Access slot "namespaces" of `(soap-wsdl (:constructor soap-make-wsdl^) (:copier soap-copy-wsdl))' struct CL-X. (fn CL-X) (defalias 'soap-wsdl-namespaces #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 6] 5 (#$ . 187124)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put soap-wsdl-namespaces side-effect-free t defalias soap-copy-wsdl copy-sequence] 4) #@145 compiler-macro for inlining `soap-make-wsdl^'. (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^ (record 'soap-wsdl origin current-file xmlschema-imports ports alias-table namespaces))] 20 (#$ . 187578)]) (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)" record soap-wsdl] 15 (#$ . 188596)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put soap-make-wsdl^ side-effect-free t cl-struct-define soap-wsdl nil cl-structure-object record ((cl-tag-slot) (origin) (current-file) (xmlschema-imports) (ports) (alias-table) (namespaces)) cl-struct-soap-wsdl-tags] 11) #@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\311!>\204$\312\313\314D\"\210\315H#\266\304\316\317\"\307\"\210\310\317\311!>\204E\312\313\314D\"\210\315H#\266\211\207" [cl-struct-soap-namespace-tags record soap-wsdl nil soap-make-xs-basic-types "http://www.w3.org/2001/XMLSchema" "xsd" soap-wsdl-add-namespace soap-wsdl-add-alias type-of signal wrong-type-argument soap-namespace 1 "http://schemas.xmlsoap.org/soap/encoding/" "soapenc"] 9 (#$ . 189629)]) #@76 Add a namespace ALIAS for NAME to the WSDL document. (fn ALIAS NAME WSDL) (defalias 'soap-wsdl-add-alias #[771 "\301\302!>\204\303\304\305D\"\210\306H\"\211\203L\211A\232?\205k\307\310A$\210B\302!>\204<\303\304\305D\"\210\211\306\306HBI\262\262\202kB\302!>\204^\303\304\305D\"\210\211\306\306HBI\262\262\207" [cl-struct-soap-wsdl-tags assoc type-of signal wrong-type-argument soap-wsdl 5 warn "Redefining alias %s from %s to %s"] 11 (#$ . 190238)]) #@64 Find a namespace by NAME in the WSDL document. (fn NAME WSDL) (defalias 'soap-wsdl-find-namespace #[514 "\3022B\303!>\204\304\305\306D\"\210\211\307H\211\205?\211@\303! >\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 type-of signal wrong-type-argument soap-wsdl 6 soap-namespace 1 throw] 9 (#$ . 190731)]) #@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\303!>\204\304\305\306D\"\210\307H\"\211\203>\310\311\312\313\314\315!\316\"\317\320%\303!>\2047\304\305\306D\"\210\321H\"\202X\303! >\204M\304\305\322D\"\210\211\323\323HBI\262\207" [cl-struct-soap-namespace-tags cl-struct-soap-wsdl-tags soap-wsdl-find-namespace type-of 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 (#$ . 191154)]) #@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 "\303!>\204\304\305\306D\"\210\307H\310\211\2119\203!\311!\262\203+\312 \"\262:\203WA\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\303!\n>\203\337\341\303!\n>\204\324\304\305\342D\"\210\336H#\202\340\211\207" [cl-struct-soap-wsdl-tags soap-local-xmlns cl-struct-soap-namespace-link-tags type-of 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" soap-wsdl-get soap-namespace-link] 17 (#$ . 191874)]) #@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 "\304\"\211@\206\n A@\206\n\3058\306\211@\262!\307=\2042\310\311\312\313\306\211@\262!C$\210\314\315\316!\"\211AA\262\211\203\341\211@\211;\204\332\306\211@\262!\317\320\"\203\207\321\322\"\206b\321\323\"\211\203\203\324! >\204w\325\326\327 D\"\210\211\330\330HBI\266\210\202\331\317\331\"\203\230\332\333!\"\210\202\331\317\334\"\203\251\332\335!\"\210\202\331\317\336\"\203\272\332\337!\"\210\202\331\317\340\"\203\313\332\341!\"\210\202\331\342\343\"\203\331\332\344!\"\210\210A\266\202\202>\210\211\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns 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 type-of 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] 14 (#$ . 193627)]) #@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 "\300!\301N\211\205 \211\"\207" [soap-type-of soap-resolve-references] 6 (#$ . 195024)]) #@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\303!>\204\304\305\306D\"\210\307H\211\203\215\211@\211@A;\203'\310!\262\311!\2038\312\313#\262\202}\314\"\210\303! >\204M\304\305\315D\"\210\211\316H\204}\303! >\204b\304\305\315D\"\210\211\211\316\303\n! >\204v\304\305\315\fD\"\210 \316HI\266BB\262\266A\266\202\202\210\303!>\204\235\304\305\306D\"\210\211\307\237I\262\207" [cl-struct-soap-message-tags cl-struct-soap-element-tags nil type-of signal wrong-type-argument soap-message 3 intern soap-name-p soap-wsdl-get #[257 "\302!>\203\n\303\207\302! >\205\303\207" [cl-struct-soap-xs-type-tags cl-struct-soap-xs-element-tags type-of t] 3 "\n\n(fn X)"] soap-resolve-references soap-element 2] 14 (#$ . 195420)]) #@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 "\304!>\204\305\306\307D\"\210\310H\211\203I\311\304! >\204(\305\306\312D\"\210\313H\"@\211\203H\304!>\204A\305\306\307D\"\210\211\310I\266\210\210\304!\n>\204Y\305\306\314D\"\210\315H\316@A\203k\317\232\203u\320\321T\211\262\"\262\322!\203\234\304!\n>\204\214\305\306\314D\"\210\211\315\323!\324\n\325#BI\266\266\304!\n>\204\255\305\306\314D\"\210\313H\316@A\203\277\317\232\203\311\320\326T\211\262\"\262\322!\203\360\304!\n>\204\340\305\306\314D\"\210\211\313\323!\324\n\325#BI\266\266\327\316\304!\n>\204\305\306\314D\"\210\330H\211\203M\211@\211@A\203\317\232\203&\320\331T\211\262\"\262\322!\203>\323!\324 \325#BB\262\202DB\262\266A\266\202\202\210\304!\n>\204^\305\306\314D\"\210\211\330I\266\304!\n>\204t\305\306\314D\"\210\332HG\316U\203\346\304!\n>\204\214\305\306\314D\"\210\211\332\333\334\304\211!\n>\204\243\305\306\314\nD\"\210\315HA! >\204\312\305\306\335\304\n!\n>\204\302\305\306\314\fD\"\210 \315HAD\"\210\304!\n>\204\333\305\306\314 D\"\210\315HA\332H\"I\266\304!\n>\204\365\305\306\314D\"\210\211\332\333\336\304!\n>\204 \305\306\314 D\"\210\332H\"I\207" [cl-struct-soap-element-tags cl-struct-soap-wsdl-tags cl-struct-soap-operation-tags cl-struct-soap-message-tags type-of signal wrong-type-argument soap-element 2 rassoc soap-wsdl 5 soap-operation 4 0 "" 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 (#$ . 196435)]) #@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\303!>\204\304\305\306D\"\210\307H!\203D\303!>\204&\304\305\306D\"\210\211\307\310\303!>\204;\304\305\306D\"\210\307H\311#I\266\303\211!>\204T\304\305\306D\"\210\307H! >\204v\304\305\312\303!>\204p\304\305\306D\"\210\307HD\"\210\303!>\204\205\304\305\306D\"\210\307H\307H\313\314\315\316\317\320\"\321\"\322\323%\303!>\204\252\304\305\306D\"\210\324H\"\207" [cl-struct-soap-binding-tags cl-struct-soap-port-type-tags soap-name-p type-of signal wrong-type-argument soap-binding 3 soap-wsdl-get soap-port-type-p soap-port-type maphash make-byte-code 514 "\303!\n>\204\304\305\306D\"\210\211\211\307\310\301\311#I\266\312\303!\n>\204*\304\305\306D\"\210\313H\211\203L\211@\314@\300\"\315A@!\3168EB\262A\266\202\202-\210\303!\n>\204\\\304\305\306D\"\210\211\313\237I\262\207" vconcat vector [cl-struct-soap-bound-operation-tags type-of 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 (#$ . 198276)]) #@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\302!>\204\303\304\305D\"\210\306H!\205D\302!>\204&\303\304\305D\"\210\211\306\307\302!>\204;\303\304\305D\"\210\306H\310#I\262\207" [cl-struct-soap-port-tags soap-name-p type-of signal wrong-type-argument soap-port 4 soap-wsdl-get soap-binding-p] 10 (#$ . 199552)]) (byte-code "\300\301\302\303\304\211\211$!\305\306#\210\300\301\302\307\304\211\211\211\211\211\211\211& !\305\310#\210\300\301\311 !\305\312#\210\300\301\302\313\304\211\211\211%!\305\314#\207" [put soap-type-of record soap-message nil soap-resolve-references soap-resolve-references-for-message soap-operation soap-resolve-references-for-operation make-soap-binding soap-resolve-references-for-binding soap-port soap-resolve-references-for-port] 12) #@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\303!>\204\304\305\306D\"\210\307H\303!>\204%\304\305\306D\"\210\310H\211\203\255\211@\311\303! >\204>\304\305\312D\"\210\313H\"\242\211\204\200\3142\315\316T\211\262\"\262\317\"\204L\320\303! >\204p\304\305\312D\"\210\313H #\210\321\314\322\"\210\202L\210\323\324\325\326\327\330\f\f\"\331\"\332\333%\303! >\204\240\304\305\312D\"\210\334H\"\266A\266\202\202(\266\207" [cl-struct-soap-wsdl-tags cl-struct-soap-namespace-tags 0 type-of 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!\n>\203\301\211\242T\240\210\304\300\"\207\211<\205;\211\211\2059\211@\303!\n>\2032\301\211\242T\240\210\304\300\"\210A\266\202\202\262\207" vconcat vector [cl-struct-soap-element-tags type-of soap-resolve-references] 7 "\n\n(fn NAME ELEMENT)" 2] 15 (#$ . 200578)]) #@63 Error-check and parse the XML contents of the current buffer. (defalias 'soap-parse-server-response #[0 "\301\302\211\"\211\211@;\203@\202A@@)\303\232\203m\304\305\306\211@;\203+@\202/A@@)#\307\232\203m\304\305\310\211@;\203F@\202JA@@)#\304\305\306\211@;\203\\@\202`A@@)#C\311\211\211\211\211\211\257\262\211\204u\312\313!\210\211A@@\307\232\204\202\312\314!\210\315\316!r\211q\210\317\305\320\321\322!\323\"\324$\216\325!\210\326ed\"@\327 \210\330!\210*\262\207" [handle mm-dissect-buffer t "multipart/related" get-text-property 0 type "text/xml" buffer nil error "Failed to decode response from server" "Server response is not an XML document" generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-insert-part xml-parse-region kill-buffer mm-destroy-part] 10 (#$ . 202084)]) #@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\311!>\204\312\313\314D\"\210\315H\"\316\317\320\321\322\311!>\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 type-of 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 (#$ . 202971)]) #@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 "\302!>\204\303\304\305D\"\210\211\306H\307\203\310!\202 \"\302!>\204/\303\304\305D\"\210\211\306I\266\311\312!r\211q\210\313\314\315\316\317!\320\"\306$\216\321!\210\322ed\"@*\262\207" [cl-struct-soap-wsdl-tags default-directory type-of signal wrong-type-argument soap-wsdl 2 expand-file-name file-name-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] insert-file-contents xml-parse-region] 11 (#$ . 203751)]) #@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 "\301!>\204\302\303\304D\"\210\211\305H\206\211\203 \306!\204&\306!\203-\307\"\2021\310\"\207" [cl-struct-soap-wsdl-tags type-of signal wrong-type-argument soap-wsdl 2 file-exists-p soap-fetch-xml-from-file soap-fetch-xml-from-url] 6 (#$ . 204421)]) #@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 (#$ . 204857)]) (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 "\303\"\211@\206\n A@\206\n\3048\305\211@\262!\211\306=\204,\307\310\311\312C$\210\312\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns soap-extract-xmlns 2 soap-l2wk wsdl:definitions cl--assertion-failed (eq node-name 'wsdl:definitions) "expecting wsdl:definitions node, got %s" nil] 8 (#$ . 205205)]) #@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 (#$ . 205636)]) #@53 Load types found in NODE into WSDL. (fn NODE WSDL) (defalias 'soap-parse-wsdl-phase-parse-schema #[514 "\303\"\211@\206\n A@\206\n\3048\305\306\"@\211\211AA\262\211\205c\211@\211:\203\\\303\"\211@\2067 A@\206>\n\3048\307\211@\262!\310=\203Z\311\312\"\"\210+\210A\266\202\202\"\262\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns soap-extract-xmlns 2 soap-xml-get-children1 wsdl:types soap-l2wk xsd:schema soap-wsdl-add-namespace soap-parse-schema] 11 (#$ . 206073)]) #@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\306! >\204&\307\310\311D\"\210\312H\205Z\306! >\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 type-of signal wrong-type-argument soap-wsdl 3 soap-fetch-xml soap-wsdl-add-namespace soap-parse-schema] 9 (#$ . 206599)]) #@48 Finish parsing NODE into WSDL. (fn NODE WSDL) (defalias 'soap-parse-wsdl-phase-finish-parsing #[514 "\305\"\211@\206\n A@\206\n\3068\307\310\311!\"\312\313\"\211\2035\211@\314\315!\"\210A\266\202\202!\210\312\316\"\211\203g\211@\317!\314\"\210\320\321! >\204X\322\323\324D\"\210\325H\"\266A\266\202\202:\210\312\326\"\211\203\200\211@\314\327!\"\210A\266\202\202l\210\312\330\"\211\203\211@\312\331\"\211\203\370\211@\211\332\333\"\206\237\334\266\202\335\333\"\206\253\334\266\202\312\336\"@\211\337\333\"\206\274\334\266\202\262\340\310\341\342\343\"\344&\314\n\"\210\321 !\f>\204\345\322\323\345 D\"\210\n\211\346\346HBI\266A\266\202\202\217\210A\266\202\202\205\210\320\"\262+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns cl-struct-soap-port-type-tags cl-struct-soap-wsdl-tags 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 type-of 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] 18 (#$ . 207156)]) #@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 (#$ . 208498)]) #@76 Parse NODE as a wsdl:message and return the corresponding type. (fn NODE) (defalias 'soap-parse-message #[257 "\301\211@\262!\302=\204\303\304\305\306\301\211@\262!C$\210\307\310\"\306\311\312\"\211\203n\211@\307\310\"\307\313\"\307\314\"\203?\315\316\"\262\211\203L\315\316\"\262\202]\317\320\306\306\211\211\211\211\211& \262BB\262\266A\266\202\202#\210\321\322\323\237$\207" [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 record soap-xs-element make-soap-message :name :parts] 20 (#$ . 208881)]) #@77 Parse NODE as a wsdl:portType and return the corresponding port. (fn NODE) (defalias 'soap-parse-port-type #[257 "\303\211@\262!\304=\204\305\306\307\310\303\211@\262!C$\210\311\312\313\"\206%\314\266\202P\315\316\"\317\320\"\211\203\211@\321!\322\323! >\204J\324\325\326D\"\210\327H\330#\211\203v\331\323! >\204d\324\325\326D\"\210\327HC\332\333\334\335#\336#\266\202\337\"\210\323!\n>\204\213\324\325\340D\"\210\341H\211\203\233\211A\262\242\202\242\324\342\310GD\"\343 #\266\323!\n>\204\271\324\325\340D\"\210\344H\211\203\311\211A\262\242\202\320\324\342\310GD\"\343 #\266\323!\n>\204\347\324\325\340D\"\210\345H\211\203\211@\211\211\203\376\211A\262\242\202\324\342\310GD\"\343 #\266A\266\202\202\352\210\266A\266\202\2021\210\346\316\312\313\"\206+\314\266\202\347$)\207" [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 type-of 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] 14 (#$ . 209622)]) #@78 Parse NODE as a wsdl:operation and return the corresponding type. (fn NODE) (defalias 'soap-parse-operation #[257 "\301\211@\262!\302=\204\303\304\305\306\301\211@\262!C$\210\211\307\310\"\206$\311\266\202\312\313\310\"\2061\311\266\202!\306\211\211\211\211\211AA\262\211\203\347\211@\211:\203\340\301\211@\262!\211\314=\203\203\315\310\"\206b\311\266\202\307\310\"\206n\311\266\202\316\317\"\320\321\"B\262 \262\266\202\337\211\322=\203\264\315\310\"\206\223\311\266\202\307\310\"\206\237\311\266\202\316\317\"\320\321\"B\262\n\262\266\202\337\211\323=\203\337\315\310\"\206\304\311\266\202\307\310\"\206\320\311\266\202\211\320\321\"BB\262\266\210A\266\202\202@\210\324\325\326\327 \330\f\331 \332\237\333\334&\207" [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] 25 (#$ . 211150)]) #@76 Parse NODE as a wsdl:binding and return the corresponding type. (fn NODE) (defalias 'soap-parse-binding #[257 "\301\211@\262!\302=\204\303\304\305\306\301\211@\262!C$\210\211\307\310\"\206$\311\266\202\312\310\"\2060\311\266\202\313\314\315\316\317\"$\320\321\"\211\203C\211@\211\307\310\"\206O\311\266\202\306\211\211\211\320\322\"\211\203m\211@\310\323\"\262A\266\202\202Z\210\320\324\"\211\203\324\211@\320\325\"\211\203\253\211@\316\310\326\"!\310\327\"\310\330\"\203\242\203\242E\nB\262\n\266A\266\202\202}\210\320\331\"@\310\332\"\262\203\306\333\334\335\306\336#\"\262\310\330\"\262\210A\266\202\202s\210\211\204\320\337\"\211\203\211@\320\331\"\211\203\377\211@\206\366\310\330\"\262A\266\202\202\350\210A\266\202\202\336\210\340\341\342\343 \344\n\237\345 \346\f\205\"\334 !&\n\347 !>\2045\350\351\352 D\"\210\n\353H#\266A\266\202\202?\210\211\262\207" [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 type-of signal wrong-type-argument soap-binding 4] 25 (#$ . 212407)]) #@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 (#$ . 213963)) #@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 (#$ . 214148)) #@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 "\305\306\"\211\203h\3072\342\310\"A\211\203\311\307\"\210\210\312\313\"\204'\314\315\"\210\316\317\" \211\203]\211@\211\320\305\"\206<\321\266\202\232\203U\322\"BB\311\307\"\266\210A\266\202\202,\210\314\323\"\2620\202\342\324\n\"\211@\206r A@\206y\f\3258\326\327\"\330\232?\205\337<\203\305\3072\337\211\205\277\211@\331!\332N\3331\253\211\"0\202\255\210\334\211\203\266\311\307\"\210\266A\266\202\202\223\2620\202\337\331!\332N\211\204\331\335\336\337\334\331 !C$\210\211\"\262+\262\207" [soap-decoded-multi-refs soap-multi-refs soap-local-xmlns soap-default-xmlns soap-target-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" soap-type-of soap-decoder (error) nil cl--assertion-failed decoder "no soap-decoder for %s type"] 11 (#$ . 214345)]) #@58 Decode NODE using type information inside it. (fn NODE) (defalias 'soap-decode-any-type #[257 "\301\302\"\211\203 \303!\262\211\203*\304\305#\211\203!\306\"\202%\307\310\"\262\202n\211AA\262\211G\311U\203B\211@;\203B\211@\202l\312\211\203g\211@\211;\204`\211\211@\262\313!BB\262\266A\266\202\202D\210\211\237\262\262\207" [soap-current-wsdl 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] 10 (#$ . 215699)]) #@70 Decode NODE as an Array using type information inside it. (fn NODE) (defalias 'soap-decode-array #[257 "\301\302\"\303\211AA\262\303\203*\304\305\306#\262\307\310!\311#\262\204*\312\313\"\210\211\203O\211@\211:\203H\203A\314\"\202D\315!B\262A\266\202\202+\210\211\237\207" [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] 10 (#$ . 216257)]) (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) #@183 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 "\304\"\211@\206\n A@\206\n\3058\306\211@\262!\307=\2042\310\311\312\313\306\211@\262!C$\210\314\315\"\314\316\"@\314\317\"@\211\203o\320\321\"@\211\211AA\262\242\262\320\322\"@\211\211AA\262\242\262\320\323\"\324\325E\"\210\202d\210\326! >\204\200\324\327\330D\"\210\331H\332=\203\214\211\202\260\3332\260\211\211AA\262\211\205\255\211@\211:\203\246\334\333\"\210A\266\202\202\226\2620\335%\262\266\202+\207" [soap-local-xmlns soap-default-xmlns soap-target-xmlns 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 type-of wrong-type-argument soap-bound-operation 5 literal found throw soap-parse-response] 15 (#$ . 217040)]) #@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 "\306! >\204\307\310\311D\"\210\312H\306! >\204%\307\310\311D\"\210\313H\306!\n>\2047\307\310\314D\"\210\313HA\315 \"\211@\206F\fA@\206M \3168\317=\203\212\320 \211@\262!\321 \322#\211=\204\210\323\324\306!%>\204\202\307\310\325 D\"\210\312H#\210\266\326\327\330\"\326&'\306!(>\204\245\307\310\331D\"\210\332H\211\203\231\211@\211@A\326\317=\203\303\327\"@\202a\333=\205a\3342a\306 !)>\204\340\307\310\335D\"\210\f\313H\336\306!%>\204\366\307\310\325D\"\210\316H\"A\211\306!%>\204\307\310\325D\"\210\312HB\337\340\341\"\211AA\262\"\211\205\\\211@\211:\203U\315 \"\211@\2065\fA@\206< \3168\320\211@\262!\232\203S\342\334\"\210+\210A\266\202\202 \262\266\2030\262\211\204\202\323\343\306\f!%>\204{\307\310\325D\"\210 \312H#\210\344\"\211\203\220\211B\262\266A\266\202\202\250\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 type-of 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\262@\207" [] 3 "\n\n(fn HEADER)"] throw "Soap-parse-response(%s): cannot find message part %s" soap-decode-type cl-struct-soap-element-tags soap-decoded-multi-refs soap-multi-refs cl-struct-soap-message-tags cl-struct-soap-wsdl-tags] 25 (#$ . 218216)]) #@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 "\300!\301N\211\204\302\303\304\305\300!C$\210\211\"\207" [soap-type-of soap-attribute-encoder cl--assertion-failed attribute-encoder "no soap-attribute-encoder for %s type" nil] 9 (#$ . 220380)]) #@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 "\302!\303N\211\204\304\305\306\307\302!C$\210\211\"\266\310!>\204)\311\312\313D\"\210\211\314H\205R\310!>\204>\311\312\313D\"\210\211\314H\211 \235\203K \202P\211 B\211\262\207" [cl-struct-soap-element-tags soap-encoded-namespaces soap-type-of soap-encoder cl--assertion-failed encoder "no soap-encoder for %s type" nil type-of signal wrong-type-argument soap-element 2] 9 (#$ . 220902)]) #@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 "\305!>\204\306\307\310D\"\210\311H\305!>\204\"\306\307\310D\"\210\312H\305! >\2044\306\307\313D\"\210\314HA\305! >\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\305!\n>\204\224\306\307\321 D\"\210\311HG\nG$\210\305!>\204\260\306\307\310\nD\"\210\315H\305! >\204\305\306\307\313D\"\210\322H\203\200\323c\210\211\203\357\324 \235\203\336 \210\202\342\324 B\325\326\261\210\327\330\261\210\211\203|\211@\211@A@\305!\f>\204\n\306\307\331D\"\210\315H\236\332@@\"A\3338A\334=\203`\305!\n>\2040\306\307\321D\"\210\211\333H\203X\305!\n>\204E\306\307\321D\"\210\211\333H\211 \235\203S \210\202W\211 B\210\335\336!\337\261\210\340\"\210\334=\203s\341\336!\337\261\210\266A\266\202\202\360\210\342c\210\266\343c\210\334=\203\315\305!\n>\204\233\306\307\321D\"\210\333H\203\304\305!\n>\204\261\306\307\321D\"\210\333H\211 \235\203\277 \210\202\303\211 B\210\335\336!\337\261\210\305!\f>\204\334\306\307\331D\"\210\315H\211\203/\211@\211@A\332\"A\305 !>\204\306\307\310D\"\210\f\314H\203!\305!>\204\306\307\310D\"\210 \314H\235\203&\340\"\210\266A\266\202\202\337\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 type-of 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 "\n" "wsa" "" "\n" "" "\n" soap-message assoc 2 encoded "<" soap-element-fq-name ">\n" soap-encode-value "\n" "\n" "\n"] 21 (#$ . 221668)]) #@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\316!>\204%\317\320\321D\"\210\322H\323#\210eb\210\324c\210\211\325=\203B\326c\210 \211\203\201\211@\327\330\261\210\331\n\"A\211\204s\331\316\n! >\204k\317\320\332\fD\"\210 \322H\"A\262\211c\210\333c\266A\266\202\202C\210\334c\210db\210\335c\210)\266\336 *\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") type-of signal wrong-type-argument soap-bound-operation 5 soap-encode-body "\n\n" "\n" buffer-string] 16 (#$ . 223917)]) (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) #@92 Return the WSDL port having SERVICE name. Signal an error if not found. (fn WSDL SERVICE) (defalias 'soap-find-port #[514 "\3022B\303!>\204\304\305\306D\"\210\307H\211\205?\211@\303! >\204,\304\305\310D\"\210\311H\232\2038\312\302\"\210A\266\202\202\2620\206I\313\314\"\207" [cl-struct-soap-wsdl-tags cl-struct-soap-element-tags found type-of signal wrong-type-argument soap-wsdl 4 soap-element 1 throw error "Unknown SOAP service: %s"] 9 (#$ . 225355)]) #@111 Inside PORT, find OPERATION-NAME, a `soap-port-type'. Signal an error if not found. (fn PORT OPERATION-NAME) (defalias 'soap-find-operation #[514 "\303!>\204\304\305\306D\"\210\307H\310\303! >\204#\304\305\311D\"\210\307H\"\211\206D\312\313\303!\n>\204?\304\305\314 D\"\210\315H#\207" [cl-struct-soap-port-tags cl-struct-soap-binding-tags cl-struct-soap-element-tags type-of signal wrong-type-argument soap-port 4 gethash soap-binding error "No operation %s for SOAP service %s" soap-element 1] 11 (#$ . 225839)]) #@176 Return the number of arguments required by a soap operation. WSDL, SERVICE, OPERATION-NAME and PARAMETERS are as described in `soap-invoke'. (fn WSDL SERVICE OPERATION-NAME) (defalias 'soap-operation-arity #[771 "\302\"\303\"\304!>\204\305\306\307D\"\210\211\310H\304! >\204)\305\306\311D\"\210\211\312HG\207" [cl-struct-soap-bound-operation-tags cl-struct-soap-operation-tags soap-find-port soap-find-operation type-of signal wrong-type-argument soap-bound-operation 1 soap-operation 3] 10 (#$ . 226380)]) #@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 "\306\"\307\"\310\311\312\313\314\f\315\n!>\204#\316\317\320\fD\"\210 \321H$\322\"\323\324\325\326\313\315\n! >\204@\316\317\327\fD\"\210 \330H\322\"\326QB\331\332BD012\203\206\333\315!>\204l\316\317\320D\"\210\321H\334\335\336\337\340\n$\341\"\342\343%\"\202\354\344\315!>\204\226\316\317\320D\"\210\321H!\3451\332\3461\316r\211q\2103\204\257\347\350!\2104\203\3013\351V\203\301\352\3533\"\210\354\355  #)00\202\3520\316@A\"\262\202\3524\203\343\356!\210\347\357!!\262\262.\207" [cl-struct-soap-port-tags cl-struct-soap-bound-operation-tags url-request-extra-headers url-http-attempt-keepalives url-mime-charset-string url-request-data soap-find-port soap-find-operation "POST" "soap-client.el" "1.0" encode-coding-string soap-create-envelope type-of signal wrong-type-argument soap-port 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) 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-package-version url-package-name url-request-method url-http-response-status soap-debug] 21 (#$ . 226907)]) #@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 (#$ . 229007)]) #@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 (#$ . 229917)]) (provide 'soap-client)