* PATCH: _path_files
@ 2000-06-13 8:41 Sven Wischnowsky
0 siblings, 0 replies; 5+ messages in thread
From: Sven Wischnowsky @ 2000-06-13 8:41 UTC (permalink / raw)
To: zsh-workers
Bart Schaefer wrote:
> On Jun 9, 5:15pm, Peter Stephenson wrote:
> > Subject: Completion in command position
> > ... is giving me things like this:
> >
> > % ./MA<TAB>
> > _path_files:322: bad pattern: ./MA*(-/) *(-*)
>
> Try changing
>
> tmp1=( $~tmp1 )
>
> to
>
> tmp1=( $=~tmp1 )
>
> It may actually be a bug in compfiles, so I'm going to let Sven commit
> whatever is really the right fix.
It was only a bug in the call to compfiles, missing `[@]'. Ouch.
In another message:
> zagzig[95] diff #<TAB>
> _path_files:322: bad pattern: #*(Om)
> zagzig[95] diff \#<TAB>
> _path_files:322: bad pattern: #*(Om)
> zagzig[95] diff \\#<TAB>
> zagzig[95] diff \#ChangeLog\#
Hrm. The second case was a matter of calling rembslash() to make
completion of names with spaces work -- that removed too many
backslashes. The other one is ugly. For now I've made it quote such
special characters, but if the user has extendedglob unset, some of
them should probably be de-quoted again.
The patch also contains some stuff I wrote at the weekend, making
optimised patterns work with globcomplete set and even with some of
the simpler match specs.
Bye
Sven
Index: Completion/Core/_path_files
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Core/_path_files,v
retrieving revision 1.20
diff -u -r1.20 _path_files
--- Completion/Core/_path_files 2000/06/09 07:49:44 1.20
+++ Completion/Core/_path_files 2000/06/13 08:40:42
@@ -5,7 +5,7 @@
local linepath realpath donepath prepath testpath exppath skips skipped
local tmp1 tmp2 tmp3 tmp4 i orig eorig pre suf tpre tsuf opre osuf cpre
-local pats haspats ignore pfxsfx sopt gopt opt sdirs ignpar
+local pats haspats ignore pfxsfx sopt gopt opt sdirs ignpar cfopt
local nm=$compstate[nmatches] menu matcher mopts sort match mid
typeset -U prepaths exppaths
@@ -185,6 +185,7 @@
[[ $compstate[insert] = (*menu|[0-9]*) || -n "$_comp_correct" ||
( -n "$compstate[pattern_match]" &&
"${orig#\~}" != (|*[^\\])[][*?#~^\|\<\>]* ) ]] && menu=yes
+[[ -n "$_comp_correct" ]] && cfopt=-
# Now let's have a closer look at the string to complete.
@@ -222,7 +223,7 @@
elif [[ tmp -le $#dirstack ]]; then
realpath=$dirstack[tmp]/
else
- _message 'not directory stack entries'
+ _message 'not enough directory stack entries'
return 1
fi
elif [[ "$linepath" = [-+] ]]; then
@@ -313,11 +314,11 @@
# Get the matching files by globbing.
if [[ "$tpre$tsuf" = */* ]]; then
- compfiles -P tmp1 "$skipped" "$_matcher" "$sdirs"
+ compfiles -P$cfopt tmp1 "$skipped" "$_matcher" "$sdirs"
elif [[ "$sopt" = *[/f]* ]]; then
- compfiles -p tmp1 "$skipped" "$_matcher" "$sdirs" "$pats"
+ compfiles -p$cfopt tmp1 "$skipped" "$_matcher" "$sdirs" "$pats[@]"
else
- compfiles -p tmp1 "$skipped" "$_matcher" '' "$pats"
+ compfiles -p$cfopt tmp1 "$skipped" "$_matcher" '' "$pats[@]"
fi
tmp1=( $~tmp1 )
Index: Src/Zle/complete.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/Zle/complete.c,v
retrieving revision 1.11
diff -u -r1.11 complete.c
--- Src/Zle/complete.c 2000/06/02 08:09:56 1.11
+++ Src/Zle/complete.c 2000/06/13 08:40:43
@@ -204,16 +204,20 @@
case 'R': fl = CMF_RIGHT | CMF_LINE; break;
case 'M': fl = CMF_LINE; break;
default:
- zwarnnam(name, "unknown match specification character `%c'", NULL, *s);
+ if (name)
+ zwarnnam(name, "unknown match specification character `%c'",
+ NULL, *s);
return pcm_err;
}
if (s[1] != ':') {
- zwarnnam(name, "missing `:'", NULL, 0);
+ if (name)
+ zwarnnam(name, "missing `:'", NULL, 0);
return pcm_err;
}
s += 2;
if (!*s) {
- zwarnnam(name, "missing patterns", NULL, 0);
+ if (name)
+ zwarnnam(name, "missing patterns", NULL, 0);
return pcm_err;
}
if (fl & CMF_LEFT) {
@@ -225,7 +229,8 @@
s++;
if (!*s || !*++s) {
- zwarnnam(name, "missing line pattern", NULL, 0);
+ if (name)
+ zwarnnam(name, "missing line pattern", NULL, 0);
return pcm_err;
}
} else
@@ -242,10 +247,12 @@
ll = 0;
}
if ((fl & CMF_RIGHT) && (!*s || !*++s)) {
- zwarnnam(name, "missing right anchor", NULL, 0);
+ if (name)
+ zwarnnam(name, "missing right anchor", NULL, 0);
} else if (!(fl & CMF_RIGHT)) {
if (!*s) {
- zwarnnam(name, "missing word pattern", NULL, 0);
+ if (name)
+ zwarnnam(name, "missing word pattern", NULL, 0);
return pcm_err;
}
s++;
@@ -262,7 +269,8 @@
if (err)
return pcm_err;
if (!*s) {
- zwarnnam(name, "missing word pattern", NULL, 0);
+ if (name)
+ zwarnnam(name, "missing word pattern", NULL, 0);
return pcm_err;
}
s++;
@@ -271,7 +279,8 @@
if (*s == '*') {
if (!(fl & (CMF_LEFT | CMF_RIGHT))) {
- zwarnnam(name, "need anchor for `*'", NULL, 0);
+ if (name)
+ zwarnnam(name, "need anchor for `*'", NULL, 0);
return pcm_err;
}
word = NULL;
@@ -284,7 +293,9 @@
word = parse_pattern(name, &s, &wl, 0, &err);
if (!word && !line) {
- zwarnnam(name, "need non-empty word or line pattern", NULL, 0);
+ if (name)
+ zwarnnam(name, "need non-empty word or line pattern",
+ NULL, 0);
return pcm_err;
}
}
Index: Src/Zle/compmatch.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/Zle/compmatch.c,v
retrieving revision 1.18
diff -u -r1.18 compmatch.c
--- Src/Zle/compmatch.c 2000/06/08 09:25:24 1.18
+++ Src/Zle/compmatch.c 2000/06/13 08:40:43
@@ -1029,7 +1029,7 @@
* corresponding character. */
/**/
-static int
+mod_export int
pattern_match(Cpattern p, char *s, unsigned char *in, unsigned char *out)
{
unsigned char c;
Index: Src/Zle/computil.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/Zle/computil.c,v
retrieving revision 1.27
diff -u -r1.27 computil.c
--- Src/Zle/computil.c 2000/06/09 07:49:44 1.27
+++ Src/Zle/computil.c 2000/06/13 08:40:43
@@ -3059,27 +3059,164 @@
return (found ? ret : NULL);
}
+static char *
+cfp_matcher_pats(char *matcher, char *add)
+{
+ Cmatcher m = parse_cmatcher(NULL, matcher);
+
+ if (m && m != pcm_err) {
+ char *tmp;
+ int al = strlen(add), tl;
+ VARARR(Cmatcher, ms, al);
+ Cmatcher *mp;
+ Cpattern stopp;
+ int stopl = 0;
+
+ memset(ms, 0, al * sizeof(Cmatcher));
+
+ for (; m && *add; m = m->next) {
+ stopp = NULL;
+ if (!(m->flags & (CMF_LEFT|CMF_RIGHT))) {
+ if (m->llen == 1 && m->wlen == 1) {
+ for (tmp = add, tl = al, mp = ms; tl; tl--, tmp++, mp++) {
+ if (pattern_match(m->line, tmp, NULL, NULL)) {
+ if (*mp) {
+ *tmp = '\0';
+ al = tmp - add;
+ break;
+ } else
+ *mp = m;
+ }
+ }
+ } else {
+ stopp = m->line;
+ stopl = m->llen;
+ }
+ } else if (m->flags & CMF_RIGHT) {
+ if (m->wlen < 0 && !m->llen && m->ralen == 1) {
+ for (tmp = add, tl = al, mp = ms; tl; tl--, tmp++, mp++) {
+ if (pattern_match(m->right, tmp, NULL, NULL)) {
+ if (*mp) {
+ *tmp = '\0';
+ al = tmp - add;
+ break;
+ } else
+ *mp = m;
+ }
+ }
+ } else if (m->llen) {
+ stopp = m->line;
+ stopl = m->llen;
+ } else {
+ stopp = m->right;
+ stopl = m->ralen;
+ }
+ } else {
+ if (!m->lalen)
+ return "";
+
+ stopp = m->left;
+ stopl = m->lalen;
+ }
+ if (stopp)
+ for (tmp = add, tl = al; tl >= stopl; tl--, tmp++)
+ if (pattern_match(stopp, tmp, NULL, NULL)) {
+ *tmp = '\0';
+ al = tmp - add;
+ break;
+ }
+ }
+ if (*add) {
+ char *ret = "", buf[259];
+
+ for (mp = ms; *add; add++, mp++) {
+ if (!(m = *mp)) {
+ buf[0] = *add;
+ buf[1] = '\0';
+ } else if (m->flags & CMF_RIGHT) {
+ buf[0] = '*';
+ buf[1] = *add;
+ buf[2] = '\0';
+ } else {
+ unsigned char *t, c;
+ char *p = buf;
+ int i;
+
+ for (i = 256, t = m->word->tab; i--; t++)
+ if (*t)
+ break;
+ if (i) {
+ t = m->word->tab;
+ *p++ = '[';
+ if (m->line->equiv && m->word->equiv) {
+ *p++ = *add;
+ c = m->line->tab[STOUC(*add)];
+ for (i = 0; i < 256; i++)
+ if (m->word->tab[i] == c) {
+ *p++ = (char) i;
+ break;
+ }
+ } else {
+ if (*add == ']' || t[STOUC(']')])
+ *p++ = ']';
+ for (i = 0; i < 256; i++, t++)
+ if (*t && ((char) i) != *add &&
+ i != ']' && i != '-' &&
+ i != '^' && i != '!')
+ *p++ = (char) i;
+ *p++ = *add;
+ t = m->word->tab;
+ if (*add != '^' && t[STOUC('^')])
+ *p++ = '^';
+ if (*add != '!' && t[STOUC('!')])
+ *p++ = '!';
+ if (*add != '-' && t[STOUC('-')])
+ *p++ = '-';
+ }
+ *p++ = ']';
+ *p = '\0';
+ } else {
+ *p = '?';
+ p[1] = '\0';
+ }
+ }
+ ret = dyncat(ret, buf);
+ }
+ return ret;
+ }
+ }
+ return add;
+}
+
static void
cfp_opt_pats(char **pats, char *matcher)
{
char *add, **p, *q, *t, *s;
-
- /**** For now we don't try to improve the patterns if there are match
- * specs. We should work on this some more...
- *
- * And another one: we can do this with comppatmatch if the word
- * doesn't contain wildcards, unless the approximate matcher is
- * active. Better: unless there is a compadd function. I.e., we
- * need one more piece of information from the shell code, at least
- * I'd prefer to get it from _path_files in case we find other
- * conditions for not trying to improve patterns. */
- if ((comppatmatch && *comppatmatch) || *matcher ||
- !compprefix || !*compprefix)
+ if (!compprefix || !*compprefix)
return;
- add = rembslash(compprefix);
-
+ if (comppatmatch && *comppatmatch) {
+ tokenize(t = rembslash(dyncat(compprefix, compsuffix)));
+ remnulargs(t);
+ if (haswilds(t))
+ return;
+ }
+ add = (char *) zhalloc(sizeof(compprefix) * 2 + 1);
+ for (s = compprefix, t = add; *s; s++) {
+ if (*s != '\\' || !s[1] || s[1] == '*' || s[1] == '?' ||
+ s[1] == '<' || s[1] == '>' || s[1] == '(' || s[1] == ')' ||
+ s[1] == '[' || s[1] == ']' || s[1] == '|' || s[1] == '#' ||
+ s[1] == '^' || s[1] == '~') {
+ if ((s == compprefix || s[-1] != '\\') &&
+ (*s == '*' || *s == '?' || *s == '<' || *s == '>' ||
+ *s == '(' || *s == ')' || *s == '[' || *s == ']' ||
+ *s == '|' || *s == '#' || *s == '^' || *s == '~'))
+ *t++ = '\\';
+ *t++ = *s;
+ }
+ }
+ *t = '\0';
for (p = pats; *add && (q = *p); p++) {
if (*q) {
q = dupstring(q);
@@ -3124,6 +3261,9 @@
}
}
if (*add) {
+ if (*matcher && !(add = cfp_matcher_pats(matcher, add)))
+ return;
+
for (p = pats; *p; p++)
if (**p == '*')
*p = dyncat(add, *p);
@@ -3189,8 +3329,8 @@
}
static LinkList
-cf_pats(int dirs, LinkList names, char *skipped, char *matcher, char *sdirs,
- char **pats)
+cf_pats(int dirs, int noopt, LinkList names, char *skipped, char *matcher,
+ char *sdirs, char **pats)
{
LinkList ret;
char *dpats[2];
@@ -3203,7 +3343,8 @@
dpats[1] = NULL;
pats = dpats;
}
- cfp_opt_pats(pats, matcher);
+ if (!noopt)
+ cfp_opt_pats(pats, matcher);
return cfp_add_sdirs(cfp_bld_pats(dirs, names, skipped, pats),
names, skipped, sdirs);
@@ -3255,14 +3396,13 @@
zwarnnam(nam, "missing option: %s", *args, 0);
return 1;
}
- if (args[0][2]) {
- zwarnnam(nam, "invalid option: %s", *args, 0);
- return 1;
- }
switch (args[0][1]) {
case 'p':
case 'P':
- {
+ if (args[0][2] && (args[0][2] != '-' || args[0][3])) {
+ zwarnnam(nam, "invalid option: %s", *args, 0);
+ return 1;
+ } else {
char **tmp;
LinkList l;
@@ -3277,12 +3417,16 @@
}
for (l = newlinklist(); *tmp; tmp++)
addlinknode(l, *tmp);
- set_list_array(args[1], cf_pats((args[0][1] == 'P'), l, args[2],
- args[3], args[4], args + 5));
+ set_list_array(args[1], cf_pats((args[0][1] == 'P'), !!args[0][2],
+ l, args[2], args[3], args[4],
+ args + 5));
return 0;
}
case 'i':
- {
+ if (args[0][2]) {
+ zwarnnam(nam, "invalid option: %s", *args, 0);
+ return 1;
+ } else {
char **tmp;
LinkList l;
--
Sven Wischnowsky wischnow@informatik.hu-berlin.de
^ permalink raw reply [flat|nested] 5+ messages in thread
* PATCH: _path_files
@ 2000-02-17 13:44 Sven Wischnowsky
0 siblings, 0 replies; 5+ messages in thread
From: Sven Wischnowsky @ 2000-02-17 13:44 UTC (permalink / raw)
To: zsh-workers
Sigh, one more array-copy needed.
Bye
Sven
diff -ru ../z.old/Completion/Core/_path_files Completion/Core/_path_files
--- ../z.old/Completion/Core/_path_files Thu Feb 17 13:37:19 2000
+++ Completion/Core/_path_files Thu Feb 17 14:37:05 2000
@@ -288,6 +288,7 @@
# See which of them match what's on the line.
if [[ -n "$_comp_correct" ]]; then
+ tmp2=( "$tmp1[@]" )
builtin compadd -D tmp1 -F _comp_ignore "$matcher[@]" - "${(@)tmp1:t}"
if [[ $#tmp1 -eq 0 ]]; then
--
Sven Wischnowsky wischnow@informatik.hu-berlin.de
^ permalink raw reply [flat|nested] 5+ messages in thread
* PATCH: _path_files
@ 2000-02-10 15:25 Sven Wischnowsky
0 siblings, 0 replies; 5+ messages in thread
From: Sven Wischnowsky @ 2000-02-10 15:25 UTC (permalink / raw)
To: zsh-workers
One more small improvement: no need to build an array if we only want
to know if there is at least one array element matching a certain
pattern.
Bye
Sven
diff -ru ../z.old/Completion/Core/_path_files Completion/Core/_path_files
--- ../z.old/Completion/Core/_path_files Thu Feb 10 15:11:30 2000
+++ Completion/Core/_path_files Thu Feb 10 16:23:24 2000
@@ -415,9 +415,9 @@
# Next we see if this component is ambiguous.
if [[ "$tmp3" = */* ]]; then
- tmp4=( "${(@)tmp1:#${tmp1[1]%%/*}/*}" )
+ tmp4=$tmp1[(I)^${tmp1[1]%%/*}/*]
else
- tmp4=( "${(@)tmp1:#${tmp1[1]}}" )
+ tmp4=$tmp1[(I)^${tmp1[1]}]
fi
if [[ "$tpre" = */* ]]; then
@@ -430,7 +430,7 @@
tmp2="${cpre}${tpre}"
fi
- if (( $#tmp4 )) ||
+ if (( tmp4 )) ||
[[ -n "$compstate[pattern_match]" && "$tmp2" != "${(q)tmp2}" ]]; then
# It is. For menucompletion we now add the possible completions
# for this component with the unambigous prefix we have built
@@ -444,7 +444,7 @@
if [[ -n $menu ]] ||
! zstyle -t ":completion:${curcontext}:paths" expand suffix; then
- (( $#tmp4 )) && zstyle -t ":completion:${curcontext}:paths" cursor &&
+ (( tmp4 )) && zstyle -t ":completion:${curcontext}:paths" cursor &&
compstate[to_end]=''
if [[ "$tmp3" = */* ]]; then
compadd -Qf "$mopts[@]" -p "$linepath$tmp2" -s "/${tmp3#*/}" \
--
Sven Wischnowsky wischnow@informatik.hu-berlin.de
^ permalink raw reply [flat|nested] 5+ messages in thread
* PATCH: _path_files
@ 1999-06-11 8:24 Sven Wischnowsky
0 siblings, 0 replies; 5+ messages in thread
From: Sven Wischnowsky @ 1999-06-11 8:24 UTC (permalink / raw)
To: zsh-workers
This replaces a ${...##*/} with ${...:t} and a ${...%/*} with ${...:h}.
The :h isn't much faster, but the :t is. Significantly.
Bye
Sven
diff -u oc/Core/_path_files Completion/Core/_path_files
--- oc/Core/_path_files Thu Jun 10 21:10:33 1999
+++ Completion/Core/_path_files Thu Jun 10 21:17:40 1999
@@ -231,7 +231,7 @@
# See which of them match what's on the line.
tmp2=("$tmp1[@]")
- compadd -D tmp1 "$ignore[@]" - "${(@)tmp1##*/}"
+ compadd -D tmp1 "$ignore[@]" - "${(@)tmp1:t}"
# If no file matches, save the expanded path and continue with
# the outer loop.
@@ -240,7 +240,7 @@
if [[ "$tmp2[1]" = */* ]]; then
tmp2=( "${(@)tmp2#${prepath}${realpath}}" )
if [[ "$tmp2[1]" = */* ]]; then
- exppaths=( "$exppaths[@]" ${^tmp2%/*}/${tpre}${tsuf} )
+ exppaths=( "$exppaths[@]" ${^tmp2:h}/${tpre}${tsuf} )
else
exppaths=( "$exppaths[@]" ${tpre}${tsuf} )
fi
--
Sven Wischnowsky wischnow@informatik.hu-berlin.de
^ permalink raw reply [flat|nested] 5+ messages in thread
* PATCH: _path_files
@ 1999-05-18 6:50 Tanaka Akira
0 siblings, 0 replies; 5+ messages in thread
From: Tanaka Akira @ 1999-05-18 6:50 UTC (permalink / raw)
To: zsh-workers
Z:akr@is27e1u11% ./Src/zsh -f
is27e1u11% cat <<'End' > Completion/User/_tst
heredoc> #compdef tst
heredoc> _path_files -r '/ \t\n\-' -/
heredoc> End
is27e1u11% fpath=($PWD/Completion/*(/))
is27e1u11% . Completion/Core/compinit
is27e1u11% ln -s Completion z
is27e1u11% tst z/<TAB>
After above operation, zsh complete nothing.
I think following patch is required for completing files after
symbolic links.
--- Completion/Core/_path_files- Tue May 18 15:36:13 1999
+++ Completion/Core/_path_files Tue May 18 14:58:52 1999
@@ -222,7 +222,7 @@
# Get the matching files by globbing.
if [[ "$tpre$tsuf" = */* ]]; then
- tmp1=( ${^tmp1}*(D/) )
+ tmp1=( ${^tmp1}*(-D/) )
else
tmp1=( ${^tmp1}${^~pats} )
fi
--
Tanaka Akira
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2000-06-13 10:36 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2000-06-13 8:41 PATCH: _path_files Sven Wischnowsky
-- strict thread matches above, loose matches on Subject: below --
2000-02-17 13:44 Sven Wischnowsky
2000-02-10 15:25 Sven Wischnowsky
1999-06-11 8:24 Sven Wischnowsky
1999-05-18 6:50 Tanaka Akira
Code repositories for project(s) associated with this public inbox
https://git.vuxu.org/mirror/zsh/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).