[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-ping.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\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)
#@239 Send XEP-0199 ping IQ stanza.
JC is connection to use, TO is full JID, PROCESS-FUNC is fucntion to call to
process result, ON-SUCCESS and ON-ERROR is arg for this function depending on
result.

(fn JC TO PROCESS-FUNC ON-SUCCESS ON-ERROR)\1f
(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)])
#@73 Ping XMPP entity.
TO is full JID.  All connected JIDs is used.

(fn TO)\1f
(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)])
#@177 Handle results from ping 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-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)])
(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)
#@252 Return pong as defined in XEP-0199.
Sender and Id are determined from the incoming packet passed in XML-DATA.

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-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)])
(provide 'jabber-ping)
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\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)