;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\311\312\313\314\315DD\316\317\320\321\322&\210\311\323\313\314\324DD\325\317\320\321\326&\207" [require pcomplete custom-declare-group pcmpl-rpm nil "Options for rpm completion." :group :prefix "pcmpl-rpm-" custom-declare-variable pcmpl-rpm-query-options funcall function #[0 "\300\301\302\303\"r\211q\210\304\305\"\216\3061\307\310\300\303\300\311%0\202!\210\202?\203?\312\313\300\314#\203/\315\262eb\210\316\317\300\303#\203?\320B\262*\210\207" [nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] (error) call-process "rpm" "--help" search-backward "--nodigest " move ("--nodigest") search-forward "--nosignature " "--nosignature"] 8 #1=""] "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 #[0 "\300\207" [t] 1 #1#] "Whether to cache the list of installed packages." boolean] 8)#@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" (#$ . 1178))#@59 Time at which the list of installed packages was updated. (defvar pcmpl-rpm-cache-time nil (#$ . 1327))#@29 List of installed packages. (defvar pcmpl-rpm-packages nil (#$ . 1436))#@46 Return a list of all installed rpm packages. (defalias 'pcmpl-rpm-packages #[0 "\203 \203 \305\n!\3068\262\211\205\307 \"?\262\203 \207\310\311!\210\312 \313\314\315\316\317\320\f;\2037\fC\2028\f\"#!\310\321!\210 \207" [pcmpl-rpm-cache pcmpl-rpm-cache-time pcmpl-rpm-cache-stamp-file pcmpl-rpm-packages pcmpl-rpm-query-options file-attributes 5 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"] 7 (#$ . 1513)])#@13 (fn FLAG) (defalias 'pcmpl-rpm-all-query #[257 "\300\301\"\210\302 \303C\203\"\211\304\305\306\307@$!\244\210A\262\202 \310A!\207" [message "Querying all packages with `%s'..." pcmpl-rpm-packages t split-string pcomplete-process-result "rpm" "-q" pcomplete-uniquify-list] 10 (#$ . 2074)]) (defalias 'pcmpl-rpm-files #[0 "\300\301\302\301\303\304#\"\207" ["\\.rpm\\'" nil pcomplete-entries make-closure #[257 "\302!\206\301\203\303\301\"\205\300?\206\300!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pcmpl-rpm-files speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@35 Completion for the `rpm' command. (defalias 'pcomplete/rpm #[0 "\302C X\205\265\211\242\204\"\303\304\305\"\203\306\307\302\310\302$\210\202\"\311\312!\210\211\242\313=\204/\303\314!\203\211\313\240\210\303\304\305\"\203\330\306\315\302\310\302$\210\316\317!\203Q\306\320\302\310\302$\210\202\316\321!\203a\306\322\302\310\302$\210\202\316\323!\203q\306\324\302\310\302$\210\202\316\325!\203\201\306\326\302\310\302$\210\202\316\327!\203\221\306\330\302\310\302$\210\202\316\331!\203\250\303\304\305\"\203\306\332\302\310\302$\210\202\316\333!\203\270\306\334\302\310\302$\210\202\316\335!\203\310\306\336\302\310\302$\210\202\316\337!\203\306\340\302\310\302$\210\202\303\341\305\"\203\346\311\342!\210\202\316\343\344\345#\203\370\306\346\302\211\211$\210\202\316\347\344\345#\203\n\306\350\302\310\302$\210\202\306\351\302\211\211$\210\202\316\352!\203$\306\353\302\310\302$\210\202\316\354!\2039\306\355\302\310\302$\210\356\357\302\"\210\202\303\360!\203N\306\361\302\211\211$\210\356\357\302\"\210\202\303\362!\203`\306\363\302\211\211$\204T\202\211\242\364=\204m\316\365!\203\247\211\364\240\210\303\304\305\"\203\217\306\366\302\310\302$\210\316\323!\203\306\367\302\310\302$\210\202\303\341\305\"\203\235\311\370!\210\202\306\371\302\211\211$\210\202\211\242\372=\204\264\316\373!\203\211\372\240\210\303\304\305\"\203\366\306\374\302\310\302$\210\316\317!\203\326\306\375\302\310\302$\210\202\316\327!\203\346\306\376\302\310\302$\210\202\316\323!\203\306\377\302\310\302$\210\202\303\341\305\"\203\311\370!\210\202\306\201@\302\211\211$\210\202\211\242\201A>\203\274\303\304\305\"\203\240\306\201B\201C\"\302\310\302$\210\316\317!\203@\306\201D\302\310\302$\210\202\316\201E!\203T\306\201F\302\310\302$\210\202\316\323!\203f\306\201G\302\310\302$\210\202\316\201H!\203z\306\201I\302\310\302$\210\202\316\327!\203\214\306\201J\302\310\302$\210\202\316\201K!\203\306\201L\302\310\302$\210\202\303\341\305\"\203\260\311\201M!\210\202\306\201N\302\211\211$\210\202\316\201O!\204\314\303\201P!\203\325\211\201Q\240\210\202\316\201R!\204\345\303\201S!\203\356\211\201T\240\210\202\211\242\201U=\204\316\201V!\204\303\201W!\203m\211\201U\240\210\303\304\305\"\203S\306\201X\302\310\302$\210\316\317!\203/\306\201Y\302\310\302$\210\202\316\323!\203A\306\201Z\302\310\302$\210\202\316\327!\203\306\201[\302\310\302$\210\202\303\341\305\"\203a\311\370!\210\202\306\201\\\302\211\211$\210\202\211\242\201]=\204~\316\201^!\203\211\201]\240\210\303\304\305\"\203\306\201_\302\310\302$\210\316\317!\203\246\306\201`\302\310\302$\210\202\316\323!\203\270\306\201a\302\310\302$\210\202\316\327!\203\312\306\201b\302\310\302$\210\202\316\333!\203\334\306\201c\302\310\302$\210\202\316\335!\203\356\306\201d\302\310\302$\210\202\316\337!\203\306\201e\302\310\302$\210\202\303\341\305\"\203\311\201f!\210\202\306\201g\302\211\211$\210\202\211\242\201h>\204-\303\201i!\203\252\211\303\201j!\203<\201k\202?\201l\240\210\303\304\305\"\203\213\306\201m\302\310\302$\210\316\201n!\203e\306\201o\302\310\302$\210\202\316\323!\203w\306\201p\302\310\302$\210\202\316\201q!\203\306\201r\302\310\302$\210\202\303\341\305\"\203\231\311\370!\210\202\306\201B\201s\"\302\211\211$\210\202\201t\201u!\210\202\207" [pcomplete-index pcomplete-last nil pcomplete-match "^--\\(.*\\)" 0 pcomplete--here #[0 "\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" #[0 "\300\207" [("--changelog" "--dbpath" "--dump" "--file" "--ftpport" "--ftpproxy" "--httpport" "--httpproxy" "--provides" "--queryformat" "--rcfile" "--requires" "--root" "--scripts" "--triggeredby" "--whatprovides" "--whatrequires")] 1] pcomplete-test "--dbpath" #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] "--queryformat" #[0 "\300\207" [nil] 1] "--rcfile" #[0 "\300 \207" [pcomplete-entries] 1] "--file" #[0 "\300 \207" [pcomplete-entries] 1] "--root" #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] "--scripts" #[0 "\300\207" [("--triggers")] 1] "--triggeredby" #[0 "\300 \207" [pcmpl-rpm-packages] 1] "--whatprovides" #[0 "\300\301!\207" [pcmpl-rpm-all-query "--provides"] 2] "--whatrequires" #[0 "\300\301!\207" [pcmpl-rpm-all-query "--requires"] 2] "^-" "af.p(pcmpl-rpm-files)ilsdcvR" "-[^-]*p" first 1 #[0 "\300\301\302\301\303\304#\"\207" [#1="\\.rpm\\'" nil pcomplete-entries make-closure #2=#[257 "\302!\206\301\203\303\301\"\205\300?\206\300!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8] "-[^-]*f" #[0 "\300 \207" [pcomplete-entries] 1] #[0 "\300 \207" [pcmpl-rpm-packages] 1] "--pipe" #[0 " \207" [pcomplete-command-completion-function] 1] "--rmsource" #[0 "\300 \207" [pcomplete-entries] 1] throw pcomplete-completions "\\`--re\\(build\\|compile\\)\\'" #[0 "\300\301\302\301\303\304#\"\207" [#1# nil pcomplete-entries make-closure #2#] 8] "\\`--\\(resign\\|addsign\\)\\'" #[0 "\300\301\302\301\303\304#\"\207" [#1# nil pcomplete-entries make-closure #2#] 8] checksig "--checksig" #[0 "\300\207" [("--nopgp" "--nogpg" "--nomd5" "--rcfile")] 1] #[0 "\300 \207" [pcomplete-entries] 1] "v" #[0 "\300\301\302\301\303\304#\"\207" [#1# nil pcomplete-entries make-closure #2#] 8] rebuilddb "--rebuilddb" #[0 "\300\207" [("--dbpath" "--root" "--rcfile")] 1] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300 \207" [pcomplete-entries] 1] #[0 "\300\207" [nil] 1] (install upgrade) make-closure #[0 "\301\302\300\242\303=\205\n\304\305#\207" [V0 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] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] "--relocate" #[0 "\300\207" [nil] 1] #[0 "\300 \207" [pcomplete-entries] 1] "--excludepath" #[0 "\300 \207" [pcomplete-entries] 1] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] "--prefix" #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] "vh" #[0 "\300\301\302\301\303\304#\"\207" [#1# nil pcomplete-entries make-closure #2#] 8] "--install" "-[^-]*i" install "--upgrade" "-[^-]*U" upgrade erase "--erase" "-[^-]*e" #[0 "\300\207" [("--allmatches" "--dbpath" "--justdb" "--nodeps" "--noorder" "--noscripts" "--notriggers" "--rcfile" "--root")] 1] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300 \207" [pcomplete-entries] 1] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300 \207" [pcmpl-rpm-packages] 1] verify "--verify" #[0 "\300\207" [("--dbpath" "--nodeps" "--nofiles" "--nomd5" "--rcfile" "--root" "--triggeredby" "--whatprovides" "--whatrequires")] 1] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300 \207" [pcomplete-entries] 1] #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300 \207" [pcmpl-rpm-packages] 1] #[0 "\300\301!\207" [pcmpl-rpm-all-query "--provides"] 2] #[0 "\300\301!\207" [pcmpl-rpm-all-query "--requires"] 2] "af.p(pcmpl-rpm-files)v" #[0 "\300 \207" [pcmpl-rpm-packages] 1] (build test) "\\`-[bt]" "\\`-b" build test #[0 "\300\207" [("--buildroot" "--clean" "--nobuild" "--rcfile" "--rmsource" "--short-circuit" "--sign" "--target" "--timecheck")] 1] "--buildroot" #[0 "\300\301\302\"\207" [nil pcomplete-entries file-directory-p] 4] #[0 "\300 \207" [pcomplete-entries] 1] "--timecheck" #[0 "\300\207" [nil] 1] #[0 "\300\242\301=\203 \302\202\f\303\304\305\304\306\307#\"\207" [V0 test "\\.tar\\'" "\\.spec\\'" nil pcomplete-entries make-closure #2#] 8] error "You must select a mode: -q, -i, -U, --verify, etc"] 6 (#$ . 2766)])#@28 Location of the DNF cache. (defvar pcmpl-rpm-dnf-cache-file "/var/cache/dnf/packages.db" (#$ . 11068))#@15 (fn STATUS) (defalias 'pcmpl-rpm--dnf-packages #[257 "\301!\205B\302\303!\205B\304\305C\306\307#\216\211\310 \240\210\311\312\304\"\210\313\303\314\315\316\317\267\2028\320\202=\321\202=\322\202=\323\324\n\"&)\266\202\207" [pcmpl-rpm-dnf-cache-file file-exists-p executable-find "sqlite3" "Getting list of packages..." nil make-closure #[0 "\301\205\300\242\203\302\303\300\242\"\207\302\304!\207" [V0 V1 message #1="%s" nil] 3] current-message message #1# process-lines "-batch" "-init" "/dev/null" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (available 44 installed 48 not-installed 52)) "select pkg from available" "select pkg from installed" "select pkg from available where pkg not in (select pkg from installed)" error "No clause matching `%S'"] 12 (#$ . 11176)])#@35 Completion for the `dnf' command. (defalias 'pcomplete/dnf #[0 "\300\301\302\303\304\305%\306\307!\235\204\310\311\312\"\313\211\211$\210\202\306\307!\314\315\316\"\2032\310\311\317\"\313\211\211$\202c\211\320\267\202S\310\321\313\211\211$\202c\310\322\313\211\211$\202c\310\323\313\211\211$\202c\314\315\316\"\205i\310\311\324\"\313\211\211$\205i\202\207" [pcomplete-from-help "dnf help" :margin "^\\(\\)[a-z-]+ " :argument "[a-z-]+" pcomplete-arg 1 pcomplete--here make-closure #[0 "\301\300\302\303!\"\207" [V0 completion-table-merge pcomplete-from-help "dnf help"] 4] nil pcomplete-match "\\`-" 0 #[0 "\301\302\303\300E!\207" [V0 pcomplete-from-help #1="dnf" #2="help"] 4] #s(hash-table size 12 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("remove" 56 "reinstall" 56 "downgrade" 56 "upgrade" 65 "mark" 65 "install" 65 "updateinfo" 74 "repoquery" 74 "list" 74 "info" 74 "changelog" 74 "builddep" 74)) #[0 "\300\301!\207" [pcmpl-rpm--dnf-packages installed] 2] #[0 "\300\301!\207" [pcmpl-rpm--dnf-packages not-installed] 2] #[0 "\300\301!\207" [pcmpl-rpm--dnf-packages available] 2] #[0 "\301\302\303\300E!\207" [V0 pcomplete-from-help #1# #2#] 4]] 7 (#$ . 12012)]) (provide 'pcmpl-rpm)