diff options
Diffstat (limited to 'contrib/tcsh/tw.init.c')
| -rw-r--r-- | contrib/tcsh/tw.init.c | 1026 |
1 files changed, 0 insertions, 1026 deletions
diff --git a/contrib/tcsh/tw.init.c b/contrib/tcsh/tw.init.c deleted file mode 100644 index 29f5586..0000000 --- a/contrib/tcsh/tw.init.c +++ /dev/null @@ -1,1026 +0,0 @@ -/* $Header: /p/tcsh/cvsroot/tcsh/tw.init.c,v 3.39 2006/03/02 18:46:45 christos Exp $ */ -/* - * 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. - * 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" - -RCSID("$tcsh: tw.init.c,v 3.39 2006/03/02 18:46:45 christos Exp $") - -#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 */ - 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 */ -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 */ - 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) { \ - pintr_disabled++; \ - xclosedir(dfd); \ - dfd = NULL; \ - disabled_cleanup(&pintr_disabled); \ - } - -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 * -tw_str_add(stringlist_t *sl, size_t len) -{ - Char *ptr; - - if (sl->tlist <= sl->nlist) { - pintr_disabled++; - sl->tlist += TW_INCR; - sl->list = xrealloc(sl->list, sl->tlist * sizeof(Char *)); - disabled_cleanup(&pintr_disabled); - } - if (sl->tbuff <= sl->nbuff + len) { - size_t i; - - ptr = sl->buff; - pintr_disabled++; - sl->tbuff += TW_INCR + len; - sl->buff = xrealloc(sl->buff, sl->tbuff * sizeof(Char)); - /* Re-thread the new pointer list, if changed */ - if (ptr != NULL && ptr != sl->buff) { - intptr_t offs = sl->buff - ptr; - for (i = 0; i < sl->nlist; i++) - sl->list[i] += offs; - } - 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 -tw_str_free(stringlist_t *sl) -{ - pintr_disabled++; - if (sl->list) { - xfree(sl->list); - sl->list = NULL; - sl->tlist = sl->nlist = 0; - } - if (sl->buff) { - xfree(sl->buff); - sl->buff = NULL; - sl->tbuff = sl->nbuff = 0; - } - disabled_cleanup(&pintr_disabled); -} /* end tw_str_free */ - - -static int -tw_dir_next(struct Strbuf *res, DIR *dfd) -{ - struct dirent *dirp; - - if (dfd == NULL) - return 0; - - if ((dirp = readdir(dfd)) != NULL) { - Strbuf_append(res, str2short(dirp->d_name)); - return 1; - } - return 0; -} /* end tw_dir_next */ - - -/* tw_cmd_add(): - * Add the name to the command list - */ -static void -tw_cmd_add(const Char *name) -{ - size_t len; - - 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 -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 -tw_cmd_cmd(void) -{ - DIR *dirp; - struct dirent *dp; - Char *dir = NULL, *name; - Char **pv; - struct varent *v = adrof(STRpath); - struct varent *recexec = adrof(STRrecognize_only_executables); - size_t len; - - - 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; - - cleanup_push(dirp, opendir_cleanup); - if (recexec) { - dir = Strspl(*pv, STRslash); - 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 - */ - len = strlen(dp->d_name); - if (len > 4 && (strcmp(&dp->d_name[len - 4], ".exe") == 0 || - strcmp(&dp->d_name[len - 4], ".bat") == 0 || - 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; - len = Strlen(name); - if (name[0] == '#' || /* emacs temp files */ - name[0] == '.' || /* .files */ - name[len - 1] == '~' || /* emacs backups */ - name[len - 1] == '%') /* textedit backups */ - continue; /* Ignore! */ - tw_cmd_add(name); - } - cleanup_until(dirp); - } -} /* end tw_cmd_cmd */ - - -/* tw_cmd_builtin(): - * Add builtins to the command list - */ -static void -tw_cmd_builtin(void) -{ - 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 -tw_cmd_alias(void) -{ - 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 -tw_cmd_sort(void) -{ - size_t fwd, i; - - pintr_disabled++; - /* sort the list. */ - qsort(tw_cmd.list, tw_cmd.nlist, sizeof(Char *), fcompare); - - /* get rid of multiple entries */ - 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; - 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 -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 - */ -int -tw_cmd_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - int ret = 0; - Char *ptr; - - if (tw_cmd_state.cur < tw_cmd.nlist) { - *flags = TW_DIR_OK; - Strbuf_append(res, tw_cmd.list[tw_cmd_state.cur++]); - return 1; - } - - /* - * We need to process relatives in the path. - */ - while ((tw_cmd_state.dfd == NULL || - (ret = tw_dir_next(res, tw_cmd_state.dfd)) == 0) && - *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) { - Strbuf_append(res, ptr); - ret = 1; - /* - * We complete directories only on '.' should that - * be changed? - */ - dir->len = 0; - if (ptr[0] == '\0' || (ptr[0] == '.' && ptr[1] == '\0')) { - tw_cmd_state.dfd = opendir("."); - *flags = TW_DIR_OK | TW_EXEC_CHK; - } - else { - Strbuf_append(dir, *tw_cmd_state.pathv); - Strbuf_append1(dir, '/'); - tw_cmd_state.dfd = opendir(short2str(*tw_cmd_state.pathv)); - *flags = TW_EXEC_CHK; - } - Strbuf_terminate(dir); - tw_cmd_state.pathv++; - } - } - return ret; -} /* end tw_cmd_next */ - - -/* tw_vptr_start(): - * Find the first variable in the variable list - */ -static void -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*/ -int -tw_shvar_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - struct varent *p; - struct varent *c; - - USE(flags); - USE(dir); - if ((p = tw_vptr) == NULL) - return 0; /* just in case */ - - 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; - return 1; - } - if (p->v_name) { - tw_vptr = p; /* save state for the next call */ - return 1; - } - } -} /* end tw_shvar_next */ - - -/* tw_envvar_next(): - * Return the next environment variable - */ -/*ARGSUSED*/ -int -tw_envvar_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - const Char *ps; - - USE(flags); - USE(dir); - if (tw_env == NULL || *tw_env == NULL) - return 0; - for (ps = *tw_env; *ps && *ps != '='; ps++) - continue; - Strbuf_appendn(res, *tw_env, ps - *tw_env); - tw_env++; - return 1; -} /* end tw_envvar_next */ - - -/* tw_var_start(): - * Begin the list of the shell and environment variables - */ -/*ARGSUSED*/ -void -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 -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 -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 - */ -int -tw_var_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - int ret = 0; - - if (tw_vptr) - 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 -tw_logname_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) -#ifdef HAVE_GETPWENT - (void) setpwent(); /* Open passwd file */ -#endif -} /* end tw_logname_start */ - - -/* tw_logname_next(): - * Return the next entry from the passwd file - */ -/*ARGSUSED*/ -int -tw_logname_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - struct passwd *pw; - - /* - * 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); - pintr_disabled++; -#ifdef HAVE_GETPWENT - pw = getpwent(); -#else - pw = NULL; -#endif - disabled_cleanup(&pintr_disabled); - - if (pw == NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif - return 0; - } - 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 -tw_logname_end(void) -{ -#ifdef YPBUGS - fix_yp_bugs(); -#endif -#ifdef HAVE_GETPWENT - (void) endpwent(); -#endif -} /* end tw_logname_end */ - - -/* tw_grpname_start(): - * Initialize grpnames to the beginning of the list - */ -/*ARGSUSED*/ -void -tw_grpname_start(DIR *dfd, const Char *pat) -{ - USE(pat); - SETDIR(dfd) -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) - (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*/ -int -tw_grpname_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - struct group *gr; - - /* - * 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); - pintr_disabled++; -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) - 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 */ - disabled_cleanup(&pintr_disabled); - - if (gr == NULL) { -#ifdef YPBUGS - fix_yp_bugs(); -#endif - return 0; - } - 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 -tw_grpname_end(void) -{ -#ifdef YPBUGS - fix_yp_bugs(); -#endif -#if !defined(_VMS_POSIX) && !defined(_OSD_POSIX) && !defined(WINNT_NATIVE) - (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 -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 - */ -int -tw_file_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - 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++; - - if (tw_dir_fd) { - dir->len = 0; - Strbuf_append(dir, *tw_env++); - Strbuf_append1(dir, '/'); - Strbuf_terminate(dir); - ret = tw_dir_next(res, tw_dir_fd); - } - } - return ret; -} /* end tw_file_next */ - - -/* tw_dir_end(): - * Clear directory related lists - */ -void -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 -tw_item_free(void) -{ - tw_str_free(&tw_item); -} /* end tw_item_free */ - - -/* tw_item_get(): - * Return the list of items - */ -Char ** -tw_item_get(void) -{ - return tw_item.list; -} /* end tw_item_get */ - - -/* tw_item_add(): - * Return a new item for a Strbuf_terminate()'d s - */ -void -tw_item_add(const struct Strbuf *s) -{ - 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 * -tw_item_find(Char *str) -{ - 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 -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 -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*/ -int -tw_wl_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - const Char *p; - - USE(dir); - USE(flags); - if (tw_word == NULL || tw_word[0] == '\0') - return 0; - - while (*tw_word && Isspace(*tw_word)) tw_word++; - - for (p = tw_word; *tw_word && !Isspace(*tw_word); tw_word++) - continue; - if (tw_word == p) - return 0; - Strbuf_appendn(res, p, tw_word - p); - if (*tw_word) - tw_word++; - return 1; -} /* end tw_wl_next */ - - -/* tw_bind_start(): - * Begin the list of the shell bindings - */ -/*ARGSUSED*/ -void -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*/ -int -tw_bind_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - USE(dir); - USE(flags); - if (tw_bind && tw_bind->name) { - const char *ptr; - - for (ptr = tw_bind->name; *ptr != '\0'; ptr++) - Strbuf_append1(res, *ptr); - tw_bind++; - return 1; - } - return 0; -} /* end tw_bind_next */ - - -/* tw_limit_start(): - * Begin the list of the shell limitings - */ -/*ARGSUSED*/ -void -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*/ -int -tw_limit_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - USE(dir); - USE(flags); -#ifndef HAVENOLIMIT - if (tw_limit && tw_limit->limname) { - const char *ptr; - - for (ptr = tw_limit->limname; *ptr != '\0'; ptr++) - Strbuf_append1(res, *ptr); - tw_limit++; - return 1; - } -#endif /* ! HAVENOLIMIT */ - return 0; -} /* end tw_limit_next */ - - -/* tw_sig_start(): - * Begin the list of the shell sigings - */ -/*ARGSUSED*/ -void -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*/ -int -tw_sig_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - USE(dir); - USE(flags); - for (;tw_index < nsig; tw_index++) { - const char *ptr; - - if (mesg[tw_index].iname == NULL) - continue; - - for (ptr = mesg[tw_index].iname; *ptr != '\0'; ptr++) - Strbuf_append1(res, *ptr); - tw_index++; - return 1; - } - return 0; -} /* end tw_sig_next */ - - -/* tw_job_start(): - * Begin the list of the shell jobings - */ -/*ARGSUSED*/ -void -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*/ -int -tw_job_next(struct Strbuf *res, struct Strbuf *dir, int *flags) -{ - struct process *j; - - 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; - Strbuf_append(res, j->p_command); - tw_index++; - return 1; - } - return 0; -} /* end tw_job_next */ |
