/* $NetBSD: edit.c,v 1.11 2003/06/23 11:38:54 agc Exp $ */ /* * Command line editing - common code * */ #include #ifndef lint __RCSID("$NetBSD: edit.c,v 1.11 2003/06/23 11:38:54 agc Exp $"); #endif #include "config.h" #ifdef EDIT #include "sh.h" #include "tty.h" #define EXTERN #include "edit.h" #undef EXTERN #ifdef OS_SCO /* SCO Unix 3.2v4.1 */ # include /* needed for */ # include /* needed for struct winsize */ #endif /* OS_SCO */ #include #include #include "ksh_stat.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 int path_order_cmp ARGS((const void *, const void *)); 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; #if defined(TIOCGWINSZ) if (got_sigwinch) check_sigwinch(); #endif /* TIOCGWINSZ */ 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); return i; } /* tty I/O */ int x_getc() { #ifdef OS2 unsigned char c = _read_kbd(0, 1, 0); return c == 0 ? 0xE0 : c; #else /* OS2 */ 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; #endif /* OS2 */ } 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_t x_mode(onoff) bool_t onoff; { static bool_t x_cur_mode; bool_t 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); #ifdef __CYGWIN__ if (edchars.eof == '\0') edchars.eof = '\4'; #endif /* __CYGWIN__ */ /* 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 }; char *rcp; int i; if ((rcp = ksh_strrchr_dirsep(ed))) ed = ++rcp; for (i = 0; i < NELEM(edit_flags); i++) if (strstr(ed, options[(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 *str, int slen)); static void glob_table ARGS((const char *pat, XPtrV *wp, struct table *tp)); static void glob_path ARGS((int flags, const char *pat, XPtrV *wp, const char *path)); #if 0 /* not used... */ int x_complete_word ARGS((const char *str, int slen, int is_command, int *multiple, char **ret)); int x_complete_word(str, slen, is_command, nwordsp, ret) const char *str; int slen; int is_command; int *nwordsp; char **ret; { int nwords; int prefix_len; char **words; nwords = (is_command ? x_command_glob : x_file_glob)(XCF_FULLPATH, str, slen, &words); *nwordsp = nwords; if (nwords == 0) { *ret = (char *) 0; return -1; } prefix_len = x_longest_prefix(nwords, words); *ret = str_nsave(words[0], prefix_len, ATEMP); x_free_words(nwords, words); return prefix_len; } #endif /* 0 */ 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; /* 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); nwords = 0; } } afree(toglob, ATEMP); *wordsp = nwords ? words : (char **) 0; return nwords; } /* Data structure used in x_command_glob() */ struct path_order_info { char *word; int base; int path_order; }; /* 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 && buf[end+1] == ' ') 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; } static char * find_match(const char *s, int have) { int want = 0; int nest = 1; int c; switch (have) { case '(': want = ')'; break; case '{': want = '}'; break; case '[': want = ']'; break; case '\'': case '"': want = have; break; } if (want == 0 || s == NULL) return NULL; while (nest > 0 && (c = *s)) { if (c == '\\') { s++; s++; continue; } if (c == want) nest--; else if (c == have) nest++; if (nest > 0) s++; } return (nest == 0) ? (char *) s : NULL; } /* 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_t 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 parameter expansion ('$') with nothing following * it, 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; else if (*s == '$') { if (*++s == '{') { char *cp; if ((cp = find_match(&s[1], '{'))) s = ++cp; } if (*s) s += strcspn(s, ".,/?-<>[]{}()'\";:\\|=+*&^%$#@!`~"); if (!*s) return toglob; } } 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(p[j]) != FILECHCONV(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 (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, path) int flags; const char *pat; XPtrV *wp; const char *path; { 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 = path; 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 *s, size_t len)); { 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 */