| | 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) |
projects / config.git / blame_incremental