| | 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\300\304!\210\305\306\307\310B\"\207" [require jabber-iq jabber-util jabber-menu jabber-disco add-to-list jabber-jid-info-menu "Ping" jabber-ping] 4) |
| | 9 | #@239 Send XEP-0199 ping IQ stanza. |
| | 10 | JC is connection to use, TO is full JID, PROCESS-FUNC is fucntion to call to |
| | 11 | process result, ON-SUCCESS and ON-ERROR is arg for this function depending on |
| | 12 | result. |
| | 13 | |
| | 14 | (fn JC TO PROCESS-FUNC ON-SUCCESS ON-ERROR)\1f |
| | 15 | (defalias 'jabber-ping-send #[1285 "\300\ 5\ 5\301\302\ 6\a\ 6\a\ 6 \ 6\b&\b\207" [jabber-send-iq "get" (ping ((xmlns . "urn:xmpp:ping")))] 14 (#$ . 286)]) |
| | 16 | #@73 Ping XMPP entity. |
| | 17 | TO is full JID. All connected JIDs is used. |
| | 18 | |
| | 19 | (fn TO)\1f |
| | 20 | (defalias 'jabber-ping #[257 "\b\211\205\16\0\211@\301\ 1\ 4\302\303\304%\210\ 1A\266\202\202\ 1\0\207" [jabber-connections jabber-ping-send jabber-silent-process-data jabber-process-ping "Ping is unsupported"] 9 (#$ . 670) (byte-code "\300\301\302\211\211\303%C\207" [jabber-read-jid-completing "Send ping to: " nil full] 6)]) |
| | 21 | #@177 Handle results from ping requests. |
| | 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-ping #[514 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\302\303\ 2\"\207" [from xml-get-attribute-or-nil format "%s is alive"] 7 (#$ . 1064)]) |
| | 29 | (byte-code "\300\301\302\303B\"\210\304\302!\207" [add-to-list jabber-iq-get-xmlns-alist "urn:xmpp:ping" jabber-pong jabber-disco-advertise-feature] 4) |
| | 30 | #@252 Return pong as defined in XEP-0199. |
| | 31 | Sender and Id are determined from the incoming packet passed in XML-DATA. |
| | 32 | |
| | 33 | JC is the Jabber connection. |
| | 34 | XML-DATA is the parsed tree data from the stream (stanzas) |
| | 35 | obtained from `xml-parse-region'. |
| | 36 | |
| | 37 | (fn JC XML-DATA)\1f |
| | 38 | (defalias 'jabber-pong #[514 "\211\300\ 1:\205\v\0\301\ 2\ 2\"\266\202\ 1\302\ 1:\205\18\0\301\ 2\ 2\"\266\202\303\ 4\ 3\304\305\211\211\211\211\ 6 & \207" [from xml-get-attribute-or-nil id jabber-send-iq "result" nil] 14 (#$ . 1555)]) |
| | 39 | (provide 'jabber-ping) |
projects / config.git / blame_incremental