/*      $NetBSD: edit.c,v 1.36 2024/10/03 20:14:01 rillig Exp $ */

/*
 * Command line editing - common code
 *
 */
#include <sys/cdefs.h>

#ifndef lint
__RCSID("$NetBSD: edit.c,v 1.36 2024/10/03 20:14:01 rillig Exp $");
#endif

#include <stdbool.h>

#include "config.h"
#ifdef EDIT

#include "sh.h"
#include "tty.h"
#define EXTERN
#include "edit.h"
#undef EXTERN
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <ctype.h>


#if defined(TIOCGWINSZ)
static RETSIGTYPE x_sigwinch ARGS((int sig));
static int got_sigwinch;
static void check_sigwinch ARGS((void));
#endif /* TIOCGWINSZ */

static int      x_file_glob ARGS((int flags, const char *str, int slen,
                                  char ***wordsp));
static int      x_command_glob ARGS((int flags, const char *str, int slen,
                                     char ***wordsp));
static int      x_locate_word ARGS((const char *buf, int buflen, int pos,
                                    int *startp, int *is_command));

static char vdisable_c;


/* Called from main */
void
x_init()
{
        /* set to -2 to force initial binding */
        edchars.erase = edchars.kill = edchars.intr = edchars.quit
                = edchars.eof = -2;
        /* default value for deficient systems */
        edchars.werase = 027;   /* ^W */

#ifdef TIOCGWINSZ
# ifdef SIGWINCH
        if (setsig(&sigtraps[SIGWINCH], x_sigwinch, SS_RESTORE_ORIG|SS_SHTRAP))
                sigtraps[SIGWINCH].flags |= TF_SHELL_USES;
# endif /* SIGWINCH */
        got_sigwinch = 1; /* force initial check */
        check_sigwinch();
#endif /* TIOCGWINSZ */

#ifdef EMACS
        x_init_emacs();
#endif /* EMACS */

        /* Bizarreness to figure out how to disable
         * a struct termios.c_cc[] char
         */
#ifdef _POSIX_VDISABLE
        if (_POSIX_VDISABLE >= 0)
                vdisable_c = (char) _POSIX_VDISABLE;
        else
                /* `feature not available' */
                vdisable_c = (char) 0377;
#else
# if defined(HAVE_PATHCONF) && defined(_PC_VDISABLE)
        vdisable_c = fpathconf(tty_fd, _PC_VDISABLE);
# else
        vdisable_c = (char) 0377;       /* default to old BSD value */
# endif
#endif /* _POSIX_VDISABLE */
}

#if defined(TIOCGWINSZ)
static RETSIGTYPE
x_sigwinch(sig)
        int sig;
{
        got_sigwinch = 1;
        return RETSIGVAL;
}

static void
check_sigwinch ARGS((void))
{
        if (got_sigwinch) {
                struct winsize ws;

                got_sigwinch = 0;
                if (procpid == kshpid && ioctl(tty_fd, TIOCGWINSZ, &ws) >= 0) {
                        struct tbl *vp;

                        /* Do NOT export COLUMNS/LINES.  Many applications
                         * check COLUMNS/LINES before checking ws.ws_col/row,
                         * so if the app is started with C/L in the environ
                         * and the window is then resized, the app won't
                         * see the change cause the environ doesn't change.
                         */
                        if (ws.ws_col) {
                                x_cols = ws.ws_col < MIN_COLS ? MIN_COLS
                                                : ws.ws_col;
                                
                                if ((vp = typeset("COLUMNS", 0, 0, 0, 0)))
                                        setint(vp, (long) ws.ws_col);
                        }
                        if (ws.ws_row
                            && (vp = typeset("LINES", 0, 0, 0, 0)))
                                setint(vp, (long) ws.ws_row);
                }
        }
}
#endif /* TIOCGWINSZ */

/*
 * read an edited command line
 */
int
x_read(buf, len)
        char *buf;
        size_t len;
{
        int     i;

        x_mode(true);
#ifdef EMACS
        if (Flag(FEMACS) || Flag(FGMACS))
                i = x_emacs(buf, len);
        else
#endif
#ifdef VI
        if (Flag(FVI))
                i = x_vi(buf, len);
        else
#endif
                i = -1;         /* internal error */
        x_mode(false);
#if defined(TIOCGWINSZ)
        if (got_sigwinch)
                check_sigwinch();
#endif /* TIOCGWINSZ */

        return i;
}

