%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/net/
Current File : //usr/local/share/emacs/27.2/lisp/net/net-utils.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!\207" [require subr-x cl-lib] 2)
#@64 Return absolute name of COMMAND if found in an sbin directory.
(defalias 'net-utils--executable-find-sbin #[(command) "\302\303	!)\207" [exec-path command ("/sbin" "/usr/sbin" "/usr/local/sbin") executable-find] 2 (#$ . 475)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\306\301\316\317&\210\312\320\302\321\306\301\316\322&\210\312\323\324\325\306\301\316\317&\210\312\326\327\330\306\301\316\331&\210\312\332\333\334\310\335\306\301\316\317&	\210\312\336\337\340\310\335\341\342\306\301\316\343&\210\312\344\345\346\306\301\316\317\310\347&	\210\312\350\351\352\306\301\316\353\310\347&	\210\312\354\355\356\306\301\316\317\310\347&	\210\312\357\360\361\306\301\316\362&\210\312\363\364\365\306\301\316\317&\210\312\366\367\370\306\301\316\371&\210\312\372\373\374\306\301\316\317\310\347&	\210\312\375\376\377\306\301\316\201@\310\347&	\210\312\201A\201B\201C\306\301\316\317&\210\312\201D\302\201E\306\301\316\201F&\210\312\201G\201H\201I\306\301\316\201J&\210\312\201K\201L\201M\306\301\316\317&\210\312\201N\302\201O\306\301\316\201P\310\347&	\210\312\201Q\201R\201S\306\301\316\317&\210\312\201T\302\201U\306\301\316\201V&\210\312\201W\201X\201Y\306\301\316\201J&\210\312\201Z\201[\201\\\306\301\316\317&\210\312\201]\302\201^\306\301\316\201_&\210\312\201`\201a\201b\306\301\316\201J&\210\312\201c\201d\201C\306\301\316\317&\210\312\201e\302\201f\306\301\316\201g&\207" [custom-declare-group net-utils nil "Network utility functions." :prefix "net-utils-" :group comm :version "20.3" custom-declare-variable traceroute-program (if (eq system-type 'windows-nt) "tracert" "traceroute") "Program to trace network hops to a destination." :type 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 (eq system-type 'gnu/linux) (list "-c" "4")) "Options for the ping program.\nThese options can be used to limit how many ICMP packets are emitted." (repeat string) ifconfig-program (cond ((eq system-type 'windows-nt) "ipconfig") ((executable-find "ifconfig") "ifconfig") ((net-utils--executable-find-sbin "ifconfig")) ((net-utils--executable-find-sbin "ip")) (t "ip")) "Program to print network configuration information." "25.1" ifconfig-program-options (cond ((string-match "ipconfig\\'" ifconfig-program) '("/all")) ((string-match "ifconfig\\'" ifconfig-program) '("-a")) ((string-match "ip\\'" ifconfig-program) '("addr"))) "Options for the ifconfig program." :set-after (ifconfig-program) (repeat string) iwconfig-program (cond ((executable-find "iwconfig") "iwconfig") ((net-utils--executable-find-sbin "iw") "iw") (t "iw")) "Program to print wireless network configuration information." "26.1" iwconfig-program-options (cond ((string-match-p "iw\\'" iwconfig-program) (list "dev")) (t nil)) "Options for the iwconfig program." (repeat string) netstat-program (cond ((executable-find "netstat") "netstat") ((net-utils--executable-find-sbin "ss")) (t "ss")) "Program to print network statistics." netstat-program-options (list "-a") "Options for the netstat program." (repeat string) arp-program (or (net-utils--executable-find-sbin "arp") "arp") "Program to print IP to address translation tables." arp-program-options (list "-a") "Options for the arp program." (repeat string) route-program (cond ((eq system-type 'windows-nt) "route") ((executable-find "netstat") "netstat") ((net-utils--executable-find-sbin "netstat")) ((executable-find "ip") "ip") ((net-utils--executable-find-sbin "ip")) (t "ip")) "Program to print routing tables." route-program-options (cond ((eq system-type 'windows-nt) (list "print")) ((string-match-p "netstat\\'" route-program) (list "-r")) (t (list "route"))) "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." dig-program-options "Options for the dig program." (repeat string) 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)] 12)
(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) (#$ . 5569))
#@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) (#$ . 6029))
(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 #[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 \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 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)) revert-buffer-function net-utils--revert-function run-mode-hooks net-utils-mode-hook net-utils-mode-abbrev-table local-abbrev-table] 6 (#$ . 7658) 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) "r\304!q\210\212\305	\306\307\n\"\203\310\311\312\211\n$\202\313!b\210\nc\210\313!`\312\223,\207" [process output-string filtered-string inhibit-read-only process-buffer t string-match "
" replace-match "" nil process-mark] 5 (#$ . 9186)])
#@36 Run a network information program.
(defalias 'net-utils-run-program #[(name header program args) "\306\307\307Q!	\310=\203\311\312\313\314 \"!\202\n\211q\210\315 \210\f\316\261\210\317\320\321
%\322\"\210\323!\210*\207" [name system-type coding-system-for-read buf header program 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 args] 8 (#$ . 9538)])
(defvar net-utils--revert-cmd nil)
#@51 Run a network utility for diagnostic output only.
(defalias 'net-utils-run-simple #[(buffer program-name args &optional nodisplay) "r;\203\f\306!\202
q\210\307p!\211\203 \310	\311\"\210\312	!\210)\313\n\314=\2032\315\316\317\320 \"!\2023\321 \210*\322 \210\323\324!\210\325p
\326BBBB\310\327\330
p
%\331\"\210?\205a\332p!)\207" [buffer proc system-type coding-system-for-read inhibit-read-only program-name get-buffer-create get-buffer-process set-process-filter nil delete-process t windows-nt intern format "cp%d" w32-get-console-output-codepage erase-buffer net-utils-mode make-local-variable net-utils--revert-cmd net-utils-run-simple (nodisplay) apply start-process net-utils-remove-ctrl-m-filter display-buffer args nodisplay] 8 (#$ . 10084)])
(defalias 'net-utils--revert-function #[(&optional ignore-auto noconfirm) "\302\303\304 \"\210\305@A\"\210\306p!\211\205\307	\310\")\207" [net-utils--revert-cmd proc message "Reverting `%s'..." buffer-name apply get-buffer-process set-process-sentinel #[(process event) "\302\230\205\f\303\304\305	!\"\207" [event process "finished\n" message "Reverting `%s' done" process-buffer] 4]] 4])
#@55 Run `ifconfig-program' and display diagnostic output.
(defalias 'ifconfig #[nil "\302\303\304\"	#\207" [ifconfig-program ifconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 11257) nil])
(defalias 'ipconfig 'ifconfig)
#@55 Run `iwconfig-program' and display diagnostic output.
(defalias 'iwconfig #[nil "\302\303\304\"	#\207" [iwconfig-program iwconfig-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 11499) nil])
#@54 Run `netstat-program' and display diagnostic output.
(defalias 'netstat #[nil "\302\303\304\"	#\207" [netstat-program netstat-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 11710) nil])
#@50 Run `arp-program' and display diagnostic output.
(defalias 'arp #[nil "\302\303\304\"	#\207" [arp-program arp-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 11917) nil])
#@52 Run `route-program' and display diagnostic output.
(defalias 'route #[nil "\302\303\304\"	#\207" [route-program route-program-options net-utils-run-simple format "*%s*"] 4 (#$ . 12108) nil])
#@38 Run `traceroute-program' for TARGET.
(defalias 'traceroute #[(target) "\203\f\304	C\"\202	C\305\306	P\n#)\207" [traceroute-program-options target options traceroute-program append net-utils-run-simple "Traceroute "] 4 (#$ . 12307) "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	P\307\310	R\n$)\207" [ping-program-options host options ping-program append net-utils-run-program "Ping " "** Ping ** " " ** "] 6 (#$ . 12566) (list (read-from-minibuffer "Ping host: " (net-utils-machine-at-point)))])
#@416 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.
(defalias 'nslookup-host #[(host &optional name-server) "\305	C\n\205\n\nC#\306\307\310\311\312\307	\fE\313#P\f$)\207" [nslookup-program-options host name-server options nslookup-program append net-utils-run-program "Nslookup" "** " mapconcat identity " ** "] 8 (#$ . 12960) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)) (if current-prefix-arg (read-from-minibuffer "Name server: ")))])
#@325 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.
(defalias 'nslookup-host-ipv4 #[(host &optional name-server format) "\306	\nF\307\310\311\"\312\313\314#\266\202!\315\316\f\"\203#\317\320\f\"\206$	\321\267\202=
\202B\322\323\324\325\326
\327\"\"\"\202B\330\331\"+\207" [nslookup-program host name-server args output ip "-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 44 nil 44 vector 48)) apply vector mapcar string-to-number split-string "\\." error "Invalid format: %s" format] 7 (#$ . 13801)])
(defalias 'nslookup--ipv6-expand #[(ipv6-vector) "G\211\305W\203*\306\307\"\310\307\n#\310\nT	#\311\312\305	SZ\307\"\f#+\202+)\207" [ipv6-vector len pivot head tail 8 cl-position 0 cl-subseq vconcat make-vector] 6])
#@326 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.
(defalias 'nslookup-host-ipv6 #[(host &optional name-server format) "\306	\nF\307\310\311\"\312\313\314#\266\202!\315\316
\317
\320\260!\321\"\322=\203/\323!P\2023\324!P\f\"\203?\325\326\f\"\206@	#$\327\267\202\202#\202\207\330\331\332\333#\334\"%\311\211&%:\203y%@\335
\336\"&B&%A\211%\202_&\237+\"!\202\207\337\340$\"-\207" [nslookup-program host name-server args output hextet "-type=AAAA" shell-command-to-string cl-remove nil " " mapconcat identity "[0-9a-fA-F]\\{1,4\\}" "\\(\\(" "[:]\\)\\{1,6\\}\\([:]?\\(" "\\)\\{1,6\\}\\)\\)" string-match windows-nt "Name:.*\nAddress: *" "has AAAA address " match-string 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 73 nil 73 vector 78)) nslookup--ipv6-expand apply vector split-string "[:]" string-to-number 16 error "Invalid format: %s" ip-regex system-type ip format #1=#:--cl-var-- #2=#:--cl-var--] 8 (#$ . 15027)])
#@25 Run `nslookup-program'.
(defalias 'nslookup #[nil "\301\302\303\"!\210\304 \207" [nslookup-program switch-to-buffer make-comint "nslookup" nslookup-mode] 4 (#$ . 16308) 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 "	" completion-at-point] 4))
(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 #[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 (#$ . 17834) nil])
#@282 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.
(defalias 'dns-lookup-host #[(host &optional name-server) "\305	C\n\205\n\nC#\306\307	\310Q\311\312\313\314	\fE\315#P\f$)\207" [dns-lookup-program-options host name-server options dns-lookup-program append net-utils-run-program "DNS Lookup [" "]" "** " mapconcat identity "DNS Lookup" " ** "] 8 (#$ . 18980) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)) (if current-prefix-arg (read-from-minibuffer "Name server: ")))])
#@271 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.
(defalias 'run-dig #[(host &optional name-server) "\305	C\n\205\f\306\nPC#\307\310\311\312\313\310	\fE\314#P\f$)\207" [dig-program-options host name-server options dig-program append "@" net-utils-run-program "Dig" "** " mapconcat identity " ** "] 8 (#$ . 19720) (list (read-from-minibuffer "Lookup host: " (net-utils-machine-at-point)) (if current-prefix-arg (read-from-minibuffer "Name server: ")))])
(autoload 'comint-exec "comint")
#@39 Run `ftp-program' to connect to HOST.
(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 (#$ . 20436) (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 "	" completion-at-point] 4))
(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 #[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 (#$ . 22044) nil])
#@96 Connect to SERVICE on HOST via SMB.

This command uses `smbclient-program' to connect to HOST.
(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 (#$ . 23201) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)) (read-from-minibuffer "SMB Service: "))])
#@82 List services on HOST.
This command uses `smbclient-program' to connect to 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 (#$ . 23785) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)))])
(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 #[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 (#$ . 25420) 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) (#$ . 26643))
(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 '(#$ . 27737) :group 'net-utils :type '(repeat regexp) :version "21.1")
#@119 Finger USER on HOST.
This command uses `finger-X.500-host-regexps'
and `network-connection-service-alist', which see.
(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 (#$ . 28118) (byte-code "\302\303\304 \"\305\306\"\211\203\307\310	#\307	T\"D\202$\302\311\312 \"D*\207" [answer index read-from-minibuffer "Finger User: " net-utils-url-at-point string-match "@" substring 0 "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+\306\nT\"*\207" [host max-len i 5 char-equal 46 substring] 4 (#$ . 30134)])
#@271 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'.
(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 (#$ . 30396) "P\nsWhois: "])
#@44 Server which provides inverse DNS mapping.
(custom-declare-variable 'whois-reverse-lookup-server "whois.arin.net" '(#$ . 31132) :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])
(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)
#@281 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 #[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 (#$ . 32762) 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])
#@112 Open a network connection to SERVICE on HOST.
This command uses `network-connection-service-alist', which see.
(defalias 'network-connection-to-service #[(host service) "\303\304\305	!\n\"A\"\207" [host service network-connection-service-alist network-connection assoc intern] 5 (#$ . 34050) (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 (#$ . 34539) "sHost: \nnPort: "])
#@118 Open a network connection to SERVICE on HOST.
The port to use is determined from `network-connection-service-alist'.
(defalias 'network-service-connection #[(host service) "\305\306	\307\260\310	!\311\312\n\312Q!\313U\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 "*" 0 make-comint network-connection-mode network-connection-mode-setup pop-to-buffer] 5 (#$ . 34745)])
#@129 Reconnect a network connection, preserving the old input ring.
This command uses `network-connection-service-alist', which see.
(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 (#$ . 35249) nil])
(provide 'net-utils)
Zerion Mini Shell 1.0