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


(byte-code "\300\301!\210\300\302!\207" [require xml jabber-util] 2)
#@24 escape strings for xml
(defalias 'jabber-escape-xml #[(str) ";\203u \260\211\304\305\306\n\307\211%+\211\310\311\306\n\307\211%+\211\312\313\306\n\307\211%+\211\314\315\306\n\307\211%+\211\316\317\306\n\307\211%+\211\320\321\306\n\307\211%+\211\322\323\306\n\307\211%+\211)\207\207" [str newstr newtext regexp "\f" "\n" replace-regexp-in-string t "[ -\f-]" " " "&" "&amp;" "<" "&lt;" ">" "&gt;" "'" "&apos;" "\"" "&quot;"] 7 (#$ . 156)])
#@22 unescape xml strings
(defalias 'jabber-unescape-xml #[(str) ";\203U \211\304\305\306\n\307\211%+\211\310\311\306\n\307\211%+\211\312\313\306\n\307\211%+\211\314\315\306\n\307\211%+\211\316\317\306\n\307\211%+\211)\207\207" [str newstr newtext regexp "&quot;" "\"" replace-regexp-in-string t "&apos;" "'" "&gt;" ">" "&lt;" "<" "&amp;" "&"] 7 (#$ . 651)])
#@133 converts an SEXP in the format (tagname ((attribute-name . attribute-value)...) children...) and converts it to well-formatted xml.
(defalias 'jabber-sexp2xml #[(sexp) ";\203	 \306!\207@<\203- \307\310\211\203) @	\311\n!PA\211\204 *	)\207:\203B @;\203B @G\312U\203B \307\207\307\313\314@!PA@\310\211\203r @\211:\203k 	\315\316\314\f@!\306\fA!#PA\211\204U *AA\203\244 	\317PAA\310\211\203\227 @	\311!PA\211\204\207 *	\320\314@!\317R\202\250 	\321P	)\207" [sexp xml tag --dolist-tail-- attr child jabber-escape-xml "" nil jabber-sexp2xml 0 "<" symbol-name format " %s='%s'" ">" "</" "/>"] 7 (#$ . 1046)])
#@300 Skip to end of tag or matching closing tag if present.
Return t iff after a closing tag, otherwise throws an 'unfinished
tag with value nil.
If DONT-RECURSE-INTO-STREAM is true, stop after an opening
<stream:stream> tag.

The version of `sgml-skip-tag-forward' in Emacs 21 isn't good
enough for us.
(defalias 'jabber-xml-skip-tag-forward #[(&optional dont-recurse-into-stream) "\302\303w\210\304\305!\203 \306\307\303\310#\203 \311\225b\207\312\313\303\"\207\304\314!\203r \315\316!\311\225b\210\317\320!\210\304\321!\203; \311\225b\210\310\202p \304\322!\203l \311\225b\210	\203O \323\232\204h \302\303w\210\304\324\325\322Q!!\204d \326 \210\202O \311\225b\210\310\202p \312\313\303\")\207\312\313\303\"\207" [node-name dont-recurse-into-stream "^<" nil looking-at "<!\\[CDATA\\[" search-forward "]]>" t 0 throw unfinished "<\\([^[:space:]/>]+\\)\\([[:space:]]+[^=>]+=[[:space:]]*'[^']*'\\|[[:space:]]+[^=>]+=[[:space:]]*\"[^\"]*\"\\)*" match-string 1 skip-syntax-forward " -" "/>" ">" "stream:stream" regexp-quote "</" jabber-xml-skip-tag-forward] 5 (#$ . 1697)])
#@198 Parse the first XML stanza in the current buffer.
Parse and return the first complete XML element in the buffer,
leaving point at the end of it.  If there is no complete XML
element, return `nil'.
(defalias 'jabber-xml-parse-next-stanza #[nil "\3002 eb\210\301 \210`eV0\205 \302e`\"\207" [unfinished jabber-xml-skip-tag-forward xml-parse-region] 3 (#$ . 2775)])
#@70 Return the tag associated with NODE.
The tag is a lower-case symbol.
(defalias 'jabber-xml-node-name #[(node) "<\205 @\207" [node] 1 (#$ . 3145)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put jabber-xml-node-name speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@61 Return the list of attributes of NODE.
The list can be nil.
(defalias 'jabber-xml-node-attributes #[(node) "<\205 A@\207" [node] 1 (#$ . 3447)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put jabber-xml-node-attributes speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@82 Return the list of children of NODE.
This is a list of nodes, and it can be nil.
(defalias 'jabber-xml-node-children #[(node) "AA\211\302\232?\205\f 	)\207" [node children ((""))] 3 (#$ . 3753)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put jabber-xml-node-children speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@96 Return the children of NODE whose tag is CHILD-NAME.
CHILD-NAME should be a lower case symbol.
(defalias 'jabber-xml-get-children #[(node child-name) "\306	\211AA\211\307\232?\205 \n*\306\211\2039 \f@\211\2032 \211<\205( 	@)\232\2032 B\fA\211\204 *\237)\207" [match node children child --dolist-tail-- child-name nil ((""))] 3 (#$ . 4107)])
(byte-code "\300\301!\203 \302\303\304\"\210\305\303\306\307#\210\310\303\311\312#\210\202+ \302\303\313\"\210\305\303\306\307#\210\310\303\311\312#\210\300\207" [fboundp xml-get-attribute-or-nil defalias jabber-xml-get-attribute #[(node attribute) ":\205	 \302	\"\207" [node attribute xml-get-attribute-or-nil] 3 "Get from NODE the value of ATTRIBUTE.\nReturn nil if the attribute was not found."] function-put speed -1 put byte-optimizer byte-compile-inline-expand #[(node attribute) ":\205 	\303\"\206 \304\266\202\211G\305V\205 \n)\207" [node attribute result xml-get-attribute-or-nil "" 0] 6 "Get from NODE the value of ATTRIBUTE.\nReturn nil if the attribute was not found."]] 4)
#@55 Get "xmlns" attribute of NODE, or nil if not present.
(defalias 'jabber-xml-get-xmlns #[(node) "\302\211:\205 \303	\"*\207" [node attribute xmlns xml-get-attribute-or-nil] 4 (#$ . 5167)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put jabber-xml-get-xmlns speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@353 Find sub-node of XML-DATA according to PATH.
PATH is a vaguely XPath-inspired list.  Each element can be:

a symbol     go to first child node with this node name
cons cell    car is string containing namespace URI,
             cdr is string containing node name.  Find
             first matching child node.
any string   character data of this node
(defalias 'jabber-xml-path #[(xml-data path) "\n\203\215 	\203\215 \n@\2119\203 \306	\"@\202\205 :\203^ \3072Z \306	\310A!\"\311\211\205X @\211\312\211:\205D \313	\"*@\230\203P \314\307\f\"\210A\211\2042 \311*0\202\205 ;\203\200 	\211AA\211\315\232?\205s *@\211;\204\205 \311\202\205 \316\317\"\210)\nA\211\204 	)\207" [xml-data node path step x --dolist-tail-- jabber-xml-get-children --cl-block-nil-- intern nil xmlns xml-get-attribute-or-nil throw (("")) error "Unknown path step: %s" attribute children] 5 (#$ . 5513)])
#@63 Bind variables to the same-name attribute values in XML-DATA.
(defalias 'jabber-xml-let-attributes '(macro . #[(attributes xml-data &rest body) "\302\303\304\"	BB\207" [attributes body let mapcar #[(attr) "\302	\303DED\207" [attr xml-data jabber-xml-get-attribute quote] 5]] 4 (#$ . 6427)]))
(put 'jabber-xml-let-attributes 'lisp-indent-function 2)
(defalias 'jabber-xml-resolve-namespace-prefixes #[(xml-data &optional default-ns prefixes) "\211<\205	 	@)\211<\205 	A@)\306\n\f\"\211\307\211:\205+ \310	\"+\211\2036 )\311!\312\313\"\203\204 \314\315\"\314\316\"\317\f\"\211\204f \320\321\"\210\202\203 \211\322!\240\210)\211A\307AB\323\307\n\"B\240\210)+)\324\325\211AA\211\326\232?\205\227 *\"\210*\207" [xml-data node attrs node-name prefixes attribute jabber-xml-merge-namespace-declarations xmlns xml-get-attribute-or-nil symbol-name string-match "\\(.*\\):\\(.*\\)" match-string 1 2 assoc message "jabber-xml-resolve-namespace-prefixes: Unknown prefix in %s" intern delq mapc #[(x) "<\205\n \303	\n#\207" [x default-ns prefixes jabber-xml-resolve-namespace-prefixes] 4] (("")) default-ns node-name-string prefix unprefixed ns #1=#:v #2=#:v children] 6])
(defalias 'jabber-xml-merge-namespace-declarations #[(attrs prefixes) "\306\211\203E \n@\307	@!\310\311\"\203= \312\225\306O	A\211\fB\313\"\2037 \314\313\"\"\2029 B*)\nA\211\204 *\207" [attrs attr --dolist-tail-- attr-name ns-uri prefix nil symbol-name string-match "xmlns:" 0 assoc remove prefixes] 6])
(provide 'jabber-xml)