;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:16 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/pcmpl-gnu.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-gnu.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\302\304!\210\305\301\306\307\310\303%\207" [provide pcmpl-gnu require pcomplete pcmpl-unix custom-declare-group nil "Completions for GNU project tools." :group] 6) #@52 *A list of regexps that will match Makefile names. (custom-declare-variable 'pcmpl-gnu-makefile-regexps ''("\\`GNUmakefile" "\\`Makefile" "\\.mak\\'") '(#$ . -823) :type '(repeat regexp) :group 'pcmpl-gnu) #@24 Completion for `gzip'. (defalias 'pcomplete/gzip #[nil "\301\302\303!\210\304\305\306\211\211$\205\202)\207" [pcomplete-help "(gzip)" pcomplete-opt "cdfhlLnNqrStvV123456789" pcomplete--here (pcmpl-gnu-zipped-files (catch 'has-d-flag (let ((args pcomplete-args)) (while args (if (string-match "\\`-.*[dt]" (car args)) (throw 'has-d-flag t)) (setq args (cdr args)))))) nil] 5 (#$ . 1035)]) #@60 Find all zipped or unzipped files: the inverse of UNZIP-P. (defalias 'pcmpl-gnu-zipped-files #[(unzip-p) "\300\301\302\"\207" [pcomplete-entries nil #[(entry) "\303!\205!\304!\205!\305\306\"\n\203 \206 \n?\205 ?)\207" [entry zipped unzip-p file-readable-p file-regular-p string-match "\\.\\(t?gz\\|\\(ta\\)?Z\\)\\'"] 3]] 3 (#$ . 1434)]) #@25 Completion for `bzip2'. (defalias 'pcomplete/bzip2 #[nil "\300\301!\210\302\303\304\211\211$\205\202\207" [pcomplete-opt "hdzkftcqvLVs123456789" pcomplete--here (pcmpl-gnu-bzipped-files (catch 'has-d-flag (let ((args pcomplete-args)) (while args (if (string-match "\\`-.*[dt]" (car args)) (throw 'has-d-flag t)) (setq args (cdr args)))))) nil] 5 (#$ . 1788)]) #@60 Find all zipped or unzipped files: the inverse of UNZIP-P. (defalias 'pcmpl-gnu-bzipped-files #[(unzip-p) "\300\301\302\"\207" [pcomplete-entries nil #[(entry) "\303!\205!\304!\205!\305\306\"\n\203 \206 \n?\205 ?)\207" [entry zipped unzip-p file-readable-p file-regular-p string-match "\\.\\(t?z2\\|bz2\\)\\'"] 3]] 3 (#$ . 2158)]) #@28 Completion for GNU `make'. (defalias 'pcomplete/make #[nil "\301\302\303!\210\304\305\306\307\306$\205\202)\207" [pcomplete-help "(make)Top" pcomplete-opt "bmC/def(pcmpl-gnu-makefile-names)hiI/j?kl?no.pqrsStvwW." pcomplete--here (pcmpl-gnu-make-rule-names) nil identity] 5 (#$ . 2506)]) #@43 Return a list of possible makefile names. (defalias 'pcmpl-gnu-makefile-names #[nil "\303C \203\n\304 @!\244\210 A\211\204 \nA*\207" [pcmpl-gnu-makefile-regexps reg names t pcomplete-entries] 4 (#$ . 2804)]) #@56 Return a list of possible make rule names in MAKEFILE. (defalias 'pcmpl-gnu-make-rule-names #[nil "\306\235\211\211A@)\206\307\310!\203\310\202\311\312\313 !\204+ ?\205S\306C\202S\314\315\316!!\317\216r q\210\320 !\210\321\322\312\323#\203O\324\325\326\327!!\f\"\202;+\330\f!+\207" [pcomplete-args minus-f x makefile rules #1=#:temp-buffer "-f" file-exists-p "GNUmakefile" "Makefile" nil file-readable-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally re-search-forward "^\\s-*\\([^\n#%.$][^:=\n]*\\)\\s-*:[^=]" t append split-string match-string 1 pcomplete-uniqify-list] 5 (#$ . 3025)]) #@42 *A regexp which matches any tar archive. (custom-declare-variable 'pcmpl-gnu-tarfile-regexp '"\\.t\\(ar\\(\\.\\(gz\\|bz2\\|Z\\)\\)?\\|gz\\|a[zZ]\\|z2\\)\\'" '(#$ . -3754) :type 'regexp :group 'pcmpl-gnu) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list pcmpl-gnu-tar-buffer boundp nil] 2) #@37 Completion for the GNU tar utility. (defalias 'pcomplete/tar #[nil "\304\211\305\nB\306\307\310\"\203\323\311\306\312\310\"\203)\306\313\310\"\203-\314\315\304\311\304$\210\202-\316\317!\210\306\320\310\"\203>\314\304\211\311\304$\210\202\306\321\310\"\203O\314\304\211\311\304$\210\202\306\322\310\"\203`\314\304\211\311\304$\210\202\306\323\310\"\203t\314\324\325\326\310\"\311\304$\210\202\306\327\310\"\203\210\314\330\325\326\310\"\311\304$\210\202\306\331\310\"\203\231\314\304\211\311\304$\210\202\306\332\310\"\203\245\311\202\306\333\310\"\203\271\314\334\325\326\310\"\311\304$\210\202\306\335\310\"\203\315\314\336\325\326\310\"\311\304$\210\202\306\337\310\"\203\341\314\340\325\326\310\"\311\304$\210\202\306\341\310\"\203\365\314\342\325\326\310\"\311\304$\210\202\306\343\310\"\203\314\304\211\311\304$\210\202\306\344\310\"\203\314\304\211\311\304$\210\202\306\345\310\"\203+\314\346\325\326\310\"\311\304$\210\202\306\347\310\"\203<\314\304\211\311\304$\210\202\306\350\310\"\203P\314\351\325\326\310\"\311\304$\210\202\306\352\310\"\203a\314\304\211\311\304$\210\202\306\353\310\"\203u\314\354\325\326\310\"\311\304$\210\202\306\355\310\"\203\211\314\356\325\326\310\"\311\304$\210\202\306\357\310\"\203\232\314\304\211\311\304$\210\202\306\360\310\"\203\253\314\304\211\311\304$\210\202\306\361\310\"\203\277\314\362\325\326\310\"\311\304$\210\202\306\363\310\"\203\314\364\325\326\310\"\311\304$\210\202\nA \204\353\314\365\304\211\211$\210\306\366\367\326#\203\353\311\314\370\304\211\211$\210\371\372\326!!\314\373\304\374\304$\205\202\370*\207" [complete-within saw-option pcomplete-suffix-list pcmpl-gnu-tar-buffer nil 61 pcomplete-match "^-" 0 t "^--" "^--\\([^= \n\f]*\\)\\'" pcomplete--here '("--absolute-names" "--after-date=" "--append" "--atime-preserve" "--backup" "--block-number" "--blocking-factor=" "--catenate" "--checkpoint" "--compare" "--compress" "--concatenate" "--confirmation" "--create" "--delete" "--dereference" "--diff" "--directory=" "--exclude=" "--exclude-from=" "--extract" "--file=" "--files-from=" "--force-local" "--get" "--group=" "--gzip" "--help" "--ignore-failed-read" "--ignore-zeros" "--incremental" "--info-script=" "--interactive" "--keep-old-files" "--label=" "--list" "--listed-incremental" "--mode=" "--modification-time" "--multi-volume" "--new-volume-script=" "--newer=" "--newer-mtime" "--no-recursion" "--null" "--numeric-owner" "--old-archive" "--one-file-system" "--owner=" "--portability" "--posix" "--preserve" "--preserve-order" "--preserve-permissions" "--read-full-records" "--record-size=" "--recursive-unlink" "--remove-files" "--rsh-command=" "--same-order" "--same-owner" "--same-permissions" "--sparse" "--starting-file=" "--suffix=" "--tape-length=" "--to-stdout" "--totals" "--uncompress" "--ungzip" "--unlink-first" "--update" "--use-compress-program=" "--verbose" "--verify" "--version" "--volno-file=") pcomplete-opt "01234567ABCFGKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz" "\\`--after-date=" "\\`--backup=" "\\`--blocking-factor=" "\\`--directory=\\(.*\\)" (pcomplete-dirs) pcomplete-match-string 1 "\\`--exclude-from=\\(.*\\)" (pcomplete-entries) "\\`--exclude=" "\\`--\\(extract\\|list\\)\\'" "\\`--file=\\(.*\\)" (pcomplete-dirs-or-entries pcmpl-gnu-tarfile-regexp) "\\`--files-from=\\(.*\\)" (pcomplete-entries) "\\`--group=\\(.*\\)" (pcmpl-unix-group-names) "\\`--info-script=\\(.*\\)" (pcomplete-entries) "\\`--label=" "\\`--mode=" "\\`--new-volume-script=\\(.*\\)" (pcomplete-entries) "\\`--newer=" "\\`--owner=\\(.*\\)" (pcmpl-unix-user-names) "\\`--record-size=" "\\`--rsh-command=\\(.*\\)" (funcall pcomplete-command-completion-function) "\\`--starting-file=\\(.*\\)" (pcomplete-entries) "\\`--suffix=" "\\`--tape-length=" "\\`--use-compress-program=\\(.*\\)" (funcall pcomplete-command-completion-function) "\\`--volno-file=\\(.*\\)" (pcomplete-entries) (mapcar 'char-to-string (string-to-list "01234567ABCFGIKLMNOPRSTUVWXZbcdfghiklmoprstuvwxz")) "[xt]" first (pcomplete-dirs-or-entries pcmpl-gnu-tarfile-regexp) find-file-noselect pcomplete-arg (if complete-within (with-current-buffer pcmpl-gnu-tar-buffer (mapcar #'(lambda (entry) (tar-header-name (cdr entry))) tar-parse-info)) (pcomplete-entries)) identity] 5 (#$ . 4069)]) (defalias 'pcomplete/gdb 'pcomplete/xargs)