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



(byte-code "\300\301!\210\300\302!\207" [require subr-x cl-lib] 2)
#@78 Return absolute name of COMMAND if found in an sbin directory.

(fn COMMAND)
(defalias 'net-utils--executable-find-sbin #[257 "\301\302
!)\207" [exec-path ("/sbin" "/usr/sbin" "/usr/local/sbin") executable-find] 3 (#$ . 151)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\210\312\326\314\315\327DD\330\320\321%\210\312\331\314\315\332DD\333\320\334%\210\312\335\314\315\336DD\337\310\340\320\321&\210\312\341\314\315\342DD\343\310\340\344\345\320\346&	\210\312\347\314\315\350DD\351\320\321\310\352&\210\312\353\314\315\354DD\355\320\356\310\352&\210\312\357\314\315\360DD\361\320\321\310\352&\210\312\362\314\315\363DD\364\320\365%\210\312\366\314\315\367DD\370\320\321%\210\312\371\314\315\372DD\373\320\374%\210\312\375\314\315\376DD\377\320\321\310\352&\210\312\201@\314\315\201ADD\201B\320\201C\310\352&\210\312\201D\314\315\201EDD\201F\320\321%\210\312\201G\314\315\201HDD\201I\320\201J%\210\312\201K\314\315\201LDD\201M\320\201N%\210\312\201O\314\315\201PDD\201Q\320\321%\210\312\201R\314\315\201SDD\201T\320\201U\310\352&\210\312\201V\314\315\201WDD\201X\320\321%\210\312\201Y\314\315\201ZDD\201[\320\201\\%\210\312\201]\314\315\201^DD\201_\320\201N%\210\312\201`\314\315\201aDD\201b\320\321%\210\312\201c\314\315\201dDD\201e\320\201f%\210\312\201g\314\315\201hDD\201i\320\201N%\210\312\201j\314\315\201kDD\201F\320\321%\210\312\201l\314\315\201mDD\201n\320\201o%\207" [custom-declare-group net-utils nil "Network utility functions." :prefix "net-utils-" :group comm :version "20.3" custom-declare-variable traceroute-program funcall function #[0 "\301=\203\302\207\303\207" [system-type windows-nt "tracert" "traceroute"] 2 #1=""] "Program to trace network hops to a destination." :type string traceroute-program-options #[0 "\300\207" [nil] 1 #1#] "Options for the traceroute program." (repeat string) ping-program #[0 "\300\207" ["ping"] 1 #1#] "Program to send network test packets to a host." ping-program-options #[0 "\301=\205	\302\303D\207" [system-type gnu/linux "-c" "4"] 2 #1#] "Options for the ping program.\nThese options can be used to limit how many ICMP packets are emitted." (repeat string) ifconfig-program #[0 "\301=\203\302\207\303\304!\203\304\207\305\304!\206\305\306!\206\306\207" [system-type windows-nt "ipconfig" executable-find "ifconfig" net-utils--executable-find-sbin "ip"] 2 #1#] "Program to print network configuration information." "25.1" ifconfig-program-options #[0 "\301\302\"\203	\303\207\301\304\"\203\305\207\301\306\"\205\307\207" [ifconfig-program string-match "ipconfig\\'" ("/all") "ifconfig\\'" ("-a") "ip\\'" ("addr")] 3 #1#] "Options for the ifconfig program." :set-after (ifconfig-program) (repeat string) iwconfig-program #[0 "\300\301!\203\301\207\302\303!\203\303\207\303\207" [executable-find "iwconfig" net-utils--executable-find-sbin "iw"] 2 #1#] "Program to print wireless network configuration information." "26.1" iwconfig-program-options #[0 "\302\303\304\305#)\266\203\203\306C\207\303\207" [iwconfig-program inhibit-changing-match-data "iw\\'" nil t string-match "dev"] 7 #1#] "Options for the iwconfig program." (repeat string) netstat-program #[0 "\300\301!\203\301\207\302\303!\206\303\207" [executable-find "netstat" net-utils--executable-find-sbin "ss"] 2 #1#] "Program to print network statistics." netstat-program-options #[0 "\300C\207" ["-a"] 1 #1#] "Options for the netstat program." (repeat string) arp-program #[0 "\300\301!\206\301\207" [net-utils--executable-find-sbin "arp"] 2 #1#] "Program to print IP to address translation tables." arp-program-options #[0 "\300C\207" ["-a"] 1 #1#] "Options for the arp program." (repeat string) route-program #[0 "\301=\203\302\207\303\304!\203\304\207\305\304!\206%\303\306!\203\306\207\305\306!\206%\306\207" [system-type windows-nt "route" executable-find "netstat" net-utils--executable-find-sbin "ip"] 2 #1#] "Program to print routing tables." route-program-options #[0 "\303=\203	\304C\207\305	\306\307\310#)\266\203\203\311C\207\312C\207" [system-type route-program inhibit-changing-match-data windows-nt "print" "netstat\\'" nil t string-match "-r" "route"] 7 #1#] "Options for the route program." (repeat string) nslookup-program #[0 "\300\207" ["nslookup"] 1 #1#] "Program to interactively query DNS information." nslookup-program-options #[0 "\300\207" [nil] 1 #1#] "Options for the nslookup program." (repeat string) nslookup-prompt-regexp #[0 "\300\207" ["^> "] 1 #1#] "Regexp to match the nslookup prompt.\n\nThis variable is only used if the variable\n`comint-use-prompt-regexp' is non-nil." regexp dig-program #[0 "\300\207" ["dig"] 1 #1#] "Program to query DNS information." dig-program-options #[0 "\300\207" [nil] 1 #1#] "Options for the dig program." (repeat string) ftp-program #[0 "\300\207" ["ftp"] 1 #1#] "Program to run to do FTP transfers." ftp-program-options #[0 "\300\207" [nil] 1 #1#] "Options for the ftp program." (repeat string) ftp-prompt-regexp #[0 "\300\207" ["^ftp>"] 1 #1#] "Regexp which matches the FTP program's prompt.\n\nThis variable is only used if the variable\n`comint-use-prompt-regexp' is non-nil." smbclient-program #[0 "\300\207" ["smbclient"] 1 #1#] "Smbclient program." smbclient-program-options #[0 "\300\207" [nil] 1 #1#] "Options for the smbclient program." (repeat string) smbclient-prompt-regexp #[0 "\300\207" ["^smb: >"] 1 #1#] "Regexp which matches the smbclient program's prompt.\n\nThis variable is only used if the variable\n`comint-use-prompt-regexp' is non-nil." dns-lookup-program #[0 "\300\207" ["host"] 1 #1#] dns-lookup-program-options #[0 "\300\207" [nil] 1 #1#] "Options for the dns-lookup program." (repeat string)] 10)
(defvar network-connection-service nil)
(defvar network-connection-host nil)
#@40 Expressions to font-lock for nslookup.
(defvar nslookup-font-lock-keywords (byte-code "\300\301\302E\303\304\305E\306\307\310\311\312\"\313#\301\314E\306\307\310\315\316\"\313#\317P\301\314EF\207" ["^[A-Za-z0-9 _]+:" 0 font-lock-type-face "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>" 1 font-lock-keyword-face mapconcat identity make-list 4 "[0-9]+" "\\." font-lock-variable-name-face 2 "[-A-Za-z0-9]+" "\\(\\.[-A-Za-z0-9]+\\)*"] 8) (#$ . 6048))
#@57 Expressions to font-lock for general network utilities.
(defvar net-utils-font-lock-keywords (byte-code "\300\301\302\303\304\"\305#\306\307E\310\306\307E\300\301\302\311\312\"\305#\313P\306\307EE\207" [mapconcat identity make-list 4 "[0-9]+" "\\." 0 font-lock-variable-name-face "\\( \\([[:xdigit:]]+\\(:\\|::\\)\\)+[[:xdigit:]]+\\)\\|\\(::[[:xdigit:]]+\\)" 2 "[-A-Za-z0-9]+" "\\(\\.[-A-Za-z0-9]+\\)*"] 7) (#$ . 6494))
(defvar net-utils-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [net-utils-mode-hook variable-documentation put "Hook run after entering NetworkUtil mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp net-utils-mode-map definition-name net-utils-mode] 4)
(defvar net-utils-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [net-utils-mode-abbrev-table net-utils-mode-map variable-documentation put purecopy "Keymap for `net-utils-mode'." boundp net-utils-mode-syntax-table definition-name net-utils-mode (lambda (#1=#:def-tmp-var) (defvar net-utils-mode-syntax-table #1#)) make-syntax-table "Syntax table for `net-utils-mode'." (lambda (#1#) (defvar net-utils-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `net-utils-mode'." derived-mode-parent special-mode] 5)
#@261 Major mode for interacting with an external network utility.

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `net-utils-mode-hook', as the final or
penultimate step during initialization.

\{net-utils-mode-map}
(defalias 'net-utils-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\306\331!\210\332\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name net-utils-mode-map net-utils-mode-syntax-table net-utils-mode-abbrev-table make-local-variable t special-mode net-utils-mode "NetworkUtil" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults ((net-utils-font-lock-keywords)) revert-buffer-function net-utils--revert-function run-mode-hooks net-utils-mode-hook local-abbrev-table] 5 (#$ . 8109) nil])
(defalias 'net-utils-machine-at-point #[0 "`\300\212\301\302x\210`)\212\301\302w\210\303x\210`)\"\207" [buffer-substring-no-properties "-a-zA-Z0-9." nil "."] 5])
(defalias 'net-utils-url-at-point #[0 "`\300\212\301\302x\210\303w\210`)\212\301\302w\210\304x\210`)\"\207" [buffer-substring-no-properties "--:=&?$+@-Z_a-z~#,%" nil "^A-Za-z0-9" ":;.,!?"] 5])
#@57 Remove trailing control Ms.

(fn PROCESS OUTPUT-STRING)
(defalias 'net-utils-remove-ctrl-m-filter #[514 "r\301!q\210\212\302

\303\304\"\203\305\306\307\211$\262
\202\310!b\210\211c\210\310!`\307\223)\266\202*\207" [inhibit-read-only process-buffer t string-match "
" replace-match "" nil process-mark] 9 (#$ . 9615)])
#@67 Run a network information program.

(fn NAME HEADER PROGRAM ARGS)
(defalias 'net-utils-run-program #[1028 "\302\303\303Q!\304=\203\305\306\307\310 \"!\202	\211q\210\311 \210\312\261\210\313\314\315%\316\"\210\317
!\210)\207" [system-type coding-system-for-read get-buffer-create "*" windows-nt intern format "cp%d" w32-get-console-output-codepage erase-buffer "\n" set-process-filter apply start-process net-utils-remove-ctrl-m-filter display-buffer] 12 (#$ . 9950)])
(defvar net-utils--revert-cmd nil)
#@102 Run a network utility for diagnostic output only.

(fn BUFFER PROGRAM-NAME ARGS &optional NODISPLAY)
(defalias 'net-utils-run-simple #[1027 "r;\203\f\304!\202
q\210\305p!\211\203\306
\307\"\210\310
!\210\210\311\312 \210)\313 \210\314\301!\210\315p\316BBBB\n\317=\203G\320\321\322\323 \"!\202H\306\324\325p%\326\"\210)\211?\205_\327p!)\207" [inhibit-read-only net-utils--revert-cmd system-type coding-system-for-read get-buffer-create get-buffer-process set-process-filter nil delete-process t erase-buffer net-utils-mode make-local-variable net-utils-run-simple (nodisplay) windows-nt intern format "cp%d" w32-get-console-output-codepage apply start-process net-utils-remove-ctrl-m-filter display-buffer] 11 (#$ . 10476)])
#@40 

(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'net-utils--revert-function #[512 "\301\302\303 \"\210\304@A\"\210\305p!\211\205\306
\307\"\207" [net-utils--revert-cmd message "Reverting `%s'..." buffer-name apply get-buffer-process set-process-sentinel #[514 "\211\300\230\205\f\301\302\303!\"\207" ["finished\n" message "Reverting `%s' done" process-buffer] 6 "\n\n(fn PROCESS EVENT)"]] 6 (#$ . 11227)])
#@55 Run `ifconfig-program' and display diagnostic output.
(defalias 'ifconfig #[0 "\302\303\304\"	#\207" [ifconfig-program ifconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 11646) nil])
(defalias 'ipconfig 'ifconfig)
#@55 Run `iwconfig-program' and display diagnostic output.
(defalias 'iwconfig #[0 "\302\303\304\"	#\207" [iwconfig-program iwconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 11886) nil])
#@54 Run `netstat-program' and display diagnostic output.
(defalias 'netstat #[0 "\302\303\304\"	#\207" [netstat-program netstat-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 12095) nil])
#@50 Run `arp-program' and display diagnostic output.
(defalias 'arp #[0 "\302\303\304\"	#\207" [arp-program arp-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 12300) nil])
#@52 Run `route-program' and display diagnostic output.
(defalias 'route #[0 "\302\303\304\"	#\207" [route-program route-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 12489) nil])
#@51 Run `traceroute-program' for TARGET.

(fn TARGET)
(defalias 'traceroute #[257 "\203\f\302C\"\202\211C\303\304P	#\207" [traceroute-program-options traceroute-program append net-utils-run-simple "Traceroute "] 6 (#$ . 12686) "sTarget: "])
#@118 Ping HOST.
If your system's ping continues until interrupted, you can try setting
`ping-program-options'.

(fn HOST)
(defalias 'ping #[257 "\203\f\302C\"\202\211C\303\304P\305	\306R	$\207" [ping-program-options ping-program append net-utils-run-program "Ping " "** Ping ** " " ** "] 8 (#$ . 12938) (byte-code "\300\301\302 \"C\207" [read-from-minibuffer "Ping host: " net-utils-machine-at-point] 3)])
#@449 Look up the DNS information for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for
DNS resolution.
Interactively, prompt for NAME-SERVER if invoked with prefix argument.

This command uses `nslookup-program' for looking up the DNS information.

See also: `nslookup-host-ipv4', `nslookup-host-ipv6' for
non-interactive versions of this function more suitable for use
in Lisp code.

(fn HOST &optional NAME-SERVER)
(defalias 'nslookup-host #[513 "\302C\205\nC#\303\304\305\306\307\304	E\310#P	$\207" [nslookup-program-options nslookup-program append net-utils-run-program "Nslookup" "** " mapconcat identity " ** "] 11 (#$ . 13356) (byte-code "\301\302\303 \"\205\f\301\304!D\207" [current-prefix-arg read-from-minibuffer "Lookup host: " net-utils-machine-at-point "Name server: "] 3)])
#@365 Return the IPv4 address for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for DNS
resolution.

If FORMAT is `string', returns the IP address as a
string (default).  If FORMAT is `vector', returns a 4-integer
vector of octets.

This command uses `nslookup-program' to look up DNS records.

(fn HOST &optional NAME-SERVER FORMAT)
(defalias 'nslookup-host-ipv4 #[769 "\301F\302\303\304\"\305\306\307#\266\202!\310\311\"\203!\312\313\"\206\"\314\267\2024\207\315\316\317\320\321\322\"\"\"\207\323\324\"\207" [nslookup-program "-type=A" shell-command-to-string cl-remove nil " " mapconcat identity string-match "Name:.*\nAddress: *\\(\\([0-9]\\{1,3\\}\\.?\\)\\{4\\}\\)" match-string 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 40 nil 40 vector 41)) apply vector mapcar string-to-number split-string "\\." error "Invalid format: %s"] 13 (#$ . 14193)])
#@20 

(fn IPV6-VECTOR)
(defalias 'nslookup--ipv6-expand #[257 "\211G\211\300W\203$\301\302\"\303\302#\303T#\304\305\300SZ\302\"#\207
\207" [8 cl-position 0 cl-subseq vconcat make-vector] 10 (#$ . 15147)])
#@366 Return the IPv6 address for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for DNS
resolution.

If FORMAT is `string', returns the IP address as a
string (default).  If FORMAT is `vector', returns a 8-integer
vector of hextets.

This command uses `nslookup-program' to look up DNS records.

(fn HOST &optional NAME-SERVER FORMAT)
(defalias 'nslookup-host-ipv6 #[769 "\302F\303\304\305\"\306\307\310#\266\202!\311	\312=\203\313\202\314\"\203+\315\316\"\206,\317\267\202[\207\320\321\322\323\324\"\305\211:\203T@\262\325\326\"
B\262
A\262\202<\211\237\266\203\"!\207\327\330\"\207" [nslookup-program system-type "-type=AAAA" shell-command-to-string cl-remove nil " " mapconcat identity string-match windows-nt "Name:.*\nAddress: *\\(\\([0-9a-fA-F]\\{1,4\\}[:]\\)\\{1,6\\}\\([:]?\\([0-9a-fA-F]\\{1,4\\}\\)\\{1,6\\}\\)\\)" "has AAAA address \\(\\([0-9a-fA-F]\\{1,4\\}[:]\\)\\{1,6\\}\\([:]?\\([0-9a-fA-F]\\{1,4\\}\\)\\{1,6\\}\\)\\)" match-string 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 50 nil 50 vector 51)) nslookup--ipv6-expand apply vector split-string "[:]" string-to-number 16 error "Invalid format: %s"] 15 (#$ . 15366)])
#@25 Run `nslookup-program'.
(defalias 'nslookup #[0 "\301\302\303\"!\210\304 \207" [nslookup-program switch-to-buffer make-comint "nslookup" nslookup-mode] 4 (#$ . 16612) nil])
(autoload 'comint-mode "comint" nil t)
(defvar nslookup-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key "	" completion-at-point] 5))
(defvar nslookup-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [nslookup-mode-hook variable-documentation put "Hook run after entering Nslookup mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp nslookup-mode-map definition-name nslookup-mode] 4)
(defvar nslookup-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [nslookup-mode-abbrev-table nslookup-mode-map variable-documentation put purecopy "Keymap for `nslookup-mode'." boundp nslookup-mode-syntax-table definition-name nslookup-mode (lambda (#1=#:def-tmp-var) (defvar nslookup-mode-syntax-table #1#)) make-syntax-table "Syntax table for `nslookup-mode'." (lambda (#1#) (defvar nslookup-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `nslookup-mode'." derived-mode-parent comint-mode] 5)
#@251 Major mode for interacting with the nslookup program.

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `nslookup-mode-hook', as the final or
penultimate step during initialization.

\{nslookup-mode-map}
(defalias 'nslookup-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\306\331!\210\332\307 )\333\334!\207" [delay-mode-hooks major-mode mode-name nslookup-mode-map nslookup-mode-syntax-table nslookup-mode-abbrev-table make-local-variable t comint-mode nslookup-mode "Nslookup" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults ((nslookup-font-lock-keywords)) run-mode-hooks nslookup-mode-hook local-abbrev-table nslookup-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 5 (#$ . 18129) nil])
#@315 Look up the DNS information for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for
DNS resolution.
Interactively, prompt for NAME-SERVER if invoked with prefix argument.

This command uses `dns-lookup-program' for looking up the DNS information.

(fn HOST &optional NAME-SERVER)
(defalias 'dns-lookup-host #[513 "\302C\205\nC#\303\304\305Q\306\307\310\311	E\312#P	$\207" [dns-lookup-program-options dns-lookup-program append net-utils-run-program "DNS Lookup [" "]" "** " mapconcat identity "DNS Lookup" " ** "] 11 (#$ . 19267) (byte-code "\301\302\303 \"\205\f\301\304!D\207" [current-prefix-arg read-from-minibuffer "Lookup host: " net-utils-machine-at-point "Name server: "] 3)])
#@304 Look up DNS information for HOST (name or IP address).
Optional argument NAME-SERVER says which server to use for
DNS resolution.
Interactively, prompt for NAME-SERVER if invoked with prefix argument.

This command uses `dig-program' for looking up the DNS information.

(fn HOST &optional NAME-SERVER)
(defalias 'run-dig #[513 "\302C\205\f\303PC#\304\305\306\307\310\305	E\311#P	$\207" [dig-program-options dig-program append "@" net-utils-run-program "Dig" "** " mapconcat identity " ** "] 11 (#$ . 20003) (byte-code "\301\302\303 \"\205\f\301\304!D\207" [current-prefix-arg read-from-minibuffer "Lookup host: " net-utils-machine-at-point "Name server: "] 3)])
(autoload 'comint-exec "comint")
#@50 Run `ftp-program' to connect to HOST.

(fn HOST)
(defalias 'ftp #[257 "\302\303\304Q!\211q\210\305 \210\306
\307P\310	\203 \311C	\"\202#C%\210\312
!\207" [ftp-program ftp-program-options get-buffer-create "*ftp [" "]*" ftp-mode comint-exec "ftp-" nil append pop-to-buffer] 10 (#$ . 20715) (byte-code "\300\301\302 \"C\207" [read-from-minibuffer "Ftp to Host: " net-utils-machine-at-point] 3)])
(defvar ftp-mode-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key "	" completion-at-point] 5))
(defvar ftp-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [ftp-mode-hook variable-documentation put "Hook run after entering FTP mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp ftp-mode-map definition-name ftp-mode] 4)
(defvar ftp-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [ftp-mode-abbrev-table ftp-mode-map variable-documentation put purecopy "Keymap for `ftp-mode'." boundp ftp-mode-syntax-table definition-name ftp-mode (lambda (#1=#:def-tmp-var) (defvar ftp-mode-syntax-table #1#)) make-syntax-table "Syntax table for `ftp-mode'." (lambda (#1#) (defvar ftp-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `ftp-mode'." derived-mode-parent comint-mode] 5)
#@236 Major mode for interacting with the ftp program.

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `ftp-mode-hook', as the final or penultimate
step during initialization.

\{ftp-mode-map}
(defalias 'ftp-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
 =\204R\326
\325 C#\210\327!\210\330\f!\210
 !\"\307#\331\332\333!>\204s\334\333\331\335\307$\210)\336\337!\207" [delay-mode-hooks major-mode mode-name ftp-mode-map ftp-mode-syntax-table ftp-mode-abbrev-table make-local-variable t comint-mode ftp-mode "FTP" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comint-watch-for-password-prompt default-value comint-output-filter-functions add-hook nil run-mode-hooks ftp-mode-hook local-abbrev-table ftp-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 5 (#$ . 22342) nil])
#@115 Connect to SERVICE on HOST via SMB.

This command uses `smbclient-program' to connect to HOST.

(fn HOST SERVICE)
(defalias 'smbclient #[514 "\302\303#\304\305\305Q!\306\307R
q\210\310 \210\311\312	\203(\313C	\"\202*C%\210\314!\207" [smbclient-program smbclient-program-options format "smbclient [%s\\%s]" get-buffer-create "*" "\\\\" "\\" smbclient-mode comint-exec nil append pop-to-buffer] 13 (#$ . 23492) (byte-code "\300\301\302 \"\300\303!D\207" [read-from-minibuffer "Connect to Host: " net-utils-machine-at-point "SMB Service: "] 3)])
#@93 List services on HOST.
This command uses `smbclient-program' to connect to HOST.

(fn HOST)
(defalias 'smbclient-list-shares #[257 "\301\302\303\"!\211q\210\304 \210\305
\306\307\310D%\210\311
!\207" [smbclient-program get-buffer-create format "*SMB Shares on %s*" smbclient-mode comint-exec "smbclient-list-shares" nil "-L" pop-to-buffer] 9 (#$ . 24055) (byte-code "\300\301\302 \"C\207" [read-from-minibuffer "Connect to Host: " net-utils-machine-at-point] 3)])
(defvar smbclient-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [smbclient-mode-hook variable-documentation put "Hook run after entering smbclient mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp smbclient-mode-map definition-name smbclient-mode] 4)
(defvar smbclient-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [smbclient-mode-abbrev-table smbclient-mode-map variable-documentation put purecopy "Keymap for `smbclient-mode'." boundp smbclient-mode-syntax-table definition-name smbclient-mode (lambda (#1=#:def-tmp-var) (defvar smbclient-mode-syntax-table #1#)) make-syntax-table "Syntax table for `smbclient-mode'." (lambda (#1#) (defvar smbclient-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `smbclient-mode'." derived-mode-parent comint-mode] 5)
#@254 Major mode for interacting with the smbclient program.

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `smbclient-mode-hook', as the final or
penultimate step during initialization.

\{smbclient-mode-map}
(defalias 'smbclient-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
 =\204R\326
\325 C#\210\327!\210\330\f!\210
 !\"\307#\331\332\333!>\204s\334\333\331\335\307$\210)\336\337!\207" [delay-mode-hooks major-mode mode-name smbclient-mode-map smbclient-mode-syntax-table smbclient-mode-abbrev-table make-local-variable t comint-mode smbclient-mode "smbclient" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table comint-watch-for-password-prompt default-value comint-output-filter-functions add-hook nil run-mode-hooks smbclient-mode-hook local-abbrev-table smbclient-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 5 (#$ . 25715) nil])
#@79 Alist of services and associated TCP port numbers.
This list is not complete.
(defvar network-connection-service-alist (byte-code "\300\301B\302\303B\304\305B\306\307B\310\311B\312\313B\314\315B\316\317B\320\321B\322\323B\324\325B\326\327B\330\331B\332\333B\334\335B\336\337B\340\341B\342\343B\344\345B\346\347B\350\351B\352\353B\257\207" [echo 7 active-users 11 daytime 13 chargen 19 ftp 21 telnet 23 smtp 25 time 37 whois 43 gopher 70 finger 79 www 80 pop2 109 pop3 110 sun-rpc 111 nntp 119 ntp 123 netbios-name 137 netbios-data 139 irc 194 https 443 rlogin 513] 23) (#$ . 26930))
#@56 

(fn PROCESS-NAME HOST PORT &optional INITIAL-STRING)
(defalias 'run-network-program #[1027 "\300\211\301\302\302Q!\262
\211q\210\303$\211\262\204#\304\305\"\210\306 \210\307!e\300\223\210\310\311\"\210\203=\312\313P\"\210\314
!\207" [nil get-buffer-create "*" open-network-stream error "Could not open connection to %s" erase-buffer process-mark set-process-filter net-utils-remove-ctrl-m-filter process-send-string "
\n" display-buffer] 11 (#$ . 27520)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable finger-X\.500-host-regexps funcall function #[0 "\300\207" [nil] 1 ""] "A list of regular expressions matching host names.\nIf a host name passed to `finger' matches one of these regular\nexpressions, it is assumed to be a host that doesn't accept\nqueries of the form USER@HOST, and wants a query containing USER only." :type (repeat regexp) :version "21.1"] 8)
#@135 Finger USER on HOST.
This command uses `finger-X.500-host-regexps'
and `network-connection-service-alist', which see.

(fn USER HOST)
(defalias 'finger #[514 "
\302Q\303
\304Q\211\203\305
@\"\204\211A\262
\202
\306\307	\236A$\207" [finger-X\.500-host-regexps network-connection-service-alist "@" "Finger [" "]" string-match run-network-program finger] 10 (#$ . 28454) (byte-code "\300\301\302 \"\303\304\"\211\203
\305OT\306OD\207
\300\307\310 \"D\207" [read-from-minibuffer "Finger User: " net-utils-url-at-point string-match "@" 0 nil "At Host: " net-utils-machine-at-point] 6)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\323%\207" [custom-declare-variable whois-server-name funcall function #[0 "\300\207" ["rs.internic.net"] 1 #1=""] "Default host name for the whois service." :type string whois-server-list #[0 "\300\207" [(("whois.arin.net") ("rs.internic.net") ("whois.publicinterestregistry.net") ("whois.abuse.net") ("whois.apnic.net") ("nic.ddn.mil") ("whois.nic.mil") ("whois.nic.gov") ("whois.ripe.net"))] 1 #1#] "A list of whois servers that can be queried." (repeat (list string)) whois-server-tld #[0 "\300\207" [(("whois.verisign-grs.com" . "com") ("whois.verisign-grs.com" . "net") ("whois.pir.org" . "org") ("whois.ripe.net" . "be") ("whois.ripe.net" . "de") ("whois.ripe.net" . "dk") ("whois.ripe.net" . "it") ("whois.ripe.net" . "fi") ("whois.ripe.net" . "fr") ("whois.ripe.net" . "uk") ("whois.iis.se" . "se") ("whois.iis.nu" . "nu") ("whois.apnic.net" . "au") ("whois.apnic.net" . "ch") ("whois.apnic.net" . "hk") ("whois.apnic.net" . "jp") ("whois.eu" . "eu") ("whois.nic.gov" . "gov") ("whois.nic.mil" . "mil"))] 1 #1#] "Alist to map top level domains to whois servers." (repeat (cons string string)) whois-guess-server #[0 "\300\207" [t] 1 #1#] "If non-nil, try to deduce the appropriate whois server from the query.\nIf the query doesn't look like a domain or hostname then the\nserver named by `whois-server-name' is used." boolean] 6)
#@85 Return the top level domain of `host', or nil if it isn't a domain name.

(fn HOST)
(defalias 'whois-get-tld #[257 "\211GS
G\300Z

U\204\301H\302\"\204
S\262\202

U?\205)T\303O\207" [5 char-equal 46 nil] 6 (#$ . 30559)])
#@295 Send SEARCH-STRING to server defined by the `whois-server-name' variable.
If `whois-guess-server' is non-nil, then try to deduce the correct server
from SEARCH-STRING.  With argument, prompt for whois server.
The port is deduced from `network-connection-service-alist'.

(fn ARG SEARCH-STRING)
(defalias 'whois #[514 "\205\n\305\306!	\"\211\203\211@\202\n\203\"\307\310\311\211\312%\202#\211\313\314\315\f\236A$\207" [whois-guess-server whois-server-tld whois-server-name whois-server-list network-connection-service-alist rassoc whois-get-tld completing-read "Whois server name: " nil "whois." run-network-program "Whois" whois] 10 (#$ . 30799) "P\nsWhois: "])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable whois-reverse-lookup-server funcall function #[0 "\300\207" ["whois.arin.net"] 1 ""] "Server which provides inverse DNS mapping." :type string] 6)
(defalias 'whois-reverse-lookup #[0 "\302\303!)\207" [whois-reverse-lookup-server whois-server-name call-interactively whois] 2 nil nil])
(defvar network-connection-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [network-connection-mode-hook variable-documentation put "Hook run after entering Network-Connection mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp network-connection-mode-map definition-name network-connection-mode] 4)
(defvar network-connection-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [network-connection-mode-abbrev-table network-connection-mode-map variable-documentation put purecopy "Keymap for `network-connection-mode'." boundp network-connection-mode-syntax-table definition-name network-connection-mode (lambda (#1=#:def-tmp-var) (defvar network-connection-mode-syntax-table #1#)) make-syntax-table "Syntax table for `network-connection-mode'." (lambda (#1#) (defvar network-connection-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `network-connection-mode'." derived-mode-parent comint-mode] 5)
#@283 Major mode for interacting with the `network-connection' program.

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `network-connection-mode-hook', as the final
or penultimate step during initialization.

\{network-connection-mode-map}
(defalias 'network-connection-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name network-connection-mode-map network-connection-mode-syntax-table network-connection-mode-abbrev-table make-local-variable t comint-mode network-connection-mode "Network-Connection" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks network-connection-mode-hook local-abbrev-table] 5 (#$ . 33167) nil])
#@21 

(fn HOST SERVICE)
(defalias 'network-connection-mode-setup #[514 "\302\300!\210
\302\301!\210\211\211\207" [network-connection-host network-connection-service make-local-variable] 4 (#$ . 34258)])
#@131 Open a network connection to SERVICE on HOST.
This command uses `network-connection-service-alist', which see.

(fn HOST SERVICE)
(defalias 'network-connection-to-service #[514 "\301\302\303!\"A\"\207" [network-connection-service-alist network-connection assoc intern] 7 (#$ . 34466) (byte-code "\301\302\303 \"\304\305\306\307\"\"D\207" [network-connection-service-alist read-from-minibuffer "Host: " net-utils-machine-at-point completing-read "Service: " mapcar #[257 "\300
@!C\207" [symbol-name] 3 "\n\n(fn ELT)"]] 6)])
#@60 Open a network connection to HOST on PORT.

(fn HOST PORT)
(defalias 'network-connection #[514 "\300\301!\"\207" [network-service-connection number-to-string] 6 (#$ . 34999) "sHost: \nnPort: "])
#@137 Open a network connection to SERVICE on HOST.
The port to use is determined from `network-connection-service-alist'.

(fn HOST SERVICE)
(defalias 'network-service-connection #[514 "\300\301\302\260\303!\304\305\305Q!
\306U\204
\262\307B\"\210\211q\210\310 \210\311\"\210\312
!\207" ["Network Connection [" " " "]" string-to-number get-buffer-create "*" 0 make-comint network-connection-mode network-connection-mode-setup pop-to-buffer] 9 (#$ . 35203)])
#@129 Reconnect a network connection, preserving the old input ring.
This command uses `network-connection-service-alist', which see.
(defalias 'network-connection-reconnect #[0 "\304p!	\n\203\305!\306=\204\307\310!\207db\210\311\312\"c\210\313\247\203*\202/\314\"A\"\210\2058\211\207" [comint-input-ring network-connection-host network-connection-service network-connection-service-alist get-buffer-process process-status closed message "Still connected" format "Reopening connection to %s\n" network-connection assoc] 9 (#$ . 35678) nil])
(provide 'net-utils)