;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [require rudel-backend rudel-xml rudel-xmpp defalias rudel-xmpp-tunnel-transport-p eieio-make-class-predicate rudel-xmpp-tunnel-transport rudel-xmpp-tunnel-transport--eieio-childp eieio-make-child-predicate rudel-xmpp-tunnel-transport-child-p make-obsolete "use (cl-typep ... \\='rudel-xmpp-tunnel-transport) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (rudel-xmpp-transport) nil (:documentation "Transport backend that tunnels any kind of data (not\nnecessarily XML) through an XMPP connection.")] 6) #@84 Create a new object of class type `rudel-xmpp-tunnel-transport'. (fn &rest SLOTS) (defalias 'rudel-xmpp-tunnel-transport #[128 "\300\301\302#\207" [apply make-instance rudel-xmpp-tunnel-transport] 5 (#$ . 1126)]) (byte-code "\300\301\302\303#\300\207" [function-put rudel-xmpp-tunnel-transport compiler-macro rudel-xmpp-tunnel-transport--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'rudel-xmpp-tunnel-transport--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1488)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312!\313\314#\210\315\316!\207" [cl-generic-define-method rudel-send nil ((this rudel-xmpp-tunnel-transport) data) #[514 "\300!\301\302D\"\207" [base64-encode-string rudel-send ("data")] 7 "\n\n(fn THIS DATA)"] rudel-message ((this rudel-xmpp-tunnel-transport) xml) #[514 "\211\211\300\301\"\206 \302\266\202\303!\304\"\262\262\207" [data xml-get-attribute-or-nil "" base64-decode-string rudel-accept] 8 "\n\n(fn THIS XML)"] rudel-add-backend rudel-backend-get-factory transport xmpp rudel-xmpp-tunnel-backend provide rudel-xmpp-tunnel] 6)