����
One Hat Cyber Team
One Hat Cyber Team
Your IP :
18.224.54.247
Server IP :
192.185.194.254
Server :
Linux raider.websitewelcome.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Server Software :
Apache
PHP Version :
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
emacs
/
24.3
/
lisp
/
View File Name :
pcmpl-unix.elc
;ELC��� ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:27 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/pcmpl-unix.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 "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\315\310\311&\210\302\316\317\320\306\321\310\311\322\323& \210\302\324\325\326\306\327\310\311\322\330& \207" [require pcomplete custom-declare-variable pcmpl-unix-group-file "/etc/group" "If non-nil, a string naming the group file on your system." :type (choice file (const nil)) :group pcmpl-unix pcmpl-unix-passwd-file "/etc/passwd" "If non-nil, a string naming the passwd file on your system." (choice file (const nil)) pcmpl-ssh-known-hosts-file "~/.ssh/known_hosts" "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 "~/.ssh/config" "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 #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] nil] 5 (#$ . 1738)]) (defalias 'pcomplete/pushd 'pcomplete/cd) #@25 Completion for `rmdir'. (defalias 'pcomplete/rmdir #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] nil] 5 (#$ . 1997)]) #@22 Completion for `rm'. (defalias 'pcomplete/rm #[nil "\301\302\303!\210\304\305\306\307\306$\205�\202�)\207" [pcomplete-help "(fileutils)rm invocation" pcomplete-opt "dfirRv" pcomplete--here #[nil "\304\211\304\211\305 \",\207" [predicate regexp pcomplete-dir-ignore pcomplete-file-ignore nil pcomplete-entries] 3] nil expand-file-name] 5 (#$ . 2220)]) #@25 Completion for `xargs'. (defalias 'pcomplete/xargs #[nil "\301\302\303\211\211$\210\304\305\306!!\206� \207" [pcomplete-default-completion-function pcomplete--here #[nil " \207" [pcomplete-command-completion-function] 1] nil pcomplete-find-completion-function pcomplete-arg 1] 5 (#$ . 2585)]) (defalias 'pcomplete/time 'pcomplete/xargs) #@25 Completion for `which'. (defalias 'pcomplete/which #[nil "\300\301\302\211\211$\205\f�\202��\207" [pcomplete--here #[nil " \207" [pcomplete-command-completion-function] 1] nil] 5 (#$ . 2931)]) #@159 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. (defalias 'pcmpl-unix-read-passwd-file #[(file) "\304\305 !\2034�\306\307!r\nq\210\310\216\311 !\210eb\210m\2043�\312`\304\210`{\313\"\211@B)\304y\210\202�+\314!)\207" [names file #1=#:temp-buffer fields nil file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents split-string ":" pcomplete-uniqify-list] 4 (#$ . 3132)]) #@50 Read the contents of /etc/group for group names. (defalias 'pcmpl-unix-group-names #[nil "\205�\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2 (#$ . 3716)]) (put 'pcmpl-unix-group-names 'byte-optimizer 'byte-compile-inline-expand) #@50 Read the contents of /etc/passwd for user names. (defalias 'pcmpl-unix-user-names #[nil "\205�\301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2 (#$ . 3973)]) (put 'pcmpl-unix-user-names 'byte-optimizer 'byte-compile-inline-expand) #@37 Completion for the `chown' command. (defalias 'pcomplete/chown #[nil "\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 #[nil "\205�\301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2] nil t "\\.\\([^.]*\\)\\'" #[nil "\205�\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] pcomplete-match-string 1 #[nil "\300\207" [nil] 1] #[nil "\300 \207" [pcomplete-entries] 1]] 5 (#$ . 4229)]) #@37 Completion for the `chgrp' command. (defalias 'pcomplete/chgrp #[nil "\300\301!\204 �\302\303\304\305\304$\210\302\306\304\211\211$\205�\202 �\207" [pcomplete-match "\\`-" pcomplete--here #[nil "\205�\301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] nil t #[nil "\300 \207" [pcomplete-entries] 1]] 5 (#$ . 4850)]) #@63 Return a list of hosts found in `pcmpl-ssh-known-hosts-file'. (defalias 'pcmpl-ssh-known-hosts #[nil "\205P�\304!\205P�\305\306!r q\210\307\216\310!\210\311\312\313\314 P\312\315#\203N�\316\302\317\320!\317\321!P\"\210\322\323!\203 �\313 \324 \315#\203 �\316\302\317\320!\317\321!P\"\210\2021�\n-\207" [pcmpl-ssh-known-hosts-file #1=#:temp-buffer ssh-hosts-list host-re file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally "\\(?:\\([-.[:alnum:]]+\\)\\|\\[\\([-.[:alnum:]]+\\)\\]:[0-9]+\\)[, ]" nil re-search-forward "^ *" t add-to-list match-string 1 2 looking-back "," line-end-position] 5 (#$ . 5190)]) #@58 Return a list of hosts found in `pcmpl-ssh-config-file'. (defalias 'pcmpl-ssh-config-hosts #[nil "\2050�\304!\2050�\305\306!r q\210\307\216\310!\210\311\312\313\314\311\312#\203.�\315\303\316\317!\"\210\202 � -\207" [pcmpl-ssh-config-file #1=#:temp-buffer case-fold-search ssh-hosts-list file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally nil t re-search-forward "^ *host\\(name\\)? +\\([-.[:alnum:]]+\\)" add-to-list match-string 2] 4 (#$ . 5911)]) #@103 Return a list of known SSH hosts. Uses both `pcmpl-ssh-config-file' and `pcmpl-ssh-known-hosts-file'. (defalias 'pcmpl-ssh-hosts #[nil "\303 \304 \305\211\203�\n@\306\300 \"\210\nA\211\204\f�*)\207" [hosts h --dolist-tail-- pcmpl-ssh-known-hosts pcmpl-ssh-config-hosts nil add-to-list] 4 (#$ . 6480)]) #@41 Completion rules for the `ssh' command. (defalias 'pcomplete/ssh #[nil "\300\301!\210\302\303\304\211\211$\207" [pcomplete-opt "1246AaCfgKkMNnqsTtVvXxYbcDeFiLlmOopRSw" pcomplete--here #[nil "\300 \207" [pcmpl-ssh-hosts] 1] nil] 5 (#$ . 6795)]) #@99 Completion rules for the `scp' command. Includes files as well as host names followed by a colon. (defalias 'pcomplete/scp #[nil "\300\301!\210\302\303\304\211\211$\210\202�" [pcomplete-opt "1246BCpqrvcFiloPS" pcomplete--here #[nil "\300\207" [#[(string pred action) "\306\307\"\203.� \310=\203�\311\225G=\203�C\202\\�\312\313\211\313\211 \314 \n\",\315\316#\202\\�\306\317\"\203E�\313\211\313\211 \314 \n\",\202\\�\320\321\313\211\313\211 \314 \n\",\"\322\323\324 \"\" \325 $)\207" [string action predicate regexp pcomplete-dir-ignore pcomplete-file-ignore string-match "\\`[^:/]+:" lambda 0 completion-table-subvert nil pcomplete-entries "" "/ssh:" "/" append all-completions mapcar #[(host) "\301P\207" [host ":"] 2] pcmpl-ssh-hosts complete-with-action table pred] 6]] 1] nil] 5 (#$ . 7045)]) (provide 'pcmpl-unix)