/* tty I/O */

int
x_getc()
{
        char c;
        int n;

        while ((n = blocking_read(0, &c, 1)) < 0 && errno == EINTR)
                if (trap) {
                        x_mode(false);
                        runtraps(0);
                        x_mode(true);
                }
        if (n != 1)
                return -1;
        return (int) (unsigned char) c;
}

void
x_flush()
{
        shf_flush(shl_out);
}

void
x_putc(c)
        int c;
{
        shf_putc(c, shl_out);
}

void
x_puts(s)
        const char *s;
{
        while (*s != 0)
                shf_putc(*s++, shl_out);
}

bool
x_mode(bool onoff)
{
        static bool     x_cur_mode;
        bool            prev;

        if (x_cur_mode == onoff)
                return x_cur_mode;
        prev = x_cur_mode;
        x_cur_mode = onoff;

        if (onoff) {
                TTY_state       cb;
                X_chars         oldchars;
                
                oldchars = edchars;
                cb = tty_state;

#if defined(HAVE_TERMIOS_H) || defined(HAVE_TERMIO_H)
                edchars.erase = cb.c_cc[VERASE];
                edchars.kill = cb.c_cc[VKILL];
                edchars.intr = cb.c_cc[VINTR];
                edchars.quit = cb.c_cc[VQUIT];
                edchars.eof = cb.c_cc[VEOF];
# ifdef VWERASE
                edchars.werase = cb.c_cc[VWERASE];
# endif
# ifdef _CRAY2          /* brain-damaged terminal handler */
                cb.c_lflag &= ~(ICANON|ECHO);
                /* rely on print routine to map '\n' to CR,LF */
# else
                cb.c_iflag &= ~(INLCR|ICRNL);
#  ifdef _BSD_SYSV      /* need to force CBREAK instead of RAW (need CRMOD on output) */
                cb.c_lflag &= ~(ICANON|ECHO);
#  else
#   ifdef SWTCH /* need CBREAK to handle swtch char */
                cb.c_lflag &= ~(ICANON|ECHO);
                cb.c_lflag |= ISIG;
                cb.c_cc[VINTR] = vdisable_c;
                cb.c_cc[VQUIT] = vdisable_c;
#   else
                cb.c_lflag &= ~(ISIG|ICANON|ECHO);
#   endif
#  endif
#  ifdef VLNEXT
                /* osf/1 processes lnext when ~icanon */
                cb.c_cc[VLNEXT] = vdisable_c;
#  endif /* VLNEXT */
#  ifdef VDISCARD
                /* sunos 4.1.x & osf/1 processes discard(flush) when ~icanon */
                cb.c_cc[VDISCARD] = vdisable_c;
#  endif /* VDISCARD */
                cb.c_cc[VTIME] = 0;
                cb.c_cc[VMIN] = 1;
# endif /* _CRAY2 */
#else
        /* Assume BSD tty stuff. */
                edchars.erase = cb.sgttyb.sg_erase;
                edchars.kill = cb.sgttyb.sg_kill;
                cb.sgttyb.sg_flags &= ~ECHO;
                cb.sgttyb.sg_flags |= CBREAK;
#  ifdef TIOCGATC
                edchars.intr = cb.lchars.tc_intrc;
                edchars.quit = cb.lchars.tc_quitc;
                edchars.eof = cb.lchars.tc_eofc;
                edchars.werase = cb.lchars.tc_werasc;
                cb.lchars.tc_suspc = -1;
                cb.lchars.tc_dsuspc = -1;
                cb.lchars.tc_lnextc = -1;
                cb.lchars.tc_statc = -1;
                cb.lchars.tc_intrc = -1;
                cb.lchars.tc_quitc = -1;
                cb.lchars.tc_rprntc = -1;
#  else
                edchars.intr = cb.tchars.t_intrc;
                edchars.quit = cb.tchars.t_quitc;
                edchars.eof = cb.tchars.t_eofc;
                cb.tchars.t_intrc = -1;
                cb.tchars.t_quitc = -1;
#   ifdef TIOCGLTC
                edchars.werase = cb.ltchars.t_werasc;
                cb.ltchars.t_suspc = -1;
                cb.ltchars.t_dsuspc = -1;
                cb.ltchars.t_lnextc = -1;
                cb.ltchars.t_rprntc = -1;
#   endif
#  endif /* TIOCGATC */
#endif /* HAVE_TERMIOS_H || HAVE_TERMIO_H */

                set_tty(tty_fd, &cb, TF_WAIT);

                /* Convert unset values to internal `unset' value */
                if (edchars.erase == vdisable_c)
                        edchars.erase = -1;
                if (edchars.kill == vdisable_c)
                        edchars.kill = -1;
                if (edchars.intr == vdisable_c)
                        edchars.intr = -1;
                if (edchars.quit == vdisable_c)
                        edchars.quit = -1;
                if (edchars.eof == vdisable_c)
                        edchars.eof = -1;
                if (edchars.werase == vdisable_c)
                        edchars.werase = -1;
                if (memcmp(&edchars, &oldchars, sizeof(edchars)) != 0) {
#ifdef EMACS
                        x_emacs_keys(&edchars);
#endif
                }
        } else {
                /* TF_WAIT doesn't seem to be necessary when leaving xmode */
                set_tty(tty_fd, &tty_state, TF_NONE);
        }

        return prev;
}

