From 0f7d06b4e544461c109c81eb7cc8c4822fac09aa Mon Sep 17 00:00:00 2001 From: Sven Wischnowsky Date: Wed, 10 May 2000 09:22:49 +0000 Subject: misc. _arguments fixes --- ChangeLog | 3 +++ Doc/Zsh/compsys.yo | 7 ++++--- Src/Zle/computil.c | 31 ++++++++++++++++++++++--------- 3 files changed, 29 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index c250ed4fd..925963d57 100644 --- a/ChangeLog +++ b/ChangeLog @@ -5,6 +5,9 @@ 2000-05-10 Sven Wischnowsky + * 11295: Doc/Zsh/compsys.yo, Src/Zle/computil.c: misc. _arguments + fixes + * 11294: Src/Zle/computil.c: fix for `-+opt' with mutex list * 11292: Completion/Core/_files: update `%p' replacement in _files diff --git a/Doc/Zsh/compsys.yo b/Doc/Zsh/compsys.yo index c4c632ef5..69701dd34 100644 --- a/Doc/Zsh/compsys.yo +++ b/Doc/Zsh/compsys.yo @@ -2991,10 +2991,11 @@ exclusive. Such a list is given in parentheses at the beginning, as in example, the options `tt(-two)' and `tt(-three)' and the first argument will not be offered as possible completions if the option `tt(-one)' is on the line before the cursor and in the second example -the argument described by the specification will not be offered if the -option tt(-foo) is on the line. Also, the list may contain a single +the option `tt(-foo)' will not be offered if the argument described by +the specification is on the line. Also, the list may contain a single star as one of its elements to specify that the description for the -rest arguments should not be used, a colon to +rest arguments (i.e. a specification of the form `tt(*:...)') should +not be used, a colon to specify that the descriptions for all normal (non-option-) arguments should not be used and a hyphen to specify that the descriptions for all options should not be used. diff --git a/Src/Zle/computil.c b/Src/Zle/computil.c index 91149d2d2..cb028e315 100644 --- a/Src/Zle/computil.c +++ b/Src/Zle/computil.c @@ -1105,7 +1105,7 @@ struct castate { int nopts; Caarg def, ddef; Caopt curopt; - int opt, arg, argbeg, optbeg, nargbeg, restbeg, curpos; + int opt, arg, argbeg, optbeg, nargbeg, restbeg, curpos, argend; int inopt, inrest, inarg, nth, doff, singles, oopt, actopts; LinkList args; LinkList *oargs; @@ -1123,7 +1123,7 @@ ca_parse_line(Cadef d, int multi) Caopt ptr, wasopt; struct castate state; char *line, *pe, **argxor = NULL; - int cur, doff; + int cur, doff, argend; Patprog endpat = NULL; /* Free old state. */ @@ -1157,6 +1157,7 @@ ca_parse_line(Cadef d, int multi) state.curopt = NULL; state.argbeg = state.optbeg = state.nargbeg = state.restbeg = state.actopts = state.nth = state.inopt = state.inarg = state.opt = state.arg = 1; + state.argend = argend = arrlen(compwords) - 1; state.inrest = state.doff = state.singles = state.doff = state.oopt = 0; state.curpos = compcurrent; state.args = znewlinklist(); @@ -1197,15 +1198,19 @@ ca_parse_line(Cadef d, int multi) if (state.def->type == CAA_REST || state.def->type == CAA_RARGS || state.def->type == CAA_RREST) { + if (state.curopt) + state.oopt++; if (state.def->end && pattry(endpat, line)) { state.def = NULL; state.curopt = NULL; state.opt = state.arg = 1; + state.argend = ca_laststate.argend = cur - 1; continue; } - } else if ((state.def = state.def->next)) + } else if ((state.def = state.def->next)) { state.argbeg = cur; - else { + state.argend = argend; + } else { state.curopt = NULL; state.opt = 1; } @@ -1233,10 +1238,12 @@ ca_parse_line(Cadef d, int multi) state.curopt->args : NULL); doff = pe - line; state.optbeg = state.argbeg = state.inopt = cur; + state.argend = argend; state.singles = (d->single && (!pe || !*pe) && state.curopt->name[1] && !state.curopt->name[2]); - state.oargs[state.curopt->num] = znewlinklist(); + if (!state.oargs[state.curopt->num]) + state.oargs[state.curopt->num] = znewlinklist(); if (ca_inactive(d, state.curopt->xor, cur, 0)) return 1; @@ -1273,11 +1280,13 @@ ca_parse_line(Cadef d, int multi) ddef = state.def = state.curopt->args; doff = pe - line; state.optbeg = state.argbeg = state.inopt = cur; + state.argend = argend; state.singles = (!pe || !*pe); for (p = line + 1; p < pe; p++) { if ((tmpopt = d->single[STOUC(*p)])) { - state.oargs[tmpopt->num] = znewlinklist(); + if (!state.oargs[tmpopt->num]) + state.oargs[tmpopt->num] = znewlinklist(); if (ca_inactive(d, tmpopt->xor, cur, 0)) return 1; @@ -1310,6 +1319,7 @@ ca_parse_line(Cadef d, int multi) if (state.inopt) { state.inopt = 0; state.nargbeg = cur - 1; + state.argend = argend; } if (!d->args && !d->rest) return 1; @@ -1320,6 +1330,7 @@ ca_parse_line(Cadef d, int multi) state.opt = (cur == state.nargbeg + 1); state.optbeg = state.nargbeg; state.argbeg = cur - 1; + state.argend = argend; for (; line; line = compwords[cur++]) zaddlinknode(state.args, ztrdup(line)); @@ -1389,7 +1400,9 @@ ca_parse_line(Cadef d, int multi) ca_laststate.ddef = NULL; ca_laststate.optbeg = state.nargbeg; ca_laststate.argbeg = state.restbeg; + ca_laststate.argend = state.argend; ca_laststate.singles = state.singles; + ca_laststate.oopt = state.oopt; if (wasopt) wasopt->active = 1; } @@ -1466,14 +1479,14 @@ ca_set_data(char *opt, Caarg arg, char **args, int single) if (!restr) { if ((restr = (arg->type == CAA_RARGS))) - restrict_range(ca_laststate.optbeg, arrlen(compwords) - 1); + restrict_range(ca_laststate.optbeg, ca_laststate.argend); else if ((restr = (arg->type == CAA_RREST))) - restrict_range(ca_laststate.argbeg, arrlen(compwords) - 1); + restrict_range(ca_laststate.argbeg, ca_laststate.argend); } if (arg->opt) { buf = (char *) zhalloc((arg->set ? strlen(arg->set) : 0) + strlen(arg->opt) + 40); - if (arg->num > 0) + if (arg->num > 0 && arg->type < CAA_REST) sprintf(buf, "%soption%s-%d", (arg->set ? arg->set : ""), arg->opt, arg->num); else -- cgit 1.4.1