lisp/pcmpl-rpm.el

   1 ;;; pcmpl-rpm.el --- functions for dealing with rpm completions
   2
   3 ;; Copyright (C) 1999-2011  Free Software Foundation, Inc.
   4
   5 ;; Package: pcomplete
   6
   7 ;; This file is part of GNU Emacs.
   8
   9 ;; GNU Emacs is free software: you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation, either version 3 of the License, or
  12 ;; (at your option) any later version.
  13
  14 ;; GNU Emacs is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Commentary:
  23
  24 ;; These functions provide completion rules for the `rpm' command.
  25
  26 ;;; Code:
  27
  28 (require 'pcomplete)
  29
  30 ;; Functions:
  31
  32 (defsubst pcmpl-rpm-packages ()
  33   (split-string (pcomplete-process-result "rpm" "-q" "-a")))
  34
  35 (defun pcmpl-rpm-all-query (flag)
  36   (message "Querying all packages with `%s'..." flag)
  37   (let ((pkgs (pcmpl-rpm-packages))
  38         (provs (list t)))
  39     (while pkgs
  40       (nconc provs (split-string
  41                     (pcomplete-process-result
  42                      "rpm" "-q" (car pkgs) flag)))
  43       (setq pkgs (cdr pkgs)))
  44     (pcomplete-uniqify-list (cdr provs))))
  45
  46 (defsubst pcmpl-rpm-files ()
  47   (pcomplete-dirs-or-entries "\\.rpm\\'"))
  48
  49 ;;;###autoload
  50 (defun pcomplete/rpm ()
  51   "Completion for the `rpm' command."
  52   ;; Originally taken from the output of `rpm --help' on a Red Hat 6.1 system.
  53   (let (mode)
  54     (while (<= pcomplete-index pcomplete-last)
  55       (unless mode
  56         (if (pcomplete-match "^--\\(.*\\)" 0)
  57             (pcomplete-here*
  58              '("--addsign"
  59                "--checksig"
  60                "--erase"
  61                "--help"
  62                "--initdb"
  63                "--install"
  64                "--pipe"
  65                "--querytags"
  66                "--rebuild"
  67                "--rebuilddb"
  68                "--recompile"
  69                "--resign"
  70                "--rmsource"
  71                "--setperms"
  72                "--setugids"
  73                "--upgrade"
  74                "--verify"
  75                "--version"))
  76           (pcomplete-opt "vqVyiUebtK")))
  77 ;     -b<stage> <spec>
  78 ;     -t<stage> <tarball>    - build package, where <stage> is one of:
  79 ;         p                - prep (unpack sources and apply patches)
  80 ;         l                - list check (do some cursory checks on %files)
  81 ;         c                - compile (prep and compile)
  82 ;         i                - install (prep, compile, install)
  83 ;         b                - binary package (prep, compile, install, package)
  84 ;         a                - bin/src package (prep, compile, install, package)
  85       (cond
  86        ((or (eq mode 'query)
  87             (pcomplete-match "-[^-]*q"))
  88         (setq mode 'query)
  89         (if (pcomplete-match "^--\\(.*\\)" 0)
  90             (progn
  91               (pcomplete-here*
  92                '("--changelog"
  93                  "--dbpath"
  94                  "--dump"
  95                  "--ftpport"            ;nyi for the next four
  96                  "--ftpproxy"
  97                  "--httpport"
  98                  "--httpproxy"
  99                  "--provides"
 100                  "--queryformat"
 101                  "--rcfile"
 102                  "--requires"
 103                  "--root"
 104                  "--scripts"
 105                  "--triggeredby"
 106                  "--whatprovides"
 107                  "--whatrequires"))
 108               (cond
 109                ((pcomplete-test "--dbpath")
 110                 (pcomplete-here* (pcomplete-dirs)))
 111                ((pcomplete-test "--queryformat")
 112                 (pcomplete-here*))
 113                ((pcomplete-test "--rcfile")
 114                 (pcomplete-here* (pcomplete-entries)))
 115                ((pcomplete-test "--root")
 116                 (pcomplete-here* (pcomplete-dirs)))
 117                ((pcomplete-test "--scripts")
 118                 (if (pcomplete-match "^--\\(.*\\)" 0)
 119                     (pcomplete-here* '("--triggers"))))
 120                ((pcomplete-test "--triggeredby")
 121                 (pcomplete-here* (pcmpl-rpm-packages)))
 122                ((pcomplete-test "--whatprovides")
 123                 (pcomplete-here*
 124                  (pcmpl-rpm-all-query "--provides")))
 125                ((pcomplete-test "--whatrequires")
 126                 (pcomplete-here*
 127                  (pcmpl-rpm-all-query "--requires")))))
 128           (if (pcomplete-match "^-" 0)
 129               (pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR")
 130             (if (pcomplete-test "-[^-]*p" 'first 1)
 131                 (pcomplete-here (pcmpl-rpm-files))
 132               (pcomplete-here (pcmpl-rpm-packages))))))
 133        ((pcomplete-test "--pipe")
 134         (pcomplete-here* (funcall pcomplete-command-completion-function)))
 135        ((pcomplete-test "--rmsource")
 136         (pcomplete-here* (pcomplete-entries))
 137         (throw 'pcomplete-completions nil))
 138        ((pcomplete-match "\\`--re\\(build\\|compile\\)\\'")
 139         (pcomplete-here (pcmpl-rpm-files))
 140         (throw 'pcomplete-completions nil))
 141        ((pcomplete-match "\\`--\\(resign\\|addsign\\)\\'")
 142         (while (pcomplete-here (pcmpl-rpm-files))))
 143        ((or (eq mode 'checksig)
 144             (pcomplete-test "--checksig"))
 145         (setq mode 'checksig)
 146         (if (pcomplete-match "^--\\(.*\\)" 0)
 147             (progn
 148               (pcomplete-here*
 149                '("--nopgp"
 150                  "--nogpg"
 151                  "--nomd5"
 152                  "--rcfile"))
 153               (cond
 154                ((pcomplete-test "--rcfile")
 155                 (pcomplete-here* (pcomplete-entries)))))
 156           (if (pcomplete-match "^-" 0)
 157               (pcomplete-opt "v")
 158             (pcomplete-here (pcmpl-rpm-files)))))
 159        ((or (eq mode 'rebuilddb)
 160             (pcomplete-test "--rebuilddb"))
 161         (setq mode 'rebuilddb)
 162         (if (pcomplete-match "^--\\(.*\\)" 0)
 163             (progn
 164               (pcomplete-here*
 165                '("--dbpath"
 166                  "--root"
 167                  "--rcfile"))
 168               (cond
 169                ((pcomplete-test "--dbpath")
 170                 (pcomplete-here* (pcomplete-dirs)))
 171                ((pcomplete-test "--root")
 172                 (pcomplete-here* (pcomplete-dirs)))
 173                ((pcomplete-test "--rcfile")
 174                 (pcomplete-here* (pcomplete-entries)))))
 175           (if (pcomplete-match "^-" 0)
 176               (pcomplete-opt "v")
 177             (pcomplete-here))))
 178        ((memq mode '(install upgrade))
 179         (if (pcomplete-match "^--\\(.*\\)" 0)
 180             (progn
 181               (pcomplete-here*
 182                (append
 183                 '("--allfiles"
 184                   "--badreloc"
 185                   "--dbpath"
 186                   "--excludedocs"
 187                   "--excludepath"
 188                   "--force"
 189                   "--hash"
 190                   "--ignorearch"
 191                   "--ignoreos"
 192                   "--ignoresize"
 193                   "--includedocs"
 194                   "--justdb"
 195                   "--nodeps"
 196                   "--noorder"
 197                   "--noscripts"
 198                   "--notriggers")
 199                 (if (eq mode 'upgrade)
 200                     '("--oldpackage"))
 201                 '("--percent"
 202                   "--prefix"
 203                   "--rcfile"
 204                   "--relocate"
 205                   "--replacefiles"
 206                   "--replacepkgs"
 207                   "--root")))
 208               (cond
 209                ((pcomplete-test "--dbpath")
 210                 (pcomplete-here* (pcomplete-dirs)))
 211                ((pcomplete-test "--relocate")
 212                 (pcomplete-here*))
 213                ((pcomplete-test "--rcfile")
 214                 (pcomplete-here* (pcomplete-entries)))
 215                ((pcomplete-test "--excludepath")
 216                 (pcomplete-here* (pcomplete-entries)))
 217                ((pcomplete-test "--root")
 218                 (pcomplete-here* (pcomplete-dirs)))
 219                ((pcomplete-test "--prefix")
 220                 (pcomplete-here* (pcomplete-dirs)))))
 221           (if (pcomplete-match "^-" 0)
 222               (pcomplete-opt "vh")
 223             (pcomplete-here (pcmpl-rpm-files)))))
 224        ((or (pcomplete-test "--install")
 225             (pcomplete-match "-[^-]*i"))
 226         (setq mode 'install))
 227        ((or (pcomplete-test "--upgrade")
 228             (pcomplete-match "-[^-]*U"))
 229         (setq mode 'upgrade))
 230        ((or (eq mode 'erase)
 231             (pcomplete-test "--erase")
 232             (pcomplete-match "-[^-]*e"))
 233         (setq mode 'erase)
 234         (if (pcomplete-match "^--\\(.*\\)" 0)
 235             (progn
 236               (pcomplete-here*
 237                '("--allmatches"
 238                  "--dbpath"
 239                  "--justdb"
 240                  "--nodeps"
 241                  "--noorder"
 242                  "--noscripts"
 243                  "--notriggers"
 244                  "--rcfile"
 245                  "--root"))
 246               (cond
 247                ((pcomplete-test "--dbpath")
 248                 (pcomplete-here* (pcomplete-dirs)))
 249                ((pcomplete-test "--rcfile")
 250                 (pcomplete-here* (pcomplete-entries)))
 251                ((pcomplete-test "--root")
 252                 (pcomplete-here* (pcomplete-dirs)))))
 253           (if (pcomplete-match "^-" 0)
 254               (pcomplete-opt "v")
 255             (pcomplete-here (pcmpl-rpm-packages)))))
 256        ((or (eq mode 'verify)
 257             (pcomplete-test "--verify"))
 258         (setq mode 'verify)
 259         (if (pcomplete-match "^--\\(.*\\)" 0)
 260             (progn
 261               (pcomplete-here*
 262                '("--dbpath"
 263                  "--nodeps"
 264                  "--nofiles"
 265                  "--nomd5"
 266                  "--rcfile"
 267                  "--root"
 268                  "--triggeredby"
 269                  "--whatprovides"
 270                  "--whatrequires"))
 271               (cond
 272                ((pcomplete-test "--dbpath")
 273                 (pcomplete-here* (pcomplete-dirs)))
 274                ((pcomplete-test "--rcfile")
 275                 (pcomplete-here* (pcomplete-entries)))
 276                ((pcomplete-test "--root")
 277                 (pcomplete-here* (pcomplete-dirs)))
 278                ((pcomplete-test "--triggeredby")
 279                 (pcomplete-here* (pcmpl-rpm-packages)))
 280                ((pcomplete-test "--whatprovides")
 281                 (pcomplete-here*
 282                  (pcmpl-rpm-all-query "--provides")))
 283                ((pcomplete-test "--whatrequires")
 284                 (pcomplete-here*
 285                  (pcmpl-rpm-all-query "--requires")))))
 286           (if (pcomplete-match "^-" 0)
 287               (pcomplete-opt "af.p(pcmpl-rpm-files)v")
 288             (pcomplete-here (pcmpl-rpm-packages)))))
 289        ((or (memq mode '(build test))
 290             (pcomplete-match "\\`-[bt]"))
 291         (setq mode (if (pcomplete-match "\\`-b")
 292                        'build
 293                      'test))
 294         (if (pcomplete-match "^--\\(.*\\)" 0)
 295             (progn
 296               (pcomplete-here*
 297                '("--buildroot"
 298                  "--clean"
 299                  "--nobuild"
 300                  "--rcfile"
 301                  "--rmsource"
 302                  "--short-circuit"
 303                  "--sign"
 304                  "--target"
 305                  "--timecheck"))
 306               (cond
 307                ((pcomplete-test "--buildroot")
 308                 (pcomplete-here* (pcomplete-dirs)))
 309                ((pcomplete-test "--rcfile")
 310                 (pcomplete-here* (pcomplete-entries)))
 311                ((pcomplete-test "--timecheck")
 312                 (pcomplete-here*))))
 313           (if (pcomplete-match "^-" 0)
 314               (pcomplete-opt "v")
 315             (pcomplete-here
 316              (pcomplete-dirs-or-entries (if (eq mode 'test)
 317                                             "\\.tar\\'"
 318                                           "\\.spec\\'"))))))
 319        (t
 320         (error "You must select a mode: -q, -i, -U, --verify, etc"))))))
 321
 322 (provide 'pcmpl-rpm)
 323
 324 ;;; pcmpl-rpm.el ends here