Current File : //usr/local/share/emacs/27.2/lisp/url/url-gw.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\304\305\"\210\306\307\310\311\312\313%\210\314\315\310\316\317\320\312\307&\210\314\321\322\323\317\324\312\307&\210\314\325\310\326\317\327\312\307&\210\314\330\310\331\317\332\312\307&\210\314\333\334\335\317\336\312\307&\210\314\337\310\340\317\341\312\307&\210\314\342\343\344\317\345\312\307&\210\314\346\347\350\317\324\312\307&\210\314\351\352\353\317\324\312\307&\210\314\354\310\355\317\356\312\307&\210\314\357\310\360\317\361\312\307&\210\314\362\310\363\317\364\312\307&\210\314\365\366\367\317\370\312\307&\207" [require url-vars url-parse autoload socks-open-network-stream "socks" custom-declare-group url-gateway nil "URL gateway variables." :group url custom-declare-variable url-gateway-local-host-regexp "A regular expression specifying local hostnames/machines." :type (choice (const nil) regexp) url-gateway-prompt-pattern "^[^#$%>;]*[#$%>;] *" "A regular expression matching a shell prompt." regexp url-gateway-rlogin-host "What hostname to actually rlog into before doing a telnet." (choice (const nil) string) url-gateway-rlogin-user-name "Username to log into the remote machine with when using rlogin." (choice (const nil) string) url-gateway-rlogin-parameters '("telnet" "-8") "Parameters to `url-open-rlogin'.\nThis list will be used as the parameter list given to rsh." (repeat string) url-gateway-telnet-host "What hostname to actually login to before doing a telnet." (choice (const nil) string) url-gateway-telnet-parameters '("exec" "telnet" "-8") "Parameters to `url-open-telnet'.\nThis list will be executed as a command after logging in via telnet." (repeat string) url-gateway-telnet-login-prompt "^
*.?login:" "Prompt that tells us we should send our username when logging in w/telnet." url-gateway-telnet-password-prompt "^
*.?password:" "Prompt that tells us we should send our password when logging in w/telnet." url-gateway-telnet-user-name "User name to log in via telnet with." (choice (const nil) string) url-gateway-telnet-password "Password to use to log in via telnet with." (choice (const nil) string) url-gateway-broken-resolution "Whether to use nslookup to resolve hostnames.\nThis should be used when your version of Emacs cannot correctly use DNS,\nbut your machine can. This usually happens if you are running a statically\nlinked Emacs under SunOS 4.x." boolean url-gateway-nslookup-program "nslookup" "If non-nil then a string naming nslookup program." (choice (const :tag "None" :value nil) string)] 8)
#@63 Attempt to resolve the given HOST using nslookup if possible.
(defalias 'url-gateway-nslookup-host #[(host) "\203@ \304\305\211 $ \306 \307\"\210r\310 !q\210\311 !\312>\203' \313 !\210\202 eb\210\314\315\307\316#\2038 \317\224\317\225{\320p!\210)\n*\207 \207" [url-gateway-nslookup-program host res proc start-process " *nslookup*" set-process-query-on-exit-flag nil process-buffer process-status (run open) accept-process-output re-search-forward "Name:.*\nAddress: *\\(.*\\)$" t 1 kill-buffer] 5 (#$ . 2926) "sHost: "])
#@69 Wait until string matching REGEXP arrives in process PROC's buffer.
(defalias 'url-wait-for-string #[(regexp proc) "peb\210\303 \304\305#?\205 \306\n!\210q\210eb\210\202 )\207" [buf regexp proc re-search-forward nil t accept-process-output] 4 (#$ . 3461)])
#@30 Open a connection using rsh.
(defalias 'url-open-rlogin #[(name buffer host service) ";\204 \306! \203$ \307\n \310\f\311 \312\313\314
D\"\315#&\2025 \307\n \310\f\312\313\314
D\"\315#% q\210\316\317\"\210\320 \210e`|\210)\207" [service url-gateway-rlogin-user-name name buffer url-gateway-rlogin-host url-gateway-rlogin-parameters int-to-string start-process "rsh" "-l" mapconcat identity append " " url-wait-for-string "^
*200" beginning-of-line host proc] 13 (#$ . 3728)])
(defalias 'url-open-telnet #[(name buffer host service) ";\204 \306!r\307 !q\210\310 \210\311\n \312\313$\314 \315\f!\316>\203\245 \317\f\320\"\210\317\f\321
\322Q\"\210\323$\f\"\210\317\f%\206C \324\325!\211%\322P\"\210\323&\f\"\210\317\f'\206Z \326\327!\211'\322P\"\210\310 \210\323(\f\"\210\317\f\330\331\332)*D\"\333#\322P\"\210\323\334\f\"\210e\335\225|\210\317\f\336\"\210\323\337\f\"\210\317\f\340\"\210\341\f\342\"\210\343\342!\210eb\210\342y\210`d|\210\f+\207" [service buffer name case-fold-search proc url-gateway-telnet-host int-to-string get-buffer-create erase-buffer start-process "telnet" "-8" t process-status (open run) process-send-string "set escape \n" "open " "\n" url-wait-for-string read-string "login: " read-passwd "Password: " mapconcat identity append " " "^
*Escape character.*
*\n+" 0 " \n" "^telnet" "mode character\n" accept-process-output 1 sit-for url-gateway-telnet-login-prompt url-gateway-telnet-user-name url-gateway-telnet-password-prompt url-gateway-telnet-password url-gateway-prompt-pattern url-gateway-telnet-parameters host] 8])
#@322 Open a stream to HOST, possibly via a gateway.
Args per `open-network-stream'.
Will not make a connection if `url-gateway-unplugged' is non-nil.
Might do a non-blocking connection; use `process-status' to check.
Optional arg GATEWAY-METHOD specifies the gateway to be used,
overriding the value of `url-gateway-method'.
(defalias 'url-open-stream #[(name buffer host service &optional gateway-method) "?\205\267 \206\n \n\f\203& \306=\204& \307=\204& \310\f
\"\203& \311\202' !\312 \"\313 #\314\211 $ %&\203> \315
!\316\211 ' (!\317\267\202\252 !\311=\203U \320!\321)*
+\322!\323\324\325!\205\201 \326,!->\204y \327\330\331,D\"\210,\332H\205\201 \333&\202\256 \334)*
+$\202\256 \335)*
+$\202\256 \336)*
+$\202\256 \337\340\n\"\211%*\210%.\207" [url-gateway-unplugged gateway-method url-gateway-method gwm url-gateway-local-host-regexp host tls ssl string-match native 0 t nil url-gateway-nslookup-host binary #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (native 75 ssl 75 tls 75 socks 134 telnet 146 rlogin 158)) plain open-network-stream :type :nowait featurep make-network-process type-of signal wrong-type-argument url 12 (:nowait t) socks-open-network-stream url-open-telnet url-open-rlogin error "Bad setting of url-gateway-method: %s" gw-method cur-retries retry errobj conn url-gateway-broken-resolution coding-system-for-write coding-system-for-read name buffer service url-current-object cl-struct-url-tags] 13 (#$ . 5317)])
(provide 'url-gw)
Mini Shell