Reorganización de directorios

[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-conn.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\3001\f\0\301\302!0\210\202\r\0\210\3031\18\0\301\304!0\202\1c\0\210\202\1f\0\204,\0\3051+\0\301\306!0\210\202,\0\210\30718\0\301\310!0\210\2029\0\210\301\311!\210\312\313\314\315\316\317%\207" [(error) require gnutls (error) tls (error) ssl (error) starttls srv custom-declare-group jabber-conn nil "Jabber Connection Settings." :group jabber] 6)
#@40 Return non-nil if we can use STARTTLS.\1f
(defalias 'jabber-have-starttls #[0 "\302\303!\203\v\0\303 \206.\0\304\305!\205.\0\306\300!\203!\0\b\203!\0\307\b!\206.\0\306\301!\205.\0	\205.\0\307	!\207" [starttls-gnutls-program starttls-program fboundp gnutls-available-p featurep starttls boundp executable-find] 2 (#$ . 427)])
#@56 Default connection type.
See `jabber-connect-methods'.\1f
(defconst jabber-default-connection-type (byte-code "\300 \203\a\0\301\207\302\207" [jabber-have-starttls starttls network] 1) (#$ . 744))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\210\300\312\302\303\313DD\314\306\315\310\311&\a\207" [custom-declare-variable jabber-connection-ssl-program funcall function #[0 "\300\207" [nil] 1 #1=""] "Program used for SSL/TLS connections.\nnil means prefer gnutls but fall back to openssl.\n'gnutls' means use gnutls (through `open-tls-stream').\n'openssl means use openssl (through `open-ssl-stream')." :type (choice (const :tag "Prefer gnutls, fall back to openssl" nil) (const :tag "Use gnutls" gnutls) (const :tag "Use openssl" openssl)) :group jabber-conn jabber-invalid-certificate-servers #[0 "\300\207" [nil] 1 #1#] "Jabber servers for which we accept invalid TLS certificates.\nThis is a list of server names, each matching the hostname part\nof your JID.\n\nThis option has effect only when using native GnuTLS in Emacs 24\nor later." (repeat string)] 8)
#@158 Alist of connection methods and functions.
First item is the symbol naming the method.
Second item is the connect function.
Third item is the send function.\1f
(defvar jabber-connect-methods (byte-code "\300\301\302\303!\203\11\0\303 \203\11\0\304\202\12\0\305\306BB\307BB\207" [(network jabber-network-connect jabber-network-send) starttls fboundp gnutls-available-p jabber-network-connect jabber-starttls-connect (jabber-network-send) ((ssl jabber-ssl-connect jabber-ssl-send) (virtual jabber-virtual-connect jabber-virtual-send))] 4) (#$ . 1820))
#@107 Get the connect function associated with TYPE.
TYPE is a symbol; see `jabber-connection-type'.

(fn TYPE)\1f
(defalias 'jabber-get-connect-function #[257 "\211\b\236\211A@\207" [jabber-connect-methods] 3 (#$ . 2365)])
#@104 Get the send function associated with TYPE.
TYPE is a symbol; see `jabber-connection-type'.

(fn TYPE)\1f
(defalias 'jabber-get-send-function #[257 "\211\b\236\301\ 18\207" [jabber-connect-methods 2] 4 (#$ . 2586)])
#@176 Find host and port to connect to.
If NETWORK-SERVER and/or PORT are specified, use them.
If we can't find SRV records, use standard defaults.

(fn SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-srv-targets #[771 "\ 1\204\b\0\211\203\15\0\ 1\206\r\0\ 2\ 1\206\12\0\300BC\207\3011\"\0\302\303\ 4P!0\202&\0\210\202)\0\206-\0\ 2\300BC\207" [5222 (error) srv-lookup "_xmpp-client._tcp."] 6 (#$ . 2803)])
#@245 Connect to a Jabber server with a plain network connection.
Send a message of the form (:connected CONNECTION) to FSM if
connection succeeds.  Send a message (:connection-failed ERRORS) if
connection fails.

(fn FSM SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-network-connect #[1028 "\300\301\302\"\203\ e\0\303\ 4\ 4\ 4\ 4$\207\304\ 4\ 4\ 4\ 4$\207" [featurep make-network-process (:nowait t) jabber-network-connect-async jabber-network-connect-sync] 9 (#$ . 3182)])
#@39 

(fn FSM SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-network-connect-async #[1028 "\300\ 3\ 3\ 3#\301C\ 5\301C\211\302\303\ 5\ 5\ 5$\240\210\304\305\ 5@@\ 6\ 6@A#\210\211\242\ 4@\ 5A\"\207" [jabber-srv-targets nil make-closure #[514 "\ 1\ 1\304\305\301\"\304\306\300\301\302\ 6\a\ 6\a&\ 6\3071F\0\3101=\0\311\312\313\314\315\v!\316\ 6\v@\317\ 6\rA\320\321\322\323\324\325\211\304\326\ 6\13\ 6\13#\266\202&\ e00\2070\ 1\325\ 2AA@\"\207\ 1\325\327\ 3!\"\207" [V0 V1 V2 jabber-process-buffer make-closure #[257 "\301\300\302\ 3D\"\207" [V0 fsm-send :connected] 5 "\n\n(fn C)"] #[514 "\211G\305V\203\17\0\211\ 1GSH\306=\203\17\0\211\305\307O\262\ 1\310\311\303@\303A\ 4$\312\313\ 2\"\210\300\ 1\300\242B\240\266\ 2\ 1\2034\0\314\ 2!\210\304\203J\0\312\315\304@@\304@A#\210\302\242\304@\304A\"\207\316\301\317\300\242\237D\"\207" [V0 V1 V2 V3 V4 0 10 -1 format "Couldn't connect to %s:%s: %s" message "%s" delete-process "Connecting to %s:%s..." fsm-send :connection-failed] 7 "\n\n(fn C STATUS)"] (error) (file-error) make-network-process :name "jabber" :buffer generate-new-buffer :host :service :coding utf-8 :nowait t :sentinel nil #[514 "\302\303\ 2\"\203\v\0\300\ 2!\207\302\304\ 2\"\203\17\0\301\ 2\ 2\"\207\302\305\ 2\"\203 \0\306\207\307\310\ 2\"\207" [V0 V1 string-match "^open" "^failed" "^deleted" nil message "Unknown sentinel status `%s'"] 5 "\n\n(fn CONNECTION STATUS)"] error-message-string] 26 "\n\n(fn TARGET REMAINING-TARGETS)"] message "Connecting to %s:%s..."] 14 (#$ . 3639)])
#@39 

(fn FSM SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-network-connect-sync #[1028 "\303\211\304\ 5\ 5\ 5#\305\ 2\18\ 3\19\3062\233\0\ 1\211\203\221\0\211@\3071q\0\3101S\0\311\n!\305C\312\313\ 3\ 3#\216\211\314\315\ 4\ 6\ 6@\ 6\aA$\240\210)\211\242\205K\0\316\ 6\f\317\ 3\242D\"\210\320\306\ 2\242\"\266\20200\210\202\212\00\321\322\ 3@\ 4A\ 4AA@$\323\324\ 2\"\210\211\ 5B\211\262\ 6\262\ 1\266\ 2\202\212\0\321\322\ 3@\ 4A\325\ 5!$\323\324\ 2\"\210\211\ 5B\211\262\ 6\262\ 1\266\ 2\ 1A\266\202\202\11\0\210\316\ 6\b\326\ 3\237D\"0*\207" [coding-system-for-write coding-system-for-read jabber-process-buffer utf-8 jabber-srv-targets nil connected (error) (file-error) generate-new-buffer make-closure #[0 "\301\242\206\ 6\0\n?\205\r\0\303\300!\207" [V0 V1 jabber-debug-keep-process-buffers kill-buffer] 2] open-network-stream "jabber" fsm-send :connected throw format "Couldn't connect to %s:%s: %s" message "%s" error-message-string :connection-failed] 18 (#$ . 5033)])
#@91 Send a string via a plain TCP/IP connection to the Jabber Server.

(fn CONNECTION STRING)\1f
(defalias 'jabber-network-send #[514 "\300\ 2\ 2\"\207" [process-send-string] 5 (#$ . 5922)])
#@235 Connect via OpenSSL or GnuTLS to a Jabber Server.
Send a message of the form (:connected CONNECTION) to FSM if
connection succeeds.  Send a message (:connection-failed ERRORS) if
connection fails.

(fn FSM SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-ssl-connect #[1028 "\305\211\b\306>\203\12\0\307\310!\203\12\0\310\202%\0\b\311>\203\"\0\307\312!\203\"\0\312\202%\0\313\314!\315\ 2\19\ 3\1a\316\v!\315\ 6\a\2065\0\ 6\b\262\b\ 6\ 6\206=\0\317\262\a\3201S\0\ 3\321\ 3\ 6\n\ 6\n$\211\262\ 20\210\202e\0\322\323\ 6\n\ 6\n\324\ 5!$\262\ 4\325\326\ 5\"\266\ 2\211\204q\0\f\204q\0\327\ 2!\210\211\203\201\0\330\ 6\n\331\ 3D\"\266\202\202\217\0\330\ 6\n\332\ 5\205\213\0\ 5CD\"\266\202*\207" [jabber-connection-ssl-program coding-system-for-write coding-system-for-read jabber-process-buffer jabber-debug-keep-process-buffers utf-8 (nil gnutls) fboundp open-tls-stream (nil openssl) open-ssl-stream error "Neither TLS nor SSL connect functions available" nil generate-new-buffer 5223 (error) "jabber" format "Couldn't connect to %s:%d: %s" error-message-string message "%s" kill-buffer fsm-send :connected :connection-failed] 17 (#$ . 6109)])
#@93 Send a string via an SSL-encrypted connection to the Jabber Server.

(fn CONNECTION STRING)\1f
(defalias 'jabber-ssl-send #[514 "\300\ 2\ 2\"\210\300\ 2\301\"\207" [process-send-string "\n"] 5 (#$ . 7177)])
#@244 Connect via an external GnuTLS process to a Jabber Server.
Send a message of the form (:connected CONNECTION) to FSM if
connection succeeds.  Send a message (:connection-failed ERRORS) if
connection fails.

(fn FSM SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-starttls-connect #[1028 "\303\211\304\ 5\ 5\ 5#\305\ 2\18\ 3\19\306\307!\204\16\0\310\311!\210\3122\227\0\ 1\211\203\215\0\211@\3131r\0\314\n!\305C\315\316\ 3\ 3#\216\211\307\317\ 4\ 6\ 6@\ 6\aA$\240\210)\211\242\204]\0\320\321\ 4@\ 5A#\322\323\ 2\"\210\211\ 6\ 6B\211\262\a\262\ 1\266\202\202m\0\324\ 6\f\325\ 3\242D\"\210\326\312\ 2\242\"\266\2020\210\202\206\0\320\327\ 3\330\ 4!#\322\323\ 2\"\210\211\ 5B\211\262\ 6\266\ 3\ 1A\266\202\202\e\0\210\324\ 6\b\331\ 3\237D\"0*\207" [coding-system-for-write coding-system-for-read jabber-process-buffer utf-8 jabber-srv-targets nil fboundp starttls-open-stream error "The starttls.el library is not available" connected (error) generate-new-buffer make-closure #[0 "\301\242\206\ 6\0\n?\205\r\0\303\300!\207" [V0 V1 jabber-debug-keep-process-buffers kill-buffer] 2] "jabber" format "Couldn't connect to %s:%s" message "%s" fsm-send :connected throw "Couldn't connect to %s: %s" error-message-string :connection-failed] 18 (#$ . 7382)])
#@43 Initiate a STARTTLS connection.

(fn FSM)\1f
(defalias 'jabber-starttls-initiate #[257 "\300\ 1\301\"\207" [jabber-send-sexp (starttls ((xmlns . "urn:ietf:params:xml:ns:xmpp-tls")))] 4 (#$ . 8550)])
#@176 Process result of starttls request.
On failure, signal error.

XML-DATA is the parsed tree data from the stream (stanzas)
obtained from `xml-parse-region'.

(fn FSM XML-DATA)\1f
(defalias 'jabber-starttls-process-input #[514 "\211@\301=\2039\0\302\ 2!\303\ 1\304\"\305\ 1!\211\306\267\2027\0\303\ 3\307\"\211\b\235?\310\311\ 5\312\ 5\313\ 6\ 6\314\ 6\b&\b\207\315\ 2!\2068\0\316\317!\207\320\207\211@\321=\205C\0\316\322!\207" [jabber-invalid-certificate-servers proceed fsm-get-state-data plist-get :connection process-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (network 23 real 45)) :server gnutls-negotiate :process :hostname :verify-hostname-error :verify-error starttls-negotiate error "Negotiation failure" nil failure "Command rejected by server"] 16 (#$ . 8751)])
#@174 Function to use for sending stanzas on a virtual connection.
The function should accept two arguments, the connection object
and a string that the connection wants to send.\1f
(defvar *jabber-virtual-server-function* nil (#$ . 9547))
#@188 Connect to a virtual "server".
Use `*jabber-virtual-server-function*' as send function.
FSM is the finite state machine created in jabber.el library.

(fn FSM SERVER NETWORK-SERVER PORT)\1f
(defalias 'jabber-virtual-connect #[1028 "\301\b!\204\n\0\302\303!\210\304\ 4\305\ 6\ 6D\"\207" [*jabber-virtual-server-function* functionp error "No virtual server function specified" fsm-send :connected] 8 (#$ . 9785)])
#@26 

(fn CONNECTION STRING)\1f
(defalias 'jabber-virtual-send #[514 "\b\ 2\ 2\"\207" [*jabber-virtual-server-function*] 5 (#$ . 10192)])
(provide 'jabber-conn)