;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/net-utils.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.

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


(byte-code "\302\303\304\305\306\307\310\311\312\313&	\210\314\315\316\317\310\303\320\321&\210\314\322\323\324\310\303\320\325&\210\314\326\304\327\310\303\320\330&\210\314\331\332\333\310\303\320\325&\210\314\334\335\336\310\303\320\337&\210\340\341\342\304#\210\343\304\211\203p	@\341N\203i\342N\204i\344\342\341N#\210	A\211\204R*\345\341\342\346#\210\314\342\347\350\310\303\320\325&\210\340\351\352\304#\210\343\304\211\203\256	@\351N\203\247\352N\204\247\344\352\351N#\210	A\211\204\220*\345\351\352\346#\210\314\352\353\354\310\303\320\355&\210\314\356\357\360\310\303\320\325\312\361&	\210\314\362\304\363\310\303\320\364\312\361&	\210\314\365\366\367\310\303\320\325&\210\314\370\371\372\310\303\320\373&\210\314\374\375\376\310\303\320\325&\210\314\377\201@\201A\310\303\320\201B&\210\314\201C\201D\201E\310\303\320\325&\210\314\201F\201G\201H\310\303\320\201I&\210\314\201J\201K\201L\310\303\320\325&\210\314\201M\304\201N\310\303\320\201O&\210\314\201P\201Q\201R\310\303\320\201S&\210\314\201T\201U\201V\310\303\320\325&\210\314\201W\201X\201Y\310\303\320\325&\210\314\201Z\304\201[\310\303\320\201\\&\210\314\201]\201^\201_\310\303\320\201S&\210\314\201`\201a\201b\310\303\320\325&\210\314\201c\304\201d\310\303\320\201e&\210\314\201f\201g\201h\310\303\320\201S&\210\314\201i\201j\201L\310\303\320\325&\210\314\201k\304\201l\310\303\320\201m&\207" [prop --dolist-tail-- custom-declare-group net-utils nil "Network utility functions." :prefix "net-utils-" :group comm :version "20.3" custom-declare-variable net-utils-remove-ctl-m (memq system-type '(windows-nt msdos)) "If non-nil, remove control-Ms from output." :type boolean traceroute-program (if (eq system-type 'windows-nt) "tracert" "traceroute") "Program to trace network hops to a destination." string traceroute-program-options "Options for the traceroute program." (repeat string) ping-program "ping" "Program to send network test packets to a host." ping-program-options (and (memq system-type '(gnu/linux irix)) (list "-c" "4")) "Options for the ping program.\nThese options can be used to limit how many ICMP packets are emitted." (repeat string) defvaralias ipconfig-program ifconfig-program (saved-value saved-variable-comment) put make-obsolete-variable "22.2" (if (eq system-type 'windows-nt) "ipconfig" "ifconfig") "Program to print network configuration information." ipconfig-program-options ifconfig-program-options (list (if (eq system-type 'windows-nt) "/all" "-a")) "Options for the ifconfig program." (repeat string) iwconfig-program "iwconfig" "Program to print wireless network configuration information." "23.1" iwconfig-program-options "Options for the iwconfig program." (repeat string) netstat-program "netstat" "Program to print network statistics." netstat-program-options (list "-a") "Options for the netstat program." (repeat string) arp-program "arp" "Program to print IP to address translation tables." arp-program-options (list "-a") "Options for the arp program." (repeat string) route-program (if (eq system-type 'windows-nt) "route" "netstat") "Program to print routing tables." route-program-options (if (eq system-type 'windows-nt) (list "print") (list "-r")) "Options for the route program." (repeat string) nslookup-program "nslookup" "Program to interactively query DNS information." nslookup-program-options "Options for the nslookup program." (repeat string) nslookup-prompt-regexp "^> " "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 "dig" "Program to query DNS information." ftp-program "ftp" "Program to run to do FTP transfers." ftp-program-options "Options for the ftp program." (repeat string) ftp-prompt-regexp "^ftp>" "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 "smbclient" "Smbclient program." smbclient-program-options "Options for the smbclient program." (repeat string) smbclient-prompt-regexp "^smb: >" "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 "host" dns-lookup-program-options "Options for the dns-lookup program." (repeat string)] 11)
(defvar network-connection-service nil)
(defvar network-connection-host nil)
#@40 Expressions to font-lock for nslookup.
(defvar nslookup-font-lock-keywords (byte-code "\301\302\303E\304\305\306E\307\310\311\312\313\"\314#\302\315E\316\307\310\311\317\"\314#\320\321R)\302\315EF\207" [host-expression "^[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 "[-A-Za-z0-9]+" 2 "\\(\\." "\\)*"] 8) (#$ . 5018))
#@57 Expressions to font-lock for general network utilities.
(defvar net-utils-font-lock-keywords (byte-code "\301\302\303\304\305\"\306#\307\310E\311\307\310E\312\301\302\303\313\"\306#\314\315R)\307\310EE\207" [host-expression mapconcat identity make-list 4 "[0-9]+" "\\." 0 font-lock-variable-name-face "\\( \\([[:xdigit:]]+\\(:\\|::\\)\\)+[[:xdigit:]]+\\)\\|\\(::[[:xdigit:]]+\\)" "[-A-Za-z0-9]+" 2 "\\(\\." "\\)*"] 7) (#$ . 5478))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [net-utils-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar net-utils-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [net-utils-mode-map variable-documentation put purecopy "Keymap for `net-utils-mode'." boundp net-utils-mode-syntax-table definition-name net-utils-mode] 5)
(defvar net-utils-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [net-utils-mode-syntax-table variable-documentation put purecopy "Syntax table for `net-utils-mode'." net-utils-mode-abbrev-table definition-name net-utils-mode] 5)
(defvar net-utils-mode-abbrev-table (progn (define-abbrev-table 'net-utils-mode-abbrev-table nil) net-utils-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [net-utils-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `net-utils-mode'." net-utils-mode derived-mode-parent special-mode] 5)
#@246 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 step
during initialization.

\{net-utils-mode-map}
(defalias 'net-utils-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327!\210\330\f!\210\306\331!\210\332)\333\334!\207" [delay-mode-hooks major-mode mode-name net-utils-mode-map net-utils-mode-syntax-table parent 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)) run-mode-hooks net-utils-mode-hook net-utils-mode-abbrev-table local-abbrev-table] 6 (#$ . 7267) nil])
(defalias 'net-utils-machine-at-point #[nil "`\301\212\302\303x\210`)\212\302\303w\210\304x\210`)\")\207" [pt buffer-substring-no-properties "-a-zA-Z0-9." nil "."] 4])
(defalias 'net-utils-url-at-point #[nil "`\301\212\302\303x\210\304w\210`)\212\302\303w\210\305x\210`)\")\207" [pt buffer-substring-no-properties "--:=&?$+@-Z_a-z~#,%" nil "^A-Za-z0-9" ":;.,!?"] 4])
#@29 Remove trailing control Ms.
(defalias 'net-utils-remove-ctrl-m-filter #[(process output-string) "p\306\216\307\310\f!q\210\311`\312\f!U\313\314	\"\203&\315\316\307\211	$\202\212\312\f!b\210	c\210\312\f!`\307\223\210*\205?\312\f!b,\207" [output-string filtered-string old-buffer moving process inhibit-read-only ((set-buffer old-buffer)) nil process-buffer t process-mark string-match "
" replace-match ""] 5 (#$ . 8711)])
#@36 Run a network information program.
(defalias 'net-utils-run-program #[(name header program args) "\305\306\306Q!\211q\210\307 \210\n\310\261\210\311\312\313	\f%\314\"\210\315	!\210	)\207" [name buf header program args get-buffer-create "*" erase-buffer "\n" set-process-filter apply start-process net-utils-remove-ctrl-m-filter display-buffer] 8 (#$ . 9151)])
#@51 Run a network utility for diagnostic output only.
(defalias 'net-utils-run-simple #[(buffer-name program-name args) "\303!\203\n\304!\210\305!\210rq\210\306 \210\307\310\311\312\313	\"	\n%\314\"\210eb\210)\315!\207" [buffer-name program-name args get-buffer kill-buffer get-buffer-create net-utils-mode set-process-filter apply start-process format "%s" net-utils-remove-ctrl-m-filter display-buffer] 7 (#$ . 9522) nil])
#@45 Run ifconfig and display diagnostic output.
(defalias 'ifconfig #[nil "\302\303\304\"	#\207" [ifconfig-program ifconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 9956) nil])
(defalias 'ipconfig 'ifconfig)
#@45 Run iwconfig and display diagnostic output.
(defalias 'iwconfig #[nil "\302\303\304\"	#\207" [iwconfig-program iwconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10187) nil])
#@44 Run netstat and display diagnostic output.
(defalias 'netstat #[nil "\302\303\304\"	#\207" [netstat-program netstat-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10388) nil])
#@40 Run arp and display diagnostic output.
(defalias 'arp #[nil "\302\303\304\"	#\207" [arp-program arp-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10585) nil])
#@42 Run route and display diagnostic output.
(defalias 'route #[nil "\302\303\304\"	#\207" [route-program route-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 10766) nil])
#@36 Run traceroute program for TARGET.
(defalias 'traceroute #[(target) "\203\f\304	C\"\202	C\305\306\307	Q\310\311	R\n$)\207" [traceroute-program-options target options traceroute-program append net-utils-run-program "Traceroute" " " "** Traceroute ** " " ** "] 6 (#$ . 10955) "sTarget: "])
#@107 Ping HOST.
If your system's ping continues until interrupted, you can try setting
`ping-program-options'.
(defalias 'ping #[(host) "\203\f\304	C\"\202	C\305\306\307	Q\310\311	R\n$)\207" [ping-program-options host options ping-program append net-utils-run-program "Ping" " " "** Ping ** " " ** "] 6 (#$ . 11258) (list (read-from-minibuffer "Ping host: " (net-utils-machine-at-point)))])
#@38 Lookup the DNS information for HOST.
(defalias 'nslookup-host #[(host) "\203\f\304	C\"\202	C\305\306\307\310\311\306	E\312#P\n$)\207" [nslookup-program-options host options nslookup-program append net-utils-run-program "Nslookup" "** " mapconcat identity " ** "] 8 (#$ . 11658) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)))])
#@23 Run nslookup program.
(defalias 'nslookup #[nil "\301\302\303\"!\210\304 \207" [nslookup-program switch-to-buffer make-comint "nslookup" nslookup-mode] 4 (#$ . 12027) nil])
(autoload 'comint-mode "comint" nil t)
(defvar nslookup-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key "	" comint-dynamic-complete] 4))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [nslookup-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar nslookup-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [nslookup-mode-map variable-documentation put purecopy "Keymap for `nslookup-mode'." boundp nslookup-mode-syntax-table definition-name nslookup-mode] 5)
(defvar nslookup-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [nslookup-mode-syntax-table variable-documentation put purecopy "Syntax table for `nslookup-mode'." nslookup-mode-abbrev-table definition-name nslookup-mode] 5)
(defvar nslookup-mode-abbrev-table (progn (define-abbrev-table 'nslookup-mode-abbrev-table nil) nslookup-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [nslookup-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `nslookup-mode'." nslookup-mode derived-mode-parent comint-mode] 5)
#@236 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 step
during initialization.

\{nslookup-mode-map}
(defalias 'nslookup-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\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 parent 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 nslookup-mode-abbrev-table local-abbrev-table nslookup-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 6 (#$ . 13710) nil])
#@59 Lookup the DNS information for HOST (name or IP address).
(defalias 'dns-lookup-host #[(host) "\203\f\304	C\"\202	C\305\306	\307Q\310\311\312\313	E\314#P\n$)\207" [dns-lookup-program-options host options dns-lookup-program append net-utils-run-program "DNS Lookup [" "]" "** " mapconcat identity "DNS Lookup" " ** "] 8 (#$ . 14840) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)))])
(autoload 'ffap-string-at-point "ffap")
#@18 Run dig program.
(defalias 'run-dig #[(host) "\302\303\304\305\306\303	E\307#P	C$\207" [host dig-program net-utils-run-program "Dig" "** " mapconcat identity " ** "] 8 (#$ . 15303) (list (read-from-minibuffer "Lookup host: " (or (ffap-string-at-point 'machine) "")))])
(autoload 'comint-exec "comint")
#@18 Run ftp program.
(defalias 'ftp #[(host) "\304\305\306Q!\211q\210\307 \210\310	\311P\n\312\203 \313C\"\202\"C%\210\314	!)\207" [host buf ftp-program ftp-program-options get-buffer-create "*ftp [" "]*" ftp-mode comint-exec "ftp-" nil append pop-to-buffer] 9 (#$ . 15613) (list (read-from-minibuffer "Ftp to Host: " (net-utils-machine-at-point)))])
(defvar ftp-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key "	" comint-dynamic-complete] 4))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [ftp-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar ftp-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [ftp-mode-map variable-documentation put purecopy "Keymap for `ftp-mode'." boundp ftp-mode-syntax-table definition-name ftp-mode] 5)
(defvar ftp-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [ftp-mode-syntax-table variable-documentation put purecopy "Syntax table for `ftp-mode'." ftp-mode-abbrev-table definition-name ftp-mode] 5)
(defvar ftp-mode-abbrev-table (progn (define-abbrev-table 'ftp-mode-abbrev-table nil) ftp-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [ftp-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `ftp-mode'." ftp-mode derived-mode-parent comint-mode] 5)
#@221 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 step
during initialization.

\{ftp-mode-map}
(defalias 'ftp-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324 \325\"\204V !=\204V\326 \325!C#\210\327!\210\330\f!\210 !\"#\307$\331\332\333!>\204x\334\333\331\335\307$\210)\336\337!\207" [delay-mode-hooks major-mode mode-name ftp-mode-map ftp-mode-syntax-table parent 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 ftp-mode-abbrev-table local-abbrev-table ftp-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 6 (#$ . 17334) nil])
#@37 Connect to SERVICE on HOST via SMB.
(defalias 'smbclient #[(host service) "\306\307	#\310\311\n\311Q!\312\313	Rq\210\314 \210\315\n
\316\203,\317\fC\"\202.\fC%\210\320!+\207" [host service name buf service-name smbclient-program format "smbclient [%s\\%s]" get-buffer-create "*" "\\\\" "\\" smbclient-mode comint-exec nil append pop-to-buffer smbclient-program-options] 8 (#$ . 18476) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)) (read-from-minibuffer "SMB Service: "))])
#@24 List services on HOST.
(defalias 'smbclient-list-shares #[(host) "\303\304\305\"!\211q\210\306 \210\307	\310\n\311\312D%\210\313	!)\207" [host buf smbclient-program get-buffer-create format "*SMB Shares on %s*" smbclient-mode comint-exec "smbclient-list-shares" nil "-L" pop-to-buffer] 8 (#$ . 19001) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)))])
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [smbclient-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar smbclient-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [smbclient-mode-map variable-documentation put purecopy "Keymap for `smbclient-mode'." boundp smbclient-mode-syntax-table definition-name smbclient-mode] 5)
(defvar smbclient-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [smbclient-mode-syntax-table variable-documentation put purecopy "Syntax table for `smbclient-mode'." smbclient-mode-abbrev-table definition-name smbclient-mode] 5)
(defvar smbclient-mode-abbrev-table (progn (define-abbrev-table 'smbclient-mode-abbrev-table nil) smbclient-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [smbclient-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `smbclient-mode'." smbclient-mode derived-mode-parent comint-mode] 5)
#@239 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 step
during initialization.

\{smbclient-mode-map}
(defalias 'smbclient-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324 \325\"\204V !=\204V\326 \325!C#\210\327!\210\330\f!\210 !\"#\307$\331\332\333!>\204x\334\333\331\335\307$\210)\336\337!\207" [delay-mode-hooks major-mode mode-name smbclient-mode-map smbclient-mode-syntax-table parent 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 smbclient-mode-abbrev-table local-abbrev-table smbclient-prompt-regexp comint-prompt-regexp comint-input-autoexpand] 6 (#$ . 20738) 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) (#$ . 21946))
(defalias 'run-network-program #[(process-name host port &optional initial-string) "\306\211\307\310\n\310Q!\211q\210\311\n\f$\211\204\312\313\"\210\314 \210\315	!e\306\223\210\316	\317\"\210
\2038\320	
\321P\"\210\322!*\207" [buf tcp-connection process-name host port initial-string 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] 6])
#@246 A list of regular expressions matching host names.
If a host name passed to `finger' matches one of these regular
expressions, it is assumed to be a host that doesn't accept
queries of the form USER@HOST, and wants a query containing USER only.
(custom-declare-variable 'finger-X\.500-host-regexps nil '(#$ . 23040) :group 'net-utils :type '(repeat regexp) :version "21.1")
#@22 Finger USER on HOST.
(defalias 'finger #[(user host) "\306	Q\307\n\310Q\f\311
\203!\312
@	\"\204!
A\202\313	\314\315\"A\n$,\207" [user host user-and-host process-name finger-X\.500-host-regexps regexps "@" "Finger [" "]" nil string-match run-network-program assoc finger found network-connection-service-alist] 6 (#$ . 23420) (byte-code "\302\303\304 \"\305\306\"\211\203\307	O	T\310OD\202#\302\311\312 \"D*\207" [answer index read-from-minibuffer "Finger User: " net-utils-url-at-point string-match "@" 0 nil "At Host: " net-utils-machine-at-point] 5)])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\210\300\320\321\322\304\305\306\323&\207" [custom-declare-variable whois-server-name "rs.internic.net" "Default host name for the whois service." :group net-utils :type string whois-server-list '(("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")) "A list of whois servers that can be queried." (repeat (list string)) whois-server-tld '(("rs.internic.net" . "com") ("whois.publicinterestregistry.net" . "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.apnic.net" . "au") ("whois.apnic.net" . "ch") ("whois.apnic.net" . "hk") ("whois.apnic.net" . "jp") ("whois.nic.gov" . "gov") ("whois.nic.mil" . "mil")) "Alist to map top level domains to whois servers." (repeat (cons string string)) whois-guess-server t "If non-nil then whois will try to deduce the appropriate whois\nserver from the query.  If the query doesn't look like a domain or hostname\nthen the server named by `whois-server-name' is used." boolean] 8)
#@74 Return the top level domain of `host', or nil if it isn't a domain name.
(defalias 'whois-get-tld #[(host) "GSG\303Z\211	U\204\304\nH\305\"\204\nS\211\202\n\n	U?\205+\nT\306O*\207" [host max-len i 5 char-equal 46 nil] 4 (#$ . 25328)])
#@210 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.
(defalias 'whois #[(arg search-string) "\205\n\306\307	!\n\"\211\203@\202\f\203&\310\311\312\211\313%\202'
\314\315\316\317\"A	$+\207" [whois-guess-server search-string whois-server-tld whois-apropos-host whois-server-name server-name rassoc whois-get-tld completing-read "Whois server name: " nil "whois." run-network-program "Whois" assoc whois arg whois-server-list host network-connection-service-alist] 7 (#$ . 25583) "P\nsWhois: "])
#@44 Server which provides inverse DNS mapping.
(custom-declare-variable 'whois-reverse-lookup-server "whois.arin.net" '(#$ . 26258) :group 'net-utils :type 'string)
(defalias 'whois-reverse-lookup #[nil "\302\303!)\207" [whois-reverse-lookup-server whois-server-name call-interactively whois] 2 nil nil])
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [network-connection-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(defvar network-connection-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [network-connection-mode-map variable-documentation put purecopy "Keymap for `network-connection-mode'." boundp network-connection-mode-syntax-table definition-name network-connection-mode] 5)
(defvar network-connection-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [network-connection-mode-syntax-table variable-documentation put purecopy "Syntax table for `network-connection-mode'." network-connection-mode-abbrev-table definition-name network-connection-mode] 5)
(defvar network-connection-mode-abbrev-table (progn (define-abbrev-table 'network-connection-mode-abbrev-table nil) network-connection-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [network-connection-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `network-connection-mode'." network-connection-mode derived-mode-parent comint-mode] 5)
#@266 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 step
during initialization.

\{network-connection-mode-map}
(defalias 'network-connection-mode #[nil "\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\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\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 parent 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 network-connection-mode-abbrev-table local-abbrev-table] 6 (#$ . 28093) nil])
(defalias 'network-connection-mode-setup #[(host service) "\304\301!\210\304\303!\210\n\211\207" [host network-connection-host service network-connection-service make-local-variable] 2])
#@47 Open a network connection to SERVICE on HOST.
(defalias 'network-connection-to-service #[(host service) "\303\304\305	!\n\"A\"\207" [host service network-connection-service-alist network-connection assoc intern] 5 (#$ . 29365) (list (read-from-minibuffer "Host: " (net-utils-machine-at-point)) (completing-read "Service: " (mapcar #'(lambda (elt) (list (symbol-name (car elt)))) network-connection-service-alist)))])
#@44 Open a network connection to HOST on PORT.
(defalias 'network-connection #[(host port) "\302\303	!\"\207" [host port network-service-connection number-to-string] 4 (#$ . 29789) "sHost: \nnPort: "])
#@47 Open a network connection to SERVICE on HOST.
(defalias 'network-service-connection #[(host service) "\305\306	\307\260\310	!\311\312\n\312Q!\313!\204\314\n	B\"\210\fq\210\315 \210\316	\"\210\317\f!+\207" [host service process-name portnum buf "Network Connection [" " " "]" string-to-number get-buffer-create "*" zerop make-comint network-connection-mode network-connection-mode-setup pop-to-buffer] 5 (#$ . 29994)])
#@64 Reconnect a network connection, preserving the old input ring.
(defalias 'network-connection-reconnect #[nil "\306p!	\n\211\203\307!\310=\204\311\312!\202Adb\210\313\314\f\"c\210\315\f\247\2032\2028\316\"A\"\210
\205A
\211,\207" [comint-input-ring network-connection-host network-connection-service service host old-comint-input-ring get-buffer-process process-status closed message "Still connected" format "Reopening connection to %s\n" network-connection assoc proc network-connection-service-alist] 6 (#$ . 30430) nil])
(provide 'net-utils)