;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:17 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/pcmpl-rpm.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pcmpl-rpm.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\304\301\305\306\307\303%\207" [provide pcmpl-rpm require pcomplete custom-declare-group nil "Functions for dealing with CVS completions" :group] 6) (defalias 'pcmpl-rpm-packages #[nil "\300\301\302\303\304#!\207" [split-string pcomplete-process-result "rpm" "-q" "-a"] 5]) (put 'pcmpl-rpm-packages 'byte-optimizer 'byte-compile-inline-expand) (defalias 'pcmpl-rpm-all-query #[(flag) "\303\304\"\210\305\306\307\310\311#!\312C\211\203' \305\306\307\310\n@$!\244\210\nA\211\204\313 A!*\207" [flag provs pkgs message "Querying all packages with `%s'..." split-string pcomplete-process-result "rpm" "-q" "-a" t pcomplete-uniqify-list] 8]) (defalias 'pcmpl-rpm-files #[nil "\303\304\305\n\306 \206\307\")\306\304\310\"\"*\207" [predicate regexp pcomplete-stub "\\.rpm\\'" nil append pcomplete-entries #[(path) "\301!?\207" [path file-directory-p] 2] file-directory-p] 5]) (put 'pcmpl-rpm-files 'byte-optimizer 'byte-compile-inline-expand) #@296 Completion for RedHat's `rpm' command. These rules were taken from the output of `rpm --help' on a RedHat 6.1 system. They follow my interpretation of what followed, but since I'm not a major rpm user/builder, please send me any corrections you find. You can use \[eshell-report-bug] to do so. (defalias 'pcomplete/rpm #[nil "\303 \nX\205I\204!\304\305\306\"\203\307\310\303\311\303$\210\202!\312\313!\210\314=\204-\304\315!\203\334\314\304\305\306\"\203\304\307\316\303\311\303$\210\317\320!\203M\307\321\303\311\303$\210\202\317\322!\203]\307\303\211\311\303$\210\202\317\323!\203m\307\324\303\311\303$\210\202\317\325!\203}\307\326\303\311\303$\210\202\317\327!\203\224\304\305\306\"\203\307\330\303\311\303$\210\202\317\331!\203\244\307\332\303\311\303$\210\202\317\333!\203\264\307\334\303\311\303$\210\202\317\335!\203\307\336\303\311\303$\210\202\304\337\306\"\203\322\312\340!\210\202\307\341\303\211\211$\210\202\317\342!\203\354\307\343\303\311\303$\210\202\317\344!\203\307\345\303\311\303$\210\346\347\303\"\210\202\304\350!\203\307\351\303\211\211$\210\346\347\303\"\210\202\304\352!\203(\307\353\303\211\211$\204\202\354=\2044\317\355!\203l\354\304\305\306\"\203T\307\356\303\311\303$\210\317\323!\203\307\357\303\311\303$\210\202\304\337\306\"\203b\312\360!\210\202\307\361\303\211\211$\210\202\362=\204x\317\363!\203\320\362\304\305\306\"\203\270\307\364\303\311\303$\210\317\320!\203\230\307\365\303\311\303$\210\202\317\325!\203\250\307\366\303\311\303$\210\202\317\323!\203\307\367\303\311\303$\210\202\304\337\306\"\203\306\312\360!\210\202\307\303\211\211\211$\210\202\370>\203d\304\305\306\"\203H\307\371\303\311\303$\210\317\320!\203\364\307\372\303\311\303$\210\202\317\373!\203\307\303\211\311\303$\210\202\317\323!\203\307\374\303\311\303$\210\202\317\375!\203$\307\376\303\311\303$\210\202\317\325!\2034\307\377\303\311\303$\210\202\317\201@!\203\307\201A\303\311\303$\210\202\304\337\306\"\203X\312\201B!\210\202\307\201C\303\211\211$\210\202\317\201D!\204t\304\201E!\203{\201F\202\317\201G!\204\213\304\201H!\203\222\201I\202\201J=\204\252\317\201K!\204\252\304\201L!\203\201J\304\305\306\"\203\364\307\201M\303\311\303$\210\317\320!\203\320\307\201N\303\311\303$\210\202\317\323!\203\342\307\201O\303\311\303$\210\202\317\325!\203\307\201P\303\311\303$\210\202\304\337\306\"\203\312\360!\210\202\307\201Q\303\211\211$\210\202\201R=\204\317\201S!\203\272\201R\304\305\306\"\203\236\307\201T\303\311\303$\210\317\320!\203D\307\201U\303\311\303$\210\202\317\323!\203V\307\201V\303\311\303$\210\202\317\325!\203h\307\201W\303\311\303$\210\202\317\331!\203z\307\201X\303\311\303$\210\202\317\333!\203\214\307\201Y\303\311\303$\210\202\317\335!\203\307\201Z\303\311\303$\210\202\304\337\306\"\203\256\312\201[!\210\202\307\201\\\303\211\211$\210\202\201]>\204\312\304\201^!\203>\304\201_!\203\330\201`\202\333\201a\304\305\306\"\203$\307\201b\303\311\303$\210\317\201c!\203\307\201d\303\311\303$\210\202\317\323!\203\307\201e\303\311\303$\210\202\317\201f!\203\307\303\211\311\303$\210\202\304\337\306\"\2032\312\360!\210\202\307\201g\303\211\211$\210\202\201h\201i!\210\202)\207" [mode pcomplete-index pcomplete-last nil pcomplete-match "^--\\(.*\\)" 0 pcomplete--here '("--addsign" "--checksig" "--erase" "--help" "--initdb" "--install" "--pipe" "--querytags" "--rebuild" "--rebuilddb" "--recompile" "--resign" "--rmsource" "--setperms" "--setugids" "--upgrade" "--verify" "--version") t pcomplete-opt "vqVyiUebtK" query "-[^-]*q" '("--changelog" "--dbpath" "--dump" "--ftpport" "--ftpproxy" "--httpport" "--httpproxy" "--provides" "--queryformat" "--rcfile" "--requires" "--root" "--scripts" "--triggeredby" "--whatprovides" "--whatrequires") pcomplete-test "--dbpath" (pcomplete-dirs) "--queryformat" "--rcfile" (pcomplete-entries) "--root" (pcomplete-dirs) "--scripts" '("--triggers") "--triggeredby" (pcmpl-rpm-packages) "--whatprovides" (pcmpl-rpm-all-query "--provides") "--whatrequires" (pcmpl-rpm-all-query "--requires") "^-" "af.p(pcmpl-rpm-files)ilsdcvR" (pcmpl-rpm-packages) "--pipe" (funcall pcomplete-command-completion-function) "--rmsource" (pcomplete-entries) throw pcomplete-completions "\\`--re\\(build\\|compile\\)\\'" (pcmpl-rpm-files) "\\`--\\(resign\\|addsign\\)\\'" (pcmpl-rpm-files) checksig "--checksig" '("--nopgp" "--nogpg" "--nomd5" "--rcfile") (pcomplete-entries) "v" (pcmpl-rpm-files) rebuilddb "--rebuilddb" '("--dbpath" "--root" "--rcfile") (pcomplete-dirs) (pcomplete-dirs) (pcomplete-entries) (install upgrade) (append '("--allfiles" "--badreloc" "--dbpath" "--excludedocs" "--excludepath" "--force" "--hash" "--ignorearch" "--ignoreos" "--ignoresize" "--includedocs" "--justdb" "--nodeps" "--noorder" "--noscripts" "--notriggers") (if (eq mode 'upgrade) '("--oldpackage")) '("--percent" "--prefix" "--rcfile" "--relocate" "--replacefiles" "--replacepkgs" "--root")) (pcomplete-dirs) "--relocate" (pcomplete-entries) "--excludepath" (pcomplete-entries) (pcomplete-dirs) "--prefix" (pcomplete-dirs) "vh" (pcmpl-rpm-files) "--install" "-[^-]*i" install "--upgrade" "-[^-]*U" upgrade erase "--erase" "-[^-]*e" '("--allmatches" "--dbpath" "--justdb" "--nodeps" "--noorder" "--noscripts" "--notriggers" "--rcfile" "--root") (pcomplete-dirs) (pcomplete-entries) (pcomplete-dirs) (pcmpl-rpm-packages) verify "--verify" '("--dbpath" "--nodeps" "--nofiles" "--nomd5" "--rcfile" "--root" "--triggeredby" "--whatprovides" "--whatrequires") (pcomplete-dirs) (pcomplete-entries) (pcomplete-dirs) (pcmpl-rpm-packages) (pcmpl-rpm-all-query "--provides") (pcmpl-rpm-all-query "--requires") "af.p(pcmpl-rpm-files)v" (pcmpl-rpm-packages) (build test) "\\`-[bt]" "\\`-b" build test '("--buildroot" "--clean" "--nobuild" "--rcfile" "--rmsource" "--short-circuit" "--sign" "--target" "--timecheck") "--buildroot" (pcomplete-dirs) (pcomplete-entries) "--timecheck" (if (eq mode 'test) (pcomplete-dirs-or-entries "\\.tar\\'") (pcomplete-dirs-or-entries "\\.spec\\'")) error "You must select a mode: -q, -i, -U, --verify, etc"] 5 (#$ . 1609)])