Flatten vendor/tcsh/dist.

1 files changed, 0 insertions, 2325 deletions

diff --git a/contrib/tcsh/tw.parse.c b/contrib/tcsh/tw.parse.c
deleted file mode 100644
index 97cabce..0000000
--- a/contrib/tcsh/tw.parse.c
+++ /dev/null
@@ -1,2325 +0,0 @@
-/* $Header: /p/tcsh/cvsroot/tcsh/tw.parse.c,v 3.123 2007/03/01 21:21:42 corinna Exp $ */
-/*
- * tw.parse.c: Everyone has taken a shot in this futile effort to
- *	       lexically analyze a csh line... Well we cannot good
- *	       a job as good as sh.lex.c; but we try. Amazing that
- *	       it works considering how many hands have touched this code
- */
-/*-
- * 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.parse.c,v 3.123 2007/03/01 21:21:42 corinna Exp $")
-
-#include "tw.h"
-#include "ed.h"
-#include "tc.h"
-
-#include <assert.h>
-
-#ifdef WINNT_NATIVE
-#include "nt.const.h"
-#endif /* WINNT_NATIVE */
-#define EVEN(x) (((x) & 1) != 1)
-
-#define DOT_NONE	0	/* Don't display dot files		*/
-#define DOT_NOT		1	/* Don't display dot or dot-dot		*/
-#define DOT_ALL		2	/* Display all dot files		*/
-
-/*  TW_NONE,	       TW_COMMAND,     TW_VARIABLE,    TW_LOGNAME,	*/
-/*  TW_FILE,	       TW_DIRECTORY,   TW_VARLIST,     TW_USER,		*/
-/*  TW_COMPLETION,     TW_ALIAS,       TW_SHELLVAR,    TW_ENVVAR,	*/
-/*  TW_BINDING,        TW_WORDLIST,    TW_LIMIT,       TW_SIGNAL	*/
-/*  TW_JOB,	       TW_EXPLAIN,     TW_TEXT,	       TW_GRPNAME	*/
-static void (*const tw_start_entry[]) (DIR *, const Char *) = {
-    tw_file_start,     tw_cmd_start,   tw_var_start,   tw_logname_start, 
-    tw_file_start,     tw_file_start,  tw_vl_start,    tw_logname_start, 
-    tw_complete_start, tw_alias_start, tw_var_start,   tw_var_start,     
-    tw_bind_start,     tw_wl_start,    tw_limit_start, tw_sig_start,
-    tw_job_start,      tw_file_start,  tw_file_start,  tw_grpname_start
-};
-
-static int (*const tw_next_entry[]) (struct Strbuf *, struct Strbuf *,
-				     int *) = {
-    tw_file_next,      tw_cmd_next,    tw_var_next,    tw_logname_next,  
-    tw_file_next,      tw_file_next,   tw_var_next,    tw_logname_next,  
-    tw_var_next,       tw_var_next,    tw_shvar_next,  tw_envvar_next,   
-    tw_bind_next,      tw_wl_next,     tw_limit_next,  tw_sig_next,
-    tw_job_next,       tw_file_next,   tw_file_next,   tw_grpname_next
-};
-
-static void (*const tw_end_entry[]) (void) = {
-    tw_dir_end,        tw_dir_end,     tw_dir_end,    tw_logname_end,
-    tw_dir_end,        tw_dir_end,     tw_dir_end,    tw_logname_end, 
-    tw_dir_end,        tw_dir_end,     tw_dir_end,    tw_dir_end,
-    tw_dir_end,        tw_dir_end,     tw_dir_end,    tw_dir_end,
-    tw_dir_end,	       tw_dir_end,     tw_dir_end,    tw_grpname_end
-};
-
-/* #define TDEBUG */
-
-/* Set to TRUE if recexact is set and an exact match is found
- * along with other, longer, matches.
- */
-
-int curchoice = -1;
-
-int match_unique_match = FALSE;
-int non_unique_match = FALSE;
-static int SearchNoDirErr = 0;	/* t_search returns -2 if dir is unreadable */
-
-/* state so if a completion is interrupted, the input line doesn't get
-   nuked */
-int InsideCompletion = 0;
-
-/* do the expand or list on the command line -- SHOULD BE REPLACED */
-
-static	void	 extract_dir_and_name	(const Char *, struct Strbuf *,
-					 Char **);
-static	int	 insert_meta		(const Char *, const Char *,
-					 const Char *, int);
-static	int	 tilde			(struct Strbuf *, Char *);
-static  int      expand_dir		(const Char *, struct Strbuf *, DIR **,
-					 COMMAND);
-static	int	 nostat			(Char *);
-static	Char	 filetype		(Char *, Char *);
-static	int	 t_glob			(Char ***, int);
-static	int	 c_glob			(Char ***);
-static	int	 is_prefix		(Char *, Char *);
-static	int	 is_prefixmatch		(Char *, Char *, int);
-static	int	 is_suffix		(Char *, Char *);
-static	int	 recognize		(struct Strbuf *, const Char *, size_t,
-					 int, int, int);
-static	int	 ignored		(Char *);
-static	int	 isadirectory		(const Char *, const Char *);
-static  int      tw_collect_items	(COMMAND, int, struct Strbuf *,
-					 struct Strbuf *, Char *, const Char *,
-					 int);
-static  int      tw_collect		(COMMAND, int, struct Strbuf *,
-					 struct Strbuf *, Char *, Char *, int,
-					 DIR *);
-static	Char 	 tw_suffix		(int, const Char *, Char *);
-static	void 	 tw_fixword		(int, struct Strbuf *, Char *, Char *);
-static	void	 tw_list_items		(int, int, int);
-static 	void	 add_scroll_tab		(Char *);
-static 	void 	 choose_scroll_tab	(struct Strbuf *, int);
-static	void	 free_scroll_tab	(void);
-static	int	 find_rows		(Char *[], int, int);
-
-#ifdef notdef
-/*
- * If we find a set command, then we break a=b to a= and word becomes
- * b else, we don't break a=b. [don't use that; splits words badly and
- * messes up tw_complete()]
- */
-#define isaset(c, w) ((w)[-1] == '=' && \
-		      ((c)[0] == 's' && (c)[1] == 'e' && (c)[2] == 't' && \
-		       ((c[3] == ' ' || (c)[3] == '\t'))))
-#endif
-
-/* TRUE if character must be quoted */
-#define tricky(w) (cmap(w, _META | _DOL | _QF | _QB | _ESC | _GLOB) && w != '#')
-/* TRUE if double quotes don't protect character */
-#define tricky_dq(w) (cmap(w, _DOL | _QB))
-
-/* tenematch():
- *	Return:
- *		> 1:    No. of items found
- *		= 1:    Exactly one match / spelling corrected
- *		= 0:    No match / spelling was correct
- *		< 0:    Error (incl spelling correction impossible)
- */
-int
-tenematch(Char *inputline, int num_read, COMMAND command)
-{
-    struct Strbuf qline = Strbuf_INIT;
-    Char    qu = 0, *pat = STRNULL;
-    size_t wp, word, wordp, cmd_start, oword = 0, ocmd_start = 0;
-    Char   *str_end, *cp;
-    Char   *word_start;
-    Char   *oword_start = NULL;
-    eChar suf = 0;
-    int     looking;		/* what we are looking for		*/
-    int     search_ret;		/* what search returned for debugging 	*/
-    int     backq = 0;
-
-    str_end = &inputline[num_read];
-    cleanup_push(&qline, Strbuf_cleanup);
-
-    word_start = inputline;
-    word = cmd_start = 0;
-    for (cp = inputline; cp < str_end; cp++) {
-        if (!cmap(qu, _ESC)) {
-	    if (cmap(*cp, _QF|_ESC)) {
-		if (qu == 0 || qu == *cp) {
-		    qu ^= *cp;
-		    continue;
-		}
-	    }
-	    if (qu != '\'' && cmap(*cp, _QB)) {
-		if ((backq ^= 1) != 0) {
-		    ocmd_start = cmd_start;
-		    oword_start = word_start;
-		    oword = word;
-		    word_start = cp + 1;
-		    word = cmd_start = qline.len + 1;
-		}
-		else {
-		    cmd_start = ocmd_start;
-		    word_start = oword_start;
-		    word = oword;
-		}
-		Strbuf_append1(&qline, *cp);
-		continue;
-	    }
-	}
-	if (iscmdmeta(*cp))
-	    cmd_start = qline.len + 1;
-
-	/* Don't quote '/' to make the recognize stuff work easily */
-	/* Don't quote '$' in double quotes */
-
-	if (cmap(*cp, _ESC) && cp < str_end - 1 && cp[1] == HIST)
-	    Strbuf_append1(&qline, *++cp | QUOTE);
-	else if (qu && (tricky(*cp) || *cp == '~') && !(qu == '\"' && tricky_dq(*cp)))
-	    Strbuf_append1(&qline, *cp | QUOTE);
-	else
-	    Strbuf_append1(&qline, *cp);
-	if (ismetahash(qline.s[qline.len - 1])
-	    /* || isaset(qline.s + cmd_start, qline.s + qline.len) */)
-	    word = qline.len, word_start = cp + 1;
-	if (cmap(qu, _ESC))
-	    qu = 0;
-      }
-    Strbuf_terminate(&qline);
-    wp = qline.len;
-
-    /*
-     *  SPECIAL HARDCODED COMPLETIONS:
-     *    first word of command       -> TW_COMMAND
-     *    everything else             -> TW_ZERO
-     *
-     */
-    looking = starting_a_command(qline.s + word - 1, qline.s) ?
-	TW_COMMAND : TW_ZERO;
-
-    wordp = word;
-
-#ifdef TDEBUG
-    {
-	const Char *p;
-
-	xprintf(CGETS(30, 1, "starting_a_command %d\n"), looking);
-	xprintf("\ncmd_start:%S:\n", qline.s + cmd_start);
-	xprintf("qline:%S:\n", qline.s);
-	xprintf("qline:");
-	for (p = qline.s; *p; p++)
-	    xprintf("%c", *p & QUOTE ? '-' : ' ');
-	xprintf(":\n");
-	xprintf("word:%S:\n", qline.s + word);
-	xprintf("word:");
-	for (p = qline.s + word; *p; p++)
-	    xprintf("%c", *p & QUOTE ? '-' : ' ');
-	xprintf(":\n");
-    }
-#endif
-
-    if ((looking == TW_COMMAND || looking == TW_ZERO) &&
-        (command == RECOGNIZE || command == LIST || command == SPELL ||
-	 command == RECOGNIZE_SCROLL)) {
-	Char *p;
-
-#ifdef TDEBUG
-	xprintf(CGETS(30, 2, "complete %d "), looking);
-#endif
-	p = qline.s + wordp;
-	looking = tw_complete(qline.s + cmd_start, &p, &pat, looking, &suf);
-	wordp = p - qline.s;
-#ifdef TDEBUG
-	xprintf(CGETS(30, 3, "complete %d %S\n"), looking, pat);
-#endif
-    }
-
-    switch (command) {
-	Char   *bptr;
-	Char   *items[2], **ptr;
-	int     i, count;
-
-    case RECOGNIZE:
-    case RECOGNIZE_SCROLL:
-    case RECOGNIZE_ALL: {
-	struct Strbuf wordbuf = Strbuf_INIT;
-	Char   *slshp;
-
-	if (adrof(STRautocorrect)) {
-	    if ((slshp = Strrchr(qline.s + wordp, '/')) != NULL &&
-		slshp[1] != '\0') {
-		SearchNoDirErr = 1;
-		for (bptr = qline.s + wordp; bptr < slshp; bptr++) {
-		    /*
-		     * do not try to correct spelling of words containing
-		     * globbing characters
-		     */
-		    if (isglob(*bptr)) {
-			SearchNoDirErr = 0;
-			break;
-		    }
-		}
-	    }
-	}
-	else
-	    slshp = STRNULL;
-	Strbuf_append(&wordbuf, qline.s + wordp);
-	Strbuf_terminate(&wordbuf);
-	cleanup_push(&wordbuf, Strbuf_cleanup);
-	search_ret = t_search(&wordbuf, command, looking, 1, pat, suf);
-	qline.len = wordp;
-	Strbuf_append(&qline, wordbuf.s);
-	Strbuf_terminate(&qline);
-	cleanup_until(&wordbuf);
-	SearchNoDirErr = 0;
-
-	if (search_ret == -2) {
-	    Char *rword;
-
-	    rword = Strsave(slshp);
-	    cleanup_push(rword, xfree);
-	    if (slshp != STRNULL)
-		*slshp = '\0';
-	    wordbuf = Strbuf_init;
-	    Strbuf_append(&wordbuf, qline.s + wordp);
-	    Strbuf_terminate(&wordbuf);
-	    cleanup_push(&wordbuf, Strbuf_cleanup);
-	    search_ret = spell_me(&wordbuf, looking, pat, suf);
-	    if (search_ret == 1) {
-		Strbuf_append(&wordbuf, rword);
-		Strbuf_terminate(&wordbuf);
-		wp = wordp + wordbuf.len;
-		search_ret = t_search(&wordbuf, command, looking, 1, pat, suf);
-	    }
-	    qline.len = wordp;
-	    Strbuf_append(&qline, wordbuf.s);
-	    Strbuf_terminate(&qline);
-	    cleanup_until(rword);
-	}
-	if (qline.s[wp] != '\0' &&
-	    insert_meta(word_start, str_end, qline.s + word, !qu) < 0)
-	    goto err;		/* error inserting */
-	break;
-    }
-
-    case SPELL: {
-	struct Strbuf wordbuf = Strbuf_INIT;
-
-	for (bptr = word_start; bptr < str_end; bptr++) {
-	    /*
-	     * do not try to correct spelling of words containing globbing
-	     * characters
-	     */
-	    if (isglob(*bptr)) {
-		search_ret = 0;
-		goto end;
-	    }
-	}
-	Strbuf_append(&wordbuf, qline.s + wordp);
-	Strbuf_terminate(&wordbuf);
-	cleanup_push(&wordbuf, Strbuf_cleanup);
-	search_ret = spell_me(&wordbuf, looking, pat, suf);
-	qline.len = wordp;
-	Strbuf_append(&qline, wordbuf.s);
-	Strbuf_terminate(&qline);
-	cleanup_until(&wordbuf);
-	if (search_ret == 1) {
-	    if (insert_meta(word_start, str_end, qline.s + word, !qu) < 0)
-		goto err;		/* error inserting */
-	}
-	break;
-    }
-
-    case PRINT_HELP:
-	do_help(qline.s + cmd_start);
-	search_ret = 1;
-	break;
-
-    case GLOB:
-    case GLOB_EXPAND:
-	items[0] = Strsave(qline.s + wordp);
-	items[1] = NULL;
-	cleanup_push(items[0], xfree);
-	ptr = items;
-	count = (looking == TW_COMMAND && Strchr(qline.s + wordp, '/') == 0) ?
-		c_glob(&ptr) :
-		t_glob(&ptr, looking == TW_COMMAND);
-	cleanup_until(items[0]);
-	if (ptr != items)
-	    cleanup_push(ptr, blk_cleanup);
-	if (count > 0) {
-	    if (command == GLOB)
-		print_by_column(STRNULL, ptr, count, 0);
-	    else {
-		DeleteBack(str_end - word_start);/* get rid of old word */
-		for (i = 0; i < count; i++)
-		    if (ptr[i] && *ptr[i]) {
-			(void) quote(ptr[i]);
-			if (insert_meta(0, 0, ptr[i], 0) < 0 ||
-			    InsertStr(STRspace) < 0) {
-			    if (ptr != items)
-				cleanup_until(ptr);
-			    goto err;		/* error inserting */
-			}
-		    }
-	    }
-	}
-	if (ptr != items)
-	    cleanup_until(ptr);
-	search_ret = count;
-	break;
-
-    case VARS_EXPAND:
-	bptr = dollar(qline.s + word);
-	if (bptr != NULL) {
-	    if (insert_meta(word_start, str_end, bptr, !qu) < 0) {
-		xfree(bptr);
-		goto err;		/* error inserting */
-	    }
-	    xfree(bptr);
-	    search_ret = 1;
-	    break;
-	}
-	search_ret = 0;
-	break;
-
-    case PATH_NORMALIZE:
-	if ((bptr = dnormalize(qline.s + wordp, symlinks == SYM_IGNORE ||
-			       symlinks == SYM_EXPAND)) != NULL) {
-	    if (insert_meta(word_start, str_end, bptr, !qu) < 0) {
-		xfree(bptr);
-		goto err;		/* error inserting */
-	    }
-	    xfree(bptr);
-	    search_ret = 1;
-	    break;
-	}
-	search_ret = 0;
-	break;
-
-    case COMMAND_NORMALIZE: {
-	Char *p;
-	int found;
-
-	found = !cmd_expand(qline.s + wordp, &p);
-	
-	if (!found) {
-	    xfree(p);
-	    search_ret = 0;
-	    break;
-	}
-	if (insert_meta(word_start, str_end, p, !qu) < 0) {
-	    xfree(p);
-	    goto err;		/* error inserting */
-	}
-	xfree(p);
-	search_ret = 1;
-	break;
-    }
-
-    case LIST:
-    case LIST_ALL: {
-	struct Strbuf wordbuf = Strbuf_INIT;
-
-	Strbuf_append(&wordbuf, qline.s + wordp);
-	Strbuf_terminate(&wordbuf);
-	cleanup_push(&wordbuf, Strbuf_cleanup);
-	search_ret = t_search(&wordbuf, LIST, looking, 1, pat, suf);
-	qline.len = wordp;
-	Strbuf_append(&qline, wordbuf.s);
-	Strbuf_terminate(&qline);
-	cleanup_until(&wordbuf);
-	break;
-    }
-
-    default:
-	xprintf(CGETS(30, 4, "%s: Internal match error.\n"), progname);
-	search_ret = 1;
-    }
- end:
-    cleanup_until(&qline);
-    return search_ret;
-
- err:
-    cleanup_until(&qline);
-    return -1;
-} /* end tenematch */
-
-
-/* t_glob():
- * 	Return a list of files that match the pattern
- */
-static int
-t_glob(Char ***v, int cmd)
-{
-    jmp_buf_t osetexit;
-    int gflag;
-
-    if (**v == 0)
-	return (0);
-    gflag = tglob(*v);
-    if (gflag) {
-	size_t omark;
-
-	getexit(osetexit);	/* make sure to come back here */
-	omark = cleanup_push_mark();
-	if (setexit() == 0)
-	    *v = globall(*v, gflag);
-	cleanup_pop_mark(omark);
-	resexit(osetexit);
-	if (haderr) {
-	    haderr = 0;
-	    NeedsRedraw = 1;
-	    return (-1);
-	}
-	if (*v == 0)
-	    return (0);
-    }
-    else
-	return (0);
-
-    if (cmd) {
-	Char **av = *v, *p;
-	int fwd, i;
-
-	for (i = 0, fwd = 0; av[i] != NULL; i++) 
-	    if (!executable(NULL, av[i], 0)) {
-		fwd++;		
-		p = av[i];
-		av[i] = NULL;
-		xfree(p);
-	    }
-	    else if (fwd) 
-		av[i - fwd] = av[i];
-
-	if (fwd)
-	    av[i - fwd] = av[i];
-    }
-
-    return blklen(*v);
-} /* end t_glob */
-
-
-/* c_glob():
- * 	Return a list of commands that match the pattern
- */
-static int
-c_glob(Char ***v)
-{
-    struct blk_buf av = BLK_BUF_INIT;
-    struct Strbuf cmd = Strbuf_INIT, dir = Strbuf_INIT;
-    Char *pat = **v;
-    int flag;
-
-    if (pat == NULL)
-	return (0);
-
-    cleanup_push(&av, bb_cleanup);
-    cleanup_push(&cmd, Strbuf_cleanup);
-    cleanup_push(&dir, Strbuf_cleanup);
-
-    tw_cmd_start(NULL, NULL);
-    while (cmd.len = 0, tw_cmd_next(&cmd, &dir, &flag) != 0) {
-	Strbuf_terminate(&cmd);
-	if (Gmatch(cmd.s, pat))
-	    bb_append(&av, Strsave(cmd.s));
-    }
-    tw_dir_end();
-    *v = bb_finish(&av);
-    cleanup_ignore(&av);
-    cleanup_until(&av);
-
-    return av.len;
-} /* end c_glob */
-
-
-/* insert_meta():
- *      change the word before the cursor.
- *        cp must point to the start of the unquoted word.
- *        cpend to the end of it.
- *        word is the text that has to be substituted.
- *      strategy:
- *        try to keep all the quote characters of the user's input.
- *        change quote type only if necessary.
- */
-static int
-insert_meta(const Char *cp, const Char *cpend, const Char *word,
-	    int closequotes)
-{
-    struct Strbuf buffer = Strbuf_INIT;
-    Char *bptr;
-    const Char *wptr;
-    int in_sync = (cp != NULL);
-    Char qu = 0;
-    int ndel = (int) (cp ? cpend - cp : 0);
-    Char w, wq;
-    int res;
-
-    for (wptr = word;;) {
-	if (cp >= cpend)
-	    in_sync = 0;
-	if (in_sync && !cmap(qu, _ESC) && cmap(*cp, _QF|_ESC))
-	    if (qu == 0 || qu == *cp) {
-		qu ^= *cp;
-		Strbuf_append1(&buffer, *cp++);
-		continue;
-	    }
-	w = *wptr;
-	if (w == 0)
-	    break;
-
-	wq = w & QUOTE;
-	w &= ~QUOTE;
-
-	if (cmap(w, _ESC | _QF))
-	    wq = QUOTE;		/* quotes are always quoted */
-
-	if (!wq && qu && tricky(w) && !(qu == '\"' && tricky_dq(w))) {
-	    /* We have to unquote the character */
-	    in_sync = 0;
-	    if (cmap(qu, _ESC))
-		buffer.s[buffer.len - 1] = w;
-	    else {
-		Strbuf_append1(&buffer, qu);
-		Strbuf_append1(&buffer, w);
-		if (wptr[1] == 0)
-		    qu = 0;
-		else
-		    Strbuf_append1(&buffer, qu);
-	    }
-	} else if (qu && w == qu) {
-	    in_sync = 0;
-	    if (buffer.len != 0 && buffer.s[buffer.len - 1] == qu) {
-		/* User misunderstanding :) */
-		buffer.s[buffer.len - 1] = '\\';
-		Strbuf_append1(&buffer, w);
-		qu = 0;
-	    } else {
-		Strbuf_append1(&buffer, qu);
-		Strbuf_append1(&buffer, '\\');
-		Strbuf_append1(&buffer, w);
-		Strbuf_append1(&buffer, qu);
-	    }
-	}
-	else if (wq && qu == '\"' && tricky_dq(w)) {
-	    in_sync = 0;
-	    Strbuf_append1(&buffer, qu);
-	    Strbuf_append1(&buffer, '\\');
-	    Strbuf_append1(&buffer, w);
-	    Strbuf_append1(&buffer, qu);
-	} else if (wq &&
-		   ((!qu && (tricky(w) || (w == HISTSUB && buffer.len == 0))) ||
-		    (!cmap(qu, _ESC) && w == HIST))) {
-	    in_sync = 0;
-	    Strbuf_append1(&buffer, '\\');
-	    Strbuf_append1(&buffer, w);
-	} else {
-	    if (in_sync && *cp++ != w)
-		in_sync = 0;
-	    Strbuf_append1(&buffer, w);
-	}
-	wptr++;
-	if (cmap(qu, _ESC))
-	    qu = 0;
-    }
-    if (closequotes && qu && !cmap(qu, _ESC))
-	Strbuf_append1(&buffer, w);
-    bptr = Strbuf_finish(&buffer);
-    if (ndel)
-	DeleteBack(ndel);
-    res = InsertStr(bptr);
-    xfree(bptr);
-    return res;
-} /* end insert_meta */
-
-
-
-/* is_prefix():
- *	return true if check matches initial chars in template
- *	This differs from PWB imatch in that if check is null
- *	it matches anything
- */
-static int
-is_prefix(Char *check, Char *template)
-{
-    for (; *check; check++, template++)
-	if ((*check & TRIM) != (*template & TRIM))
-	    return (FALSE);
-    return (TRUE);
-} /* end is_prefix */
-
-
-/* is_prefixmatch():
- *	return true if check matches initial chars in template
- *	This differs from PWB imatch in that if check is null
- *	it matches anything
- * and matches on shortening of commands
- */
-static int
-is_prefixmatch(Char *check, Char *template, int igncase)
-{
-    Char MCH1, MCH2;
-
-    for (; *check; check++, template++) {
-	if ((*check & TRIM) != (*template & TRIM)) {
-            MCH1 = (*check & TRIM);
-            MCH2 = (*template & TRIM);
-            MCH1 = Isupper(MCH1) ? Tolower(MCH1) : MCH1;
-            MCH2 = Isupper(MCH2) ? Tolower(MCH2) : MCH2;
-            if (MCH1 != MCH2) {
-                if (!igncase && ((*check & TRIM) == '-' || 
-				 (*check & TRIM) == '.' ||
-				 (*check & TRIM) == '_')) {
-                    MCH1 = MCH2 = (*check & TRIM);
-                    if (MCH1 == '_') {
-                        MCH2 = '-';
-                    } else if (MCH1 == '-') {
-                        MCH2 = '_';
-                    }
-                    for (;*template && (*template & TRIM) != MCH1 &&
-				       (*template & TRIM) != MCH2; template++)
-			continue;
-                    if (!*template) {
-	                return (FALSE);
-                    }
-                } else {
-	            return (FALSE);
-                }
-            }
-        }
-    }
-    return (TRUE);
-} /* end is_prefixmatch */
-
-
-/* is_suffix():
- *	Return true if the chars in template appear at the
- *	end of check, I.e., are it's suffix.
- */
-static int
-is_suffix(Char *check, Char *template)
-{
-    Char *t, *c;
-
-    t = Strend(template);
-    c = Strend(check);
-    for (;;) {
-	if (t == template)
-	    return 1;
-	if (c == check || (*--t & TRIM) != (*--c & TRIM))
-	    return 0;
-    }
-} /* end is_suffix */
-
-
-/* ignored():
- *	Return true if this is an ignored item
- */
-static int
-ignored(Char *item)
-{
-    struct varent *vp;
-    Char **cp;
-
-    if ((vp = adrof(STRfignore)) == NULL || (cp = vp->vec) == NULL)
-	return (FALSE);
-    for (; *cp != NULL; cp++)
-	if (is_suffix(item, *cp))
-	    return (TRUE);
-    return (FALSE);
-} /* end ignored */
-
-
-
-/* starting_a_command():
- *	return true if the command starting at wordstart is a command
- */
-int
-starting_a_command(Char *wordstart, Char *inputline)
-{
-    Char *ptr, *ncmdstart;
-    int     count, bsl;
-    static  Char
-            cmdstart[] = {'`', ';', '&', '(', '|', '\0'},
-            cmdalive[] = {' ', '\t', '\'', '"', '<', '>', '\0'};
-
-    /*
-     * Find if the number of backquotes is odd or even.
-     */
-    for (ptr = wordstart, count = 0;
-	 ptr >= inputline;
-	 count += (*ptr-- == '`'))
-	continue;
-    /*
-     * if the number of backquotes is even don't include the backquote char in
-     * the list of command starting delimiters [if it is zero, then it does not
-     * matter]
-     */
-    ncmdstart = cmdstart + EVEN(count);
-
-    /*
-     * look for the characters previous to this word if we find a command
-     * starting delimiter we break. if we find whitespace and another previous
-     * word then we are not a command
-     * 
-     * count is our state machine: 0 looking for anything 1 found white-space
-     * looking for non-ws
-     */
-    for (count = 0; wordstart >= inputline; wordstart--) {
-	if (*wordstart == '\0')
-	    continue;
-	if (Strchr(ncmdstart, *wordstart)) {
-	    for (ptr = wordstart, bsl = 0; *(--ptr) == '\\'; bsl++);
-	    if (bsl & 1) {
-		wordstart--;
-		continue;
-	    } else
-		break;
-	}
-	/*
-	 * found white space
-	 */
-	if ((ptr = Strchr(cmdalive, *wordstart)) != NULL)
-	    count = 1;
-	if (count == 1 && !ptr)
-	    return (FALSE);
-    }
-
-    if (wordstart > inputline)
-	switch (*wordstart) {
-	case '&':		/* Look for >& */
-	    while (wordstart > inputline &&
-		   (*--wordstart == ' ' || *wordstart == '\t'))
-		continue;
-	    if (*wordstart == '>')
-		return (FALSE);
-	    break;
-	case '(':		/* check for foreach, if etc. */
-	    while (wordstart > inputline &&
-		   (*--wordstart == ' ' || *wordstart == '\t'))
-		continue;
-	    if (!iscmdmeta(*wordstart) &&
-		(*wordstart != ' ' && *wordstart != '\t'))
-		return (FALSE);
-	    break;
-	default:
-	    break;
-	}
-    return (TRUE);
-} /* end starting_a_command */
-
-
-/* recognize():
- *	Object: extend what user typed up to an ambiguity.
- *	Algorithm:
- *	On first match, copy full item (assume it'll be the only match)
- *	On subsequent matches, shorten exp_name to the first
- *	character mismatch between exp_name and item.
- *	If we shorten it back to the prefix length, stop searching.
- */
-static int
-recognize(struct Strbuf *exp_name, const Char *item, size_t name_length,
-	  int numitems, int enhanced, int igncase)
-{
-    Char MCH1, MCH2;
-    Char *x;
-    const Char *ent;
-    size_t len = 0;
-
-    if (numitems == 1) {	/* 1st match */
-	exp_name->len = 0;
-	Strbuf_append(exp_name, item);
-	Strbuf_terminate(exp_name);
-	return (0);
-    }
-    if (!enhanced && !igncase) {
-	for (x = exp_name->s, ent = item; *x && (*x & TRIM) == (*ent & TRIM);
-	     x++, ent++)
-	    len++;
-    } else {
-	for (x = exp_name->s, ent = item; *x; x++, ent++) {
-	    MCH1 = *x & TRIM;
-	    MCH2 = *ent & TRIM;
-            MCH1 = Isupper(MCH1) ? Tolower(MCH1) : MCH1;
-            MCH2 = Isupper(MCH2) ? Tolower(MCH2) : MCH2;
-	    if (MCH1 != MCH2)
-		break;
-	    len++;
-	}
-	if (*x || !*ent)	/* Shorter or exact match */
-	    memcpy(exp_name->s, item, len * sizeof(*exp_name->s));
-    }
-    *x = '\0';		/* Shorten at 1st char diff */
-    exp_name->len = x - exp_name->s;
-    if (!(match_unique_match || is_set(STRrecexact) || (enhanced && *ent)) && len == name_length)	/* Ambiguous to prefix? */
-	return (-1);	/* So stop now and save time */
-    return (0);
-} /* end recognize */
-
-
-/* tw_collect_items():
- *	Collect items that match target.
- *	SPELL command:
- *		Returns the spelling distance of the closest match.
- *	else
- *		Returns the number of items found.
- *		If none found, but some ignored items were found,
- *		It returns the -number of ignored items.
- */
-static int
-tw_collect_items(COMMAND command, int looking, struct Strbuf *exp_dir,
-		 struct Strbuf *exp_name, Char *target, const Char *pat,
-		 int flags)
-{
-    int done = FALSE;			 /* Search is done */
-    int showdots;			 /* Style to show dot files */
-    int nignored = 0;			 /* Number of fignored items */
-    int numitems = 0;			 /* Number of matched items */
-    size_t name_length = Strlen(target); /* Length of prefix (file name) */
-    int exec_check = flags & TW_EXEC_CHK;/* need to check executability	*/
-    int dir_check  = flags & TW_DIR_CHK; /* Need to check for directories */
-    int text_check = flags & TW_TEXT_CHK;/* Need to check for non-directories */
-    int dir_ok     = flags & TW_DIR_OK;  /* Ignore directories? */
-    int gpat       = flags & TW_PAT_OK;	 /* Match against a pattern */
-    int ignoring   = flags & TW_IGN_OK;	 /* Use fignore? */
-    int d = 4, nd;			 /* Spelling distance */
-    Char *ptr;
-    struct varent *vp;
-    struct Strbuf buf = Strbuf_INIT, item = Strbuf_INIT;
-    int enhanced = 0;
-    int cnt = 0;
-    int igncase = 0;
-
-
-    flags = 0;
-
-    showdots = DOT_NONE;
-    if ((ptr = varval(STRlistflags)) != STRNULL)
-	while (*ptr) 
-	    switch (*ptr++) {
-	    case 'a':
-		showdots = DOT_ALL;
-		break;
-	    case 'A':
-		showdots = DOT_NOT;
-		break;
-	    default:
-		break;
-	    }
-
-    cleanup_push(&item, Strbuf_cleanup);
-    cleanup_push(&buf, Strbuf_cleanup);
-    while (!done &&
-	   (item.len = 0,
-	    tw_next_entry[looking](&item, exp_dir, &flags) != 0)) {
-	Strbuf_terminate(&item);
-#ifdef TDEBUG
-	xprintf("item = %S\n", item.s);
-#endif
-	switch (looking) {
-	case TW_FILE:
-	case TW_DIRECTORY:
-	case TW_TEXT:
-	    /*
-	     * Don't match . files on null prefix match
-	     */
-	    if (showdots == DOT_NOT && (ISDOT(item.s) || ISDOTDOT(item.s)))
-		done = TRUE;
-	    if (name_length == 0 && item.s[0] == '.' && showdots == DOT_NONE)
-		done = TRUE;
-	    break;
-
-	case TW_COMMAND:
-#if defined(_UWIN) || defined(__CYGWIN__)
-	    /*
-	     * Turn foo.{exe,com,bat,cmd} into foo since UWIN's readdir returns
-	     * the file with the .exe, .com, .bat, .cmd extension
-	     */
-	    {
-		static const char *rext[] = { ".exe", ".bat", ".com", ".cmd" };
-		size_t exti = Strlen(item.s);
-
-		if (exti > 4) {
-		    char *ext = short2str(&item.s[exti -= 4]);
-		    size_t i;
-
-		    for (i = 0; i < sizeof(rext) / sizeof(rext[0]); i++)
-			if (strcasecmp(ext, rext[i]) == 0) {
-			    item.len = exti;
-			    Strbuf_terminate(&item);
-			    break;
-			}
-		}
-	    }
-#endif /* _UWIN || __CYGWIN__ */
-	    exec_check = flags & TW_EXEC_CHK;
-	    dir_ok = flags & TW_DIR_OK;
-	    break;
-
-	default:
-	    break;
-	}
-
-	if (done) {
-	    done = FALSE;
-	    continue;
-	}
-
-	switch (command) {
-
-	case SPELL:		/* correct the spelling of the last bit */
-	    if (name_length == 0) {/* zero-length word can't be misspelled */
-		exp_name->len = 0; /* (not trying is important for ~) */
-		Strbuf_terminate(exp_name);
-		d = 0;
-		done = TRUE;
-		break;
-	    }
-	    if (gpat && !Gmatch(item.s, pat))
-		break;
-	    /*
-	     * Swapped the order of the spdist() arguments as suggested
-	     * by eeide@asylum.cs.utah.edu (Eric Eide)
-	     */
-	    nd = spdist(target, item.s); /* test the item against original */
-	    if (nd <= d && nd != 4) {
-		if (!(exec_check && !executable(exp_dir->s, item.s, dir_ok))) {
-		    exp_name->len = 0;
-		    Strbuf_append(exp_name, item.s);
-		    Strbuf_terminate(exp_name);
-		    d = nd;
-		    if (d == 0)	/* if found it exactly */
-			done = TRUE;
-		}
-	    }
-	    else if (nd == 4) {
-	        if (spdir(exp_name, exp_dir->s, item.s, target)) {
-		    if (exec_check &&
-			!executable(exp_dir->s, exp_name->s, dir_ok))
-			break;
-#ifdef notdef
-		    /*
-		     * We don't want to stop immediately, because
-		     * we might find an exact/better match later.
-		     */
-		    d = 0;
-		    done = TRUE;
-#endif
-		    d = 3;
-		}
-	    }
-	    break;
-
-	case LIST:
-	case RECOGNIZE:
-	case RECOGNIZE_ALL:
-	case RECOGNIZE_SCROLL:
-
-	    if ((vp = adrof(STRcomplete)) != NULL && vp->vec != NULL) {
-		Char **cp;
-		for (cp = vp->vec; *cp; cp++) {
-		    if (Strcmp(*cp, STRigncase) == 0)
-			igncase = 1;
-		    if (Strcmp(*cp, STRenhance) == 0)
-			enhanced = 1;
-		}
-	    }
-
-	    if (enhanced || igncase) {
-	        if (!is_prefixmatch(target, item.s, igncase))
-		    break;
-     	    } else {
-	        if (!is_prefix(target, item.s))
-		    break;
-	    }
-
-	    if (exec_check && !executable(exp_dir->s, item.s, dir_ok))
-		break;
-
-	    if (dir_check && !isadirectory(exp_dir->s, item.s))
-		break;
-
-	    if (text_check && isadirectory(exp_dir->s, item.s))
-		break;
-
-	    /*
-	     * Only pattern match directories if we're checking
-	     * for directories.
-	     */
-	    if (gpat && !Gmatch(item.s, pat) &&
-		(dir_check || !isadirectory(exp_dir->s, item.s)))
-		    break;
-
-	    /*
-	     * Remove duplicates in command listing and completion
-             * AFEB added code for TW_LOGNAME and TW_USER cases
-	     */
-	    if (looking == TW_COMMAND || looking == TW_LOGNAME
-		|| looking == TW_USER || command == LIST) {
-		buf.len = 0;
-		Strbuf_append(&buf, item.s);
-		switch (looking) {
-		case TW_COMMAND:
-		    if (!(dir_ok && exec_check))
-			break;
-		    if (filetype(exp_dir->s, item.s) == '/')
-			Strbuf_append1(&buf, '/');
-		    break;
-
-		case TW_FILE:
-		case TW_DIRECTORY:
-		    Strbuf_append1(&buf, filetype(exp_dir->s, item.s));
-		    break;
-
-		default:
-		    break;
-		}
-		Strbuf_terminate(&buf);
-		if ((looking == TW_COMMAND || looking == TW_USER
-                     || looking == TW_LOGNAME) && tw_item_find(buf.s))
-		    break;
-		else {
-		    /* maximum length 1 (NULL) + 1 (~ or $) + 1 (filetype) */
-		    tw_item_add(&buf);
-		    if (command == LIST)
-			numitems++;
-		}
-	    }
-		    
-	    if (command == RECOGNIZE || command == RECOGNIZE_ALL ||
-		command == RECOGNIZE_SCROLL) {
-		if (ignoring && ignored(item.s)) {
-		    nignored++;
-		    break;
-		}
-		else if (command == RECOGNIZE_SCROLL) {
-		    add_scroll_tab(item.s);
-		    cnt++;
-		}
-
-		if (match_unique_match || is_set(STRrecexact)) {
-		    if (StrQcmp(target, item.s) == 0) {	/* EXACT match */
-			exp_name->len = 0;
-			Strbuf_append(exp_name, item.s);
-			Strbuf_terminate(exp_name);
-			numitems = 1;	/* fake into expanding */
-			non_unique_match = TRUE;
-			done = TRUE;
-			break;
-		    }
-		}
-		if (recognize(exp_name, item.s, name_length, ++numitems,
-		    enhanced, igncase))
-		    if (command != RECOGNIZE_SCROLL)
-			done = TRUE;
-		if (enhanced && exp_name->len < name_length) {
-		    exp_name->len = 0;
-		    Strbuf_append(exp_name, target);
-		    Strbuf_terminate(exp_name);
-		}
-	    }
-	    break;
-
-	default:
-	    break;
-	}
-#ifdef TDEBUG
-	xprintf("done item = %S\n", item.s);
-#endif
-    }
-    cleanup_until(&item);
-
-    if (command == RECOGNIZE_SCROLL) {
-	if ((cnt <= curchoice) || (curchoice == -1)) {
-	    curchoice = -1;
-	    nignored = 0;
-	    numitems = 0;
-	} else if (numitems > 1) {
-	    if (curchoice < -1)
-		curchoice = cnt - 1;
-	    choose_scroll_tab(exp_name, cnt);
-	    numitems = 1;
-	}
-    }
-    free_scroll_tab();
-
-    if (command == SPELL)
-	return d;
-    else {
-	if (ignoring && numitems == 0 && nignored > 0) 
-	    return -nignored;
-	else
-	    return numitems;
-    }
-}
-
-
-/* tw_suffix():
- *	Find and return the appropriate suffix character
- */
-/*ARGSUSED*/
-static Char
-tw_suffix(int looking, const Char *exp_dir, Char *exp_name)
-{
-    Char *ptr;
-    struct varent *vp;
-
-    (void) strip(exp_name);
-
-    switch (looking) {
-
-    case TW_LOGNAME:
-	return '/';
-
-    case TW_VARIABLE:
-	/*
-	 * Don't consider array variables or empty variables
-	 */
-	if ((vp = adrof(exp_name)) != NULL && vp->vec != NULL) {
-	    if ((ptr = vp->vec[0]) == NULL || *ptr == '\0' ||
-		vp->vec[1] != NULL) 
-		return ' ';
-	}
-	else if ((ptr = tgetenv(exp_name)) == NULL || *ptr == '\0')
-	    return ' ';
-
-	return isadirectory(exp_dir, ptr) ? '/' : ' ';
-
-
-    case TW_DIRECTORY:
-	return '/';
-
-    case TW_COMMAND:
-    case TW_FILE:
-	return isadirectory(exp_dir, exp_name) ? '/' : ' ';
-
-    case TW_ALIAS:
-    case TW_VARLIST:
-    case TW_WORDLIST:
-    case TW_SHELLVAR:
-    case TW_ENVVAR:
-    case TW_USER:
-    case TW_BINDING:
-    case TW_LIMIT:
-    case TW_SIGNAL:
-    case TW_JOB:
-    case TW_COMPLETION:
-    case TW_TEXT:
-    case TW_GRPNAME:
-	return ' ';
-
-    default:
-	return '\0';
-    }
-} /* end tw_suffix */
-
-
-/* tw_fixword():
- *	Repair a word after a spalling or a recognizwe
- */
-static void
-tw_fixword(int looking, struct Strbuf *word, Char *dir, Char *exp_name)
-{
-    Char *ptr;
-
-    switch (looking) {
-    case TW_LOGNAME:
-	word->len = 0;
-	Strbuf_append1(word, '~');
-	break;
-
-    case TW_VARIABLE:
-	if ((ptr = Strrchr(word->s, '$')) != NULL) {
-	    word->len = ptr + 1 - word->s; /* Delete after the dollar */
-	} else
-	    word->len = 0;
-	break;
-
-    case TW_DIRECTORY:
-    case TW_FILE:
-    case TW_TEXT:
-	word->len = 0;
-	Strbuf_append(word, dir);		/* put back dir part */
-	break;
-
-    default:
-	word->len = 0;
-	break;
-    }
-
-    (void) quote(exp_name);
-    Strbuf_append(word, exp_name);		/* add extended name */
-    Strbuf_terminate(word);
-} /* end tw_fixword */
-
-
-/* tw_collect():
- *	Collect items. Return -1 in case we were interrupted or
- *	the return value of tw_collect
- *	This is really a wrapper for tw_collect_items, serving two
- *	purposes:
- *		1. Handles interrupt cleanups.
- *		2. Retries if we had no matches, but there were ignored matches
- */
-static int
-tw_collect(COMMAND command, int looking, struct Strbuf *exp_dir,
-	   struct Strbuf *exp_name, Char *target, Char *pat, int flags,
-	   DIR *dir_fd)
-{
-    volatile int ni;
-    jmp_buf_t osetexit;
-
-#ifdef TDEBUG
-    xprintf("target = %S\n", target);
-#endif
-    ni = 0;
-    getexit(osetexit);
-    for (;;) {
-	volatile size_t omark;
-
-	(*tw_start_entry[looking])(dir_fd, pat);
-	InsideCompletion = 1;
-	if (setexit()) {
-	    cleanup_pop_mark(omark);
-	    resexit(osetexit);
-	    /* interrupted, clean up */
-	    haderr = 0;
-	    ni = -1; /* flag error */
-	    break;
-	}
-	omark = cleanup_push_mark();
-	ni = tw_collect_items(command, looking, exp_dir, exp_name, target, pat,
-			      ni >= 0 ? flags : flags & ~TW_IGN_OK);
-	cleanup_pop_mark(omark);
-	resexit(osetexit);
-        if (ni >= 0)
-	    break;
-    }
-    InsideCompletion = 0;
-#if defined(SOLARIS2) && defined(i386) && !defined(__GNUC__)
-    /* Compiler bug? (from PWP) */
-    if ((looking == TW_LOGNAME) || (looking == TW_USER))
-	tw_logname_end();
-    else if (looking == TW_GRPNAME)
-	tw_grpname_end();
-    else
-	tw_dir_end();
-#else /* !(SOLARIS2 && i386 && !__GNUC__) */
-    (*tw_end_entry[looking])();
-#endif /* !(SOLARIS2 && i386 && !__GNUC__) */
-    return(ni);
-} /* end tw_collect */
-
-
-/* tw_list_items():
- *	List the items that were found
- *
- *	NOTE instead of looking at numerical vars listmax and listmaxrows
- *	we can look at numerical var listmax, and have a string value
- *	listmaxtype (or similar) than can have values 'items' and 'rows'
- *	(by default interpreted as 'items', for backwards compatibility)
- */
-static void
-tw_list_items(int looking, int numitems, int list_max)
-{
-    Char *ptr;
-    int max_items = 0;
-    int max_rows = 0;
-
-    if (numitems == 0)
-	return;
-
-    if ((ptr = varval(STRlistmax)) != STRNULL) {
-	while (*ptr) {
-	    if (!Isdigit(*ptr)) {
-		max_items = 0;
-		break;
-	    }
-	    max_items = max_items * 10 + *ptr++ - '0';
-	}
-	if ((max_items > 0) && (numitems > max_items) && list_max)
-	    max_items = numitems;
-	else
-	    max_items = 0;
-    }
-
-    if (max_items == 0 && (ptr = varval(STRlistmaxrows)) != STRNULL) {
-	int rows;
-
-	while (*ptr) {
-	    if (!Isdigit(*ptr)) {
-		max_rows = 0;
-		break;
-	    }
-	    max_rows = max_rows * 10 + *ptr++ - '0';
-	}
-	if (max_rows != 0 && looking != TW_JOB)
-	    rows = find_rows(tw_item_get(), numitems, TRUE);
-	else
-	    rows = numitems; /* underestimate for lines wider than the termH */
-	if ((max_rows > 0) && (rows > max_rows) && list_max)
-	    max_rows = rows;
-	else
-	    max_rows = 0;
-    }
-
-
-    if (max_items || max_rows) {
-	char    	 tc, *sname;
-	const char	*name;
-	int maxs;
-
-	if (max_items) {
-	    name = CGETS(30, 5, "items");
-	    maxs = max_items;
-	}
-	else {
-	    name = CGETS(30, 6, "rows");
-	    maxs = max_rows;
-	}
-
-	sname = strsave(name);
-	cleanup_push(sname, xfree);
-	xprintf(CGETS(30, 7, "There are %d %s, list them anyway? [n/y] "),
-		maxs, sname);
-	cleanup_until(sname);
-	flush();
-	/* We should be in Rawmode here, so no \n to catch */
-	(void) xread(SHIN, &tc, 1);
-	xprintf("%c\r\n", tc);	/* echo the char, do a newline */
-	/*
-	 * Perhaps we should use the yesexpr from the
-	 * actual locale
-	 */
-	if (strchr(CGETS(30, 13, "Yy"), tc) == NULL)
-	    return;
-    }
-
-    if (looking != TW_SIGNAL)
-	qsort(tw_item_get(), numitems, sizeof(Char *), fcompare);
-    if (looking != TW_JOB)
-	print_by_column(STRNULL, tw_item_get(), numitems, TRUE);
-    else {
-	/*
-	 * print one item on every line because jobs can have spaces
-	 * and it is confusing.
-	 */
-	int i;
-	Char **w = tw_item_get();
-
-	for (i = 0; i < numitems; i++) {
-	    xprintf("%S", w[i]);
-	    if (Tty_raw_mode)
-		xputchar('\r');
-	    xputchar('\n');
-	}
-    }
-} /* end tw_list_items */
-
-
-/* t_search():
- *	Perform a RECOGNIZE, LIST or SPELL command on string "word".
- *
- *	Return value:
- *		>= 0:   SPELL command: "distance" (see spdist())
- *		                other: No. of items found
- *  		 < 0:   Error (message or beep is output)
- */
-/*ARGSUSED*/
-int
-t_search(struct Strbuf *word, COMMAND command, int looking, int list_max,
-	 Char *pat, eChar suf)
-{
-    int     numitems,			/* Number of items matched */
-	    flags = 0,			/* search flags */
-	    gpat = pat[0] != '\0',	/* Glob pattern search */
-	    res;			/* Return value */
-    struct Strbuf exp_dir = Strbuf_INIT;/* dir after ~ expansion */
-    struct Strbuf dir = Strbuf_INIT;	/* /x/y/z/ part in /x/y/z/f */
-    struct Strbuf exp_name = Strbuf_INIT;/* the recognized (extended) */
-    Char   *name,			/* f part in /d/d/d/f name */
-           *target;			/* Target to expand/correct/list */
-    DIR    *dir_fd = NULL;
-
-    /*
-     * bugfix by Marty Grossman (grossman@CC5.BBN.COM): directory listing can
-     * dump core when interrupted
-     */
-    tw_item_free();
-
-    non_unique_match = FALSE;	/* See the recexact code below */
-
-    extract_dir_and_name(word->s, &dir, &name);
-    cleanup_push(&dir, Strbuf_cleanup);
-    cleanup_push(&name, xfree_indirect);
-
-    /*
-     *  SPECIAL HARDCODED COMPLETIONS:
-     *    foo$variable                -> TW_VARIABLE
-     *    ~user                       -> TW_LOGNAME
-     *
-     */
-    if ((*word->s == '~') && (Strchr(word->s, '/') == NULL)) {
-	looking = TW_LOGNAME;
-	target = name;
-	gpat = 0;	/* Override pattern mechanism */
-    }
-    else if ((target = Strrchr(name, '$')) != 0 && 
-	     (Strchr(name, '/') == NULL)) {
-	target++;
-	looking = TW_VARIABLE;
-	gpat = 0;	/* Override pattern mechanism */
-    }
-    else
-	target = name;
-
-    /*
-     * Try to figure out what we should be looking for
-     */
-    if (looking & TW_PATH) {
-	gpat = 0;	/* pattern holds the pathname to be used */
-	Strbuf_append(&exp_dir, pat);
-	if (exp_dir.len != 0 && exp_dir.s[exp_dir.len - 1] != '/')
-	    Strbuf_append1(&exp_dir, '/');
-	Strbuf_append(&exp_dir, dir.s);
-    }
-    Strbuf_terminate(&exp_dir);
-    cleanup_push(&exp_dir, Strbuf_cleanup);
-
-    switch (looking & ~TW_PATH) {
-    case TW_NONE:
-	res = -1;
-	goto err_dir;
-
-    case TW_ZERO:
-	looking = TW_FILE;
-	break;
-
-    case TW_COMMAND:
-	if (Strchr(word->s, '/') || (looking & TW_PATH)) {
-	    looking = TW_FILE;
-	    flags |= TW_EXEC_CHK;
-	    flags |= TW_DIR_OK;
-	}
-#ifdef notdef
-	/* PWP: don't even bother when doing ALL of the commands */
-	if (looking == TW_COMMAND && word->len == 0) {
-	    res = -1;
-	    goto err_dir;
-	}
-#endif
-	break;
-
-
-    case TW_VARLIST:
-    case TW_WORDLIST:
-	gpat = 0;	/* pattern holds the name of the variable */
-	break;
-
-    case TW_EXPLAIN:
-	if (command == LIST && pat != NULL) {
-	    xprintf("%S", pat);
-	    if (Tty_raw_mode)
-		xputchar('\r');
-	    xputchar('\n');
-	}
-	res = 2;
-	goto err_dir;
-
-    default:
-	break;
-    }
-
-    /*
-     * let fignore work only when we are not using a pattern
-     */
-    flags |= (gpat == 0) ? TW_IGN_OK : TW_PAT_OK;
-
-#ifdef TDEBUG
-    xprintf(CGETS(30, 8, "looking = %d\n"), looking);
-#endif
-
-    switch (looking) {
-	Char *user_name;
-
-    case TW_ALIAS:
-    case TW_SHELLVAR:
-    case TW_ENVVAR:
-    case TW_BINDING:
-    case TW_LIMIT:
-    case TW_SIGNAL:
-    case TW_JOB:
-    case TW_COMPLETION:
-    case TW_GRPNAME:
-	break;
-
-
-    case TW_VARIABLE:
-	if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0)
-	    goto err_dir;
-	break;
-
-    case TW_DIRECTORY:
-	flags |= TW_DIR_CHK;
-
-#ifdef notyet
-	/*
-	 * This is supposed to expand the directory stack.
-	 * Problems:
-	 * 1. Slow
-	 * 2. directories with the same name
-	 */
-	flags |= TW_DIR_OK;
-#endif
-#ifdef notyet
-	/*
-	 * Supposed to do delayed expansion, but it is inconsistent
-	 * from a user-interface point of view, since it does not
-	 * immediately obey addsuffix
-	 */
-	if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0)
-	    goto err_dir;
-	if (isadirectory(exp_dir.s, name)) {
-	    if (exp_dir.len != 0 || name[0] != '\0') {
-		Strbuf_append(&dir, name);
-		if (dir.s[dir.len - 1] != '/')
-		    Strbuf_append1(&dir, '/');
-		Strbuf_terminate(&dir);
-		if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0)
-		    goto err_dir;
-		if (word->len != 0 && word->s[word->len - 1] != '/') {
-		    Strbuf_append1(word, '/');
-		    Strbuf_terminate(word);
-		}
-		name[0] = '\0';
-	    }
-	}
-#endif
-	if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0)
-	    goto err_dir;
-	break;
-
-    case TW_TEXT:
-	flags |= TW_TEXT_CHK;
-	/*FALLTHROUGH*/
-    case TW_FILE:
-	if ((res = expand_dir(dir.s, &exp_dir, &dir_fd, command)) != 0)
-	    goto err_dir;
-	break;
-
-    case TW_PATH | TW_TEXT:
-    case TW_PATH | TW_FILE:
-    case TW_PATH | TW_DIRECTORY:
-    case TW_PATH | TW_COMMAND:
-	if ((dir_fd = opendir(short2str(exp_dir.s))) == NULL) {
- 	    if (command == RECOGNIZE)
- 		xprintf("\n");
- 	    xprintf("%S: %s", exp_dir.s, strerror(errno));
- 	    if (command != RECOGNIZE)
- 		xprintf("\n");
- 	    NeedsRedraw = 1;
-	    res = -1;
-	    goto err_dir;
-	}
-	if (exp_dir.len != 0 && exp_dir.s[exp_dir.len - 1] != '/') {
-	    Strbuf_append1(&exp_dir, '/');
-	    Strbuf_terminate(&exp_dir);
-	}
-
-	looking &= ~TW_PATH;
-
-	switch (looking) {
-	case TW_TEXT:
-	    flags |= TW_TEXT_CHK;
-	    break;
-
-	case TW_FILE:
-	    break;
-
-	case TW_DIRECTORY:
-	    flags |= TW_DIR_CHK;
-	    break;
-
-	case TW_COMMAND:
-	    xfree(name);
-	    target = name = Strsave(word->s);	/* so it can match things */
-	    break;
-
-	default:
-	    abort();	/* Cannot happen */
-	    break;
-	}
-	break;
-
-    case TW_LOGNAME:
-	user_name = word->s + 1;
-	goto do_user;
-
-	/*FALLTHROUGH*/
-    case TW_USER:
-	user_name = word->s;
-    do_user:
-	/*
-	 * Check if the spelling was already correct
-	 * From: Rob McMahon <cudcv@cu.warwick.ac.uk>
-	 */
-	if (command == SPELL && xgetpwnam(short2str(user_name)) != NULL) {
-#ifdef YPBUGS
-	    fix_yp_bugs();
-#endif /* YPBUGS */
-	    res = 0;
-	    goto err_dir;
-	}
-	xfree(name);
-	target = name = Strsave(user_name);
-	break;
-
-    case TW_COMMAND:
-    case TW_VARLIST:
-    case TW_WORDLIST:
-	target = name = Strsave(word->s);	/* so it can match things */
-	break;
-
-    default:
-	xprintf(CGETS(30, 9,
-		"\n%s internal error: I don't know what I'm looking for!\n"),
-		progname);
-	NeedsRedraw = 1;
-	res = -1;
-	goto err_dir;
-    }
-
-    cleanup_push(&exp_name, Strbuf_cleanup);
-    numitems = tw_collect(command, looking, &exp_dir, &exp_name, target, pat,
-			  flags, dir_fd);
-    if (numitems == -1)
-	goto end;
-
-    switch (command) {
-    case RECOGNIZE:
-    case RECOGNIZE_ALL:
-    case RECOGNIZE_SCROLL:
-	if (numitems <= 0) 
-	    break;
-
-	Strbuf_terminate(&exp_name);
-	tw_fixword(looking, word, dir.s, exp_name.s);
-
-	if (!match_unique_match && is_set(STRaddsuffix) && numitems == 1) {
-	    switch (suf) {
-	    case 0: 	/* Automatic suffix */
-		Strbuf_append1(word,
-			       tw_suffix(looking, exp_dir.s, exp_name.s));
-		break;
-
-	    case CHAR_ERR:	/* No suffix */
-		break;
-
-	    default:	/* completion specified suffix */
-		Strbuf_append1(word, suf);
-		break;
-	    }
-	    Strbuf_terminate(word);
-	}
-	break;
-
-    case LIST:
-	tw_list_items(looking, numitems, list_max);
-	tw_item_free();
-	break;
-
-    case SPELL:
-	Strbuf_terminate(&exp_name);
-	tw_fixword(looking, word, dir.s, exp_name.s);
-	break;
-
-    default:
-	xprintf("Bad tw_command\n");
-	numitems = 0;
-    }
- end:
-    res = numitems;
- err_dir:
-    cleanup_until(&dir);
-    return res;
-} /* end t_search */
-
-
-/* extract_dir_and_name():
- * 	parse full path in file into 2 parts: directory and file names
- * 	Should leave final slash (/) at end of dir.
- */
-static void
-extract_dir_and_name(const Char *path, struct Strbuf *dir, Char **name)
-{
-    Char *p;
-
-    p = Strrchr(path, '/');
-#ifdef WINNT_NATIVE
-    if (p == NULL)
-	p = Strrchr(path, ':');
-#endif /* WINNT_NATIVE */
-    if (p == NULL)
-	*name = Strsave(path);
-    else {
-	p++;
-	*name = Strsave(p);
-	Strbuf_appendn(dir, path, p - path);
-    }
-    Strbuf_terminate(dir);
-} /* end extract_dir_and_name */
-
-
-/* dollar():
- * 	expand "/$old1/$old2/old3/"
- * 	to "/value_of_old1/value_of_old2/old3/"
- */
-Char *
-dollar(const Char *old)
-{
-    struct Strbuf buf = Strbuf_INIT;
-
-    while (*old) {
-	if (*old != '$')
-	    Strbuf_append1(&buf, *old++);
-	else {
-	    if (expdollar(&buf, &old, QUOTE) == 0) {
-		xfree(buf.s);
-		return NULL;
-	    }
-	}
-    }
-    return Strbuf_finish(&buf);
-} /* end dollar */
-
-
-/* tilde():
- * 	expand ~person/foo to home_directory_of_person/foo
- *	or =<stack-entry> to <dir in stack entry>
- */
-static int
-tilde(struct Strbuf *new, Char *old)
-{
-    Char *o, *p;
-
-    new->len = 0;
-    switch (old[0]) {
-    case '~': {
-	Char *name, *home;
-
-	old++;
-	for (o = old; *o && *o != '/'; o++)
-	    continue;
-	name = Strnsave(old, o - old);
-	home = gethdir(name);
-	xfree(name);
-	if (home == NULL)
-	    goto err;
-	Strbuf_append(new, home);
-	xfree(home);
-	/* If the home directory expands to "/", we do
-	 * not want to create "//" by appending a slash from o.
-	 */
-	if (new->s[0] == '/' && new->len == 1 && *o == '/')
-	    ++o;
-	Strbuf_append(new, o);
-	break;
-    }
-
-    case '=':
-	if ((p = globequal(old)) == NULL)
-	    goto err;
-	if (p != old) {
-	    Strbuf_append(new, p);
-	    xfree(p);
-	    break;
-	}
-	/*FALLTHROUGH*/
-
-    default:
-	Strbuf_append(new, old);
-	break;
-    }
-    Strbuf_terminate(new);
-    return 0;
-
- err:
-    Strbuf_terminate(new);
-    return -1;
-} /* end tilde */
-
-
-/* expand_dir():
- *	Open the directory given, expanding ~user and $var
- *	Optionally normalize the path given
- */
-static int
-expand_dir(const Char *dir, struct Strbuf *edir, DIR **dfd, COMMAND cmd)
-{
-    Char   *nd = NULL;
-    Char *tdir;
-
-    tdir = dollar(dir);
-    cleanup_push(tdir, xfree);
-    if (tdir == NULL ||
-	(tilde(edir, tdir) != 0) ||
-	!(nd = dnormalize(edir->len ? edir->s : STRdot,
-			  symlinks == SYM_IGNORE || symlinks == SYM_EXPAND)) ||
-	((*dfd = opendir(short2str(nd))) == NULL)) {
-	xfree(nd);
-	if (cmd == SPELL || SearchNoDirErr) {
-	    cleanup_until(tdir);
-	    return (-2);
-	}
-	/*
-	 * From: Amos Shapira <amoss@cs.huji.ac.il>
-	 * Print a better message when completion fails
-	 */
-	xprintf("\n%S %s\n", edir->len ? edir->s : (tdir ? tdir : dir),
-		(errno == ENOTDIR ? CGETS(30, 10, "not a directory") :
-		(errno == ENOENT ? CGETS(30, 11, "not found") :
-		 CGETS(30, 12, "unreadable"))));
-	NeedsRedraw = 1;
-	cleanup_until(tdir);
-	return (-1);
-    }
-    cleanup_until(tdir);
-    if (nd) {
-	if (*dir != '\0') {
-	    int slash;
-
-	    /*
-	     * Copy and append a / if there was one
-	     */
-	    slash = edir->len != 0 && edir->s[edir->len - 1] == '/';
-	    edir->len = 0;
-	    Strbuf_append(edir, nd);
-	    if (slash != 0 && edir->s[edir->len - 1] != '/')
-		Strbuf_append1(edir, '/');
-	    Strbuf_terminate(edir);
-	}
-	xfree(nd);
-    }
-    return 0;
-} /* end expand_dir */
-
-
-/* nostat():
- *	Returns true if the directory should not be stat'd,
- *	false otherwise.
- *	This way, things won't grind to a halt when you complete in /afs
- *	or very large directories.
- */
-static int
-nostat(Char *dir)
-{
-    struct varent *vp;
-    Char **cp;
-
-    if ((vp = adrof(STRnostat)) == NULL || (cp = vp->vec) == NULL)
-	return FALSE;
-    for (; *cp != NULL; cp++) {
-	if (Strcmp(*cp, STRstar) == 0)
-	    return TRUE;
-	if (Gmatch(dir, *cp))
-	    return TRUE;
-    }
-    return FALSE;
-} /* end nostat */
-
-
-/* filetype():
- *	Return a character that signifies a filetype
- *	symbology from 4.3 ls command.
- */
-static  Char
-filetype(Char *dir, Char *file)
-{
-    if (dir) {
-	Char *path;
-	char   *ptr;
-	struct stat statb;
-
-	if (nostat(dir)) return(' ');
-
-	path = Strspl(dir, file);
-	ptr = short2str(path);
-	xfree(path);
-
-	if (lstat(ptr, &statb) != -1) {
-#ifdef S_ISLNK
-	    if (S_ISLNK(statb.st_mode)) {	/* Symbolic link */
-		if (adrof(STRlistlinks)) {
-		    if (stat(ptr, &statb) == -1)
-			return ('&');
-		    else if (S_ISDIR(statb.st_mode))
-			return ('>');
-		    else
-			return ('@');
-		}
-		else
-		    return ('@');
-	    }
-#endif
-#ifdef S_ISSOCK
-	    if (S_ISSOCK(statb.st_mode))	/* Socket */
-		return ('=');
-#endif
-#ifdef S_ISFIFO
-	    if (S_ISFIFO(statb.st_mode)) /* Named Pipe */
-		return ('|');
-#endif
-#ifdef S_ISHIDDEN
-	    if (S_ISHIDDEN(statb.st_mode)) /* Hidden Directory [aix] */
-		return ('+');
-#endif
-#ifdef S_ISCDF
-	    {
-		struct stat hpstatb;
-		char *p2;
-
-		p2 = strspl(ptr, "+");	/* Must append a '+' and re-stat(). */
-		if ((stat(p2, &hpstatb) != -1) && S_ISCDF(hpstatb.st_mode)) {
-		    xfree(p2);
-		    return ('+');	/* Context Dependent Files [hpux] */
-		}
-		xfree(p2);
-	    }
-#endif
-#ifdef S_ISNWK
-	    if (S_ISNWK(statb.st_mode)) /* Network Special [hpux] */
-		return (':');
-#endif
-#ifdef S_ISCHR
-	    if (S_ISCHR(statb.st_mode))	/* char device */
-		return ('%');
-#endif
-#ifdef S_ISBLK
-	    if (S_ISBLK(statb.st_mode))	/* block device */
-		return ('#');
-#endif
-#ifdef S_ISDIR
-	    if (S_ISDIR(statb.st_mode))	/* normal Directory */
-		return ('/');
-#endif
-	    if (statb.st_mode & (S_IXUSR|S_IXGRP|S_IXOTH))
-		return ('*');
-	}
-    }
-    return (' ');
-} /* end filetype */
-
-
-/* isadirectory():
- *	Return trus if the file is a directory
- */
-static int
-isadirectory(const Char *dir, const Char *file)
-     /* return 1 if dir/file is a directory */
-     /* uses stat rather than lstat to get dest. */
-{
-    if (dir) {
-	Char *path;
-	char *cpath;
-	struct stat statb;
-
-	path = Strspl(dir, file);
-	cpath = short2str(path);
-	xfree(path);
-	if (stat(cpath, &statb) >= 0) {	/* resolve through symlink */
-#ifdef S_ISSOCK
-	    if (S_ISSOCK(statb.st_mode))	/* Socket */
-		return 0;
-#endif
-#ifdef S_ISFIFO
-	    if (S_ISFIFO(statb.st_mode))	/* Named Pipe */
-		return 0;
-#endif
-	    if (S_ISDIR(statb.st_mode))	/* normal Directory */
-		return 1;
-	}
-    }
-    return 0;
-} /* end isadirectory */
-
-
-
-/* find_rows():
- * 	Return how many rows needed to print sorted down columns
- */
-static int
-find_rows(Char *items[], int count, int no_file_suffix)
-{
-    int i, columns, rows;
-    unsigned int maxwidth = 0;
-
-    for (i = 0; i < count; i++)	/* find widest string */
-	maxwidth = max(maxwidth, (unsigned int) Strlen(items[i]));
-
-    maxwidth += no_file_suffix ? 1 : 2;	/* for the file tag and space */
-    columns = (TermH + 1) / maxwidth;	/* PWP: terminal size change */
-    if (!columns)
-	columns = 1;
-    rows = (count + (columns - 1)) / columns;
-
-    return rows;
-} /* end rows_needed_by_print_by_column */
-
-
-/* print_by_column():
- * 	Print sorted down columns or across columns when the first
- *	word of $listflags shell variable contains 'x'.
- *
- */
-void
-print_by_column(Char *dir, Char *items[], int count, int no_file_suffix)
-{
-    int i, r, c, columns, rows;
-    size_t w;
-    unsigned int wx, maxwidth = 0;
-    Char *val;
-    int across;
-
-    lbuffed = 0;		/* turn off line buffering */
-
-    
-    across = ((val = varval(STRlistflags)) != STRNULL) && 
-	     (Strchr(val, 'x') != NULL);
-
-    for (i = 0; i < count; i++)	{ /* find widest string */
-	maxwidth = max(maxwidth, (unsigned int) NLSStringWidth(items[i]));
-    }
-
-    maxwidth += no_file_suffix ? 1 : 2;	/* for the file tag and space */
-    columns = TermH / maxwidth;		/* PWP: terminal size change */
-    if (!columns || !isatty(didfds ? 1 : SHOUT))
-	columns = 1;
-    rows = (count + (columns - 1)) / columns;
-
-    i = -1;
-    for (r = 0; r < rows; r++) {
-	for (c = 0; c < columns; c++) {
-	    i = across ? (i + 1) : (c * rows + r);
-
-	    if (i < count) {
-		wx = 0;
-		w = Strlen(items[i]);
-
-#ifdef COLOR_LS_F
-		if (no_file_suffix) {
-		    /* Print the command name */
-		    Char f = items[i][w - 1];
-		    items[i][w - 1] = 0;
-		    print_with_color(items[i], w - 1, f);
-		    items[i][w - 1] = f;
-		}
-		else {
-		    /* Print filename followed by '/' or '*' or ' ' */
-		    print_with_color(items[i], w, filetype(dir, items[i]));
-		    wx++;
-		}
-#else /* ifndef COLOR_LS_F */
-		if (no_file_suffix) {
-		    /* Print the command name */
-		    xprintf("%S", items[i]);
-		}
-		else {
-		    /* Print filename followed by '/' or '*' or ' ' */
-		    xprintf("%-S%c", items[i], filetype(dir, items[i]));
-		    wx++;
-		}
-#endif /* COLOR_LS_F */
-
-		if (c < (columns - 1)) {	/* Not last column? */
-		    w = NLSStringWidth(items[i]) + wx;
-		    for (; w < maxwidth; w++)
-			xputchar(' ');
-		}
-	    }
-	    else if (across)
-		break;
-	}
-	if (Tty_raw_mode)
-	    xputchar('\r');
-	xputchar('\n');
-    }
-
-    lbuffed = 1;		/* turn back on line buffering */
-    flush();
-} /* end print_by_column */
-
-
-/* StrQcmp():
- *	Compare strings ignoring the quoting chars
- */
-int
-StrQcmp(const Char *str1, const Char *str2)
-{
-    for (; *str1 && samecase(*str1 & TRIM) == samecase(*str2 & TRIM); 
-	 str1++, str2++)
-	continue;
-    /*
-     * The following case analysis is necessary so that characters which look
-     * negative collate low against normal characters but high against the
-     * end-of-string NUL.
-     */
-    if (*str1 == '\0' && *str2 == '\0')
-	return (0);
-    else if (*str1 == '\0')
-	return (-1);
-    else if (*str2 == '\0')
-	return (1);
-    else
-	return ((*str1 & TRIM) - (*str2 & TRIM));
-} /* end StrQcmp */
-
-
-/* fcompare():
- * 	Comparison routine for qsort, (Char **, Char **)
- */
-int
-fcompare(const void *xfile1, const void *xfile2)
-{
-    const Char *const *file1 = xfile1, *const *file2 = xfile2;
-
-    return collate(*file1, *file2);
-} /* end fcompare */
-
-
-/* catn():
- *	Concatenate src onto tail of des.
- *	Des is a string whose maximum length is count.
- *	Always null terminate.
- */
-void
-catn(Char *des, const Char *src, int count)
-{
-    while (*des && --count > 0)
-	des++;
-    while (--count > 0)
-	if ((*des++ = *src++) == 0)
-	    return;
-    *des = '\0';
-} /* end catn */
-
-
-/* copyn():
- *	 like strncpy but always leave room for trailing \0
- *	 and always null terminate.
- */
-void
-copyn(Char *des, const Char *src, size_t count)
-{
-    while (--count != 0)
-	if ((*des++ = *src++) == 0)
-	    return;
-    *des = '\0';
-} /* end copyn */
-
-
-/* tgetenv():
- *	like it's normal string counter-part
- */
-Char *
-tgetenv(Char *str)
-{
-    Char  **var;
-    size_t  len;
-    int     res;
-
-    len = Strlen(str);
-    /* Search the STR_environ for the entry matching str. */
-    for (var = STR_environ; var != NULL && *var != NULL; var++)
-	if (Strlen(*var) >= len && (*var)[len] == '=') {
-	  /* Temporarily terminate the string so we can copy the variable
-	     name. */
-	    (*var)[len] = '\0';
-	    res = StrQcmp(*var, str);
-	    /* Restore the '=' and return a pointer to the value of the
-	       environment variable. */
-	    (*var)[len] = '=';
-	    if (res == 0)
-		return (&((*var)[len + 1]));
-	}
-    return (NULL);
-} /* end tgetenv */
-
-
-struct scroll_tab_list *scroll_tab = 0;
-
-static void
-add_scroll_tab(Char *item)
-{
-    struct scroll_tab_list *new_scroll;
-
-    new_scroll = xmalloc(sizeof(struct scroll_tab_list));
-    new_scroll->element = Strsave(item);
-    new_scroll->next = scroll_tab;
-    scroll_tab = new_scroll;
-}
-
-static void
-choose_scroll_tab(struct Strbuf *exp_name, int cnt)
-{
-    struct scroll_tab_list *loop;
-    int tmp = cnt;
-    Char **ptr;
-
-    ptr = xmalloc(sizeof(Char *) * cnt);
-    cleanup_push(ptr, xfree);
-
-    for(loop = scroll_tab; loop && (tmp >= 0); loop = loop->next)
-	ptr[--tmp] = loop->element;
-
-    qsort(ptr, cnt, sizeof(Char *), fcompare);
-
-    exp_name->len = 0;
-    Strbuf_append(exp_name, ptr[curchoice]);
-    Strbuf_terminate(exp_name);
-    cleanup_until(ptr);
-}
-
-static void
-free_scroll_tab(void)
-{
-    struct scroll_tab_list *loop;
-
-    while(scroll_tab) {
-	loop = scroll_tab;
-	scroll_tab = scroll_tab->next;
-	xfree(loop->element);
-	xfree(loop);
-    }
-}