[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-version.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!\210\304\305\306\307\310DD\311\312\313\314\315&\a\210\316\317\320\321B\"\207" [require jabber-iq jabber-util jabber-ourversion custom-declare-variable jabber-version-show funcall function #[0 "\300\207" [t] 1 ""] "Show our client version to others.  Acts on loading." :type boolean :group jabber add-to-list jabber-jid-info-menu "Request software version" jabber-get-version] 8)
#@69 Request software version.

JC is the Jabber connection.

(fn JC TO)\1f
(defalias 'jabber-get-version #[514 "\300\ 2\ 2\301\302\303\304\303\305&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:version"))) jabber-process-data jabber-process-version "Version request failed"] 11 (#$ . 509) (byte-code "\300 \301\302\303\211\211\304\305&\ 6D\207" [jabber-read-account jabber-read-jid-completing "Request version of: " nil full t] 8)])
#@190 Handle results from jabber:iq:version 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)\1f
(defalias 'jabber-process-version #[514 "\300\ 1!\301\211\2051\0\211@\302\ 3\ 2@\"@\211AA\211\303\232?\205\e\0\211\266\202@\211\203)\0\ 1A\ 1\304\261\ 3\210\210\ 1A\266\202\202\ 4\0\207" [jabber-iq-query ((name . "Name:		") (version . "Version:	") (os . "OS:		")) jabber-xml-get-children (("")) "\n"] 9 (#$ . 946)])
(byte-code "\b\203\11\0\301\302\303\304B\"\203\11\0\305\303!\210\301\207" [jabber-version-show add-to-list jabber-iq-get-xmlns-alist "jabber:iq:version" jabber-return-version jabber-disco-advertise-feature] 4)
#@169 Return client version as defined in XEP-0092.
Sender and ID are determined from the incoming packet passed in XML-DATA.

JC is the Jabber connection.

(fn JC XML-DATA)\1f
(defalias 'jabber-return-version #[514 "\211\304\ 1:\205\v\0\305\ 2\ 2\"\266\202\ 1\306\ 1:\205\18\0\305\ 2\ 2\"\266\202\307\310\311\b	\n%\312\ 5\ 4\313\314\315\316\317\320\vE\321\320\ 6\nE\257\ 5\320\211\211\211\ 6\n&	\207" [emacs-major-version emacs-minor-version system-type jabber-version from xml-get-attribute-or-nil id format "%s %d.%d (%s)" "Emacs" jabber-send-iq "result" query ((xmlns . "jabber:iq:version")) (name nil "jabber.el") version nil os] 16 (#$ . 1640)])
(provide 'jabber-version)
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!\210\304\305\306\307\310DD\311\312\313\314\315&\a\210\316\317\320\321B\"\207" [require jabber-iq jabber-util jabber-ourversion custom-declare-variable jabber-version-show funcall function #[0 "\300\207" [t] 1 ""] "Show our client version to others. Acts on loading." :type boolean :group jabber add-to-list jabber-jid-info-menu "Request software version" jabber-get-version] 8)
	9	#@69 Request software version.
	10
	11	JC is the Jabber connection.
	12
	13	(fn JC TO)\1f
	14	(defalias 'jabber-get-version #[514 "\300\ 2\ 2\301\302\303\304\303\305&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:version"))) jabber-process-data jabber-process-version "Version request failed"] 11 (#$ . 509) (byte-code "\300 \301\302\303\211\211\304\305&\ 6D\207" [jabber-read-account jabber-read-jid-completing "Request version of: " nil full t] 8)])
	15	#@190 Handle results from jabber:iq:version requests.
	16
	17	JC is the Jabber connection.
	18	XML-DATA is the parsed tree data from the stream (stanzas)
	19	obtained from `xml-parse-region'.
	20
	21	(fn JC XML-DATA)\1f
	22	(defalias 'jabber-process-version #[514 "\300\ 1!\301\211\2051\0\211@\302\ 3\ 2@\"@\211AA\211\303\232?\205\e\0\211\266\202@\211\203)\0\ 1A\ 1\304\261\ 3\210\210\ 1A\266\202\202\ 4\0\207" [jabber-iq-query ((name . "Name: ") (version . "Version: ") (os . "OS: ")) jabber-xml-get-children (("")) "\n"] 9 (#$ . 946)])
	23	(byte-code "\b\203\11\0\301\302\303\304B\"\203\11\0\305\303!\210\301\207" [jabber-version-show add-to-list jabber-iq-get-xmlns-alist "jabber:iq:version" jabber-return-version jabber-disco-advertise-feature] 4)
	24	#@169 Return client version as defined in XEP-0092.
	25	Sender and ID are determined from the incoming packet passed in XML-DATA.
	26
	27	JC is the Jabber connection.
	28
	29	(fn JC XML-DATA)\1f
	30	(defalias 'jabber-return-version #[514 "\211\304\ 1:\205\v\0\305\ 2\ 2\"\266\202\ 1\306\ 1:\205\18\0\305\ 2\ 2\"\266\202\307\310\311\b \n%\312\ 5\ 4\313\314\315\316\317\320\vE\321\320\ 6\nE\257\ 5\320\211\211\211\ 6\n& \207" [emacs-major-version emacs-minor-version system-type jabber-version from xml-get-attribute-or-nil id format "%s %d.%d (%s)" "Emacs" jabber-send-iq "result" query ((xmlns . "jabber:iq:version")) (name nil "jabber.el") version nil os] 16 (#$ . 1640)])
	31	(provide 'jabber-version)