| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/pcmpl-rpm.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-rpm.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\301\307\310&\210\311\312\313\314\315\316\317\320\306\303& \210\311\321\322\323\315\316\317\324\306\303& \207" [require pcomplete custom-declare-group pcmpl-rpm nil "Options for rpm completion." :group :prefix "pcmpl-rpm-" custom-declare-variable pcmpl-rpm-query-options (let (opts) (with-temp-buffer (when (ignore-errors (call-process "rpm" nil t nil "--help")) (if (search-backward "--nodigest " nil 'move) (setq opts '("--nodigest"))) (goto-char (point-min)) (if (search-forward "--nosignature " nil t) (push "--nosignature" opts)))) opts) "String, or list of strings, with extra options for an rpm query command." :version "24.3" :type (choice (const :tag "No options" nil) (string :tag "Single option") (repeat :tag "List of options" string)) pcmpl-rpm-cache t "Whether to cache the list of installed packages." boolean] 10)
#@71 File used to check that the list of installed packages is up-to-date.
(defconst pcmpl-rpm-cache-stamp-file "/var/lib/rpm/Packages" (#$ . 1428))
#@59 Time at which the list of installed packages was updated.
(defvar pcmpl-rpm-cache-time nil (#$ . 1578))
#@29 List of installed packages.
(defvar pcmpl-rpm-packages nil (#$ . 1688))
#@46 Return a list of all installed rpm packages.
(defalias 'pcmpl-rpm-packages #[nil "\203 \203 \306\307\n!8\211\205 \310 \"?)\203 \f\207\311\312!\210\313 \314\315\316\317\320\321
;\2034
C\2025
\"#!\311\322!\210\f\207" [pcmpl-rpm-cache pcmpl-rpm-cache-time pcmpl-rpm-cache-stamp-file mtime pcmpl-rpm-packages pcmpl-rpm-query-options 5 file-attributes time-less-p message "Getting list of installed rpms..." current-time split-string apply pcomplete-process-result "rpm" append ("-q" "-a") "Getting list of installed rpms...done"] 8 (#$ . 1766)])
(defalias 'pcmpl-rpm-all-query #[(flag) "\303\304\"\210\305 \306C\211\203\" \307\310\311\312\n@$!\244\210\nA\211\204 \313 A!*\207" [flag provs pkgs message "Querying all packages with `%s'..." pcmpl-rpm-packages t split-string pcomplete-process-result "rpm" "-q" pcomplete-uniqify-list] 8])
(defalias 'pcmpl-rpm-files #[nil "\302\303\304\303\305\"*\207" [predicate regexp "\\.rpm\\'" nil pcomplete-entries #[(f) "\303!\206 \203 \304 \"\205 \n?\206 \n!\207" [f regexp predicate file-directory-p string-match] 3]] 3])
(put 'pcmpl-rpm-files 'byte-optimizer 'byte-compile-inline-expand)
#@35 Completion for the `rpm' command.
(defalias 'pcomplete/rpm #[nil "\303 \nX\205\225\204! \304\305\306\"\203 \307\310\303\311\303$\210\202! \312\313!\210\314=\204- \304\315!\203\314\304\305\306\"\203\324 \307\316\303\311\303$\210\317\320!\203M \307\321\303\311\303$\210\202 \317\322!\203] \307\323\303\311\303$\210\202 \317\324!\203m \307\325\303\311\303$\210\202 \317\326!\203} \307\327\303\311\303$\210\202 \317\330!\203\215 \307\331\303\311\303$\210\202 \317\332!\203\244 \304\305\306\"\203 \307\333\303\311\303$\210\202 \317\334!\203\264 \307\335\303\311\303$\210\202 \317\336!\203\304 \307\337\303\311\303$\210\202 \317\340!\203 \307\341\303\311\303$\210\202 \304\342\306\"\203\342 \312\343!\210\202 \317\344\345\346#\203\364 \307\347\303\211\211$\210\202 \317\350\345\346#\203\307\351\303\311\303$\210\202 \307\352\303\211\211$\210\202 \317\353!\203 \307\354\303\311\303$\210\202 \317\355!\2035\307\356\303\311\303$\210\357\360\303\"\210\202 \304\361!\203J\307\362\303\211\211$\210\357\360\303\"\210\202 \304\363!\203\\\307\364\303\211\211$\204P\202 \365=\204h\317\366!\203\240\365\304\305\306\"\203\210\307\367\303\311\303$\210\317\324!\203 \307\370\303\311\303$\210\202 \304\342\306\"\203\226\312\371!\210\202 \307\372\303\211\211$\210\202 \373=\204\254\317\374!\203\373\304\305\306\"\203\356\307\375\303\311\303$\210\317\320!\203\314\307\376\303\311\303$\210\202 \317\330!\203\334\307\377\303\311\303$\210\202 \317\324!\203 \307\201@ \303\311\303$\210\202 \304\342\306\"\203\374\312\371!\210\202 \307\201A \303\211\211$\210\202 \201B >\203\256\304\305\306\"\203\222\307\201C \303\311\303$\210\317\320!\2032\307\201D \303\311\303$\210\202 \317\201E !\203F\307\201F \303\311\303$\210\202 \317\324!\203X\307\201G \303\311\303$\210\202 \317\201H !\203l\307\201I \303\311\303$\210\202 \317\330!\203~\307\201J \303\311\303$\210\202 \317\201K !\203 \307\201L \303\311\303$\210\202 \304\342\306\"\203\242\312\201M !\210\202 \307\201N \303\211\211$\210\202 \317\201O !\204\276\304\201P !\203\305\201Q \202 \317\201R !\204\325\304\201S !\203\334\201T \202 \201U =\204\364\317\201V !\204\364\304\201W !\203X\201U \304\305\306\"\203>\307\201X \303\311\303$\210\317\320!\203\307\201Y \303\311\303$\210\202 \317\324!\203,\307\201Z \303\311\303$\210\202 \317\330!\203 \307\201[ \303\311\303$\210\202 \304\342\306\"\203L\312\371!\210\202 \307\201\\ \303\211\211$\210\202 \201] =\204h\317\201^ !\203\201] \304\305\306\"\203\350\307\201_ \303\311\303$\210\317\320!\203\216\307\201` \303\311\303$\210\202 \317\324!\203\240\307\201a \303\311\303$\210\202 \317\330!\203\262\307\201b \303\311\303$\210\202 \317\334!\203\304\307\201c \303\311\303$\210\202 \317\336!\203\326\307\201d \303\311\303$\210\202 \317\340!\203 \307\201e \303\311\303$\210\202 \304\342\306\"\203\370\312\201f !\210\202 \307\201g \303\211\211$\210\202 \201h >\204\304\201i !\203\212\304\201j !\203\"\201k \202%\201l \304\305\306\"\203p\307\201m \303\311\303$\210\317\201n !\203J\307\201o \303\311\303$\210\202 \317\324!\203\\\307\201p \303\311\303$\210\202 \317\201q !\203 \307\201r \303\311\303$\210\202 \304\342\306\"\203~\312\371!\210\202 \307\201s \303\211\211$\210\202 \201t \201u !\210\202 )\207" [mode pcomplete-index pcomplete-last nil pcomplete-match "^--\\(.*\\)" 0 pcomplete--here #[nil "\300\207" [("--addsign" "--checksig" "--erase" "--help" "--initdb" "--install" "--pipe" "--querytags" "--rebuild" "--rebuilddb" "--recompile" "--resign" "--rmsource" "--setperms" "--setugids" "--upgrade" "--verify" "--version")] 1] t pcomplete-opt "vqVyiUebtK" query "-[^-]*q" #[nil "\300\207" [("--changelog" "--dbpath" "--dump" "--file" "--ftpport" "--ftpproxy" "--httpport" "--httpproxy" "--provides" "--queryformat" "--rcfile" "--requires" "--root" "--scripts" "--triggeredby" "--whatprovides" "--whatrequires")] 1] pcomplete-test "--dbpath" #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] "--queryformat" #[nil "\300\207" [nil] 1] "--rcfile" #[nil "\300 \207" [pcomplete-entries] 1] "--file" #[nil "\300 \207" [pcomplete-entries] 1] "--root" #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] "--scripts" #[nil "\300\207" [("--triggers")] 1] "--triggeredby" #[nil "\300 \207" [pcmpl-rpm-packages] 1] "--whatprovides" #[nil "\300\301!\207" [pcmpl-rpm-all-query "--provides"] 2] "--whatrequires" #[nil "\300\301!\207" [pcmpl-rpm-all-query "--requires"] 2] "^-" "af.p(pcmpl-rpm-files)ilsdcvR" "-[^-]*p" first 1 #[nil "\302\303\304\303\305\"*\207" [predicate regexp #1="\\.rpm\\'" nil pcomplete-entries #2=#[(f) "\303!\206 \203 \304 \"\205 \n?\206 \n!\207" [f regexp predicate file-directory-p string-match] 3]] 3] "-[^-]*f" #[nil "\300 \207" [pcomplete-entries] 1] #[nil "\300 \207" [pcmpl-rpm-packages] 1] "--pipe" #[nil " \207" [pcomplete-command-completion-function] 1] "--rmsource" #[nil "\300 \207" [pcomplete-entries] 1] throw pcomplete-completions "\\`--re\\(build\\|compile\\)\\'" #[nil "\302\303\304\303\305\"*\207" [predicate regexp #1# nil pcomplete-entries #2#] 3] "\\`--\\(resign\\|addsign\\)\\'" #[nil "\302\303\304\303\305\"*\207" [predicate regexp #1# nil pcomplete-entries #2#] 3] checksig "--checksig" #[nil "\300\207" [("--nopgp" "--nogpg" "--nomd5" "--rcfile")] 1] #[nil "\300 \207" [pcomplete-entries] 1] "v" #[nil "\302\303\304\303\305\"*\207" [predicate regexp #1# nil pcomplete-entries #2#] 3] rebuilddb "--rebuilddb" #[nil "\300\207" [("--dbpath" "--root" "--rcfile")] 1] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\300 \207" [pcomplete-entries] 1] #[nil "\300\207" [nil] 1] (install upgrade) #[nil "\301\302\303=\205 \304\305#\207" [mode append ("--allfiles" "--badreloc" "--dbpath" "--excludedocs" "--excludepath" "--force" "--hash" "--ignorearch" "--ignoreos" "--ignoresize" "--includedocs" "--justdb" "--nodeps" "--noorder" "--noscripts" "--notriggers") upgrade ("--oldpackage") ("--percent" "--prefix" "--rcfile" "--relocate" "--replacefiles" "--replacepkgs" "--root")] 4] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] "--relocate" #[nil "\300\207" [nil] 1] #[nil "\300 \207" [pcomplete-entries] 1] "--excludepath" #[nil "\300 \207" [pcomplete-entries] 1] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] "--prefix" #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] "vh" #[nil "\302\303\304\303\305\"*\207" [predicate regexp #1# nil pcomplete-entries #2#] 3] "--install" "-[^-]*i" install "--upgrade" "-[^-]*U" upgrade erase "--erase" "-[^-]*e" #[nil "\300\207" [("--allmatches" "--dbpath" "--justdb" "--nodeps" "--noorder" "--noscripts" "--notriggers" "--rcfile" "--root")] 1] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\300 \207" [pcomplete-entries] 1] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\300 \207" [pcmpl-rpm-packages] 1] verify "--verify" #[nil "\300\207" [("--dbpath" "--nodeps" "--nofiles" "--nomd5" "--rcfile" "--root" "--triggeredby" "--whatprovides" "--whatrequires")] 1] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\300 \207" [pcomplete-entries] 1] #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\300 \207" [pcmpl-rpm-packages] 1] #[nil "\300\301!\207" [pcmpl-rpm-all-query "--provides"] 2] #[nil "\300\301!\207" [pcmpl-rpm-all-query "--requires"] 2] "af.p(pcmpl-rpm-files)v" #[nil "\300 \207" [pcmpl-rpm-packages] 1] (build test) "\\`-[bt]" "\\`-b" build test #[nil "\300\207" [("--buildroot" "--clean" "--nobuild" "--rcfile" "--rmsource" "--short-circuit" "--sign" "--target" "--timecheck")] 1] "--buildroot" #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] #[nil "\300 \207" [pcomplete-entries] 1] "--timecheck" #[nil "\300\207" [nil] 1] #[nil "\303=\203\n \304\202 \305\306\307\306\310\"*\207" [mode predicate regexp test "\\.tar\\'" "\\.spec\\'" nil pcomplete-entries #2#] 3] error "You must select a mode: -q, -i, -U, --verify, etc"] 5 (#$ . 2926)])
(provide 'pcmpl-rpm)