WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/net
Viewing File: /usr/share/emacs/24.3/lisp/net/tramp-gw.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:37 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-gw.el
;;; in Emacs version 24.3.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'tramp)
#@34 Method to connect HTTP gateways.
(defconst tramp-gw-tunnel-method "tunnel" (#$ . 572))
#@33 Default port for HTTP gateways.
(defconst tramp-gw-default-tunnel-port 8080 (#$ . 665))
#@34 Method to connect SOCKS servers.
(defconst tramp-gw-socks-method "socks" (#$ . 759))
#@33 Default port for SOCKS servers.
(defconst tramp-gw-default-socks-port 1080 (#$ . 850))
(autoload 'socks-open-network-stream "socks")
(defvar socks-username (user-login-name))
(defvar socks-server (list "Default server" "socks" tramp-gw-default-socks-port 5))
(byte-code "\302\303\304\305	D!\306Q\307\310 E\"\207" [tramp-gw-tunnel-method tramp-gw-socks-method add-to-list tramp-default-user-alist "\\`" regexp-opt "\\'" nil user-login-name] 6)
#@67 Keeps the remote host identification.  Needed for Tramp messages.
(defvar tramp-gw-vector nil (#$ . 1300))
#@40 Current gateway identification vector.
(defvar tramp-gw-gw-vector nil (#$ . 1413))
#@26 Current gateway process.
(defvar tramp-gw-gw-proc nil (#$ . 1502))
#@76 Process listening on local port, as mediation between SSH and the gateway.
(defvar tramp-gw-aux-proc nil (#$ . 1575))
#@47 Delete auxiliary process when we are deleted.
(defalias 'tramp-gw-gw-proc-sentinel #[(proc event) "\306!\307>?\205/	\310\311\nC\312\313\314\217\210,\312\315\316\312#\317!\205.\320!*\207" [proc tramp-gw-vector tramp-gw-gw-proc args fmt-string level process-status (run open) 4 "Deleting auxiliary process `%s'" nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-get-connection-property "process" processp delete-process vec-or-proc tramp-verbose p] 4 (#$ . 1699)])
#@78 Activate the different filters for involved gateway and auxiliary processes.
(defalias 'tramp-gw-aux-proc-sentinel #[(proc event) "\306!\307>\205T	\310\311\nD\312\313\314\217\210,\315\312\"\210\312\316\n\317#\210\316\317\n#\210)\320\321\"\210\320\n\321\"\210r\322\n!q\210edU?\205S\323 `d|\210\321\n\"))\207" [proc tramp-gw-vector tramp-gw-gw-proc args fmt-string level process-status (run open) 4 "Opening auxiliary process `%s', speaking with process `%s'" nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-compat-set-process-query-on-exit-flag tramp-set-connection-property "process" set-process-filter tramp-gw-process-filter process-buffer buffer-string vec-or-proc tramp-verbose s] 5 (#$ . 2806)])
(defalias 'tramp-gw-process-filter #[(proc string) "\303\304\305	\306\303#\n\")\207" [tramp-verbose proc string nil process-send-string tramp-get-connection-property "process"] 5])
#@389 Open a remote connection to VEC (see `tramp-file-name' structure).
Take GW-VEC as SOCKS or HTTP gateway, i.e. its method must be a
gateway method.  TARGET-VEC identifies where to connect to via
the gateway, it can be different from VEC when there are more
hops to be applied.

It returns a string like "localhost#port", which must be used
instead of the host name declared in TARGET-VEC.
(defalias 'tramp-gw-open-connection #[(vec gw-vec target-vec) "\n\306\f!\203\307\f!\310>\204S\311\312\313\n!\314\n!\315\211%\316\317\320
!\321\315\322\323\324\325\326\325\327\325\330\331&\332\f\333\"\210\334\f\315\"\210\335\336\f\337\f\327\"D<=>?\315\340\341\217\210-\342\343\344\n!\313\n!\314\n!#!@\345\344\n!\313\n!\314\n!#A\346\347\n!\350\n!\206\220\351@\352\"\203\206B\202\220\351@\353\"\205\220C\354FD\351@\352\"\203\240\355\202\251\351@\353\"\205\251\356E\315FE\357\n!\360\n!\347G!\350G!$H\332H\361\"\210\334H\315\"\210\335\362\363@\364\"\203\334\365\202\345\363@\366\"\205\345\367HD<=>?\315\370\371\217\210,\372\373\337\f\327\"\"-\207" [vec tramp-gw-vector gw-vec tramp-gw-gw-vector tramp-gw-aux-proc aux-vec processp process-status (listen) vector "aux" tramp-file-name-user tramp-file-name-host nil make-network-process :name tramp-buffer-name :buffer :host local :server t :noquery :service :coding binary set-process-sentinel tramp-gw-aux-proc-sentinel tramp-compat-set-process-query-on-exit-flag 4 "Opening auxiliary process `%s', listening on port %d" process-contact (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) intern tramp-find-method tramp-file-name-method tramp-find-user "Tramp temporary socks server list" tramp-file-name-real-host tramp-file-name-port eql tunnel socks 5 tramp-gw-open-network-stream socks-open-network-stream tramp-get-connection-name tramp-get-connection-buffer tramp-gw-gw-proc-sentinel "Opened %s process `%s'" memql 'tunnel "HTTP tunnel" 'socks "SOCKS" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) format "localhost#%d" args fmt-string level vec-or-proc gw-method socks-username tramp-gw-default-tunnel-port tramp-gw-default-socks-port socks-server socks-function socks-noproxy target-vec tramp-gw-gw-proc] 15 (#$ . 4338)])
#@157 Open stream to proxy server HOST:SERVICE.
Resulting process has name NAME and buffer BUFFER.  If
authentication is requested from proxy server, provide it.
(defalias 'tramp-gw-open-network-stream #[(name buffer host service) "\306\307		\n&\310\311\312\211:;\f\204{\313!\203\"\314!\210r<q\210\315 \210)\316=<>A@\317>8$\320\321\211#\210\322\312\"\210\323\306\324;:#\"\210?\325\326\306\324;\327\330\331:\311$#C@ABC\312\332\333\217\210,r<q\210\312\334\335\217\210eb\210e\336\337\312\311#\206\206d}\210?\325\326\340 C@ABC\312\341\342\217\210,eb\210\336\343\312\311#\210\312\344\345\217D\346D\347\"\203\271\311\202n\346D\350\"\203\312\351\312
\":\202n\346D\352\"\203\374p?\353\354C@AEC<\355 F\356\216\357\216\360\361CEA@%\210.\202n\346D\362\"\203
\351\311
\":\202n\346D\363\"\203@p?\353\364	D@AEC<\355 F\365\216\366\216\360\361CEA@%\210.\202np?\353\367>A@\317>8D@AEC<\355 F\370\216\371\216\360\361CEA@%\210.)ed|\210~\210\312)\202-\207" [host service tramp-version proc found first format "CONNECT %s:%d HTTP/1.1
\nHost: %s:%d
\nConnection: keep-alive
\nUser-Agent: Tramp/%s
\n" #1="" t nil processp delete-process erase-buffer open-network-stream 2 set-process-coding-system binary tramp-compat-set-process-query-on-exit-flag process-send-string "%s%s
\n" 6 "\n%s" replace-regexp-in-string "Basic [^
\n]+" "Basic xxxxx" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) (byte-code "\302\303	\304\305#\210)\302\207" [tramp-verbose proc nil tramp-wait-for-regexp 65 "
?\n
?\n"] 4) ((error)) search-forward-regexp "
?\n
?\n" buffer-string (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) "^HTTP/[1-9]\\.[0-9]" (byte-code "\300p!\207" [read] 2) ((error)) eql 200 401 tramp-gw-basic-authentication 404 file-error "Host %s not found." current-window-configuration ((set-window-configuration #5=#:wconfig)) ((byte-code "\2036	\2036\305\n!\2046\306 \2046\307\310\311\f!\203 \f\206/\312!\203,\313!\206/\314!!\210\315\316!\210)\305\207" [vec-or-proc tramp-message-show-message tramp-verbose enable-recursive-minibuffers buffer zerop tramp-completion-mode-p t pop-to-buffer bufferp processp process-buffer tramp-get-connection-buffer sit-for 30] 3)) apply tramp-error 407 503 "Connection to %s:%d failed." ((set-window-configuration #5#)) ((byte-code "\2036	\2036\305\n!\2046\306 \2046\307\310\311\f!\203 \f\206/\312!\203,\313!\206/\314!!\210\315\316!\210)\305\207" [vec-or-proc tramp-message-show-message tramp-verbose enable-recursive-minibuffers buffer zerop tramp-completion-mode-p t pop-to-buffer bufferp processp process-buffer tramp-get-connection-buffer sit-for 30] 3)) "Access to HTTP server %s:%d failed." ((set-window-configuration #5#)) ((byte-code "\2036	\2036\305\n!\2046\306 \2046\307\310\311\f!\203 \f\206/\312!\203,\313!\206/\314!!\210\315\316!\210)\305\207" [vec-or-proc tramp-message-show-message tramp-verbose enable-recursive-minibuffers buffer zerop tramp-completion-mode-p t pop-to-buffer bufferp processp process-buffer tramp-get-connection-buffer sit-for 30] 3)) authentication command buffer name socks-server tramp-gw-vector args fmt-string level vec-or-proc #6=#:--cl-var-- signal #5#] 11 (#$ . 7773)])
#@265 Return authentication header for CONNECT, based on server request.
PROXY is an indication whether we need a Proxy-Authorization header
or an Authorization header.  If PW-CACHE is non-nil, check for
password in password cache.  This is done for the first try only.
(defalias 'tramp-gw-basic-authentication #[(proxy pw-cache) "\306!\307!\310!\f\204\311!\210
\312\313\203 \314\202!\315C \316\317\320\217\210,eb\210\321\322!\210\323\324\203B\325\202C\326\327\323\330!\331\316\323\332!\333p!#\"#!#+\207" [tramp-gw-gw-vector tramp-current-host tramp-current-user tramp-current-method pw-cache tramp-gw-vector tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-clear-passwd 5 "%s required" "Proxy authentication" "Authentication" nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) search-forward-regexp "^\\(Proxy\\|WWW\\)-Authenticate:\\s-*Basic\\s-+realm=" format "%s: Basic %s
\n" "Proxy-Authorization" "Authorization" base64-encode-string "%s:%s" tramp-read-passwd "Password for %s@[%s]: " read proxy args fmt-string level vec-or-proc socks-username] 14 (#$ . 12248)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-gw force] 3] provide tramp-gw] 3)
F1l3 Manager
