freebsd-dev/contrib/tcsh/tw.init.c

1027 lines
22 KiB
C
Raw Normal View History

/*
* tw.init.c: Handle lists of things to complete
*/
/*-
* Copyright (c) 1980, 1991 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
2002-07-24 16:23:10 +00:00
* 3. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include "sh.h"
#include "tw.h"
#include "ed.h"
#include "tc.h"
#include "sh.proc.h"
#define TW_INCR 128
typedef struct {
Char **list, /* List of command names */
*buff; /* Space holding command names */
2007-03-11 22:33:41 +00:00
size_t nlist, /* Number of items */
nbuff, /* Current space in name buf */
tlist, /* Total space in list */
tbuff; /* Total space in name buf */
} stringlist_t;
static struct varent *tw_vptr = NULL; /* Current shell variable */
static Char **tw_env = NULL; /* Current environment variable */
2007-03-11 22:33:41 +00:00
static const Char *tw_word; /* Current word pointer */
static struct KeyFuncs *tw_bind = NULL; /* List of the bindings */
#ifndef HAVENOLIMIT
static struct limits *tw_limit = NULL; /* List of the resource limits */
#endif /* HAVENOLIMIT */
static int tw_index = 0; /* signal and job index */
static DIR *tw_dir_fd = NULL; /* Current directory descriptor */
static int tw_cmd_got = 0; /* What we need to do */
static stringlist_t tw_cmd = { NULL, NULL, 0, 0, 0, 0 };
static stringlist_t tw_item = { NULL, NULL, 0, 0, 0, 0 };
#define TW_FL_CMD 0x01
#define TW_FL_ALIAS 0x02
#define TW_FL_BUILTIN 0x04
#define TW_FL_SORT 0x08
#define TW_FL_REL 0x10
static struct { /* Current element pointer */
2007-03-11 22:33:41 +00:00
size_t cur; /* Current element number */
Char **pathv; /* Current element in path */
DIR *dfd; /* Current directory descriptor */
} tw_cmd_state;
#define SETDIR(dfd) \
{ \
tw_dir_fd = dfd; \
if (tw_dir_fd != NULL) \
rewinddir(tw_dir_fd); \
}
#define CLRDIR(dfd) \
if (dfd != NULL) { \
2007-03-11 22:33:41 +00:00
pintr_disabled++; \
xclosedir(dfd); \
dfd = NULL; \
2007-03-11 22:33:41 +00:00
disabled_cleanup(&pintr_disabled); \
}
2007-03-11 22:33:41 +00:00
static Char *tw_str_add (stringlist_t *, size_t);
static void tw_str_free (stringlist_t *);
static int tw_dir_next (struct Strbuf *, DIR *);
static void tw_cmd_add (const Char *name);
static void tw_cmd_cmd (void);
static void tw_cmd_builtin (void);
static void tw_cmd_alias (void);
static void tw_cmd_sort (void);
static void tw_vptr_start (struct varent *);
/* tw_str_add():
* Add an item to the string list
*/
static Char *
2007-03-11 22:33:41 +00:00
tw_str_add(stringlist_t *sl, size_t len)
{
Char *ptr;
if (sl->tlist <= sl->nlist) {
2007-03-11 22:33:41 +00:00
pintr_disabled++;
sl->tlist += TW_INCR;
2007-03-11 22:33:41 +00:00
sl->list = xrealloc(sl->list, sl->tlist * sizeof(Char *));
disabled_cleanup(&pintr_disabled);
}
if (sl->tbuff <= sl->nbuff + len) {
2007-03-11 22:33:41 +00:00
size_t i;
2007-03-11 22:33:41 +00:00
ptr = sl->buff;
pintr_disabled++;
sl->tbuff += TW_INCR + len;
2007-03-11 22:33:41 +00:00
sl->buff = xrealloc(sl->buff, sl->tbuff * sizeof(Char));
/* Re-thread the new pointer list, if changed */
if (ptr != NULL && ptr != sl->buff) {
for (i = 0; i < sl->nlist; i++)
sl->list[i] = sl->buff + (sl->list[i] - ptr);
}
2007-03-11 22:33:41 +00:00
disabled_cleanup(&pintr_disabled);
}
ptr = sl->list[sl->nlist++] = &sl->buff[sl->nbuff];
sl->nbuff += len;
return ptr;
} /* tw_str_add */
/* tw_str_free():
* Free a stringlist
*/
static void
2007-03-11 22:33:41 +00:00
tw_str_free(stringlist_t *sl)
{
2007-03-11 22:33:41 +00:00
pintr_disabled++;
if (sl->list) {
2007-03-11 22:33:41 +00:00
xfree(sl->list);
sl->list = NULL;
sl->tlist = sl->nlist = 0;
}
if (sl->buff) {
2007-03-11 22:33:41 +00:00
xfree(sl->buff);
sl->buff = NULL;
sl->tbuff = sl->nbuff = 0;
}
2007-03-11 22:33:41 +00:00
disabled_cleanup(&pintr_disabled);
} /* end tw_str_free */
2007-03-11 22:33:41 +00:00
static int
tw_dir_next(struct Strbuf *res, DIR *dfd)
{
2005-04-24 19:41:08 +00:00
struct dirent *dirp;
if (dfd == NULL)
2007-03-11 22:33:41 +00:00
return 0;
if ((dirp = readdir(dfd)) != NULL) {
2007-03-11 22:33:41 +00:00
Strbuf_append(res, str2short(dirp->d_name));
return 1;
}
2007-03-11 22:33:41 +00:00
return 0;
} /* end tw_dir_next */
/* tw_cmd_add():
* Add the name to the command list
*/
static void
2007-03-11 22:33:41 +00:00
tw_cmd_add(const Char *name)
{
2007-03-11 22:33:41 +00:00
size_t len;
2007-03-11 22:33:41 +00:00
len = Strlen(name) + 2;
(void) Strcpy(tw_str_add(&tw_cmd, len), name);
} /* end tw_cmd_add */
/* tw_cmd_free():
* Free the command list
*/
void
2007-03-11 22:33:41 +00:00
tw_cmd_free(void)
{
CLRDIR(tw_dir_fd)
tw_str_free(&tw_cmd);
tw_cmd_got = 0;
} /* end tw_cmd_free */
/* tw_cmd_cmd():
* Add system commands to the command list
*/
static void
2007-03-11 22:33:41 +00:00
tw_cmd_cmd(void)
{
2005-04-24 19:41:08 +00:00
DIR *dirp;
struct dirent *dp;
Char *dir = NULL, *name;
Char **pv;
struct varent *v = adrof(STRpath);
struct varent *recexec = adrof(STRrecognize_only_executables);
2007-03-11 22:33:41 +00:00
size_t len;
2002-07-24 16:23:10 +00:00
if (v == NULL || v->vec == NULL) /* if no path */
return;
for (pv = v->vec; *pv; pv++) {
if (pv[0][0] != '/') {
tw_cmd_got |= TW_FL_REL;
continue;
}
if ((dirp = opendir(short2str(*pv))) == NULL)
continue;
2007-03-11 22:33:41 +00:00
cleanup_push(dirp, opendir_cleanup);
if (recexec) {
dir = Strspl(*pv, STRslash);
2007-03-11 22:33:41 +00:00
cleanup_push(dir, xfree);
}
while ((dp = readdir(dirp)) != NULL) {
#if defined(_UWIN) || defined(__CYGWIN__)
/* Turn foo.{exe,com,bat} into foo since UWIN's readdir returns
* the file with the .exe, .com, .bat extension
2012-02-20 00:53:59 +00:00
*
* Same for Cygwin, but only for .exe and .com extension.
*/
2007-03-11 22:33:41 +00:00
len = strlen(dp->d_name);
if (len > 4 && (strcmp(&dp->d_name[len - 4], ".exe") == 0 ||
2012-02-20 00:53:59 +00:00
#ifndef __CYGWIN__
2007-03-11 22:33:41 +00:00
strcmp(&dp->d_name[len - 4], ".bat") == 0 ||
2012-02-20 00:53:59 +00:00
#endif /* !__CYGWIN__ */
2007-03-11 22:33:41 +00:00
strcmp(&dp->d_name[len - 4], ".com") == 0))
dp->d_name[len - 4] = '\0';
#endif /* _UWIN || __CYGWIN__ */
/* the call to executable() may make this a bit slow */
name = str2short(dp->d_name);
if (dp->d_ino == 0 || (recexec && !executable(dir, name, 0)))
continue;
2007-03-11 22:33:41 +00:00
len = Strlen(name);
if (name[0] == '#' || /* emacs temp files */
name[0] == '.' || /* .files */
2007-03-11 22:33:41 +00:00
name[len - 1] == '~' || /* emacs backups */
name[len - 1] == '%') /* textedit backups */
continue; /* Ignore! */
tw_cmd_add(name);
}
2007-03-11 22:33:41 +00:00
cleanup_until(dirp);
}
} /* end tw_cmd_cmd */
/* tw_cmd_builtin():
* Add builtins to the command list
*/
static void
2007-03-11 22:33:41 +00:00
tw_cmd_builtin(void)
{
2007-03-11 22:33:41 +00:00
const struct biltins *bptr;
for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++)
if (bptr->bname)
tw_cmd_add(str2short(bptr->bname));
#ifdef WINNT_NATIVE
for (bptr = nt_bfunc; bptr < &nt_bfunc[nt_nbfunc]; bptr++)
if (bptr->bname)
tw_cmd_add(str2short(bptr->bname));
#endif /* WINNT_NATIVE*/
} /* end tw_cmd_builtin */
/* tw_cmd_alias():
* Add aliases to the command list
*/
static void
2007-03-11 22:33:41 +00:00
tw_cmd_alias(void)
{
2005-04-24 19:41:08 +00:00
struct varent *p;
struct varent *c;
p = &aliases;
for (;;) {
while (p->v_left)
p = p->v_left;
x:
if (p->v_parent == 0) /* is it the header? */
return;
if (p->v_name)
tw_cmd_add(p->v_name);
if (p->v_right) {
p = p->v_right;
continue;
}
do {
c = p;
p = p->v_parent;
} while (p->v_right == c);
goto x;
}
} /* end tw_cmd_alias */
/* tw_cmd_sort():
* Sort the command list removing duplicate elements
*/
static void
2007-03-11 22:33:41 +00:00
tw_cmd_sort(void)
{
2007-03-11 22:33:41 +00:00
size_t fwd, i;
2007-03-11 22:33:41 +00:00
pintr_disabled++;
/* sort the list. */
2007-03-11 22:33:41 +00:00
qsort(tw_cmd.list, tw_cmd.nlist, sizeof(Char *), fcompare);
/* get rid of multiple entries */
2007-03-11 22:33:41 +00:00
for (i = 0, fwd = 0; i + 1 < tw_cmd.nlist; i++) {
if (Strcmp(tw_cmd.list[i], tw_cmd.list[i + 1]) == 0) /* garbage */
fwd++; /* increase the forward ref. count */
else if (fwd)
tw_cmd.list[i - fwd] = tw_cmd.list[i];
}
/* Fix fencepost error -- Theodore Ts'o <tytso@athena.mit.edu> */
if (fwd)
tw_cmd.list[i - fwd] = tw_cmd.list[i];
tw_cmd.nlist -= fwd;
2007-03-11 22:33:41 +00:00
disabled_cleanup(&pintr_disabled);
} /* end tw_cmd_sort */
/* tw_cmd_start():
* Get the command list and sort it, if not done yet.
* Reset the current pointer to the beginning of the command list
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_cmd_start(DIR *dfd, const Char *pat)
{
static Char *defpath[] = { STRNULL, 0 };
USE(pat);
SETDIR(dfd)
if ((tw_cmd_got & TW_FL_CMD) == 0) {
tw_cmd_free();
tw_cmd_cmd();
tw_cmd_got |= TW_FL_CMD;
}
if ((tw_cmd_got & TW_FL_ALIAS) == 0) {
tw_cmd_alias();
tw_cmd_got &= ~TW_FL_SORT;
tw_cmd_got |= TW_FL_ALIAS;
}
if ((tw_cmd_got & TW_FL_BUILTIN) == 0) {
tw_cmd_builtin();
tw_cmd_got &= ~TW_FL_SORT;
tw_cmd_got |= TW_FL_BUILTIN;
}
if ((tw_cmd_got & TW_FL_SORT) == 0) {
tw_cmd_sort();
tw_cmd_got |= TW_FL_SORT;
}
tw_cmd_state.cur = 0;
CLRDIR(tw_cmd_state.dfd)
if (tw_cmd_got & TW_FL_REL) {
struct varent *vp = adrof(STRpath);
if (vp && vp->vec)
tw_cmd_state.pathv = vp->vec;
else
tw_cmd_state.pathv = defpath;
}
else
tw_cmd_state.pathv = defpath;
} /* tw_cmd_start */
/* tw_cmd_next():
* Return the next element in the command list or
* Look for commands in the relative path components
*/
2007-03-11 22:33:41 +00:00
int
tw_cmd_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
int ret = 0;
Char *ptr;
if (tw_cmd_state.cur < tw_cmd.nlist) {
*flags = TW_DIR_OK;
2007-03-11 22:33:41 +00:00
Strbuf_append(res, tw_cmd.list[tw_cmd_state.cur++]);
return 1;
}
/*
* We need to process relatives in the path.
*/
2007-03-11 22:33:41 +00:00
while ((tw_cmd_state.dfd == NULL ||
2012-02-20 00:53:59 +00:00
(res->len = 0, ret = tw_dir_next(res, tw_cmd_state.dfd)) == 0) &&
2007-03-11 22:33:41 +00:00
*tw_cmd_state.pathv != NULL) {
CLRDIR(tw_cmd_state.dfd)
while (*tw_cmd_state.pathv && tw_cmd_state.pathv[0][0] == '/')
tw_cmd_state.pathv++;
if ((ptr = *tw_cmd_state.pathv) != 0) {
2012-02-20 00:53:59 +00:00
res->len = 0;
2007-03-11 22:33:41 +00:00
Strbuf_append(res, ptr);
ret = 1;
/*
* We complete directories only on '.' should that
* be changed?
*/
2007-03-11 22:33:41 +00:00
dir->len = 0;
if (ptr[0] == '\0' || (ptr[0] == '.' && ptr[1] == '\0')) {
tw_cmd_state.dfd = opendir(".");
2007-03-11 22:33:41 +00:00
*flags = TW_DIR_OK | TW_EXEC_CHK;
}
else {
2007-03-11 22:33:41 +00:00
Strbuf_append(dir, *tw_cmd_state.pathv);
Strbuf_append1(dir, '/');
tw_cmd_state.dfd = opendir(short2str(*tw_cmd_state.pathv));
*flags = TW_EXEC_CHK;
}
2007-03-11 22:33:41 +00:00
Strbuf_terminate(dir);
tw_cmd_state.pathv++;
}
}
2007-03-11 22:33:41 +00:00
return ret;
} /* end tw_cmd_next */
/* tw_vptr_start():
* Find the first variable in the variable list
*/
static void
2007-03-11 22:33:41 +00:00
tw_vptr_start(struct varent *c)
{
tw_vptr = c; /* start at beginning of variable list */
for (;;) {
while (tw_vptr->v_left)
tw_vptr = tw_vptr->v_left;
x:
if (tw_vptr->v_parent == 0) { /* is it the header? */
tw_vptr = NULL;
return;
}
if (tw_vptr->v_name)
return; /* found first one */
if (tw_vptr->v_right) {
tw_vptr = tw_vptr->v_right;
continue;
}
do {
c = tw_vptr;
tw_vptr = tw_vptr->v_parent;
} while (tw_vptr->v_right == c);
goto x;
}
} /* end tw_shvar_start */
/* tw_shvar_next():
* Return the next shell variable
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_shvar_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2005-04-24 19:41:08 +00:00
struct varent *p;
struct varent *c;
USE(flags);
USE(dir);
if ((p = tw_vptr) == NULL)
2007-03-11 22:33:41 +00:00
return 0; /* just in case */
2007-03-11 22:33:41 +00:00
Strbuf_append(res, p->v_name); /* we know that this name is here now */
/* now find the next one */
for (;;) {
if (p->v_right) { /* if we can go right */
p = p->v_right;
while (p->v_left)
p = p->v_left;
}
else { /* else go up */
do {
c = p;
p = p->v_parent;
} while (p->v_right == c);
}
if (p->v_parent == 0) { /* is it the header? */
tw_vptr = NULL;
2007-03-11 22:33:41 +00:00
return 1;
}
if (p->v_name) {
tw_vptr = p; /* save state for the next call */
2007-03-11 22:33:41 +00:00
return 1;
}
}
} /* end tw_shvar_next */
/* tw_envvar_next():
* Return the next environment variable
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_envvar_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
const Char *ps;
USE(flags);
USE(dir);
if (tw_env == NULL || *tw_env == NULL)
2007-03-11 22:33:41 +00:00
return 0;
for (ps = *tw_env; *ps && *ps != '='; ps++)
continue;
2007-03-11 22:33:41 +00:00
Strbuf_appendn(res, *tw_env, ps - *tw_env);
tw_env++;
2007-03-11 22:33:41 +00:00
return 1;
} /* end tw_envvar_next */
/* tw_var_start():
* Begin the list of the shell and environment variables
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_var_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
tw_vptr_start(&shvhed);
tw_env = STR_environ;
} /* end tw_var_start */
/* tw_alias_start():
* Begin the list of the shell aliases
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_alias_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
tw_vptr_start(&aliases);
tw_env = NULL;
} /* tw_alias_start */
/* tw_complete_start():
* Begin the list of completions
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_complete_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
tw_vptr_start(&completions);
tw_env = NULL;
} /* end tw_complete_start */
/* tw_var_next():
* Return the next shell or environment variable
*/
2007-03-11 22:33:41 +00:00
int
tw_var_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
int ret = 0;
if (tw_vptr)
2007-03-11 22:33:41 +00:00
ret = tw_shvar_next(res, dir, flags);
if (ret == 0 && tw_env)
ret = tw_envvar_next(res, dir, flags);
return ret;
} /* end tw_var_next */
/* tw_logname_start():
* Initialize lognames to the beginning of the list
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_logname_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
2005-04-24 19:41:08 +00:00
#ifdef HAVE_GETPWENT
(void) setpwent(); /* Open passwd file */
2005-04-24 19:41:08 +00:00
#endif
} /* end tw_logname_start */
/* tw_logname_next():
* Return the next entry from the passwd file
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_logname_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
struct passwd *pw;
2007-03-11 22:33:41 +00:00
/*
* We don't want to get interrupted inside getpwent()
* because the yellow pages code is not interruptible,
* and if we call endpwent() immediatetely after
* (in pintr()) we may be freeing an invalid pointer
*/
USE(flags);
USE(dir);
2007-03-11 22:33:41 +00:00
pintr_disabled++;
2005-04-24 19:41:08 +00:00
#ifdef HAVE_GETPWENT
pw = getpwent();
#else
pw = NULL;
2005-04-24 19:41:08 +00:00
#endif
2007-03-11 22:33:41 +00:00
disabled_cleanup(&pintr_disabled);
if (pw == NULL) {
#ifdef YPBUGS
fix_yp_bugs();
#endif
2007-03-11 22:33:41 +00:00
return 0;
}
2007-03-11 22:33:41 +00:00
Strbuf_append(res, str2short(pw->pw_name));
return 1;
} /* end tw_logname_next */
/* tw_logname_end():
* Close the passwd file to finish the logname list
*/
void
2007-03-11 22:33:41 +00:00
tw_logname_end(void)
{
#ifdef YPBUGS
fix_yp_bugs();
#endif
2005-04-24 19:41:08 +00:00
#ifdef HAVE_GETPWENT
(void) endpwent();
2005-04-24 19:41:08 +00:00
#endif
} /* end tw_logname_end */
/* tw_grpname_start():
* Initialize grpnames to the beginning of the list
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_grpname_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
2012-02-20 00:53:59 +00:00
#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) && !defined (__ANDROID__)
(void) setgrent(); /* Open group file */
#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT_NATIVE */
} /* end tw_grpname_start */
/* tw_grpname_next():
* Return the next entry from the group file
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_grpname_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
struct group *gr;
2007-03-11 22:33:41 +00:00
/*
* We don't want to get interrupted inside getgrent()
* because the yellow pages code is not interruptible,
* and if we call endgrent() immediatetely after
* (in pintr()) we may be freeing an invalid pointer
*/
USE(flags);
USE(dir);
2007-03-11 22:33:41 +00:00
pintr_disabled++;
2012-02-20 00:53:59 +00:00
#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) && !defined(__ANDROID__)
2007-03-11 22:33:41 +00:00
errno = 0;
while ((gr = getgrent()) == NULL && errno == EINTR) {
handle_pending_signals();
errno = 0;
}
#else /* _VMS_POSIX || _OSD_POSIX || WINNT_NATIVE */
gr = NULL;
#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT_NATIVE */
2007-03-11 22:33:41 +00:00
disabled_cleanup(&pintr_disabled);
if (gr == NULL) {
#ifdef YPBUGS
fix_yp_bugs();
#endif
2007-03-11 22:33:41 +00:00
return 0;
}
2007-03-11 22:33:41 +00:00
Strbuf_append(res, str2short(gr->gr_name));
return 1;
} /* end tw_grpname_next */
/* tw_grpname_end():
* Close the group file to finish the groupname list
*/
void
2007-03-11 22:33:41 +00:00
tw_grpname_end(void)
{
#ifdef YPBUGS
fix_yp_bugs();
#endif
2012-02-20 00:53:59 +00:00
#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) && !defined (__ANDROID__)
(void) endgrent();
#endif /* !_VMS_POSIX && !_OSD_POSIX && !WINNT_NATIVE */
} /* end tw_grpname_end */
/* tw_file_start():
* Initialize the directory for the file list
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_file_start(DIR *dfd, const Char *pat)
{
struct varent *vp;
USE(pat);
SETDIR(dfd)
if ((vp = adrof(STRcdpath)) != NULL)
tw_env = vp->vec;
} /* end tw_file_start */
/* tw_file_next():
* Return the next file in the directory
*/
2007-03-11 22:33:41 +00:00
int
tw_file_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
int ret = tw_dir_next(res, tw_dir_fd);
if (ret == 0 && (*flags & TW_DIR_OK) != 0) {
CLRDIR(tw_dir_fd)
while (tw_env && *tw_env)
if ((tw_dir_fd = opendir(short2str(*tw_env))) != NULL)
break;
else
tw_env++;
2007-03-11 22:33:41 +00:00
if (tw_dir_fd) {
2007-03-11 22:33:41 +00:00
dir->len = 0;
Strbuf_append(dir, *tw_env++);
Strbuf_append1(dir, '/');
Strbuf_terminate(dir);
ret = tw_dir_next(res, tw_dir_fd);
}
}
2007-03-11 22:33:41 +00:00
return ret;
} /* end tw_file_next */
/* tw_dir_end():
* Clear directory related lists
*/
void
2007-03-11 22:33:41 +00:00
tw_dir_end(void)
{
CLRDIR(tw_dir_fd)
CLRDIR(tw_cmd_state.dfd)
} /* end tw_dir_end */
/* tw_item_free():
* Free the item list
*/
void
2007-03-11 22:33:41 +00:00
tw_item_free(void)
{
tw_str_free(&tw_item);
} /* end tw_item_free */
/* tw_item_get():
* Return the list of items
*/
Char **
2007-03-11 22:33:41 +00:00
tw_item_get(void)
{
return tw_item.list;
} /* end tw_item_get */
/* tw_item_add():
2007-03-11 22:33:41 +00:00
* Return a new item for a Strbuf_terminate()'d s
*/
2007-03-11 22:33:41 +00:00
void
tw_item_add(const struct Strbuf *s)
{
2007-03-11 22:33:41 +00:00
Char *p;
p = tw_str_add(&tw_item, s->len + 1);
Strcpy(p, s->s);
} /* tw_item_add */
/* tw_item_find():
* Find the string if it exists in the item list
* end return it.
*/
Char *
2007-03-11 22:33:41 +00:00
tw_item_find(Char *str)
{
2007-03-11 22:33:41 +00:00
size_t i;
if (tw_item.list == NULL || str == NULL)
return NULL;
for (i = 0; i < tw_item.nlist; i++)
if (tw_item.list[i] != NULL && Strcmp(tw_item.list[i], str) == 0)
return tw_item.list[i];
return NULL;
} /* end tw_item_find */
/* tw_vl_start():
* Initialize a variable list
*/
void
2007-03-11 22:33:41 +00:00
tw_vl_start(DIR *dfd, const Char *pat)
{
SETDIR(dfd)
if ((tw_vptr = adrof(pat)) != NULL) {
tw_env = tw_vptr->vec;
tw_vptr = NULL;
}
else
tw_env = NULL;
} /* end tw_vl_start */
/*
* Initialize a word list
*/
void
2007-03-11 22:33:41 +00:00
tw_wl_start(DIR *dfd, const Char *pat)
{
SETDIR(dfd);
tw_word = pat;
} /* end tw_wl_start */
/*
* Return the next word from the word list
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_wl_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
const Char *p;
USE(dir);
USE(flags);
if (tw_word == NULL || tw_word[0] == '\0')
2007-03-11 22:33:41 +00:00
return 0;
while (*tw_word && Isspace(*tw_word)) tw_word++;
2007-03-11 22:33:41 +00:00
for (p = tw_word; *tw_word && !Isspace(*tw_word); tw_word++)
continue;
2007-03-11 22:33:41 +00:00
if (tw_word == p)
return 0;
Strbuf_appendn(res, p, tw_word - p);
if (*tw_word)
2007-03-11 22:33:41 +00:00
tw_word++;
return 1;
} /* end tw_wl_next */
/* tw_bind_start():
* Begin the list of the shell bindings
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_bind_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
tw_bind = FuncNames;
} /* end tw_bind_start */
/* tw_bind_next():
* Begin the list of the shell bindings
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_bind_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
USE(dir);
USE(flags);
if (tw_bind && tw_bind->name) {
2007-03-11 22:33:41 +00:00
const char *ptr;
for (ptr = tw_bind->name; *ptr != '\0'; ptr++)
Strbuf_append1(res, *ptr);
tw_bind++;
2007-03-11 22:33:41 +00:00
return 1;
}
2007-03-11 22:33:41 +00:00
return 0;
} /* end tw_bind_next */
/* tw_limit_start():
* Begin the list of the shell limitings
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_limit_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
#ifndef HAVENOLIMIT
tw_limit = limits;
#endif /* ! HAVENOLIMIT */
} /* end tw_limit_start */
/* tw_limit_next():
* Begin the list of the shell limitings
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_limit_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
USE(dir);
USE(flags);
#ifndef HAVENOLIMIT
if (tw_limit && tw_limit->limname) {
2007-03-11 22:33:41 +00:00
const char *ptr;
for (ptr = tw_limit->limname; *ptr != '\0'; ptr++)
Strbuf_append1(res, *ptr);
tw_limit++;
2007-03-11 22:33:41 +00:00
return 1;
}
#endif /* ! HAVENOLIMIT */
2007-03-11 22:33:41 +00:00
return 0;
} /* end tw_limit_next */
/* tw_sig_start():
* Begin the list of the shell sigings
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_sig_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
tw_index = 0;
} /* end tw_sig_start */
/* tw_sig_next():
* Begin the list of the shell sigings
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_sig_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
2007-03-11 22:33:41 +00:00
USE(dir);
USE(flags);
for (;tw_index < nsig; tw_index++) {
2007-03-11 22:33:41 +00:00
const char *ptr;
if (mesg[tw_index].iname == NULL)
continue;
2007-03-11 22:33:41 +00:00
for (ptr = mesg[tw_index].iname; *ptr != '\0'; ptr++)
Strbuf_append1(res, *ptr);
tw_index++;
2007-03-11 22:33:41 +00:00
return 1;
}
2007-03-11 22:33:41 +00:00
return 0;
} /* end tw_sig_next */
/* tw_job_start():
* Begin the list of the shell jobings
*/
/*ARGSUSED*/
void
2007-03-11 22:33:41 +00:00
tw_job_start(DIR *dfd, const Char *pat)
{
USE(pat);
SETDIR(dfd)
tw_index = 1;
} /* end tw_job_start */
/* tw_job_next():
* Begin the list of the shell jobings
*/
/*ARGSUSED*/
2007-03-11 22:33:41 +00:00
int
tw_job_next(struct Strbuf *res, struct Strbuf *dir, int *flags)
{
struct process *j;
2007-03-11 22:33:41 +00:00
USE(dir);
USE(flags);
for (;tw_index <= pmaxindex; tw_index++) {
for (j = proclist.p_next; j != NULL; j = j->p_next)
if (j->p_index == tw_index && j->p_procid == j->p_jobid)
break;
if (j == NULL)
continue;
2007-03-11 22:33:41 +00:00
Strbuf_append(res, j->p_command);
tw_index++;
2007-03-11 22:33:41 +00:00
return 1;
}
2007-03-11 22:33:41 +00:00
return 0;
} /* end tw_job_next */