/* NAME:
 *      promptlen - calculate the length of PS1 etc.
 *
 * DESCRIPTION:
 *      This function is based on a fix from guy@demon.co.uk
 *      It fixes a bug in that if PS1 contains '!', the length
 *      given by strlen() is probably wrong.
 *
 * RETURN VALUE:
 *      length
 */
int
promptlen(cp, spp)
    const char  *cp;
    const char **spp;
{
    int count = 0;
    const char *sp = cp;
    char delimiter = 0;
    int indelimit = 0;

    /* Undocumented AT&T ksh feature:
     * If the second char in the prompt string is \r then the first char
     * is taken to be a non-printing delimiter and any chars between two
     * instances of the delimiter are not considered to be part of the
     * prompt length
     */
    if (*cp && cp[1] == '\r') {
        delimiter = *cp;
        cp += 2;
    }

    for (; *cp; cp++) {
        if (indelimit && *cp != delimiter)
            ;
        else if (*cp == '\n' || *cp == '\r') {
            count = 0;
            sp = cp + 1;
        } else if (*cp == '\t') {
            count = (count | 7) + 1;
        } else if (*cp == '\b') {
            if (count > 0)
                count--;
        } else if (*cp == delimiter)
            indelimit = !indelimit;
        else
            count++;
    }
    if (spp)
        *spp = sp;
    return count;
}

void
set_editmode(ed)
        const char *ed;
{
        static const enum sh_flag edit_flags[] = {
#ifdef EMACS
                        FEMACS, FGMACS,
#endif
#ifdef VI
                        FVI,
#endif
                    };
        const char *rcp;
        size_t i;

        if ((rcp = ksh_strrchr_dirsep(ed)))
                ed = ++rcp;
        for (i = 0; i < NELEM(edit_flags); i++)
                if (strstr(ed, goptions[(int) edit_flags[i]].name)) {
                        change_flag(edit_flags[i], OF_SPECIAL, 1);
                        return;
                }
}

/* ------------------------------------------------------------------------- */
/*           Misc common code for vi/emacs                                   */

/* Handle the commenting/uncommenting of a line.
 * Returns:
 *      1 if a carriage return is indicated (comment added)
 *      0 if no return (comment removed)
 *      -1 if there is an error (not enough room for comment chars)
 * If successful, *lenp contains the new length.  Note: cursor should be
 * moved to the start of the line after (un)commenting.
 */
int
x_do_comment(buf, bsize, lenp)
        char *buf;
        int bsize;
        int *lenp;
{
        int i, j;
        int len = *lenp;

        if (len == 0)
                return 1; /* somewhat arbitrary - it's what at&t ksh does */

        /* Already commented? */
        if (buf[0] == '#') {
                int saw_nl = 0;

                for (j = 0, i = 1; i < len; i++) {
                        if (!saw_nl || buf[i] != '#')
                                buf[j++] = buf[i];
                        saw_nl = buf[i] == '\n';
                }
                *lenp = j;
                return 0;
        } else {
                int n = 1;

                /* See if there's room for the #'s - 1 per \n */
                for (i = 0; i < len; i++)
                        if (buf[i] == '\n')
                                n++;
                if (len + n >= bsize)
                        return -1;
                /* Now add them... */
                for (i = len, j = len + n; --i >= 0; ) {
                        if (buf[i] == '\n')
                                buf[--j] = '#';
                        buf[--j] = buf[i];
                }
                buf[0] = '#';
                *lenp += n;
                return 1;
        }
}

