403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/pcmpl-unix.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\317\312\313&\210\302\320\304\305\321DD\322\310\323\312\313\324\325&	\210\302\326\304\305\327DD\330\310\331\312\313\324\332&	\207" [require pcomplete custom-declare-variable pcmpl-unix-group-file funcall function #[0 "\300\207" ["/etc/group"] 1 #1=""] "If non-nil, a string naming the group file on your system." :type (choice file (const nil)) :group pcmpl-unix pcmpl-unix-passwd-file #[0 "\300\207" ["/etc/passwd"] 1 #1#] "If non-nil, a string naming the passwd file on your system." (choice file (const nil)) pcmpl-ssh-known-hosts-file #[0 "\300\207" ["~/.ssh/known_hosts"] 1 #1#] "If non-nil, a string naming your SSH \"known_hosts\" file.\nThis allows one method of completion of SSH host names, the other\nbeing via `pcmpl-ssh-config-file'.  Note that newer versions of\nssh hash the hosts by default, to prevent Island-hopping SSH\nattacks.  This can be disabled, at some risk, with the SSH option\n\"HashKnownHosts no\"." (choice file (const nil)) :version "23.1" pcmpl-ssh-config-file #[0 "\300\207" ["~/.ssh/config"] 1 #1#] "If non-nil, a string naming your SSH \"config\" file.\nThis allows one method of completion of SSH host names, the other\nbeing via `pcmpl-ssh-known-hosts-file'." (choice file (const nil)) "24.1"] 10)
#@22 Completion for `cd'.
(defalias 'pcomplete/cd #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] nil] 5 (#$ . 1424)])
(defalias 'pcomplete/pushd 'pcomplete/cd)
#@25 Completion for `rmdir'.
(defalias 'pcomplete/rmdir #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] nil] 5 (#$ . 1670)])
#@22 Completion for `rm'.
(defalias 'pcomplete/rm #[0 "\301\302\303!\210\304\305\306\307\306$\205\202)\207" [pcomplete-help "(fileutils)rm invocation" pcomplete-opt "dfirRv" pcomplete--here #[0 "\302\211\211\211\303\"*\207" [pcomplete-dir-ignore pcomplete-file-ignore nil pcomplete-entries] 5] nil expand-file-name] 5 (#$ . 1880)])
#@25 Completion for `xargs'.
(defalias 'pcomplete/xargs #[0 "\302\303\304\305!\"\203\306\307\310\211\211$\210\202 \210\311\304\312!!\206	 \207" [pcomplete-command-completion-function pcomplete-default-completion-function string-prefix-p "-" pcomplete-arg 0 pcomplete--here #[0 " \207" [pcomplete-default-completion-function] 1] nil pcomplete-find-completion-function 1] 5 (#$ . 2222)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias pcomplete/sudo pcomplete/xargs pcomplete/time] 3)
#@25 Completion for `which'.
(defalias 'pcomplete/which #[0 "\300\301\302\211\211$\205\f\202\207" [pcomplete--here #[0 " \207" [pcomplete-command-completion-function] 1] nil] 5 (#$ . 2727)])
#@170 Return an alist correlating gids to group names in FILE.

If FILE is in hashed format (as described in the OpenSSH
documentation), this function returns nil.

(fn FILE)
(defalias 'pcmpl-unix-read-passwd-file #[257 "\300\301!\2037\302\303\304\"r\211q\210\305\306\"\216\307!\210eb\210m\2045\310`\300\210`{\311\"\211@B\262\210\300y\210\202*\210\312!\207" [nil file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents split-string ":" pcomplete-uniquify-list] 6 (#$ . 2924)])
#@50 Read the contents of /etc/group for group names.
(defalias 'pcmpl-unix-group-names #[0 "\205\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2 (#$ . 3505)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcmpl-unix-group-names speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@50 Read the contents of /etc/passwd for user names.
(defalias 'pcmpl-unix-user-names #[0 "\205\301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2 (#$ . 3834)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcmpl-unix-user-names speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@37 Completion for the `chown' command.
(defalias 'pcomplete/chown #[0 "\300\301!\2042\300\302\303\"\203\304\305\306\307\306$\210\2022\300\310\303\"\203+\304\311\312\313\303\"\307\306$\210\2022\304\314\306\307\306$\210\304\315\306\211\211$\205>\2022\207" [pcomplete-match "\\`-" "\\`[^.]*\\'" 0 pcomplete--here #[0 "\205\301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2] nil t "\\.\\([^.]*\\)\\'" #[0 "\205\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] pcomplete-match-string 1 #[0 "\300\207" [nil] 1] #[0 "\300 \207" [pcomplete-entries] 1]] 5 (#$ . 4162)])
#@37 Completion for the `chgrp' command.
(defalias 'pcomplete/chgrp #[0 "\300\301!\204
\302\303\304\305\304$\210\302\306\304\211\211$\205\202
\207" [pcomplete-match "\\`-" pcomplete--here #[0 "\205\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] nil t #[0 "\300 \207" [pcomplete-entries] 1]] 5 (#$ . 4773)])
#@63 Return a list of hosts found in `pcmpl-ssh-known-hosts-file'.
(defalias 'pcmpl-ssh-known-hosts #[0 "\205T\301!\205T\302\303\304\"r\211q\210\305\306\"\216\307!\210\310\311\312\310\304#\203N\313\314!\313\315!PB\262`Sf\316=\203\311\317\320 \304#\203\313\314!\313\315!PB\262\202/\211\262*\262\207" [pcmpl-ssh-known-hosts-file file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally nil re-search-forward "^ *\\(?:\\([-.[:alnum:]]+\\)\\|\\[\\([-.[:alnum:]]+\\)\\]:[0-9]+\\)[, ]" match-string 1 2 44 "\\(?:\\([-.[:alnum:]]+\\)\\|\\[\\([-.[:alnum:]]+\\)\\]:[0-9]+\\)[, ]" line-end-position] 6 (#$ . 5107)])
#@58 Return a list of hosts found in `pcmpl-ssh-config-file'.
(defalias 'pcmpl-ssh-config-hosts #[0 "\2057\302!\2057\303\304\305\"r\211q\210\306\307\"\216\310!\210\311\305\312\313\311\305#\2030\314\315!B\262\202)\211\262*\262\207" [pcmpl-ssh-config-file case-fold-search file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally nil re-search-forward "^ *host\\(name\\)? +\\([-.[:alnum:]]+\\)" match-string 2] 6 (#$ . 5834)])
#@103 Return a list of known SSH hosts.
Uses both `pcmpl-ssh-config-file' and `pcmpl-ssh-known-hosts-file'.
(defalias 'pcmpl-ssh-hosts #[0 "\300 \301 \211\203\211@\211B\262A\266\202\202\210\207" [pcmpl-ssh-known-hosts pcmpl-ssh-config-hosts] 5 (#$ . 6377)])
#@41 Completion rules for the `ssh' command.
(defalias 'pcomplete/ssh #[0 "\300\301!\210\302\303\304\211\211$\207" [pcomplete-opt "1246AaCfgKkMNnqsTtVvXxYbcDeFiLlmOopRSw" pcomplete--here #[0 "\300 \207" [pcmpl-ssh-hosts] 1] nil] 5 (#$ . 6642)])
#@99 Completion rules for the `scp' command.
Includes files as well as host names followed by a colon.
(defalias 'pcomplete/scp #[0 "\300\301!\210\302\303\304\211\211$\210\202" [pcomplete-opt "1246BCpqrvcFiloPS" pcomplete--here #[0 "\300\207" [#[771 "\302\303\"\203.\211\304=\203\305\225G=\203C\202\\\306\307\211\211\211\310\"*\266\202\311\312#\202\\\313\314\"\203E\307\211\211\211\310\"*\266\202\202\\\315\316\307\211\211\211\310\"*\266\202\"\317\320\321 \"\"\322$\207" [pcomplete-dir-ignore pcomplete-file-ignore string-match "\\`[^:/]+:" lambda 0 completion-table-subvert nil pcomplete-entries "" "/ssh:" string-search "/" append all-completions mapcar #[257 "\211\300P\207" [":"] 3 "\n\n(fn HOST)"] pcmpl-ssh-hosts complete-with-action] 11 "\n\n(fn STRING PRED ACTION)"]] 1] nil] 5 (#$ . 6888)])
#@59 Complete a command that wants a hostname for an argument.
(defalias 'pcmpl-unix-complete-hostname #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [pcomplete-read-host-names] 1] nil] 5 (#$ . 7723)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\301\"\210\307\311\301\"\210\307\312\301\"\210\307\313\301\"\207" [function-put pcmpl-unix-complete-hostname speed -1 put byte-optimizer byte-compile-inline-expand defalias pcomplete/ftp pcomplete/ncftp pcomplete/ping pcomplete/rlogin] 5)
(defalias 'pcomplete/telnet #[0 "\300\301!\210\302\303\304\211\211$\207" [pcomplete-opt "xl(pcmpl-unix-user-names)" pcomplete--here #[0 "\300 \207" [pcomplete-read-host-names] 1] nil] 5])
#@68 Complete `rsh', which, after the user and hostname, is like xargs.
(defalias 'pcomplete/rsh #[0 "\301\302!\210\303\304\305\211\211$\210\303\306\305\211\211$\210\307\310\311!!\206 \207" [pcomplete-default-completion-function pcomplete-opt "l(pcmpl-unix-user-names)" pcomplete--here #[0 "\300 \207" [pcomplete-read-host-names] 1] nil #[0 " \207" [pcomplete-command-completion-function] 1] pcomplete-find-completion-function pcomplete-arg 1] 5 (#$ . 8429)])
(provide 'pcmpl-unix)

Youez - 2016 - github.com/yon3zu
LinuXploit