diff options
| author | Peter Stephenson <pws@users.sourceforge.net> | 2002-08-14 15:18:19 +0000 |
|---|---|---|
| committer | Peter Stephenson <pws@users.sourceforge.net> | 2002-08-14 15:18:19 +0000 |
| commit | 513088857a59c7704734bd7cc3d9a8bc7492e11b (patch) | |
| tree | 18220546f856954642fcf4d7c7aeca2aa78e2e66 | |
| parent | fc88981cf719f487cc0128dbcf275e3bbe16b1e9 (diff) | |
| download | zsh-513088857a59c7704734bd7cc3d9a8bc7492e11b.tar.gz zsh-513088857a59c7704734bd7cc3d9a8bc7492e11b.tar.xz zsh-513088857a59c7704734bd7cc3d9a8bc7492e11b.zip | |
17535: use-perl style for _make
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | Completion/Unix/Command/_make | 20 | ||||
| -rw-r--r-- | Doc/Zsh/compsys.yo | 11 |
3 files changed, 34 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog index b482c3865..22c4f7433 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-08-14 Peter Stephenson <pws@csr.com> + + * 17535: Completion/Unix/Command/_make, Doc/Zsh/compsys.yo: + use-perl style avoids awk frustration. + 2002-08-10 Clint Adams <clint@zsh.org> * 17206 (Bruno Bonfils), 17207 (Oliver): diff --git a/Completion/Unix/Command/_make b/Completion/Unix/Command/_make index 53958c0d0..07a80a96e 100644 --- a/Completion/Unix/Command/_make +++ b/Completion/Unix/Command/_make @@ -1,7 +1,8 @@ #compdef make gmake pmake dmake -local prev="$words[CURRENT-1]" file expl tmp is_gnu +local prev="$words[CURRENT-1]" file expl tmp is_gnu cmdargs useperl +zstyle -t ":completion:${curcontext}:" use-perl && useperl=1 _pick_variant -r is_gnu gnu=GNU unix -v -f if [[ "$prev" = -[CI] ]]; then @@ -25,7 +26,22 @@ else if [[ -n "$file" ]] && _tags targets; then if [[ $is_gnu = gnu ]] && zstyle -t ":completion:${curcontext}:targets" call-command; then - tmp=( $(_call_program targets "$words[1]" -nsp --no-print-directory -f "$file" .PHONY 2> /dev/null | awk '/^[a-zA-Z0-9][^\/\t=]+:/ {print $1}' FS=:) ) + if [[ -n $useperl ]]; then + cmdargs=(perl -F: -ane '/^[a-zA-Z0-9][^\/\t=]+:/ && print "$F[0]\n"') + else + cmdargs=(awk '/^[a-zA-Z0-9][^\/\t=]+:/ {print $1}' FS=:) + fi + tmp=( $(_call_program targets "$words[1]" -nsp --no-print-directory -f "$file" .PHONY 2> /dev/null | $cmdargs) ) + elif [[ -n $useperl ]]; then + tmp=( + $(perl -ne '@matches = /^(?:([a-zA-Z0-9]+[^\/\t=\s]+)\s*)+:/ and + print join(" ", @matches); +if (/^\.include\s+\<bsd\.port\.(subdir\.|pre\.)?mk>/ || + /^\.include\s+\".*mk\/bsd\.pkg\.(subdir\.)?mk\"/) { + print "fetch fetch-list extract patch configure build install reinstall deinstall package describe checkpatch checksum makesum\n"; + } +' $file) + ) else tmp=( $(awk '/^[a-zA-Z0-9][^\/\t=]+:/ {print $1} diff --git a/Doc/Zsh/compsys.yo b/Doc/Zsh/compsys.yo index a0e482845..428b6a839 100644 --- a/Doc/Zsh/compsys.yo +++ b/Doc/Zsh/compsys.yo @@ -2315,6 +2315,17 @@ example, while completing arguments to the command tt(foo), if this was handled by a command function tt(_foo), tt(compctl) would never be tried, while if it was handled by tt(_default), tt(compctl) would be tried. ) +kindex(use-perl, completion style) +item(tt(use-perl))( +Various parts of the function system use awk to extract words from +files or command output as this universally available. However, many +versions of awk have arbitrary limits on the size of input. If this +style is set, perl will be used instead. This is almost always +preferable if perl is available on your system. + +Currently this is only used in completions for `make', but it may be +extended depending on authorial frustration. +) kindex(users, completion style) item(tt(users))( This may be set to a list of names that should be completed whenever |