mirror of
https://github.com/zsh-users/zsh
synced 2024-11-02 20:47:49 +00:00
1493 lines
32 KiB
C
1493 lines
32 KiB
C
/*
|
|
* complete.c - the complete module, interface part
|
|
*
|
|
* This file is part of zsh, the Z shell.
|
|
*
|
|
* Copyright (c) 1999 Sven Wischnowsky
|
|
* All rights reserved.
|
|
*
|
|
* Permission is hereby granted, without written agreement and without
|
|
* license or royalty fees, to use, copy, modify, and distribute this
|
|
* software and to distribute modified versions of this software for any
|
|
* purpose, provided that the above copyright notice and the following
|
|
* two paragraphs appear in all copies of this software.
|
|
*
|
|
* In no event shall Sven Wischnowsky or the Zsh Development Group be liable
|
|
* to any party for direct, indirect, special, incidental, or consequential
|
|
* damages arising out of the use of this software and its documentation,
|
|
* even if Sven Wischnowsky and the Zsh Development Group have been advised of
|
|
* the possibility of such damage.
|
|
*
|
|
* Sven Wischnowsky and the Zsh Development Group specifically disclaim any
|
|
* warranties, including, but not limited to, the implied warranties of
|
|
* merchantability and fitness for a particular purpose. The software
|
|
* provided hereunder is on an "as is" basis, and Sven Wischnowsky and the
|
|
* Zsh Development Group have no obligation to provide maintenance,
|
|
* support, updates, enhancements, or modifications.
|
|
*
|
|
*/
|
|
|
|
#include "complete.mdh"
|
|
#include "complete.pro"
|
|
|
|
/* global variables for shell parameters in new style completion */
|
|
|
|
/**/
|
|
mod_export
|
|
zlong compcurrent,
|
|
complistmax;
|
|
/**/
|
|
zlong complistlines,
|
|
compignored;
|
|
|
|
/**/
|
|
mod_export
|
|
char **compwords,
|
|
**compredirs,
|
|
*compprefix,
|
|
*compsuffix,
|
|
*complastprefix,
|
|
*complastsuffix,
|
|
*compisuffix,
|
|
*compqiprefix,
|
|
*compqisuffix,
|
|
*compquote,
|
|
*compqstack,
|
|
*comppatmatch,
|
|
*complastprompt;
|
|
/**/
|
|
char *compiprefix,
|
|
*compcontext,
|
|
*compparameter,
|
|
*compredirect,
|
|
*compquoting,
|
|
*comprestore,
|
|
*complist,
|
|
*compinsert,
|
|
*compexact,
|
|
*compexactstr,
|
|
*comppatinsert,
|
|
*comptoend,
|
|
*compoldlist,
|
|
*compoldins,
|
|
*compvared;
|
|
|
|
/**/
|
|
Param *comprpms, *compkpms;
|
|
|
|
/**/
|
|
mod_export void
|
|
freecmlist(Cmlist l)
|
|
{
|
|
Cmlist n;
|
|
|
|
while (l) {
|
|
n = l->next;
|
|
freecmatcher(l->matcher);
|
|
zsfree(l->str);
|
|
|
|
zfree(l, sizeof(struct cmlist));
|
|
|
|
l = n;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
mod_export void
|
|
freecmatcher(Cmatcher m)
|
|
{
|
|
Cmatcher n;
|
|
|
|
if (!m || --(m->refc))
|
|
return;
|
|
|
|
while (m) {
|
|
n = m->next;
|
|
freecpattern(m->line);
|
|
freecpattern(m->word);
|
|
freecpattern(m->left);
|
|
freecpattern(m->right);
|
|
|
|
zfree(m, sizeof(struct cmatcher));
|
|
|
|
m = n;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
void
|
|
freecpattern(Cpattern p)
|
|
{
|
|
Cpattern n;
|
|
|
|
while (p) {
|
|
n = p->next;
|
|
zfree(p, sizeof(struct cpattern));
|
|
|
|
p = n;
|
|
}
|
|
}
|
|
|
|
/* Copy a completion matcher list. */
|
|
|
|
/**/
|
|
mod_export Cmatcher
|
|
cpcmatcher(Cmatcher m)
|
|
{
|
|
Cmatcher r = NULL, *p = &r, n;
|
|
|
|
while (m) {
|
|
*p = n = (Cmatcher) zalloc(sizeof(struct cmatcher));
|
|
|
|
n->refc = 1;
|
|
n->next = NULL;
|
|
n->flags = m->flags;
|
|
n->line = cpcpattern(m->line);
|
|
n->llen = m->llen;
|
|
n->word = cpcpattern(m->word);
|
|
n->wlen = m->wlen;
|
|
n->left = cpcpattern(m->left);
|
|
n->lalen = m->lalen;
|
|
n->right = cpcpattern(m->right);
|
|
n->ralen = m->ralen;
|
|
|
|
p = &(n->next);
|
|
m = m->next;
|
|
}
|
|
return r;
|
|
}
|
|
|
|
/* Copy a completion matcher pattern. */
|
|
|
|
/**/
|
|
static Cpattern
|
|
cpcpattern(Cpattern o)
|
|
{
|
|
Cpattern r = NULL, *p = &r, n;
|
|
|
|
while (o) {
|
|
*p = n = (Cpattern) zalloc(sizeof(struct cpattern));
|
|
|
|
n->next = NULL;
|
|
memcpy(n->tab, o->tab, 256);
|
|
n->equiv = o->equiv;
|
|
|
|
p = &(n->next);
|
|
o = o->next;
|
|
}
|
|
return r;
|
|
}
|
|
|
|
/* Parse a string for matcher control, containing multiple matchers. */
|
|
|
|
/**/
|
|
mod_export Cmatcher
|
|
parse_cmatcher(char *name, char *s)
|
|
{
|
|
Cmatcher ret = NULL, r = NULL, n;
|
|
Cpattern line, word, left, right;
|
|
int fl, fl2, ll, wl, lal, ral, err, both;
|
|
|
|
if (!*s)
|
|
return NULL;
|
|
|
|
while (*s) {
|
|
lal = ral = both = fl2 = 0;
|
|
left = right = NULL;
|
|
|
|
while (*s && inblank(*s)) s++;
|
|
|
|
if (!*s) break;
|
|
|
|
switch (*s) {
|
|
case 'b': fl2 = CMF_INTER;
|
|
case 'l': fl = CMF_LEFT; break;
|
|
case 'e': fl2 = CMF_INTER;
|
|
case 'r': fl = CMF_RIGHT; break;
|
|
case 'm': fl = 0; break;
|
|
case 'B': fl2 = CMF_INTER;
|
|
case 'L': fl = CMF_LEFT | CMF_LINE; break;
|
|
case 'E': fl2 = CMF_INTER;
|
|
case 'R': fl = CMF_RIGHT | CMF_LINE; break;
|
|
case 'M': fl = CMF_LINE; break;
|
|
default:
|
|
if (name)
|
|
zwarnnam(name, "unknown match specification character `%c'",
|
|
NULL, *s);
|
|
return pcm_err;
|
|
}
|
|
if (s[1] != ':') {
|
|
if (name)
|
|
zwarnnam(name, "missing `:'", NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
s += 2;
|
|
if (!*s) {
|
|
if (name)
|
|
zwarnnam(name, "missing patterns", NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
if ((fl & CMF_LEFT) && !fl2) {
|
|
left = parse_pattern(name, &s, &lal, '|', &err);
|
|
if (err)
|
|
return pcm_err;
|
|
|
|
if ((both = (*s && s[1] == '|')))
|
|
s++;
|
|
|
|
if (!*s || !*++s) {
|
|
if (name)
|
|
zwarnnam(name, "missing line pattern", NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
} else
|
|
left = NULL;
|
|
|
|
line = parse_pattern(name, &s, &ll,
|
|
(((fl & CMF_RIGHT) && !fl2) ? '|' : '='),
|
|
&err);
|
|
if (err)
|
|
return pcm_err;
|
|
if (both) {
|
|
right = line;
|
|
ral = ll;
|
|
line = NULL;
|
|
ll = 0;
|
|
}
|
|
if ((fl & CMF_RIGHT) && !fl2 && (!*s || !*++s)) {
|
|
if (name)
|
|
zwarnnam(name, "missing right anchor", NULL, 0);
|
|
} else if (!(fl & CMF_RIGHT) || fl2) {
|
|
if (!*s) {
|
|
if (name)
|
|
zwarnnam(name, "missing word pattern", NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
s++;
|
|
}
|
|
if ((fl & CMF_RIGHT) && !fl2) {
|
|
if (*s == '|') {
|
|
left = line;
|
|
lal = ll;
|
|
line = NULL;
|
|
ll = 0;
|
|
s++;
|
|
}
|
|
right = parse_pattern(name, &s, &ral, '=', &err);
|
|
if (err)
|
|
return pcm_err;
|
|
if (!*s) {
|
|
if (name)
|
|
zwarnnam(name, "missing word pattern", NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
s++;
|
|
} else
|
|
right = NULL;
|
|
|
|
if (*s == '*') {
|
|
if (!(fl & (CMF_LEFT | CMF_RIGHT))) {
|
|
if (name)
|
|
zwarnnam(name, "need anchor for `*'", NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
word = NULL;
|
|
if (*++s == '*') {
|
|
s++;
|
|
wl = -2;
|
|
} else
|
|
wl = -1;
|
|
} else {
|
|
word = parse_pattern(name, &s, &wl, 0, &err);
|
|
|
|
if (!word && !line) {
|
|
if (name)
|
|
zwarnnam(name, "need non-empty word or line pattern",
|
|
NULL, 0);
|
|
return pcm_err;
|
|
}
|
|
}
|
|
if (err)
|
|
return pcm_err;
|
|
|
|
n = (Cmatcher) hcalloc(sizeof(*ret));
|
|
n->next = NULL;
|
|
n->flags = fl | fl2;
|
|
n->line = line;
|
|
n->llen = ll;
|
|
n->word = word;
|
|
n->wlen = wl;
|
|
n->left = left;
|
|
n->lalen = lal;
|
|
n->right = right;
|
|
n->ralen = ral;
|
|
|
|
if (ret)
|
|
r->next = n;
|
|
else
|
|
ret = n;
|
|
|
|
r = n;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
/* Parse a pattern for matcher control. */
|
|
|
|
/**/
|
|
static Cpattern
|
|
parse_pattern(char *name, char **sp, int *lp, char e, int *err)
|
|
{
|
|
Cpattern ret = NULL, r = NULL, n;
|
|
unsigned char *s = (unsigned char *) *sp;
|
|
int l = 0;
|
|
|
|
*err = 0;
|
|
|
|
while (*s && (e ? (*s != e) : !inblank(*s))) {
|
|
n = (Cpattern) hcalloc(sizeof(*n));
|
|
n->next = NULL;
|
|
n->equiv = 0;
|
|
|
|
if (*s == '[') {
|
|
s = parse_class(n, s + 1, ']');
|
|
if (!*s) {
|
|
*err = 1;
|
|
zwarnnam(name, "unterminated character class", NULL, 0);
|
|
return NULL;
|
|
}
|
|
} else if (*s == '{') {
|
|
n->equiv = 1;
|
|
s = parse_class(n, s + 1, '}');
|
|
if (!*s) {
|
|
*err = 1;
|
|
zwarnnam(name, "unterminated character class", NULL, 0);
|
|
return NULL;
|
|
}
|
|
} else if (*s == '?') {
|
|
memset(n->tab, 1, 256);
|
|
} else if (*s == '*' || *s == '(' || *s == ')' || *s == '=') {
|
|
*err = 1;
|
|
zwarnnam(name, "invalid pattern character `%c'", NULL, *s);
|
|
return NULL;
|
|
} else {
|
|
if (*s == '\\' && s[1])
|
|
s++;
|
|
|
|
memset(n->tab, 0, 256);
|
|
n->tab[*s] = 1;
|
|
}
|
|
if (ret)
|
|
r->next = n;
|
|
else
|
|
ret = n;
|
|
|
|
r = n;
|
|
|
|
l++;
|
|
s++;
|
|
}
|
|
*sp = (char *) s;
|
|
*lp = l;
|
|
return ret;
|
|
}
|
|
|
|
/* Parse a character class for matcher control. */
|
|
|
|
/**/
|
|
static unsigned char *
|
|
parse_class(Cpattern p, unsigned char *s, unsigned char e)
|
|
{
|
|
int n = 0, i = 1, j, eq = (e == '}'), k = 1;
|
|
|
|
if (!eq && (*s == '!' || *s == '^') && s[1] != e) { n = 1; s++; }
|
|
|
|
memset(p->tab, n, 256);
|
|
|
|
n = !n;
|
|
while (*s && (k || *s != e)) {
|
|
if (s[1] == '-' && s[2] && s[2] != e) {
|
|
/* a run of characters */
|
|
for (j = (int) *s; j <= (int) s[2]; j++)
|
|
p->tab[j] = (eq ? i++ : n);
|
|
|
|
s += 3;
|
|
} else
|
|
p->tab[*s++] = (eq ? i++ : n);
|
|
k = 0;
|
|
}
|
|
return s;
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
bin_compadd(char *name, char **argv, Options ops, int func)
|
|
{
|
|
struct cadata dat;
|
|
char *p, **sp, *e, *m = NULL, *mstr = NULL;
|
|
int dm;
|
|
Cmatcher match = NULL;
|
|
|
|
if (incompfunc != 1) {
|
|
zwarnnam(name, "can only be called from completion function", NULL, 0);
|
|
return 1;
|
|
}
|
|
dat.ipre = dat.isuf = dat.ppre = dat.psuf = dat.prpre = dat.mesg =
|
|
dat.pre = dat.suf = dat.group = dat.rems = dat.remf = dat.disp =
|
|
dat.ign = dat.exp = dat.apar = dat.opar = dat.dpar = NULL;
|
|
dat.match = NULL;
|
|
dat.flags = 0;
|
|
dat.aflags = CAF_MATCH;
|
|
dat.dummies = 0;
|
|
|
|
for (; *argv && **argv == '-'; argv++) {
|
|
if (!(*argv)[1]) {
|
|
argv++;
|
|
break;
|
|
}
|
|
for (p = *argv + 1; *p; p++) {
|
|
sp = NULL;
|
|
e = NULL;
|
|
dm = 0;
|
|
switch (*p) {
|
|
case 'q':
|
|
dat.flags |= CMF_REMOVE;
|
|
break;
|
|
case 'Q':
|
|
dat.aflags |= CAF_QUOTE;
|
|
break;
|
|
case 'C':
|
|
dat.aflags |= CAF_ALL;
|
|
break;
|
|
case 'f':
|
|
dat.flags |= CMF_FILE;
|
|
break;
|
|
case 'e':
|
|
dat.flags |= CMF_ISPAR;
|
|
break;
|
|
case 'a':
|
|
dat.aflags |= CAF_ARRAYS;
|
|
break;
|
|
case 'k':
|
|
dat.aflags |= CAF_ARRAYS|CAF_KEYS;
|
|
break;
|
|
case 'F':
|
|
sp = &(dat.ign);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'n':
|
|
dat.flags |= CMF_NOLIST;
|
|
break;
|
|
case 'U':
|
|
dat.aflags &= ~CAF_MATCH;
|
|
break;
|
|
case 'P':
|
|
sp = &(dat.pre);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'S':
|
|
sp = &(dat.suf);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'J':
|
|
sp = &(dat.group);
|
|
e = "group name expected after -%c";
|
|
break;
|
|
case 'V':
|
|
if (!dat.group)
|
|
dat.aflags |= CAF_NOSORT;
|
|
sp = &(dat.group);
|
|
e = "group name expected after -%c";
|
|
break;
|
|
case '1':
|
|
if (!(dat.aflags & CAF_UNIQCON))
|
|
dat.aflags |= CAF_UNIQALL;
|
|
break;
|
|
case '2':
|
|
if (!(dat.aflags & CAF_UNIQALL))
|
|
dat.aflags |= CAF_UNIQCON;
|
|
break;
|
|
case 'i':
|
|
sp = &(dat.ipre);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'I':
|
|
sp = &(dat.isuf);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'p':
|
|
sp = &(dat.ppre);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 's':
|
|
sp = &(dat.psuf);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'W':
|
|
sp = &(dat.prpre);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'M':
|
|
sp = &m;
|
|
e = "matching specification expected after -%c";
|
|
dm = 1;
|
|
break;
|
|
case 'X':
|
|
sp = &(dat.exp);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'x':
|
|
sp = &(dat.mesg);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'r':
|
|
dat.flags |= CMF_REMOVE;
|
|
sp = &(dat.rems);
|
|
e = "string expected after -%c";
|
|
break;
|
|
case 'R':
|
|
dat.flags |= CMF_REMOVE;
|
|
sp = &(dat.remf);
|
|
e = "function name expected after -%c";
|
|
break;
|
|
case 'A':
|
|
sp = &(dat.apar);
|
|
e = "parameter name expected after -%c";
|
|
break;
|
|
case 'O':
|
|
sp = &(dat.opar);
|
|
e = "parameter name expected after -%c";
|
|
break;
|
|
case 'D':
|
|
sp = &(dat.dpar);
|
|
e = "parameter name expected after -%c";
|
|
break;
|
|
case 'd':
|
|
sp = &(dat.disp);
|
|
e = "parameter name expected after -%c";
|
|
break;
|
|
case 'l':
|
|
dat.flags |= CMF_DISPLINE;
|
|
break;
|
|
case 'E':
|
|
if (p[1]) {
|
|
dat.dummies = atoi(p + 1);
|
|
p = "" - 1;
|
|
} else if (argv[1]) {
|
|
argv++;
|
|
dat.dummies = atoi(*argv);
|
|
p = "" - 1;
|
|
} else {
|
|
zwarnnam(name, "number expected after -%c", NULL, *p);
|
|
return 1;
|
|
}
|
|
if (dat.dummies < 0) {
|
|
zwarnnam(name, "invalid number: %d", NULL, dat.dummies);
|
|
return 1;
|
|
}
|
|
break;
|
|
case '-':
|
|
argv++;
|
|
goto ca_args;
|
|
default:
|
|
zwarnnam(name, "bad option: -%c", NULL, *p);
|
|
return 1;
|
|
}
|
|
if (sp) {
|
|
if (p[1]) {
|
|
if (!*sp)
|
|
*sp = p + 1;
|
|
p = "" - 1;
|
|
} else if (argv[1]) {
|
|
argv++;
|
|
if (!*sp)
|
|
*sp = *argv;
|
|
p = "" - 1;
|
|
} else {
|
|
zwarnnam(name, e, NULL, *p);
|
|
return 1;
|
|
}
|
|
if (dm) {
|
|
if (mstr) {
|
|
char *tmp = tricat(mstr, " ", m);
|
|
zsfree(mstr);
|
|
mstr = tmp;
|
|
} else
|
|
mstr = ztrdup(m);
|
|
m = NULL;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
ca_args:
|
|
|
|
if (mstr && (match = parse_cmatcher(name, mstr)) == pcm_err) {
|
|
zsfree(mstr);
|
|
return 1;
|
|
}
|
|
zsfree(mstr);
|
|
|
|
if (!*argv && !dat.group && !dat.mesg &&
|
|
!(dat.aflags & (CAF_NOSORT|CAF_UNIQALL|CAF_UNIQCON|CAF_ALL)))
|
|
return 1;
|
|
|
|
dat.match = match = cpcmatcher(match);
|
|
dm = addmatches(&dat, argv);
|
|
freecmatcher(match);
|
|
|
|
return dm;
|
|
}
|
|
|
|
#define CVT_RANGENUM 0
|
|
#define CVT_RANGEPAT 1
|
|
#define CVT_PRENUM 2
|
|
#define CVT_PREPAT 3
|
|
#define CVT_SUFNUM 4
|
|
#define CVT_SUFPAT 5
|
|
|
|
/**/
|
|
mod_export void
|
|
ignore_prefix(int l)
|
|
{
|
|
if (l) {
|
|
char *tmp, sav;
|
|
int pl = strlen(compprefix);
|
|
|
|
if (l > pl)
|
|
l = pl;
|
|
|
|
sav = compprefix[l];
|
|
|
|
compprefix[l] = '\0';
|
|
tmp = tricat(compiprefix, compprefix, "");
|
|
zsfree(compiprefix);
|
|
compiprefix = tmp;
|
|
compprefix[l] = sav;
|
|
tmp = ztrdup(compprefix + l);
|
|
zsfree(compprefix);
|
|
compprefix = tmp;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
mod_export void
|
|
ignore_suffix(int l)
|
|
{
|
|
if (l) {
|
|
char *tmp, sav;
|
|
int sl = strlen(compsuffix);
|
|
|
|
if ((l = sl - l) < 0)
|
|
l = 0;
|
|
|
|
tmp = tricat(compsuffix + l, compisuffix, "");
|
|
zsfree(compisuffix);
|
|
compisuffix = tmp;
|
|
sav = compsuffix[l];
|
|
compsuffix[l] = '\0';
|
|
tmp = ztrdup(compsuffix);
|
|
compsuffix[l] = sav;
|
|
zsfree(compsuffix);
|
|
compsuffix = tmp;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
mod_export void
|
|
restrict_range(int b, int e)
|
|
{
|
|
int wl = arrlen(compwords) - 1;
|
|
|
|
if (wl && b >= 0 && e >= 0 && (b > 0 || e < wl)) {
|
|
int i;
|
|
char **p, **q, **pp;
|
|
|
|
if (e > wl)
|
|
e = wl;
|
|
|
|
i = e - b + 1;
|
|
p = (char **) zcalloc((i + 1) * sizeof(char *));
|
|
|
|
for (q = p, pp = compwords + b; i; i--, q++, pp++)
|
|
*q = ztrdup(*pp);
|
|
freearray(compwords);
|
|
compwords = p;
|
|
compcurrent -= b;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
do_comp_vars(int test, int na, char *sa, int nb, char *sb, int mod)
|
|
{
|
|
switch (test) {
|
|
case CVT_RANGENUM:
|
|
{
|
|
int l = arrlen(compwords);
|
|
|
|
if (na < 0)
|
|
na += l;
|
|
else
|
|
na--;
|
|
if (nb < 0)
|
|
nb += l;
|
|
else
|
|
nb--;
|
|
|
|
if (compcurrent - 1 < na || compcurrent - 1 > nb)
|
|
return 0;
|
|
if (mod)
|
|
restrict_range(na, nb);
|
|
return 1;
|
|
}
|
|
case CVT_RANGEPAT:
|
|
{
|
|
char **p;
|
|
int i, l = arrlen(compwords), t = 0, b = 0, e = l - 1;
|
|
Patprog pp;
|
|
|
|
i = compcurrent - 1;
|
|
if (i < 0 || i >= l)
|
|
return 0;
|
|
|
|
singsub(&sa);
|
|
pp = patcompile(sa, PAT_STATIC, NULL);
|
|
|
|
for (i--, p = compwords + i; i >= 0; p--, i--) {
|
|
if (pattry(pp, *p)) {
|
|
b = i + 1;
|
|
t = 1;
|
|
break;
|
|
}
|
|
}
|
|
if (t && sb) {
|
|
int tt = 0;
|
|
|
|
singsub(&sb);
|
|
pp = patcompile(sb, PAT_STATIC, NULL);
|
|
|
|
for (i++, p = compwords + i; i < l; p++, i++) {
|
|
if (pattry(pp, *p)) {
|
|
e = i - 1;
|
|
tt = 1;
|
|
break;
|
|
}
|
|
}
|
|
if (tt && i < compcurrent)
|
|
t = 0;
|
|
}
|
|
if (e < b)
|
|
t = 0;
|
|
if (t && mod)
|
|
restrict_range(b, e);
|
|
return t;
|
|
}
|
|
case CVT_PRENUM:
|
|
case CVT_SUFNUM:
|
|
if (!na)
|
|
return 1;
|
|
if (na > 0 &&
|
|
strlen(test == CVT_PRENUM ? compprefix : compsuffix) >= na) {
|
|
if (mod) {
|
|
if (test == CVT_PRENUM)
|
|
ignore_prefix(na);
|
|
else
|
|
ignore_suffix(na);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
case CVT_PREPAT:
|
|
case CVT_SUFPAT:
|
|
{
|
|
Patprog pp;
|
|
|
|
if (!na)
|
|
return 0;
|
|
|
|
if (!(pp = patcompile(sa, PAT_STATIC, 0)))
|
|
return 0;
|
|
|
|
if (test == CVT_PREPAT) {
|
|
int l, add;
|
|
char *p, sav;
|
|
|
|
if (!(l = strlen(compprefix)))
|
|
return ((na == 1 || na == -1) && pattry(pp, compprefix));
|
|
if (na < 0) {
|
|
p = compprefix + l;
|
|
na = -na;
|
|
add = -1;
|
|
} else {
|
|
p = compprefix + 1;
|
|
add = 1;
|
|
}
|
|
for (; l; l--, p += add) {
|
|
sav = *p;
|
|
*p = '\0';
|
|
test = pattry(pp, compprefix);
|
|
*p = sav;
|
|
if (test && !--na)
|
|
break;
|
|
}
|
|
if (!l)
|
|
return 0;
|
|
if (mod)
|
|
ignore_prefix(p - compprefix);
|
|
} else {
|
|
int l, ol, add;
|
|
char *p;
|
|
|
|
if (!(ol = l = strlen(compsuffix)))
|
|
return ((na == 1 || na == -1) && pattry(pp, compsuffix));
|
|
if (na < 0) {
|
|
p = compsuffix;
|
|
na = -na;
|
|
add = 1;
|
|
} else {
|
|
p = compsuffix + l - 1;
|
|
add = -1;
|
|
}
|
|
for (; l; l--, p += add)
|
|
if (pattry(pp, p) && !--na)
|
|
break;
|
|
|
|
if (!l)
|
|
return 0;
|
|
if (mod)
|
|
ignore_suffix(ol - (p - compsuffix));
|
|
}
|
|
return 1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
bin_compset(char *name, char **argv, Options ops, int func)
|
|
{
|
|
int test = 0, na = 0, nb = 0;
|
|
char *sa = NULL, *sb = NULL;
|
|
|
|
if (incompfunc != 1) {
|
|
zwarnnam(name, "can only be called from completion function", NULL, 0);
|
|
return 1;
|
|
}
|
|
if (argv[0][0] != '-') {
|
|
zwarnnam(name, "missing option", NULL, 0);
|
|
return 1;
|
|
}
|
|
switch (argv[0][1]) {
|
|
case 'n': test = CVT_RANGENUM; break;
|
|
case 'N': test = CVT_RANGEPAT; break;
|
|
case 'p': test = CVT_PRENUM; break;
|
|
case 'P': test = CVT_PREPAT; break;
|
|
case 's': test = CVT_SUFNUM; break;
|
|
case 'S': test = CVT_SUFPAT; break;
|
|
case 'q': return set_comp_sep();
|
|
default:
|
|
zwarnnam(name, "bad option -%c", NULL, argv[0][1]);
|
|
return 1;
|
|
}
|
|
if (argv[0][2]) {
|
|
sa = argv[0] + 2;
|
|
sb = argv[1];
|
|
na = 2;
|
|
} else {
|
|
if (!(sa = argv[1])) {
|
|
zwarnnam(name, "missing string for option -%c", NULL, argv[0][1]);
|
|
return 1;
|
|
}
|
|
sb = argv[2];
|
|
na = 3;
|
|
}
|
|
if (((test == CVT_PRENUM || test == CVT_SUFNUM) ? !!sb :
|
|
(sb && argv[na]))) {
|
|
zwarnnam(name, "too many arguments", NULL, 0);
|
|
return 1;
|
|
}
|
|
switch (test) {
|
|
case CVT_RANGENUM:
|
|
na = atoi(sa);
|
|
nb = (sb ? atoi(sb) : -1);
|
|
break;
|
|
case CVT_RANGEPAT:
|
|
tokenize(sa);
|
|
remnulargs(sa);
|
|
if (sb) {
|
|
tokenize(sb);
|
|
remnulargs(sb);
|
|
}
|
|
break;
|
|
case CVT_PRENUM:
|
|
case CVT_SUFNUM:
|
|
na = atoi(sa);
|
|
break;
|
|
case CVT_PREPAT:
|
|
case CVT_SUFPAT:
|
|
if (sb) {
|
|
na = atoi(sa);
|
|
sa = sb;
|
|
} else
|
|
na = -1;
|
|
tokenize(sa);
|
|
remnulargs(sa);
|
|
break;
|
|
}
|
|
return !do_comp_vars(test, na, sa, nb, sb, 1);
|
|
}
|
|
|
|
/* Definitions for the special parameters. Note that these have to match the
|
|
* order of the CP_* bits in comp.h */
|
|
|
|
#define VAL(X) ((void *) (&(X)))
|
|
struct compparam {
|
|
char *name;
|
|
int type;
|
|
void *var, *set, *get;
|
|
};
|
|
|
|
static struct compparam comprparams[] = {
|
|
{ "words", PM_ARRAY, VAL(compwords), NULL, NULL },
|
|
{ "redirections", PM_ARRAY, VAL(compredirs), NULL, NULL },
|
|
{ "CURRENT", PM_INTEGER, VAL(compcurrent), NULL, NULL },
|
|
{ "PREFIX", PM_SCALAR, VAL(compprefix), NULL, NULL },
|
|
{ "SUFFIX", PM_SCALAR, VAL(compsuffix), NULL, NULL },
|
|
{ "IPREFIX", PM_SCALAR, VAL(compiprefix), NULL, NULL },
|
|
{ "ISUFFIX", PM_SCALAR, VAL(compisuffix), NULL, NULL },
|
|
{ "QIPREFIX", PM_SCALAR | PM_READONLY, VAL(compqiprefix), NULL, NULL },
|
|
{ "QISUFFIX", PM_SCALAR | PM_READONLY, VAL(compqisuffix), NULL, NULL },
|
|
{ NULL, 0, NULL, NULL, NULL }
|
|
};
|
|
|
|
static struct compparam compkparams[] = {
|
|
{ "nmatches", PM_INTEGER | PM_READONLY, NULL, NULL, VAL(get_nmatches) },
|
|
{ "context", PM_SCALAR, VAL(compcontext), NULL, NULL },
|
|
{ "parameter", PM_SCALAR, VAL(compparameter), NULL, NULL },
|
|
{ "redirect", PM_SCALAR, VAL(compredirect), NULL, NULL },
|
|
{ "quote", PM_SCALAR | PM_READONLY, VAL(compquote), NULL, NULL },
|
|
{ "quoting", PM_SCALAR | PM_READONLY, VAL(compquoting), NULL, NULL },
|
|
{ "restore", PM_SCALAR, VAL(comprestore), NULL, NULL },
|
|
{ "list", PM_SCALAR, NULL, VAL(set_complist), VAL(get_complist) },
|
|
{ "insert", PM_SCALAR, VAL(compinsert), NULL, NULL },
|
|
{ "exact", PM_SCALAR, VAL(compexact), NULL, NULL },
|
|
{ "exact_string", PM_SCALAR, VAL(compexactstr), NULL, NULL },
|
|
{ "pattern_match", PM_SCALAR, VAL(comppatmatch), NULL, NULL },
|
|
{ "pattern_insert", PM_SCALAR, VAL(comppatinsert), NULL, NULL },
|
|
{ "unambiguous", PM_SCALAR | PM_READONLY, NULL, NULL, VAL(get_unambig) },
|
|
{ "unambiguous_cursor", PM_INTEGER | PM_READONLY, NULL, NULL,
|
|
VAL(get_unambig_curs) },
|
|
{ "unambiguous_positions", PM_SCALAR | PM_READONLY, NULL, NULL,
|
|
VAL(get_unambig_pos) },
|
|
{ "insert_positions", PM_SCALAR | PM_READONLY, NULL, NULL,
|
|
VAL(get_insert_pos) },
|
|
{ "list_max", PM_INTEGER, VAL(complistmax), NULL, NULL },
|
|
{ "last_prompt", PM_SCALAR, VAL(complastprompt), NULL, NULL },
|
|
{ "to_end", PM_SCALAR, VAL(comptoend), NULL, NULL },
|
|
{ "old_list", PM_SCALAR, VAL(compoldlist), NULL, NULL },
|
|
{ "old_insert", PM_SCALAR, VAL(compoldins), NULL, NULL },
|
|
{ "vared", PM_SCALAR, VAL(compvared), NULL, NULL },
|
|
{ "list_lines", PM_INTEGER | PM_READONLY, NULL, NULL, VAL(get_listlines) },
|
|
{ "all_quotes", PM_SCALAR | PM_READONLY, VAL(compqstack), NULL, NULL },
|
|
{ "ignored", PM_INTEGER | PM_READONLY, VAL(compignored), NULL, NULL },
|
|
{ NULL, 0, NULL, NULL, NULL }
|
|
};
|
|
|
|
#define COMPSTATENAME "compstate"
|
|
|
|
static void
|
|
addcompparams(struct compparam *cp, Param *pp)
|
|
{
|
|
for (; cp->name; cp++, pp++) {
|
|
Param pm = createparam(cp->name,
|
|
cp->type |PM_SPECIAL|PM_REMOVABLE|PM_LOCAL);
|
|
if (!pm)
|
|
pm = (Param) paramtab->getnode(paramtab, cp->name);
|
|
DPUTS(!pm, "param not set in addcompparams");
|
|
|
|
*pp = pm;
|
|
pm->level = locallevel + 1;
|
|
if ((pm->u.data = cp->var)) {
|
|
switch(PM_TYPE(cp->type)) {
|
|
case PM_SCALAR:
|
|
pm->sets.cfn = strvarsetfn;
|
|
pm->gets.cfn = strvargetfn;
|
|
break;
|
|
case PM_INTEGER:
|
|
pm->sets.ifn = intvarsetfn;
|
|
pm->gets.ifn = intvargetfn;
|
|
pm->ct = 10;
|
|
break;
|
|
case PM_ARRAY:
|
|
pm->sets.afn = arrvarsetfn;
|
|
pm->gets.afn = arrvargetfn;
|
|
break;
|
|
}
|
|
} else {
|
|
pm->sets.cfn = (void (*) _((Param, char *))) cp->set;
|
|
pm->gets.cfn = (char *(*) _((Param))) cp->get;
|
|
}
|
|
pm->unsetfn = compunsetfn;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
void
|
|
makecompparams(void)
|
|
{
|
|
Param cpm;
|
|
HashTable tht;
|
|
|
|
addcompparams(comprparams, comprpms);
|
|
|
|
if (!(cpm = createparam(COMPSTATENAME,
|
|
PM_SPECIAL|PM_REMOVABLE|PM_LOCAL|PM_HASHED)))
|
|
cpm = (Param) paramtab->getnode(paramtab, COMPSTATENAME);
|
|
DPUTS(!cpm, "param not set in makecompparams");
|
|
|
|
comprpms[CPN_COMPSTATE] = cpm;
|
|
tht = paramtab;
|
|
cpm->level = locallevel + 1;
|
|
cpm->gets.hfn = get_compstate;
|
|
cpm->sets.hfn = set_compstate;
|
|
cpm->unsetfn = compunsetfn;
|
|
cpm->u.hash = paramtab = newparamtable(31, COMPSTATENAME);
|
|
addcompparams(compkparams, compkpms);
|
|
paramtab = tht;
|
|
}
|
|
|
|
/**/
|
|
static HashTable
|
|
get_compstate(Param pm)
|
|
{
|
|
return pm->u.hash;
|
|
}
|
|
|
|
/**/
|
|
static void
|
|
set_compstate(Param pm, HashTable ht)
|
|
{
|
|
struct compparam *cp;
|
|
Param *pp;
|
|
HashNode hn;
|
|
int i;
|
|
struct value v;
|
|
char *str;
|
|
|
|
if (!ht)
|
|
return;
|
|
|
|
for (i = 0; i < ht->hsize; i++)
|
|
for (hn = ht->nodes[i]; hn; hn = hn->next)
|
|
for (cp = compkparams,
|
|
pp = compkpms; cp->name; cp++, pp++)
|
|
if (!strcmp(hn->nam, cp->name)) {
|
|
v.isarr = v.inv = v.start = 0;
|
|
v.end = -1;
|
|
v.arr = NULL;
|
|
v.pm = (Param) hn;
|
|
if (cp->type == PM_INTEGER)
|
|
*((zlong *) cp->var) = getintvalue(&v);
|
|
else if ((str = getstrvalue(&v))) {
|
|
zsfree(*((char **) cp->var));
|
|
*((char **) cp->var) = ztrdup(str);
|
|
}
|
|
(*pp)->flags &= ~PM_UNSET;
|
|
|
|
break;
|
|
}
|
|
deleteparamtable(ht);
|
|
}
|
|
|
|
/**/
|
|
static zlong
|
|
get_nmatches(Param pm)
|
|
{
|
|
return (permmatches(0) ? 0 : nmatches);
|
|
}
|
|
|
|
/**/
|
|
static zlong
|
|
get_listlines(Param pm)
|
|
{
|
|
return list_lines();
|
|
}
|
|
|
|
/**/
|
|
static void
|
|
set_complist(Param pm, char *v)
|
|
{
|
|
comp_list(v);
|
|
}
|
|
|
|
/**/
|
|
static char *
|
|
get_complist(Param pm)
|
|
{
|
|
return complist;
|
|
}
|
|
|
|
/**/
|
|
static char *
|
|
get_unambig(Param pm)
|
|
{
|
|
return unambig_data(NULL, NULL, NULL);
|
|
}
|
|
|
|
/**/
|
|
static zlong
|
|
get_unambig_curs(Param pm)
|
|
{
|
|
int c;
|
|
|
|
unambig_data(&c, NULL, NULL);
|
|
|
|
return c;
|
|
}
|
|
|
|
/**/
|
|
static char *
|
|
get_unambig_pos(Param pm)
|
|
{
|
|
char *p;
|
|
|
|
unambig_data(NULL, &p, NULL);
|
|
|
|
return p;
|
|
}
|
|
|
|
/**/
|
|
static char *
|
|
get_insert_pos(Param pm)
|
|
{
|
|
char *p;
|
|
|
|
unambig_data(NULL, NULL, &p);
|
|
|
|
return p;
|
|
}
|
|
|
|
/**/
|
|
static void
|
|
compunsetfn(Param pm, int exp)
|
|
{
|
|
if (exp) {
|
|
if (pm->u.data) {
|
|
if (PM_TYPE(pm->flags) == PM_SCALAR) {
|
|
zsfree(*((char **) pm->u.data));
|
|
*((char **) pm->u.data) = ztrdup("");
|
|
} else if (PM_TYPE(pm->flags) == PM_ARRAY) {
|
|
freearray(*((char ***) pm->u.data));
|
|
*((char ***) pm->u.data) = zcalloc(sizeof(char *));
|
|
} else if (PM_TYPE(pm->flags) == PM_HASHED) {
|
|
deleteparamtable(pm->u.hash);
|
|
pm->u.hash = NULL;
|
|
}
|
|
}
|
|
} else if (PM_TYPE(pm->flags) == PM_HASHED) {
|
|
Param *p;
|
|
int i;
|
|
|
|
deletehashtable(pm->u.hash);
|
|
pm->u.hash = NULL;
|
|
|
|
for (p = compkpms, i = CP_KEYPARAMS; i--; p++)
|
|
*p = NULL;
|
|
}
|
|
if (!exp) {
|
|
Param *p;
|
|
int i;
|
|
|
|
for (p = comprpms, i = CP_REALPARAMS; i; p++, i--)
|
|
if (*p == pm) {
|
|
*p = NULL;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
/**/
|
|
void
|
|
comp_setunset(int rset, int runset, int kset, int kunset)
|
|
{
|
|
Param *p;
|
|
|
|
if (comprpms && (rset >= 0 || runset >= 0)) {
|
|
for (p = comprpms; rset || runset; rset >>= 1, runset >>= 1, p++) {
|
|
if (*p) {
|
|
if (rset & 1)
|
|
(*p)->flags &= ~PM_UNSET;
|
|
if (runset & 1)
|
|
(*p)->flags |= PM_UNSET;
|
|
}
|
|
}
|
|
}
|
|
if (compkpms && (kset >= 0 || kunset >= 0)) {
|
|
for (p = compkpms; kset || kunset; kset >>= 1, kunset >>= 1, p++) {
|
|
if (*p) {
|
|
if (kset & 1)
|
|
(*p)->flags &= ~PM_UNSET;
|
|
if (kunset & 1)
|
|
(*p)->flags |= PM_UNSET;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
comp_wrapper(Eprog prog, FuncWrap w, char *name)
|
|
{
|
|
if (incompfunc != 1)
|
|
return 1;
|
|
else {
|
|
char *orest, *opre, *osuf, *oipre, *oisuf, **owords, **oredirs;
|
|
char *oqipre, *oqisuf, *oq, *oqi, *oqs, *oaq;
|
|
zlong ocur;
|
|
unsigned int runset = 0, kunset = 0, m, sm;
|
|
Param *pp;
|
|
|
|
m = CP_WORDS | CP_REDIRS | CP_CURRENT | CP_PREFIX | CP_SUFFIX |
|
|
CP_IPREFIX | CP_ISUFFIX | CP_QIPREFIX | CP_QISUFFIX;
|
|
for (pp = comprpms, sm = 1; m; pp++, m >>= 1, sm <<= 1) {
|
|
if ((m & 1) && ((*pp)->flags & PM_UNSET))
|
|
runset |= sm;
|
|
}
|
|
if (compkpms[CPN_RESTORE]->flags & PM_UNSET)
|
|
kunset = CP_RESTORE;
|
|
orest = comprestore;
|
|
comprestore = ztrdup("auto");
|
|
ocur = compcurrent;
|
|
opre = ztrdup(compprefix);
|
|
osuf = ztrdup(compsuffix);
|
|
oipre = ztrdup(compiprefix);
|
|
oisuf = ztrdup(compisuffix);
|
|
oqipre = ztrdup(compqiprefix);
|
|
oqisuf = ztrdup(compqisuffix);
|
|
oq = ztrdup(compquote);
|
|
oqi = ztrdup(compquoting);
|
|
oqs = ztrdup(compqstack);
|
|
oaq = ztrdup(autoq);
|
|
owords = zarrdup(compwords);
|
|
oredirs = zarrdup(compredirs);
|
|
|
|
runshfunc(prog, w, name);
|
|
|
|
if (comprestore && !strcmp(comprestore, "auto")) {
|
|
compcurrent = ocur;
|
|
zsfree(compprefix);
|
|
compprefix = opre;
|
|
zsfree(compsuffix);
|
|
compsuffix = osuf;
|
|
zsfree(compiprefix);
|
|
compiprefix = oipre;
|
|
zsfree(compisuffix);
|
|
compisuffix = oisuf;
|
|
zsfree(compqiprefix);
|
|
compqiprefix = oqipre;
|
|
zsfree(compqisuffix);
|
|
compqisuffix = oqisuf;
|
|
zsfree(compquote);
|
|
compquote = oq;
|
|
zsfree(compquoting);
|
|
compquoting = oqi;
|
|
zsfree(compqstack);
|
|
compqstack = oqs;
|
|
zsfree(autoq);
|
|
autoq = oaq;
|
|
freearray(compwords);
|
|
freearray(compredirs);
|
|
compwords = owords;
|
|
compredirs = oredirs;
|
|
comp_setunset(CP_COMPSTATE |
|
|
(~runset & (CP_WORDS | CP_REDIRS |
|
|
CP_CURRENT | CP_PREFIX |
|
|
CP_SUFFIX | CP_IPREFIX | CP_ISUFFIX |
|
|
CP_QIPREFIX | CP_QISUFFIX)),
|
|
(runset & CP_ALLREALS),
|
|
(~kunset & CP_RESTORE), (kunset & CP_ALLKEYS));
|
|
} else {
|
|
comp_setunset(CP_COMPSTATE, 0, (~kunset & CP_RESTORE),
|
|
(kunset & CP_RESTORE));
|
|
zsfree(opre);
|
|
zsfree(osuf);
|
|
zsfree(oipre);
|
|
zsfree(oisuf);
|
|
zsfree(oqipre);
|
|
zsfree(oqisuf);
|
|
zsfree(oq);
|
|
zsfree(oqi);
|
|
zsfree(oqs);
|
|
zsfree(oaq);
|
|
freearray(owords);
|
|
freearray(oredirs);
|
|
}
|
|
zsfree(comprestore);
|
|
comprestore = orest;
|
|
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
comp_check(void)
|
|
{
|
|
if (incompfunc != 1) {
|
|
zerr("condition can only be used in completion function", NULL, 0);
|
|
return 0;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
cond_psfix(char **a, int id)
|
|
{
|
|
if (comp_check()) {
|
|
if (a[1])
|
|
return do_comp_vars(id, cond_val(a, 0), cond_str(a, 1, 1),
|
|
0, NULL, 0);
|
|
else
|
|
return do_comp_vars(id, -1, cond_str(a, 0, 1), 0, NULL, 0);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
static int
|
|
cond_range(char **a, int id)
|
|
{
|
|
return do_comp_vars(CVT_RANGEPAT, 0, cond_str(a, 0, 1), 0,
|
|
(id ? cond_str(a, 1, 1) : NULL), 0);
|
|
}
|
|
|
|
static struct builtin bintab[] = {
|
|
BUILTIN("compadd", 0, bin_compadd, 0, -1, 0, NULL, NULL),
|
|
BUILTIN("compset", 0, bin_compset, 1, 3, 0, NULL, NULL),
|
|
};
|
|
|
|
static struct conddef cotab[] = {
|
|
CONDDEF("prefix", 0, cond_psfix, 1, 2, CVT_PREPAT),
|
|
CONDDEF("suffix", 0, cond_psfix, 1, 2, CVT_SUFPAT),
|
|
CONDDEF("between", 0, cond_range, 2, 2, 1),
|
|
CONDDEF("after", 0, cond_range, 1, 1, 0),
|
|
};
|
|
|
|
static struct funcwrap wrapper[] = {
|
|
WRAPDEF(comp_wrapper),
|
|
};
|
|
|
|
/* The order of the entries in this table has to match the *HOOK
|
|
* macros in comp.h */
|
|
|
|
/**/
|
|
struct hookdef comphooks[] = {
|
|
HOOKDEF("insert_match", NULL, HOOKF_ALL),
|
|
HOOKDEF("menu_start", NULL, HOOKF_ALL),
|
|
HOOKDEF("compctl_make", NULL, 0),
|
|
HOOKDEF("compctl_cleanup", NULL, 0),
|
|
HOOKDEF("comp_list_matches", ilistmatches, 0),
|
|
};
|
|
|
|
/**/
|
|
int
|
|
setup_(Module m)
|
|
{
|
|
hasperm = 0;
|
|
|
|
comprpms = compkpms = NULL;
|
|
compwords = compredirs = NULL;
|
|
compprefix = compsuffix = compiprefix = compisuffix =
|
|
compqiprefix = compqisuffix =
|
|
compcontext = compparameter = compredirect = compquote =
|
|
compquoting = comprestore = complist = compinsert =
|
|
compexact = compexactstr = comppatmatch = comppatinsert =
|
|
complastprompt = comptoend = compoldlist = compoldins =
|
|
compvared = compqstack = NULL;
|
|
complastprefix = ztrdup("");
|
|
complastsuffix = ztrdup("");
|
|
complistmax = 0;
|
|
hascompmod = 1;
|
|
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
int
|
|
boot_(Module m)
|
|
{
|
|
addhookfunc("complete", (Hookfn) do_completion);
|
|
addhookfunc("before_complete", (Hookfn) before_complete);
|
|
addhookfunc("after_complete", (Hookfn) after_complete);
|
|
addhookfunc("accept_completion", (Hookfn) accept_last);
|
|
addhookfunc("reverse_menu", (Hookfn) reverse_menu);
|
|
addhookfunc("list_matches", (Hookfn) list_matches);
|
|
addhookfunc("invalidate_list", (Hookfn) invalidate_list);
|
|
addhookdefs(m->nam, comphooks, sizeof(comphooks)/sizeof(*comphooks));
|
|
if (!(addbuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab)) |
|
|
addconddefs(m->nam, cotab, sizeof(cotab)/sizeof(*cotab)) |
|
|
!addwrapper(m, wrapper)))
|
|
return 1;
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
int
|
|
cleanup_(Module m)
|
|
{
|
|
deletehookfunc("complete", (Hookfn) do_completion);
|
|
deletehookfunc("before_complete", (Hookfn) before_complete);
|
|
deletehookfunc("after_complete", (Hookfn) after_complete);
|
|
deletehookfunc("accept_completion", (Hookfn) accept_last);
|
|
deletehookfunc("reverse_menu", (Hookfn) reverse_menu);
|
|
deletehookfunc("list_matches", (Hookfn) list_matches);
|
|
deletehookfunc("invalidate_list", (Hookfn) invalidate_list);
|
|
deletehookdefs(m->nam, comphooks, sizeof(comphooks)/sizeof(*comphooks));
|
|
deletebuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab));
|
|
deleteconddefs(m->nam, cotab, sizeof(cotab)/sizeof(*cotab));
|
|
deletewrapper(m, wrapper);
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
int
|
|
finish_(Module m)
|
|
{
|
|
if (compwords)
|
|
freearray(compwords);
|
|
if (compredirs)
|
|
freearray(compredirs);
|
|
zsfree(compprefix);
|
|
zsfree(compsuffix);
|
|
zsfree(complastprefix);
|
|
zsfree(complastsuffix);
|
|
zsfree(compiprefix);
|
|
zsfree(compisuffix);
|
|
zsfree(compqiprefix);
|
|
zsfree(compqisuffix);
|
|
zsfree(compcontext);
|
|
zsfree(compparameter);
|
|
zsfree(compredirect);
|
|
zsfree(compquote);
|
|
zsfree(compqstack);
|
|
zsfree(compquoting);
|
|
zsfree(comprestore);
|
|
zsfree(complist);
|
|
zsfree(compinsert);
|
|
zsfree(compexact);
|
|
zsfree(compexactstr);
|
|
zsfree(comppatmatch);
|
|
zsfree(comppatinsert);
|
|
zsfree(complastprompt);
|
|
zsfree(comptoend);
|
|
zsfree(compoldlist);
|
|
zsfree(compoldins);
|
|
zsfree(compvared);
|
|
|
|
hascompmod = 0;
|
|
|
|
return 0;
|
|
}
|