/* ------------------------------------------------------------------------- */
/*           Common file/command completion code for vi/emacs                */


static char     *add_glob ARGS((const char *, int));
static void     glob_table ARGS((const char *, XPtrV *, struct table *));
static void     glob_path ARGS((int, const char *, XPtrV *, const char *));

void
x_print_expansions(nwords, words, is_command)
        int nwords;
        char *const *words;
        int is_command;
{
        int use_copy = 0;
        int prefix_len;
        XPtrV l;

        l.beg = NULL;

        /* Check if all matches are in the same directory (in this
         * case, we want to omit the directory name)
         */
        if (!is_command
            && (prefix_len = x_longest_prefix(nwords, words)) > 0)
        {
                int i;

                /* Special case for 1 match (prefix is whole word) */
                if (nwords == 1)
                        prefix_len = x_basename(words[0], (char *) 0);
                /* Any (non-trailing) slashes in non-common word suffixes? */
                for (i = 0; i < nwords; i++)
                        if (x_basename(words[i] + prefix_len, (char *) 0)
                                                        > prefix_len)
                                break;
                /* All in same directory? */
                if (i == nwords) {
                        while (prefix_len > 0
                               && !ISDIRSEP(words[0][prefix_len - 1]))
                                prefix_len--;
                        use_copy = 1;
                        XPinit(l, nwords + 1);
                        for (i = 0; i < nwords; i++)
                                XPput(l, words[i] + prefix_len);
                        XPput(l, (char *) 0);
                }
        }

        /*
         * Enumerate expansions
         */
        x_putc('\r');
        x_putc('\n');
        pr_list(use_copy ? (char **) XPptrv(l) : words);

        if (use_copy)
                XPfree(l); /* not x_free_words() */
}

/*
 *  Do file globbing:
 *      - appends * to (copy of) str if no globbing chars found
 *      - does expansion, checks for no match, etc.
 *      - sets *wordsp to array of matching strings
 *      - returns number of matching strings
 */
static int
x_file_glob(flags, str, slen, wordsp)
        int flags;
        const char *str;
        int slen;
        char ***wordsp;
{
        char *toglob;
        char **words;
        int nwords, i, idx, escaping;
        XPtrV w;
        struct source *s, *sold;

        if (slen < 0)
                return 0;

        toglob = add_glob(str, slen);

        /* remove all escaping backward slashes */
        escaping = 0;
        for(i = 0, idx = 0; toglob[i]; i++) {
                if (toglob[i] == '\\' && !escaping) {
                        escaping = 1;
                        continue;
                }

                toglob[idx] = toglob[i];
                idx++;
                if (escaping) escaping = 0;
        }
        toglob[idx] = '\0';

        /*
         * Convert "foo*" (toglob) to an array of strings (words)
         */
        sold = source;
        s = pushs(SWSTR, ATEMP);
        s->start = s->str = toglob;
        source = s;
        if (yylex(ONEWORD) != LWORD) {
                source = sold;
                internal_errorf(0, "fileglob: substitute error");
                return 0;
        }
        source = sold;
        XPinit(w, 32);
        expand(yylval.cp, &w, DOGLOB|DOTILDE|DOMARKDIRS);
        XPput(w, NULL);
        words = (char **) XPclose(w);

        for (nwords = 0; words[nwords]; nwords++)
                ;
        if (nwords == 1) {
                struct stat statb;

                /* Check if globbing failed (returned glob pattern),
                 * but be careful (E.g. toglob == "ab*" when the file
                 * "ab*" exists is not an error).
                 * Also, check for empty result - happens if we tried
                 * to glob something which evaluated to an empty
                 * string (e.g., "$FOO" when there is no FOO, etc).
                 */
                if ((strcmp(words[0], toglob) == 0
                     && stat(words[0], &statb) < 0)
                    || words[0][0] == '\0')
                {
                        x_free_words(nwords, words);
                        words = NULL;
                        nwords = 0;
                }
        }
        afree(toglob, ATEMP);

        if (nwords) {
                *wordsp = words;
        } else if (words) {
                x_free_words(nwords, words);
                *wordsp = NULL;
        }
        return nwords;
}

