ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/net-utils.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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 (#$ . 410)])
(byte-code "\302\303\304\305\306\307\310\311\312\313& \210\314\315\316\317\310\303\320\321&\210\314\322\304\323\310\303\320\324&\210\314\325\326\327\310\303\320\321&\210\314\330\331\332\310\303\320\333&\210\334\335\336\304#\210\337\304\211\203e @\335N\203^ \336N\204^ \340\336\335N#\210 A\211\204G *\341\335\336\342#\210\314\336\343\344\312\345\310\303\320\321& \210\334\346\347\304#\210\337\304\211\203\245 @\346N\203\236 \347N\204\236 \340\347\346N#\210 A\211\204\207 *\341\346\347\342#\210\314\347\350\351\312\345\352\353\310\303\320\354& \210\314\355\356\357\310\303\320\321\312\360& \210\314\361\304\362\310\303\320\363\312\360& \210\314\364\365\366\310\303\320\321&\210\314\367\370\371\310\303\320\372&\210\314\373\374\375\310\303\320\321&\210\314\376\377\201@ \310\303\320\201A &\210\314\201B \201C \201D \310\303\320\321&\210\314\201E \201F \201G \310\303\320\201H &\210\314\201I \201J \201K \310\303\320\321&\210\314\201L \304\201M \310\303\320\201N &\210\314\201O \201P \201Q \310\303\320\201R &\210\314\201S \201T \201U \310\303\320\321&\210\314\201V \201W \201X \310\303\320\321&\210\314\201Y \304\201Z \310\303\320\201[ &\210\314\201\\ \201] \201^ \310\303\320\201R &\210\314\201_ \201` \201a \310\303\320\321&\210\314\201b \304\201c \310\303\320\201d &\210\314\201e \201f \201g \310\303\320\201R &\210\314\201h \201i \201K \310\303\320\321&\210\314\201j \304\201k \310\303\320\201l &\207" [prop --dolist-tail-- 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 (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" (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" ipconfig-program-options 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 "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 (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 (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)] 13)
(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) (#$ . 5309))
#@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) (#$ . 5769))
#@168 Hook run after entering NetworkUtil mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar net-utils-mode-hook nil (#$ . 6210))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp net-utils-mode-map put definition-name net-utils-mode] 4)
(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 \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 (#$ . 7515) 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 (#$ . 9028)])
#@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 (#$ . 9380)])
(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 (#$ . 9926)])
(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])
#@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 (#$ . 11098) 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 (#$ . 11330) 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 (#$ . 11531) 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 (#$ . 11728) 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 (#$ . 11909) nil])
#@36 Run traceroute program for TARGET.
(defalias 'traceroute #[(target) "\203\f \304 C\"\202 C\305\306\307 Q \n#)\207" [traceroute-program-options target options traceroute-program append net-utils-run-simple "Traceroute" " "] 4 (#$ . 12098) "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 (#$ . 12362) (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 (#$ . 12762) (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 (#$ . 13131) 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))
#@165 Hook run after entering Nslookup mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar nslookup-mode-hook nil (#$ . 13485))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp nslookup-mode-map put definition-name nslookup-mode] 4)
(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 \325 C#\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 (#$ . 14768) 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 (#$ . 15898) (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 (#$ . 16361) (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 (#$ . 16671) (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))
#@160 Hook run after entering FTP mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar ftp-mode-hook nil (#$ . 17163))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp ftp-mode-map put definition-name ftp-mode] 4)
(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 (#$ . 18346) nil])
#@37 Connect to SERVICE on HOST via SMB.
(defalias 'smbclient #[(host service) "\306\307 #\310\311\n\311Q!\312\313 R q\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 (#$ . 19488) (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 (#$ . 20013) (list (read-from-minibuffer "Connect to Host: " (net-utils-machine-at-point)))])
#@166 Hook run after entering smbclient mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar smbclient-mode-hook nil (#$ . 20405))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp smbclient-mode-map put definition-name smbclient-mode] 4)
(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 (#$ . 21708) 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) (#$ . 22916))
(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 '(#$ . 24010) :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 (#$ . 24390) (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 (#$ . 26298)])
#@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 (#$ . 26553) "P\nsWhois: "])
#@44 Server which provides inverse DNS mapping.
(custom-declare-variable 'whois-reverse-lookup-server "whois.arin.net" '(#$ . 27228) :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])
#@175 Hook run after entering Network-Connection mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar network-connection-mode-hook nil (#$ . 27538))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp network-connection-mode-map put definition-name network-connection-mode] 4)
(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\325 C#\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 (#$ . 29021) 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 (#$ . 30293) (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 (#$ . 30717) "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! \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 (#$ . 30922)])
#@64 Reconnect a network connection, preserving the old input ring.
(defalias 'network-connection-reconnect #[nil "\306p! \n \211 \203 \307!\310=\204 \311\312!\202A db\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 (#$ . 31354) nil])
(provide 'net-utils)
Kontol Shell Bypass