;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


#@31 Current version of xml-rpc.el
(defconst xml-rpc-version "1.6.15" (#$ . 87))
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require xml url-http timezone] 2)
#@47 The address where bug reports should be sent.
(defconst xml-rpc-maintainer-address "mah@everybody.org" (#$ . 257))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311&\210\300\322\302\303\323DD\324\306\321\310\311&\210\300\325\302\303\326DD\327\306\321\310\311&\210\300\330\302\303\331DD\332\306\333\310\311&\207" [custom-declare-variable xml-rpc-load-hook funcall function #[0 "\300\207" [nil] 1] "*Hook run after loading xml-rpc." :type hook :group xml-rpc xml-rpc-use-coding-system #[0 "\300\301!\203 \301\207\302\207" [coding-system-p utf-8 iso-8859-1] 2] "The coding system to use." symbol xml-rpc-allow-unicode-string #[0 "\300\301!\207" [coding-system-p utf-8] 2] "If non-nil, non-ASCII data is composed as 'value' instead of 'base64'.\nAnd this option overrides `xml-rpc-base64-encode-unicode' and\n`xml-rpc-base64-decode-unicode' if set as non-nil." boolean xml-rpc-base64-encode-unicode #[0 "\300\301!\207" [coding-system-p utf-8] 2] "If non-nil, then strings with non-ascii characters will be turned\ninto Base64." xml-rpc-base64-decode-unicode #[0 "\300\301!\207" [coding-system-p utf-8] 2] "If non-nil, then base64 strings will be decoded using the\nutf-8 coding system." xml-rpc-debug #[0 "\300\207" [0] 1] "Set this to 1 or greater to avoid killing temporary buffers.\nSet it higher to get some info in the *Messages* buffer" integer] 8)
#@39 Function to use for parsing XML data.
(defvar xml-rpc-parse-region-function (byte-code "\300\301!\203 \301 \203 \302\207\303\207" [fboundp libxml-available-p libxml-parse-xml-region xml-parse-region] 2) (#$ . 1720))
#@50 Contains the fault string if a fault is returned
(defvar xml-rpc-fault-string nil (#$ . 1944))
#@48 Contains the fault code if a fault is returned
(defvar xml-rpc-fault-code nil (#$ . 2045))
#@134 A list of extra headers to send with the next request.
Should be an assoc list of headers/contents.  See
`url-request-extra-headers'
(defvar xml-rpc-request-extra-headers nil (#$ . 2143))
#@46 Return t if VALUE is an integer.

(fn VALUE)
(defalias 'xml-rpc-value-intp #[257 "\211\250\207" [] 2 (#$ . 2337)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-value-intp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@61 Return t if VALUE is a double precision number.

(fn VALUE)
(defalias 'xml-rpc-value-doublep #[257 "\300!\207" [floatp] 3 (#$ . 2602)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-value-doublep speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@44 Return t if VALUE is a string.

(fn VALUE)
(defalias 'xml-rpc-value-stringp #[257 "\211;\207" [] 2 (#$ . 2892)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-value-stringp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@53 Return t if VALUE is an XML-RPC struct.

(fn VALUE)
(defalias 'xml-rpc-value-structp #[257 "\211<\2053 \211\300\301\2030 \2030 \242\211\262\205' \211:\205' \211\242;\205' \302A!\262\243\262\202 \266\203\207" [t nil xml-rpc-valuep] 6 (#$ . 3158)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-value-structp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@131 Return t if VALUE is an XML-RPC array - specified by keyword :array or
a list that is not datetime, base64 or struct.

(fn VALUE)
(defalias 'xml-rpc-value-arrayp #[257 "\211<\205Q \211@\300=\206Q \301!?\205Q \302!?\205Q \211\211<\205N \211\303\304\203K \203K \242\211\262\205B \211:\205B \211\242;\205B \305A!\262\243\262\202# \266\203\262?\207" [:array xml-rpc-value-datetimep xml-rpc-value-base64p t nil xml-rpc-valuep] 7 (#$ . 3569)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-value-arrayp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@73 Return t if VALUE is a vector - used to pass in empty lists

(fn VALUE)
(defalias 'xml-rpc-value-vectorp #[257 "\300!\207" [vectorp] 3 (#$ . 4171)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-value-vectorp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defvar xml-rpc--date-parses-as nil)
(defvar xml-rpc--tz-pd-defined-in nil)
#@33 Submit a bug report on xml-rpc.
(defalias 'xml-rpc-submit-bug-report #[0 "\304\305!\210\306\307!\203 \307\310\211K\"\202 \311\310!\310\312!\313\n\314P\301\300\315\316\317\320\321\257#*\207" [xml-rpc--date-parses-as xml-rpc--tz-pd-defined-in xml-rpc-maintainer-address xml-rpc-version require reporter fboundp find-lisp-object-file-name timezone-parse-date symbol-file "20091130T00:52:53" reporter-submit-bug-report "xml-rpc.el " xml-rpc-load-hook xml-rpc-use-coding-system xml-rpc-allow-unicode-string xml-rpc-base64-encode-unicode xml-rpc-base64-decode-unicode] 10 (#$ . 4550) nil])
#@45 Return t if VALUE is a boolean.

(fn VALUE)
(defalias 'xml-rpc-value-booleanp #[257 "\211\300=\206	 \211\301=\207" [nil t] 3 (#$ . 5146)])
#@169 Return t if VALUE is a datetime.  For Emacs XML-RPC
implementation, you must put time keyword :datetime before the
time, or it will be confused for a list.

(fn VALUE)
(defalias 'xml-rpc-value-datetimep #[257 "\211<\205	 \211@\300=\207" [:datetime] 3 (#$ . 5292)])
#@175 Return t if VALUE is a base64 byte array.  For Emacs XML-RPC
implementation, you must put keyword :base64 before the
sequence, or it will be confused for a list.

(fn VALUE)
(defalias 'xml-rpc-value-base64p #[257 "\211<\205	 \211@\300=\207" [:base64] 3 (#$ . 5564)])
#@88 Return t if VALUE is any sort of xml-rpc structure.

Return nil otherwise.

(fn VALUE)
(defalias 'xml-rpc-valuep #[257 "\211\211\250\262\206\301 \211\300!\262\206\301 \211\211;\262\206\301 \211\211<\205M \211\301\302\203J \203J \242\211\262\205A \211:\205A \211\242;\205A \303A!\262\243\262\202\" \266\203\262\206\301 \211\211<\205\244 \211@\304=\206\244 \305!?\205\244 \306!?\205\244 \211\211<\205\241 \211\301\302\203\236 \203\236 \242\211\262\205\225 \211:\205\225 \211\242;\205\225 \303A!\262\243\262\202v \266\203\262?\262\206\301 \211\307!\262\206\301 \310!\206\301 \305!\206\301 \306!\207" [floatp t nil xml-rpc-valuep :array xml-rpc-value-datetimep xml-rpc-value-base64p vectorp xml-rpc-value-booleanp] 8 (#$ . 5837)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-valuep speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@44 Return t if VALUE is a boolean

(fn VALUE)
(defalias 'xml-rpc-string-to-boolean #[257 "\211\300\230\206	 \211\301\230\207" ["true" "1"] 3 (#$ . 6742)])
#@101 Assume that LIST is '((value nil REST)) and return REST.  If
REST is nil, then return ""

(fn LIST)
(defalias 'xml-rpc-caddar-safe #[257 "\211\242\243\243\242\211\203\n \207\300\207" [""] 3 (#$ . 6901)])
#@154 Convert an XML-RPC structure in an xml.el style XML-LIST to an elisp list,
interpreting and simplifying it while retaining its structure.

(fn XML-LIST)
(defalias 'xml-rpc-xml-list-to-value #[257 "\300\211\301!\203\227 \301!<\203\227 @AA@@\262@AA@AA@\262\302\267\2022 \303\304!D\207\305!\207\207\306=\204D \307=\204D \310=\203L \311\206J \312!\207\313\267\202x \311\206X \314!\207\315\316@AA@AA\"\207\317C!\320\321\"A\320\322\"A\323E\207\324=\204\204 \325=\203\212 \326\327!D\207\330=\205\232 \315\331AA\"\207\301!\207" [nil xml-rpc-caddar-safe #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (base64 39 boolean 45 string 49)) :base64 base64-decode-string xml-rpc-string-to-boolean int i4 i8 string-to-number "0" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (double 82 struct 90 fault 101)) "0.0" mapcar #[257 "\211AA@AA@\300AAA!B\207" [xml-rpc-xml-list-to-value] 5 "\n\n(fn MEMBER)"] xml-rpc-xml-list-to-value assoc "faultString" "faultCode" fault dateTime\.iso8601 dateTime :datetime date-to-time array #[257 "\300C!\207" [xml-rpc-xml-list-to-value] 3 "\n\n(fn ARRVAL)"]] 9 (#$ . 7112)])
#@49 Convert a boolean value to a string

(fn VALUE)
(defalias 'xml-rpc-boolean-to-string #[257 "\211\203 \300\207\301\207" ["1" "0"] 2 (#$ . 8316)])
#@57 Convert a date time to a valid XML-RPC date

(fn VALUE)
(defalias 'xml-rpc-datetime-to-string #[257 "\300\301A@\"\207" [format-time-string "%Y%m%dT%H:%M:%S"] 4 (#$ . 8468)])
#@105 Return XML representation of VALUE properly formatted for use with the
functions in xml.el.

(fn VALUE)
(defalias 'xml-rpc-value-to-xml-list #[257 "\304!\203 \305\306\307\306\310!EEC\207\311!\203\" \305\306\312\306\313!EEC\207\314!\2035 \305\306\315\306\316A@!EEC\207\211\317!\262\203w \306\211G\320\211W\203h \211\321\234!\262\203] \322\"\202^ \262\210\211T\262\202C \266\305\306\323\306\322\324\"EEC\207\211\211<\205\311 \211@\325=\206\311 \311!?\205\311 \314!?\205\311 \211\211<\205\306 \211\326\306\203\303 \203\303 \242\211\262\205\272 \211:\205\272 \211\242;\205\272 \327A!\262\243\262\202\233 \266\203\262?\262\203	\211@\325=\203\333 \211A@\202\334 \211\262\306\211\321@!\262\203\361 \322\"\202\362 \211\262A\211\262\204\340 \305\306\323\306\322\330\"EEC\207\211\211<\205=\211\326\306\203:\203:\242\211\262\2051\211:\2051\211\242;\2051\327A!\262\243\262\202\266\203\262\203o\306\211\331\306\332\306@@E\321@A!@FC\262\322\"\262A\211\262\204D\305\306\322\333\"EC\207\211\211\250\262\203\202\305\306\334\306\335!EEC\207\211\211;\262\203\311\336!	\204\244G\337=\203\240@\340=\204\244\n\204\257\305\306\341\306EEC\202\307\305\306\341\306\n\203\301\316\342\"!\202\304\316!EEC)\207\211\343!\262\203\335\305\306\344\306\345!EEC\207\305\306\341\306\316!EEC\207" [charset-list xml-rpc-allow-unicode-string xml-rpc-base64-encode-unicode xml-rpc-use-coding-system xml-rpc-value-booleanp value nil boolean xml-rpc-boolean-to-string xml-rpc-value-datetimep dateTime\.iso8601 xml-rpc-datetime-to-string xml-rpc-value-base64p base64 base64-encode-string vectorp 0 xml-rpc-value-to-xml-list append array (data nil) :array t xml-rpc-valuep (data nil) member name (struct nil) int int-to-string find-charset-string 1 ascii string encode-coding-string floatp double number-to-string] 10 (#$ . 8650)])
#@79 Return a string representation of the XML tree as valid XML markup.

(fn XML)
(defalias 'xml-rpc-xml-to-string #[257 "\211\211AA\262\300\301\211@\262!\302Q\203? @<\203% \211\303@!P\262\2028 @;\2034 \211@P\262\2028 \304\305!\210A\262\202 \211\306\301\211@\262!\302R\207" ["<" symbol-name ">" xml-rpc-xml-to-string error "Invalid XML tree" "</"] 8 (#$ . 10549)])
#@200 An 'xml-rpc-method-call'  result value is always a list, where the first
element in RESPONSE is either nil or if an error occured, a cons pair
according to (errnum .  "Error string"),

(fn RESPONSE)
(defalias 'xml-rpc-response-errorp #[257 "\211@AA@\242\300=\207" [fault] 3 (#$ . 10932)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-response-errorp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@53 Return the error code from RESPONSE.

(fn RESPONSE)
(defalias 'xml-rpc-response-error-code #[257 "\211\211@AA@\242\300=\262\205 \301!A@\207" [fault xml-rpc-xml-list-to-value] 4 (#$ . 11376)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-response-error-code speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@53 Return the error code from RESPONSE.

(fn RESPONSE)
(defalias 'xml-rpc-response-error-string #[257 "\211\211@AA@\242\300=\262\205 \301\302!8\207" [fault 2 xml-rpc-xml-list-to-value] 4 (#$ . 11730)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xml-rpc-response-error-string speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@236 Convert an XML list to a method response list.  An error is
signaled if there is a fault or if the response does not appear
to be an XML-RPC response (i.e. no methodResponse).  Otherwise,
the parsed XML response is returned.

(fn XML)
(defalias 'xml-rpc-xml-to-response #[257 "\211\242\242\302=\204\f \303\304!\207\211\211@AA@\242\305=\262\203* \306!\3078\211A@\303\310\"\207\211@AA@AA@AA\306!\207" [xml-rpc-fault-string xml-rpc-fault-code methodResponse error "No methodResponse found" fault xml-rpc-xml-list-to-value 2 "XML-RPC fault `%s'"] 5 (#$ . 12094)])
#@509 Perform http post request to SERVER-URL using XML.

If ASYNC-CALLBACK-FUNCTION is non-nil, the request will be performed
asynchronously and ASYNC-CALLBACK-FUNCTION should be a callback function to
be called when the reuest is finished.  ASYNC-CALLBACK-FUNCTION is called with
a single argument being an xml.el style XML list.

It returns an XML list containing the method response from the XML-RPC server,
or nil if called with ASYNC-CALLBACK-FUNCTION.

(fn SERVER-URL XML &optional ASYNC-CALLBACK-FUNCTION)
(defalias 'xml-rpc-request #[770 "\306\216\212\307\310\311\312\313\314\"r\211q\210\315\316\"\216\317!\210	\203' \320\321\322 \323\"!\202) \322 *\262\324Q\325\n\314\326\327\330B\331\332BD\",-./012\333V\203X \334.\335\336!\"\210\337\340!\203\225 \211\203p \314 \211pD3\3414\202s \342 \343\314\"\210 ?\205\313 \344p!2\333V\203\217 \334\335\345!\"\210\211\262\202\313 \211\203\245 \211C\343\346#\262\202\313 \347!r\211q\2105\247\204\270 \350\3515\"\2105\352V\203\305 \350\3535\"\210)\344!\262.\n\207" [xml-rpc-version xml-rpc-allow-unicode-string xml-rpc-use-coding-system xml-rpc-request-extra-headers url-request-extra-headers url-http-attempt-keepalives #[0 "\300\207" [nil] 1] "POST" "xml-rpc.el" "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] xml-print string-as-unibyte encode-coding-string buffer-string utf-8 "\n" "utf-8;q=1, iso-8859-1;q=0.5" append "Connection" "close" "Content-Type" "text/xml; charset=utf-8" 1 print create-file-buffer "request-data" boundp url-be-asynchronous xml-rpc-request-callback-handler nil url-retrieve xml-rpc-request-process-buffer "result-data" xml-new-rpc-request-callback-handler url-retrieve-synchronously error "Why? url-http-response-status is %s" 299 "Error during request: %s" url-request-coding-system url-mime-charset-string url-request-data url-package-version url-package-name url-request-method xml-rpc-debug url-current-callback-data url-current-callback-func url-http-response-status] 14 (#$ . 12668)])
#@10 

(fn S)
(defalias 'xml-rpc-clean-string #[257 "\300\301\"?\205	 \211\207" [string-match "\\`[ 	\n]*\\'"] 4 (#$ . 14782)])
#@10 

(fn L)
(defalias 'xml-rpc-clean #[257 "\211<\203T \302\211\203S @\262A\262;\2038 \303!\211\203) \203) \304	\"\262\211\2034 \305C\"\262\210\202 <\203I \305\306!C\"\262\202 \305C\"\262\202 \207\211;\203[ \302\207\207" [xml-rpc-allow-unicode-string xml-rpc-use-coding-system nil xml-rpc-clean-string decode-coding-string append xml-rpc-clean] 7 (#$ . 14913)])
#@45 Process buffer XML-BUFFER.

(fn XML-BUFFER)
(defalias 'xml-rpc-request-process-buffer #[257 "\304\216r\211q\210\305\306!\203 \211\306 \210)eb\210\307\310\311\312#\210\313\314!\210\315\301!\203) 	\202* \316\317\320\311\312#\203< \321\n\314\224d\"!\202d \211\204O \317\322!\211\205J \211d{\262\202d \317\323\311\312#\203a \321\n\314\224d\"!\202d \324!\325W\203n \326p!\210\n\327=\203{ \211C\266\202\202~ \211\266\202*\207" [url-working-buffer url-http-response-status xml-rpc-parse-region-function xml-rpc-debug #[0 "\300\207" [nil] 1] fboundp url-uncompress search-forward-regexp "<\\?xml" nil t move-to-column 0 boundp 200 search-forward "<?xml " xml-rpc-clean "\n---- Error was: ----\n" "<methodResponse>" int-to-string 3 kill-buffer libxml-parse-xml-region] 6 (#$ . 15301)])
#@126 Marshall a callback function request to CALLBACK-FUN with the results
handled from XML-BUFFER.

(fn CALLBACK-FUN XML-BUFFER)
(defalias 'xml-rpc-request-callback-handler #[514 "\301!\302W\203 \303!\210\304!!\207" [xml-rpc-debug xml-rpc-request-process-buffer 1 kill-buffer xml-rpc-xml-to-response] 6 (#$ . 16090)])
#@107 Handle a new style `url-retrieve' callback passing `STATUS'
and `CALLBACK-FUN'.

(fn STATUS CALLBACK-FUN)
(defalias 'xml-new-rpc-request-callback-handler #[514 "p\300\"\207" [xml-rpc-request-callback-handler] 6 (#$ . 16417)])
#@240 Call an XML-RPC method asynchronously at SERVER-URL named METHOD with
PARAMS as parameters. When the method returns, ASYNC-CALLBACK-FUNC will be
called with the result as parameter.

(fn ASYNC-CALLBACK-FUNC SERVER-URL METHOD &rest PARAMS)
(defalias 'xml-rpc-method-call-async #[899 ";\203	 \202\f \301!\302\303\203 \202 \242\"\304\305\306\305E\307\310\"FC\311V\2033 \312\313\314!\"\210\315	#\207" [xml-rpc-debug symbol-name mapcar #[257 "\300\301\302!@E\207" [param nil xml-rpc-value-to-xml-list] 5 "\n\n(fn P)"] methodCall nil methodName append (params nil) 1 print create-file-buffer "func-call" xml-rpc-request] 12 (#$ . 16652)])
#@115 Call an XML-RPC method at SERVER-URL named METHOD with PARAMS as
parameters.

(fn SERVER-URL METHOD &rest PARAMS)
(defalias 'xml-rpc-method-call #[642 "\300\301$\211;\203 \301\302PBC\207\303!\207" [xml-rpc-method-call-async nil "URL/HTTP Error: " xml-rpc-xml-to-response] 8 (#$ . 17310)])
(provide 'xml-rpc)