/* Data structure used in x_command_glob() */
struct path_order_info {
        char *word;
        int base;
        int path_order;
};

static int path_order_cmp(const void *aa, const void *bb);

/* Compare routine used in x_command_glob() */
static int
path_order_cmp(aa, bb)
        const void *aa;
        const void *bb;
{
        const struct path_order_info *a = (const struct path_order_info *) aa;
        const struct path_order_info *b = (const struct path_order_info *) bb;
        int t;

        t = FILECMP(a->word + a->base, b->word + b->base);
        return t ? t : a->path_order - b->path_order;
}

static int
x_command_glob(flags, str, slen, wordsp)
        int flags;
        const char *str;
        int slen;
        char ***wordsp;
{
        char *toglob;
        char *pat;
        char *fpath;
        int nwords;
        XPtrV w;
        struct block *l;

        if (slen < 0)
                return 0;

        toglob = add_glob(str, slen);

        /* Convert "foo*" (toglob) to a pattern for future use */
        pat = evalstr(toglob, DOPAT|DOTILDE);
        afree(toglob, ATEMP);

        XPinit(w, 32);

        glob_table(pat, &w, &keywords);
        glob_table(pat, &w, &aliases);
        glob_table(pat, &w, &builtins);
        for (l = e->loc; l; l = l->next)
                glob_table(pat, &w, &l->funs);

        glob_path(flags, pat, &w, path);
        if ((fpath = str_val(global("FPATH"))) != null)
                glob_path(flags, pat, &w, fpath);

        nwords = XPsize(w);

        if (!nwords) {
                *wordsp = (char **) 0;
                XPfree(w);
                return 0;
        }

        /* Sort entries */
        if (flags & XCF_FULLPATH) {
                /* Sort by basename, then path order */
                struct path_order_info *info;
                struct path_order_info *last_info = 0;
                char **words = (char **) XPptrv(w);
                int path_order = 0;
                int i;

                info = (struct path_order_info *)
                        alloc(sizeof(struct path_order_info) * nwords, ATEMP);
                for (i = 0; i < nwords; i++) {
                        info[i].word = words[i];
                        info[i].base = x_basename(words[i], (char *) 0);
                        if (!last_info || info[i].base != last_info->base
                            || FILENCMP(words[i],
                                        last_info->word, info[i].base) != 0)
                        {
                                last_info = &info[i];
                                path_order++;
                        }
                        info[i].path_order = path_order;
                }
                qsort(info, nwords, sizeof(struct path_order_info),
                        path_order_cmp);
                for (i = 0; i < nwords; i++)
                        words[i] = info[i].word;
                afree((void *) info, ATEMP);
        } else {
                /* Sort and remove duplicate entries */
                char **words = (char **) XPptrv(w);
                int i, j;

                qsortp(XPptrv(w), (size_t) nwords, xstrcmp);

                for (i = j = 0; i < nwords - 1; i++) {
                        if (strcmp(words[i], words[i + 1]))
                                words[j++] = words[i];
                        else
                                afree(words[i], ATEMP);
                }
                words[j++] = words[i];
                nwords = j;
                w.cur = (void **) &words[j];
        }

        XPput(w, NULL);
        *wordsp = (char **) XPclose(w);

        return nwords;
}

#define IS_WORDC(c)     !( ctype(c, C_LEX1) || (c) == '\'' || (c) == '"'  \
                            || (c) == '`' || (c) == '=' || (c) == ':' )

