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