[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-iq.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require jabber-core jabber-util jabber-keymap] 2)
#@54 Alist of open query id and their callback functions.\1f
(defvar *jabber-open-info-queries* nil (#$ . 188))
#@60 Mapping from XML namespace to handler for IQ GET requests.\1f
(defvar jabber-iq-get-xmlns-alist nil (#$ . 298))
#@60 Mapping from XML namespace to handler for IQ SET requests.\1f
(defvar jabber-iq-set-xmlns-alist nil (#$ . 413))
(defvar jabber-browse-mode-map (byte-code "\301 \302\ 1\b\"\210\303\ 1\304\305#\210\207" [jabber-common-keymap make-sparse-keymap set-keymap-parent define-key [mouse-2] jabber-popup-combined-menu] 5))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\312\313\314\315\306\307%\210\300\316\302\303\317DD\320\310\321\306\313&\a\207" [custom-declare-variable jabber-browse-mode-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run when entering Browse mode." :group jabber :type hook custom-declare-group jabber-browse nil "browse display options" jabber-browse-buffer-format #[0 "\300\207" ["*-jabber-browse:-%n-*"] 1 #1#] "The format specification for the name of browse buffers.\n\nThese fields are available at this moment:\n\n%n   JID to browse" string] 8)
#@47 Jabber browse mode.
\{jabber-browse-mode-map}\1f
(defalias 'jabber-browse-mode #[0 "\304 \210\305\10\306\11\307\n!\210\310\13\311\312!\203\17\0\312\313!\207\314\313!\207" [major-mode mode-name jabber-browse-mode-map buffer-read-only kill-all-local-variables jabber-browse-mode "jabber-browse" use-local-map t fboundp run-mode-hooks jabber-browse-mode-hook run-hooks] 2 (#$ . 1300)])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put jabber-browse-mode mode-class special add-to-list jabber-iq-chain jabber-process-iq] 4)
#@173 Process an incoming iq stanza.

JC is the Jabber Connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA)\1f
(defalias 'jabber-process-iq #[514 "\211\301\ 1:\205\v\0\302\ 2\ 2\"\266\202\ 1\303\ 1:\205\18\0\302\ 2\ 2\"\266\202\ 2\304\ 1:\205%\0\302\ 2\ 2\"\266\202\305\ 4!\306\ 4\b\"\ 3\307\230\204:\0\ 3\310\230\203Y\0\306\ 4\311\"A\ 1A8\211:\203Q\0\211@\ 6\b\ 6\b\ 3A#\210\210\312\ 1\b\"\211\10\207\ 1<\205\317\0\ 3\313\230\204j\0\ 3\314\230\205\317\0\315\306\ 5\313\316B\314\317BD\"A!\306\ 3\320\ 1:\205\203\0\302\ 2\ 2\"\266\202\ 2\"A\211\203\300\0\3211\256\0\3221\235\0\211\ 6	\ 6	\"00\2070\323\324\ 6\v\ 6\b\ 6\v\ 6	\ 6\ 6A&\ 6\207\324\ 6\n\ 6\a\ 6\n\ 6\b\325\326\327\ 6\b!&\a\207\324\ 6	\ 6\ 6\ 6	\ 6\a\330\331&\ 6\266\202\207" [*jabber-open-info-queries* id xml-get-attribute-or-nil type from jabber-iq-query assoc "result" "error" (("result" . 0) ("error" . 1)) delq "get" "set" eval jabber-iq-get-xmlns-alist jabber-iq-set-xmlns-alist xmlns (error) (jabber-error) apply jabber-send-iq-error "wait" internal-server-error error-message-string "cancel" feature-not-implemented] 19 (#$ . 1824)])
#@945 Send an iq stanza to the specified entity, and optionally set up a callback.
JC is the Jabber connection.
TO is the addressee.
TYPE is one of "get", "set", "result" or "error".
QUERY is a list containing the child of the iq node in the format
`jabber-sexp2xml' accepts.
SUCCESS-CALLBACK is the function to be called when a successful result arrives.
SUCCESS-CLOSURE-DATA is an extra argument to SUCCESS-CALLBACK.
ERROR-CALLBACK is the function to be called when an error arrives.
ERROR-CLOSURE-DATA is an extra argument to ERROR-CALLBACK.
RESULT-ID is the id to be used for a response to a received iq message.
`jabber-report-success' and `jabber-process-data' are common callbacks.

The callback functions are called like this:
(funcall CALLBACK JC XML-DATA CLOSURE-DATA)
with XML-DATA being the IQ stanza received in response.

(fn JC TO TYPE QUERY SUCCESS-CALLBACK SUCCESS-CLOSURE-DATA ERROR-CALLBACK ERROR-CLOSURE-DATA &optional RESULT-ID)\1f
(defalias 'jabber-send-iq #[2312 "\211\206\n\0\301\302\303\304 #\ 5\204\12\0\ 3\203\1f\0\211\ 6\ 6\ 6\ 6B\ 5\ 5BE\bB\10\305\ 6\n\306\307\ 6\f\205.\0\310\ 6\rBC\311\ 6\rBC\312\ 6\aBC#\ 6\nE\"\207" [*jabber-open-info-queries* apply format "emacs-iq-%d.%d.%d" current-time jabber-send-sexp iq append to type id] 18 (#$ . 2865)])
#@700 Send an error iq stanza in response to a previously sent iq stanza.
Send an error iq stanza to the specified entity in response to a
previously sent iq stanza.
TO is the addressee.
ID is the id of the iq stanza that caused the error.
ORIGINAL-QUERY is the original query, which should be included in the
error, or nil.
ERROR-TYPE is one of "cancel", "continue", "modify", "auth"
and "wait".
CONDITION is a symbol denoting a defined XMPP condition.
TEXT is a string to be sent in the error message, or nil for no text.
APP-SPECIFIC is a list of extra XML tags.
JC is the Jabber connection.

See section 9.3 of XMPP Core.

(fn JC TO ID ORIGINAL-QUERY ERROR-TYPE CONDITION &optional TEXT APP-SPECIFIC)\1f
(defalias 'jabber-send-iq-error #[2054 "\300\ 6\b\301\302\ 6\n\205\ f\0\303\ 6\vBC\304\305\ 6\f\206\17\0\306BD\"\ 6\b\307\310\ 6\nBC\ 6	\311B\ 6	\2050\0\312\313\ 6\vE\ 6	BBBBF\"\207" [jabber-send-sexp iq append to (type . "error") id "" error type (((xmlns . "urn:ietf:params:xml:ns:xmpp-stanzas"))) text ((xmlns . "urn:ietf:params:xml:ns:xmpp-stanzas"))] 19 (#$ . 4100)])
#@201 Process random results from various requests.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA CLOSURE-DATA)\1f
(defalias 'jabber-process-data #[771 "\ 1\304\ 1:\205\v\0\305\ 2\ 2\"\266\202\206\16\0\306\307\ 4!\310\"\311\ 3!\210\312\ 3\313\ 1:\205&\0\305\ 2\ 2\"\266\ 3\312r\314\315\b\316\ 6\ 6BC\"!q\210	\317=\204?\0\317 \210\312\12db\210\320\ 3\321\322#\323\261\ 2\210\212\324\ 4!\203^\0\ 3\ 6\ 6\ 6\ 6\"\210\202y\0\ 3;\203r\0\ 3\325\326\327\ 6\b!!\323\261\ 4\210\202y\0\330\331\ 6\ 6\"c\210\332\211\205\221\0\211@\333\ 1\334p\v\334p\"$\210\ 1A\266\202\202z\0\262\ 1*\207" [jabber-browse-buffer-format major-mode buffer-read-only jabber-alert-info-message-function from xml-get-attribute-or-nil plist-get fsm-get-state-data :server jabber-iq-xmlns nil type get-buffer-create format-spec 110 jabber-browse-mode jabber-propertize face jabber-title-large "\n\n" functionp ": " jabber-parse-error jabber-iq-error format "%S\n\n" (jabber-info-message-hooks jabber-alert-info-message-hooks) run-hook-with-args browse] 15 (#$ . 5148)])
#@221 Process random results from various requests to only alert hooks.

JC is the Jabber connection.
XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn JC XML-DATA CLOSURE-DATA)\1f
(defalias 'jabber-silent-process-data #[771 "\300\ 1!\203\r\0\211\ 3\ 3\"\202!\0\211;\203\1d\0\211\301\302\303\ 5!!Q\202!\0\304\305\ 3\"\306\211\2057\0\211@\307\ 1\310p\ 6\ 6$\210\ 1A\266\202\202\"\0\207" [functionp ": " jabber-parse-error jabber-iq-error format "%S" (jabber-info-message-hooks jabber-alert-info-message-hooks) run-hook-with-args browse] 11 (#$ . 6196)])
(provide 'jabber-iq)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require jabber-core jabber-util jabber-keymap] 2)
	9	#@54 Alist of open query id and their callback functions.\1f
	10	(defvar jabber-open-info-queries nil (#$ . 188))
	11	#@60 Mapping from XML namespace to handler for IQ GET requests.\1f
	12	(defvar jabber-iq-get-xmlns-alist nil (#$ . 298))
	13	#@60 Mapping from XML namespace to handler for IQ SET requests.\1f
	14	(defvar jabber-iq-set-xmlns-alist nil (#$ . 413))
	15	(defvar jabber-browse-mode-map (byte-code "\301 \302\ 1\b\"\210\303\ 1\304\305#\210\207" [jabber-common-keymap make-sparse-keymap set-keymap-parent define-key [mouse-2] jabber-popup-combined-menu] 5))
	16	(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\312\313\314\315\306\307%\210\300\316\302\303\317DD\320\310\321\306\313&\a\207" [custom-declare-variable jabber-browse-mode-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run when entering Browse mode." :group jabber :type hook custom-declare-group jabber-browse nil "browse display options" jabber-browse-buffer-format #[0 "\300\207" ["-jabber-browse:-%n-"] 1 #1#] "The format specification for the name of browse buffers.\n\nThese fields are available at this moment:\n\n%n JID to browse" string] 8)
	17	#@47 Jabber browse mode.
	18	\{jabber-browse-mode-map}\1f
	19	(defalias 'jabber-browse-mode #[0 "\304 \210\305\10\306\11\307\n!\210\310\13\311\312!\203\17\0\312\313!\207\314\313!\207" [major-mode mode-name jabber-browse-mode-map buffer-read-only kill-all-local-variables jabber-browse-mode "jabber-browse" use-local-map t fboundp run-mode-hooks jabber-browse-mode-hook run-hooks] 2 (#$ . 1300)])
	20	(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put jabber-browse-mode mode-class special add-to-list jabber-iq-chain jabber-process-iq] 4)
	21	#@173 Process an incoming iq stanza.
	22
	23	JC is the Jabber Connection.
	24	XML-DATA is the parsed tree data from the stream (stanzas)
	25	obtained from `xml-parse-region'.
	26
	27	(fn JC XML-DATA)\1f
	28	(defalias 'jabber-process-iq #[514 "\211\301\ 1:\205\v\0\302\ 2\ 2\"\266\202\ 1\303\ 1:\205\18\0\302\ 2\ 2\"\266\202\ 2\304\ 1:\205%\0\302\ 2\ 2\"\266\202\305\ 4!\306\ 4\b\"\ 3\307\230\204:\0\ 3\310\230\203Y\0\306\ 4\311\"A\ 1A8\211:\203Q\0\211@\ 6\b\ 6\b\ 3A#\210\210\312\ 1\b\"\211\10\207\ 1<\205\317\0\ 3\313\230\204j\0\ 3\314\230\205\317\0\315\306\ 5\313\316B\314\317BD\"A!\306\ 3\320\ 1:\205\203\0\302\ 2\ 2\"\266\202\ 2\"A\211\203\300\0\3211\256\0\3221\235\0\211\ 6 \ 6 \"00\2070\323\324\ 6\v\ 6\b\ 6\v\ 6 \ 6\ 6A&\ 6\207\324\ 6\n\ 6\a\ 6\n\ 6\b\325\326\327\ 6\b!&\a\207\324\ 6 \ 6\ 6\ 6 \ 6\a\330\331&\ 6\266\202\207" [jabber-open-info-queries id xml-get-attribute-or-nil type from jabber-iq-query assoc "result" "error" (("result" . 0) ("error" . 1)) delq "get" "set" eval jabber-iq-get-xmlns-alist jabber-iq-set-xmlns-alist xmlns (error) (jabber-error) apply jabber-send-iq-error "wait" internal-server-error error-message-string "cancel" feature-not-implemented] 19 (#$ . 1824)])
	29	#@945 Send an iq stanza to the specified entity, and optionally set up a callback.
	30	JC is the Jabber connection.
	31	TO is the addressee.
	32	TYPE is one of "get", "set", "result" or "error".
	33	QUERY is a list containing the child of the iq node in the format
	34	`jabber-sexp2xml' accepts.
	35	SUCCESS-CALLBACK is the function to be called when a successful result arrives.
	36	SUCCESS-CLOSURE-DATA is an extra argument to SUCCESS-CALLBACK.
	37	ERROR-CALLBACK is the function to be called when an error arrives.
	38	ERROR-CLOSURE-DATA is an extra argument to ERROR-CALLBACK.
	39	RESULT-ID is the id to be used for a response to a received iq message.
	40	`jabber-report-success' and `jabber-process-data' are common callbacks.
	41
	42	The callback functions are called like this:
	43	(funcall CALLBACK JC XML-DATA CLOSURE-DATA)
	44	with XML-DATA being the IQ stanza received in response.
	45
	46	(fn JC TO TYPE QUERY SUCCESS-CALLBACK SUCCESS-CLOSURE-DATA ERROR-CALLBACK ERROR-CLOSURE-DATA &optional RESULT-ID)\1f
	47	(defalias 'jabber-send-iq #[2312 "\211\206\n\0\301\302\303\304 #\ 5\204\12\0\ 3\203\1f\0\211\ 6\ 6\ 6\ 6B\ 5\ 5BE\bB\10\305\ 6\n\306\307\ 6\f\205.\0\310\ 6\rBC\311\ 6\rBC\312\ 6\aBC#\ 6\nE\"\207" [jabber-open-info-queries apply format "emacs-iq-%d.%d.%d" current-time jabber-send-sexp iq append to type id] 18 (#$ . 2865)])
	48	#@700 Send an error iq stanza in response to a previously sent iq stanza.
	49	Send an error iq stanza to the specified entity in response to a
	50	previously sent iq stanza.
	51	TO is the addressee.
	52	ID is the id of the iq stanza that caused the error.
	53	ORIGINAL-QUERY is the original query, which should be included in the
	54	error, or nil.
	55	ERROR-TYPE is one of "cancel", "continue", "modify", "auth"
	56	and "wait".
	57	CONDITION is a symbol denoting a defined XMPP condition.
	58	TEXT is a string to be sent in the error message, or nil for no text.
	59	APP-SPECIFIC is a list of extra XML tags.
	60	JC is the Jabber connection.
	61
	62	See section 9.3 of XMPP Core.
	63
	64	(fn JC TO ID ORIGINAL-QUERY ERROR-TYPE CONDITION &optional TEXT APP-SPECIFIC)\1f
65	(defalias 'jabber-send-iq-error #[2054 "\300\ 6\b\301\302\ 6\n\205\ f\0\303\ 6\vBC\304\305\ 6\f\206\17\0\306BD\"\ 6\b\307\310\ 6\nBC\ 6 \311B\ 6 \2050\0\312\313\ 6\vE\ 6 BBBBF\"\207" [jabber-send-sexp iq append to (type . "error") id "" error type (((xmlns . "urn:ietf:params:xml:ns:xmpp-stanzas"))) text ((xmlns . "urn:ietf:params:xml:ns:xmpp-stanzas"))] 19 (#$ . 4100)])
66	#@201 Process random results from various requests.
67
68	JC is the Jabber connection.
69	XML-DATA is the parsed tree data from the stream (stanzas)
70	obtained from `xml-parse-region'.
71
72	(fn JC XML-DATA CLOSURE-DATA)\1f
73	(defalias 'jabber-process-data #[771 "\ 1\304\ 1:\205\v\0\305\ 2\ 2\"\266\202\206\16\0\306\307\ 4!\310\"\311\ 3!\210\312\ 3\313\ 1:\205&\0\305\ 2\ 2\"\266\ 3\312r\314\315\b\316\ 6\ 6BC\"!q\210 \317=\204?\0\317 \210\312\12db\210\320\ 3\321\322#\323\261\ 2\210\212\324\ 4!\203^\0\ 3\ 6\ 6\ 6\ 6\"\210\202y\0\ 3;\203r\0\ 3\325\326\327\ 6\b!!\323\261\ 4\210\202y\0\330\331\ 6\ 6\"c\210\332\211\205\221\0\211@\333\ 1\334p\v\334p\"$\210\ 1A\266\202\202z\0\262\ 1*\207" [jabber-browse-buffer-format major-mode buffer-read-only jabber-alert-info-message-function from xml-get-attribute-or-nil plist-get fsm-get-state-data :server jabber-iq-xmlns nil type get-buffer-create format-spec 110 jabber-browse-mode jabber-propertize face jabber-title-large "\n\n" functionp ": " jabber-parse-error jabber-iq-error format "%S\n\n" (jabber-info-message-hooks jabber-alert-info-message-hooks) run-hook-with-args browse] 15 (#$ . 5148)])
74	#@221 Process random results from various requests to only alert hooks.
75
76	JC is the Jabber connection.
77	XML-DATA is the parsed tree data from the stream (stanzas)
78	obtained from `xml-parse-region'.
79
80	(fn JC XML-DATA CLOSURE-DATA)\1f
81	(defalias 'jabber-silent-process-data #[771 "\300\ 1!\203\r\0\211\ 3\ 3\"\202!\0\211;\203\1d\0\211\301\302\303\ 5!!Q\202!\0\304\305\ 3\"\306\211\2057\0\211@\307\ 1\310p\ 6\ 6$\210\ 1A\266\202\202\"\0\207" [functionp ": " jabber-parse-error jabber-iq-error format "%S" (jabber-info-message-hooks jabber-alert-info-message-hooks) run-hook-with-args browse] 11 (#$ . 6196)])
82	(provide 'jabber-iq)