static int
x_locate_word(buf, buflen, pos, startp, is_commandp)
        const char *buf;
        int buflen;
        int pos;
        int *startp;
        int *is_commandp;
{
        int p;
        int start, end;

        /* Bad call?  Probably should report error */
        if (pos < 0 || pos > buflen) {
                *startp = pos;
                *is_commandp = 0;
                return 0;
        }
        /* The case where pos == buflen happens to take care of itself... */

        start = pos;
        /* Keep going backwards to start of word (has effect of allowing
         * one blank after the end of a word)
         */
        for (; (start > 0 && IS_WORDC(buf[start - 1]))
                || (start > 1 && buf[start-2] == '\\'); start--)
                ;
        /* Go forwards to end of word */
        for (end = start; end < buflen && IS_WORDC(buf[end]); end++) {
                if (buf[end] == '\\' && (end+1) < buflen)
                        end++;
        }

        if (is_commandp) {
                int iscmd;

                /* Figure out if this is a command */
                for (p = start - 1; p >= 0 && isspace((unsigned char)buf[p]); p--)
                        ;
                iscmd = p < 0 || strchr(";|&()`", buf[p]);
                if (iscmd) {
                        /* If command has a /, path, etc. is not searched;
                         * only current directory is searched, which is just
                         * like file globbing.
                         */
                        for (p = start; p < end; p++)
                                if (ISDIRSEP(buf[p]))
                                        break;
                        iscmd = p == end;
                }
                *is_commandp = iscmd;
        }

        *startp = start;

        return end - start;
}

int
x_cf_glob(flags, buf, buflen, pos, startp, endp, wordsp, is_commandp)
        int flags;
        const char *buf;
        int buflen;
        int pos;
        int *startp;
        int *endp;
        char ***wordsp;
        int *is_commandp;
{
        int len;
        int nwords;
        char **words;
        int is_command;

        len = x_locate_word(buf, buflen, pos, startp, &is_command);
        if (!(flags & XCF_COMMAND))
                is_command = 0;
        /* Don't do command globing on zero length strings - it takes too
         * long and isn't very useful.  File globs are more likely to be
         * useful, so allow these.
         */
        if (len == 0 && is_command)
                return 0;

        nwords = (is_command ? x_command_glob : x_file_glob)(flags,
                                    buf + *startp, len, &words);
        if (nwords == 0) {
                *wordsp = (char **) 0;
                return 0;
        }

        if (is_commandp)
                *is_commandp = is_command;
        *wordsp = words;
        *endp = *startp + len;

        return nwords;
}

/* Given a string, copy it and possibly add a '*' to the end.  The
 * new string is returned.
 */
static char *
add_glob(str, slen)
        const char *str;
        int slen;
{
        char *toglob;
        char *s;
        bool saw_slash = false;

        if (slen < 0)
                return (char *) 0;

        toglob = str_nsave(str, slen + 1, ATEMP); /* + 1 for "*" */
        toglob[slen] = '\0';

        /*
         * If the pathname contains a wildcard (an unquoted '*',
         * '?', or '['), or a ~username
         * with no trailing slash, then it is globbed based on that
         * value (i.e., without the appended '*').
         */
        for (s = toglob; *s; s++) {
                if (*s == '\\' && s[1])
                        s++;
                else if (*s == '*' || *s == '[' || *s == '?'
                         || (s[1] == '(' /*)*/ && strchr("*+?@!", *s)))
                        break;
                else if (ISDIRSEP(*s))
                        saw_slash = true;
        }
        if (!*s && (*toglob != '~' || saw_slash)) {
                toglob[slen] = '*';
                toglob[slen + 1] = '\0';
        }

        return toglob;
}

/*
 * Find longest common prefix
 */
int
x_longest_prefix(nwords, words)
        int nwords;
        char *const *words;
{
        int i, j;
        int prefix_len;
        char *p;

        if (nwords <= 0)
                return 0;

        prefix_len = strlen(words[0]);
        for (i = 1; i < nwords; i++)
                for (j = 0, p = words[i]; j < prefix_len; j++)
                        if (FILECHCONV((unsigned char)p[j])
                            != FILECHCONV((unsigned char)words[0][j])) {
                                prefix_len = j;
                                break;
                        }
        return prefix_len;
}

void
x_free_words(nwords, words)
        int nwords;
        char **words;
{
        int i;

        for (i = 0; i < nwords; i++)
                if (words[i])
                        afree(words[i], ATEMP);
        afree(words, ATEMP);
}

