;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\306\307\310\311\312\313%\210\314\315\316\317\320DD\321\322\323\312\307&\210\314\324\316\317\325DD\326\322\327\312\307&\210\314\330\316\317\331DD\332\322\333\312\307&\210\314\334\316\317\335DD\336\322\337\312\307&\210\314\340\316\317\341DD\342\322\343\312\307&\210\314\344\316\317\345DD\346\322\347\312\307&\210\314\350\316\317\351DD\352\322\353\312\307&\210\314\354\316\317\355DD\356\322\327\312\307&\210\314\357\316\317\360DD\361\322\327\312\307&\210\314\362\316\317\363DD\364\322\365\312\307&\210\314\366\316\317\367DD\370\322\371\312\307&\210\314\372\316\317\373DD\374\322\375\312\307&\210\314\376\316\317\377DD\201@\322\201A\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 funcall function #[0 "\300\207" [nil] 1 #1=""] "A regular expression specifying local hostnames/machines." :type (choice (const nil) regexp) url-gateway-prompt-pattern #[0 "\300\207" ["^[^#$%>;]*[#$%>;] *"] 1 #1#] "A regular expression matching a shell prompt." regexp url-gateway-rlogin-host #[0 "\300\207" [nil] 1 #1#] "What hostname to actually rlog into before doing a telnet." (choice (const nil) string) url-gateway-rlogin-user-name #[0 "\300\207" [nil] 1 #1#] "Username to log into the remote machine with when using rlogin." (choice (const nil) string) url-gateway-rlogin-parameters #[0 "\300\207" [("telnet" "-8")] 1 #1#] "Parameters to `url-open-rlogin'.\nThis list will be used as the parameter list given to rsh." (repeat string) url-gateway-telnet-host #[0 "\300\207" [nil] 1 #1#] "What hostname to actually login to before doing a telnet." (choice (const nil) string) url-gateway-telnet-parameters #[0 "\300\207" [("exec" "telnet" "-8")] 1 #1#] "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 #[0 "\300\207" ["^
*.?login:"] 1 #1#] "Prompt that tells us we should send our username when logging in w/telnet." url-gateway-telnet-password-prompt #[0 "\300\207" ["^
*.?password:"] 1 #1#] "Prompt that tells us we should send our password when logging in w/telnet." url-gateway-telnet-user-name #[0 "\300\207" [nil] 1 #1#] "User name to log in via telnet with." (choice (const nil) string) url-gateway-telnet-password #[0 "\300\207" [nil] 1 #1#] "Password to use to log in via telnet with." (choice (const nil) string) url-gateway-broken-resolution #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" ["nslookup"] 1 #1#] "If non-nil then a string naming nslookup program." (choice (const :tag "None" :value nil) string)] 8)
#@74 Attempt to resolve the given HOST using nslookup if possible.

(fn HOST)
(defalias 'url-gateway-nslookup-host #[257 "\203=\301\302\211$
\303\304\"\210r\305!q\210\306!\307>\203%\310!\210\202eb\210\311\312\304\313#\2037\314\224\314\225{\262
\315p!\210)\207\207" [url-gateway-nslookup-program 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] 7 (#$ . 3093) "sHost:  "])
#@87 Wait until string matching REGEXP arrives in process PROC's buffer.

(fn REGEXP PROC)
(defalias 'url-wait-for-string #[514 "peb\210\300\301\302#?\205\303!\210\211q\210eb\210\202\207" [re-search-forward nil t accept-process-output] 7 (#$ . 3620)])
#@61 Open a connection using rsh.

(fn NAME BUFFER HOST SERVICE)
(defalias 'url-open-rlogin #[1028 "\211;\204\n\303
!\262
\203&\304\305	\306\307\310\311\n\f\fD\"\312#&\2028\304\305	\307\310\311\n\n\nD\"\312#%q\210\313\314\"\210\315 \210e`|\210\207" [url-gateway-rlogin-user-name 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] 17 (#$ . 3879)])
#@33 

(fn NAME BUFFER HOST SERVICE)
(defalias 'url-open-telnet #[1028 "\211;\204\n\306
!\262
r\307!q\210\310 \210\311\312\313$\314\315
!\316>\203\240\317
\320\"\210\317
\321	\322Q\"\210\323\n\"\210\317
\206@\324\325!\211\322P\"\210\323\f\"\210\317

\206T\326\327!\211\322P\"\210\310 \210\323$\"\210\317
\330\331\332%D\"\333#\322P\"\210\323\334\"\210e\335\225|\210\317
\336\"\210\323\337\"\210\317
\340\"\210\341
\342\"\210\343\342!\210eb\210\342y\210`d|\210)\211\262
)\207" [case-fold-search url-gateway-telnet-host url-gateway-telnet-login-prompt url-gateway-telnet-user-name url-gateway-telnet-password-prompt url-gateway-telnet-password 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-prompt-pattern url-gateway-telnet-parameters] 13 (#$ . 4363)])
#@378 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'.

(fn NAME BUFFER HOST SERVICE &optional GATEWAY-METHOD)
(defalias 'url-open-stream #[1284 "?\205\250\211\206\n	\n\203%\211\306=\204%\211\307=\204%\310\n\"\203%\311\202&\211\312\2031\313!\262\314\211
\315\267\202\235
\311=\203D\316\262\317\320\321\322\323!\205q\324! >\204i\325\326\327D\"\210\330H\205q\331&\202\241\332$\202\241\333$\202\241\334$\202\241\335\336	\"\211\262*\210\266\202\207" [url-gateway-unplugged url-gateway-method url-gateway-local-host-regexp url-gateway-broken-resolution coding-system-for-write coding-system-for-read tls ssl string-match native 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 59 ssl 59 tls 59 socks 118 telnet 131 rlogin 144)) 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" url-current-object cl-struct-url-tags] 20 (#$ . 5447)])
(provide 'url-gw)