/* Return the offset of the basename of string s (which ends at se - need not
 * be null terminated).  Trailing slashes are ignored.  If s is just a slash,
 * then the offset is 0 (actually, length - 1).
 *      s               Return
 *      /etc            1
 *      /etc/           1
 *      /etc//          1
 *      /etc/fo         5
 *      foo             0
 *      ///             2
 *                      0
 */
int
x_basename(s, se)
        const char *s;
        const char *se;
{
        const char *p;

        if (se == (char *) 0)
                se = s + strlen(s);
        if (s == se)
                return 0;

        /* Skip trailing slashes */
        for (p = se - 1; p > s && ISDIRSEP(*p); p--)
                ;
        for (; p > s && !ISDIRSEP(*p); p--)
                ;
        if (ISDIRSEP(*p) && p + 1 < se)
                p++;

        return p - s;
}

/*
 *  Apply pattern matching to a table: all table entries that match a pattern
 * are added to wp.
 */
static void
glob_table(pat, wp, tp)
        const char *pat;
        XPtrV *wp;
        struct table *tp;
{
        struct tstate ts;
        struct tbl *te;

        for (ksh_twalk(&ts, tp); (te = tnext(&ts)); ) {
                if (gmatch(te->name, pat, false))
                        XPput(*wp, str_save(te->name, ATEMP));
        }
}

static void
glob_path(flags, pat, wp, xpath)
        int flags;
        const char *pat;
        XPtrV *wp;
        const char *xpath;
{
        const char *sp, *p;
        char *xp;
        int staterr;
        int pathlen;
        int patlen;
        int oldsize, newsize, i, j;
        char **words;
        XString xs;

        patlen = strlen(pat) + 1;
        sp = xpath;
        Xinit(xs, xp, patlen + 128, ATEMP);
        while (sp) {
                xp = Xstring(xs, xp);
                if (!(p = strchr(sp, PATHSEP)))
                        p = sp + strlen(sp);
                pathlen = p - sp;
                if (pathlen) {
                        /* Copy sp into xp, stuffing any MAGIC characters
                         * on the way
                         */
                        const char *s = sp;

                        XcheckN(xs, xp, pathlen * 2);
                        while (s < p) {
                                if (ISMAGIC(*s))
                                        *xp++ = MAGIC;
                                *xp++ = *s++;
                        }
                        *xp++ = DIRSEP;
                        pathlen++;
                }
                sp = p;
                XcheckN(xs, xp, patlen);
                memcpy(xp, pat, patlen);

                oldsize = XPsize(*wp);
                glob_str(Xstring(xs, xp), wp, 1); /* mark dirs */
                newsize = XPsize(*wp);

                /* Check that each match is executable... */
                words = (char **) XPptrv(*wp);
                for (i = j = oldsize; i < newsize; i++) {
                        staterr = 0;
                        if ((search_access(words[i], X_OK, &staterr) >= 0)
                            || (staterr == EISDIR)) {
                                words[j] = words[i];
                                if (!(flags & XCF_FULLPATH))
                                        memmove(words[j], words[j] + pathlen,
                                                strlen(words[j] + pathlen) + 1);
                                j++;
                        } else
                                afree(words[i], ATEMP);
                }
                wp->cur = (void **) &words[j];

                if (!*sp++)
                        break;
        }
        Xfree(xs, xp);
}

/*
 * if argument string contains any special characters, they will
 * be escaped and the result will be put into edit buffer by
 * keybinding-specific function
 */
int
x_escape(s, len, putbuf_func)
        const char *s;
        size_t len;
        int (*putbuf_func) ARGS((const char *, size_t));
{
        size_t add, wlen;
        const char *ifs = str_val(local("IFS", 0));
        int rval=0;

        for (add = 0, wlen = len; wlen - add > 0; add++) {
                if (strchr("\\$(){}[]?*&;#|<>\"'`", s[add]) || strchr(ifs, s[add])) {
                        if (putbuf_func(s, add) != 0) {
                                rval = -1;
                                break;
                        }

                        putbuf_func("\\", 1);
                        putbuf_func(&s[add], 1);

                        add++;
                        wlen -= add;
                        s += add;
                        add = -1; /* after the increment it will go to 0 */
                }
        }
        if (wlen > 0 && rval == 0)
                rval = putbuf_func(s, wlen);

        return (rval);
}
#endif /* EDIT */