Adding upstream version 0.5.1upstream/0.5.1

1 files changed, 1135 insertions, 0 deletions

diff --git a/linein.c b/linein.c
new file mode 100644
index 0000000..03c14d1
--- /dev/null
+++ b/linein.c
@@ -0,0 +1,1135 @@
+/* $Id: linein.c,v 1.34 2003/09/26 17:59:51 ukai Exp $ */
+#include "fm.h"
+#include "local.h"
+#include "myctype.h"
+
+#ifdef USE_MOUSE
+#ifdef USE_GPM
+#include <gpm.h>
+#endif
+#if defined(USE_GPM) || defined(USE_SYSMOUSE)
+extern int do_getch();
+#define getch()	do_getch()
+#endif				/* USE_GPM */
+#endif				/* USE_MOUSE */
+
+#ifdef __EMX__
+#include <sys/kbdscan.h>
+#endif
+
+#define STR_LEN	1024
+#define CLEN (COLS - 2)
+
+static Str strBuf;
+static Lineprop strProp[STR_LEN];
+
+static Str CompleteBuf;
+static Str CFileName;
+static Str CBeforeBuf;
+static Str CAfterBuf;
+static Str CDirBuf;
+static char **CFileBuf = NULL;
+static int NCFileBuf;
+static int NCFileOffset;
+
+static void insertself(char c),
+_mvR(void), _mvL(void), _mvRw(void), _mvLw(void), delC(void), insC(void),
+_mvB(void), _mvE(void), _enter(void), _quo(void), _bs(void), _bsw(void),
+killn(void), killb(void), _inbrk(void), _esc(void), _editor(void),
+_prev(void), _next(void), _compl(void), _tcompl(void),
+_dcompl(void), _rdcompl(void), _rcompl(void);
+#ifdef __EMX__
+static int getcntrl(void);
+#endif
+
+static int terminated(unsigned char c);
+#define iself ((void(*)())insertself)
+
+static void next_compl(int next);
+static void next_dcompl(int next);
+static Str doComplete(Str ifn, int *status, int next);
+
+/* *INDENT-OFF* */
+void (*InputKeymap[32]) () = {
+/*  C-@     C-a     C-b     C-c     C-d     C-e     C-f     C-g     */
+    _compl, _mvB,   _mvL,   _inbrk, delC,   _mvE,   _mvR,   _inbrk,
+/*  C-h     C-i     C-j     C-k     C-l     C-m     C-n     C-o     */
+    _bs,    iself,  _enter, killn,  iself,  _enter, _next,  _editor,
+/*  C-p     C-q     C-r     C-s     C-t     C-u     C-v     C-w     */
+    _prev,  _quo,   _bsw,   iself,  _mvLw,  killb,  _quo,   _bsw,
+/*  C-x     C-y     C-z     C-[     C-\     C-]     C-^     C-_     */
+    _tcompl,_mvRw,  iself,  _esc,   iself,  iself,  iself,  iself,
+};
+/* *INDENT-ON* */
+
+static int setStrType(Str str, Lineprop *prop);
+static void addPasswd(char *p, Lineprop *pr, int len, int pos, int limit);
+static void addStr(char *p, Lineprop *pr, int len, int pos, int limit);
+
+static int CPos, CLen, offset;
+static int i_cont, i_broken, i_quote;
+static int cm_mode, cm_next, cm_clear, cm_disp_next, cm_disp_clear;
+static int need_redraw, is_passwd;
+static int move_word;
+
+static Hist *CurrentHist;
+static Str strCurrentBuf;
+static int use_hist;
+#ifdef USE_M17N
+static void ins_char(Str str);
+#else
+static void ins_char(char c);
+#endif
+
+char *
+inputLineHistSearch(char *prompt, char *def_str, int flag, Hist *hist,
+		    int (*incrfunc) (int ch, Str str, Lineprop *prop))
+{
+    int opos, x, y, lpos, rpos, epos;
+    unsigned char c;
+    char *p;
+#ifdef USE_M17N
+    Str tmp;
+#endif
+
+    is_passwd = FALSE;
+    move_word = TRUE;
+
+    CurrentHist = hist;
+    if (hist != NULL) {
+	use_hist = TRUE;
+	strCurrentBuf = NULL;
+    }
+    else {
+	use_hist = FALSE;
+    }
+    if (flag & IN_URL) {
+	cm_mode = CPL_ALWAYS | CPL_URL;
+    }
+    else if (flag & IN_FILENAME) {
+	cm_mode = CPL_ALWAYS;
+    }
+    else if (flag & IN_PASSWORD) {
+	cm_mode = CPL_NEVER;
+	is_passwd = TRUE;
+	move_word = FALSE;
+    }
+    else if (flag & IN_COMMAND)
+	cm_mode = CPL_ON;
+    else
+	cm_mode = CPL_OFF;
+    opos = get_strwidth(prompt);
+    epos = CLEN - opos;
+    if (epos < 0)
+	epos = 0;
+    lpos = epos / 3;
+    rpos = epos * 2 / 3;
+    offset = 0;
+
+    if (def_str) {
+	strBuf = Strnew_charp(def_str);
+	CLen = CPos = setStrType(strBuf, strProp);
+    }
+    else {
+	strBuf = Strnew();
+	CLen = CPos = 0;
+    }
+
+#ifdef SUPPORT_WIN9X_CONSOLE_MBCS
+    enable_win9x_console_input();
+#endif
+    i_cont = TRUE;
+    i_broken = FALSE;
+    i_quote = FALSE;
+    cm_next = FALSE;
+    cm_disp_next = -1;
+    need_redraw = FALSE;
+
+#ifdef USE_M17N
+    wc_char_conv_init(wc_guess_8bit_charset(DisplayCharset), InnerCharset);
+#endif
+    do {
+	x = calcPosition(strBuf->ptr, strProp, CLen, CPos, 0, CP_FORCE);
+	if (x - rpos > offset) {
+	    y = calcPosition(strBuf->ptr, strProp, CLen, CLen, 0, CP_AUTO);
+	    if (y - epos > x - rpos)
+		offset = x - rpos;
+	    else if (y - epos > 0)
+		offset = y - epos;
+	}
+	else if (x - lpos < offset) {
+	    if (x - lpos > 0)
+		offset = x - lpos;
+	    else
+		offset = 0;
+	}
+	move(LASTLINE, 0);
+	addstr(prompt);
+	if (is_passwd)
+	    addPasswd(strBuf->ptr, strProp, CLen, offset, COLS - opos);
+	else
+	    addStr(strBuf->ptr, strProp, CLen, offset, COLS - opos);
+	clrtoeolx();
+	move(LASTLINE, opos + x - offset);
+	refresh();
+
+      next_char:
+	c = getch();
+#ifdef __EMX__
+	if (c == 0) {
+	    if (!(c = getcntrl()))
+		goto next_char;
+	}
+#endif
+	cm_clear = TRUE;
+	cm_disp_clear = TRUE;
+	if (!i_quote &&
+	    (((cm_mode & CPL_ALWAYS) && (c == CTRL_I || c == ' ')) ||
+	     ((cm_mode & CPL_ON) && (c == CTRL_I)))) {
+	    if (emacs_like_lineedit && cm_next) {
+		_dcompl();
+		need_redraw = TRUE;
+	    }
+	    else {
+		_compl();
+		cm_disp_next = -1;
+	    }
+	}
+	else if (!i_quote && CLen == CPos &&
+		 (cm_mode & CPL_ALWAYS || cm_mode & CPL_ON) && c == CTRL_D) {
+	    if (!emacs_like_lineedit) {
+		_dcompl();
+		need_redraw = TRUE;
+	    }
+	}
+	else if (!i_quote && c == DEL_CODE) {
+	    _bs();
+	    cm_next = FALSE;
+	    cm_disp_next = -1;
+	}
+	else if (!i_quote && c < 0x20) {	/* Control code */
+	    if (incrfunc == NULL
+		|| (c = incrfunc((int)c, strBuf, strProp)) < 0x20)
+		(*InputKeymap[(int)c]) (c);
+	    if (incrfunc && c != (unsigned char)-1 && c != CTRL_J)
+		incrfunc(-1, strBuf, strProp);
+	    if (cm_clear)
+		cm_next = FALSE;
+	    if (cm_disp_clear)
+		cm_disp_next = -1;
+	}
+#ifdef USE_M17N
+	else {
+	    tmp = wc_char_conv(c);
+	    if (tmp == NULL) {
+		i_quote = TRUE;
+		goto next_char;
+	    }
+	    i_quote = FALSE;
+	    cm_next = FALSE;
+	    cm_disp_next = -1;
+	    if (CLen + tmp->length > STR_LEN || !tmp->length)
+		goto next_char;
+	    ins_char(tmp);
+	    if (incrfunc)
+		incrfunc(-1, strBuf, strProp);
+	}
+#else
+	else {
+	    i_quote = FALSE;
+	    cm_next = FALSE;
+	    cm_disp_next = -1;
+	    if (CLen >= STR_LEN)
+		goto next_char;
+	    insC();
+	    strBuf->ptr[CPos] = c;
+	    if (!is_passwd && get_mctype(&c) == PC_CTRL)
+		strProp[CPos] = PC_CTRL;
+	    else
+		strProp[CPos] = PC_ASCII;
+	    CPos++;
+	    if (incrfunc)
+		incrfunc(-1, strBuf, strProp);
+	}
+#endif
+	if (CLen && (flag & IN_CHAR))
+	    break;
+    } while (i_cont);
+
+    if (CurrentTab) {
+	if (need_redraw)
+	    displayBuffer(Currentbuf, B_FORCE_REDRAW);
+    }
+
+#ifdef SUPPORT_WIN9X_CONSOLE_MBCS
+    disable_win9x_console_input();
+#endif
+
+    if (i_broken)
+	return NULL;
+
+    move(LASTLINE, 0);
+    refresh();
+    p = strBuf->ptr;
+    if (flag & (IN_FILENAME | IN_COMMAND)) {
+	SKIP_BLANKS(p);
+    }
+    if (use_hist && !(flag & IN_URL) && *p != '\0') {
+	char *q = lastHist(hist);
+	if (!q || strcmp(q, p))
+	    pushHist(hist, p);
+    }
+    if (flag & IN_FILENAME)
+	return expandPath(p);
+    else
+	return allocStr(p, -1);
+}
+
+#ifdef __EMX__
+static int
+getcntrl(void)
+{
+    switch (getch()) {
+    case K_DEL:
+	return CTRL_D;
+    case K_LEFT:
+	return CTRL_B;
+    case K_RIGHT:
+	return CTRL_F;
+    case K_UP:
+	return CTRL_P;
+    case K_DOWN:
+	return CTRL_N;
+    case K_HOME:
+    case K_CTRL_LEFT:
+	return CTRL_A;
+    case K_END:
+    case K_CTRL_RIGHT:
+	return CTRL_E;
+    case K_CTRL_HOME:
+	return CTRL_U;
+    case K_CTRL_END:
+	return CTRL_K;
+    }
+    return 0;
+}
+#endif
+
+static void
+addPasswd(char *p, Lineprop *pr, int len, int offset, int limit)
+{
+    int rcol = 0, ncol;
+
+    ncol = calcPosition(p, pr, len, len, 0, CP_AUTO);
+    if (ncol > offset + limit)
+	ncol = offset + limit;
+    if (offset) {
+	addChar('{', 0);
+	rcol = offset + 1;
+    }
+    for (; rcol < ncol; rcol++)
+	addChar('*', 0);
+}
+
+static void
+addStr(char *p, Lineprop *pr, int len, int offset, int limit)
+{
+    int i = 0, rcol = 0, ncol, delta = 1;
+
+    if (offset) {
+	for (i = 0; i < len; i++) {
+	    if (calcPosition(p, pr, len, i, 0, CP_AUTO) > offset)
+		break;
+	}
+	if (i >= len)
+	    return;
+#ifdef USE_M17N
+	while (pr[i] & PC_WCHAR2)
+	    i++;
+#endif
+	addChar('{', 0);
+	rcol = offset + 1;
+	ncol = calcPosition(p, pr, len, i, 0, CP_AUTO);
+	for (; rcol < ncol; rcol++)
+	    addChar(' ', 0);
+    }
+    for (; i < len; i += delta) {
+#ifdef USE_M17N
+	delta = wtf_len((wc_uchar *) & p[i]);
+#endif
+	ncol = calcPosition(p, pr, len, i + delta, 0, CP_AUTO);
+	if (ncol - offset > limit)
+	    break;
+	if (p[i] == '\t') {
+	    for (; rcol < ncol; rcol++)
+		addChar(' ', 0);
+	    continue;
+	}
+	else {
+#ifdef USE_M17N
+	    addMChar(&p[i], pr[i], delta);
+#else
+	    addChar(p[i], pr[i]);
+#endif
+	}
+	rcol = ncol;
+    }
+}
+
+#ifdef USE_M17N
+static void
+ins_char(Str str)
+{
+    char *p = str->ptr, *ep = p + str->length;
+    Lineprop ctype;
+    int len;
+
+    if (CLen + str->length >= STR_LEN)
+	return;
+    while (p < ep) {
+	len = get_mclen(p);
+	ctype = get_mctype(p);
+	if (is_passwd) {
+	    if (ctype & PC_CTRL)
+		ctype = PC_ASCII;
+	    if (ctype & PC_UNKNOWN)
+		ctype = PC_WCHAR1;
+	}
+	insC();
+	strBuf->ptr[CPos] = *(p++);
+	strProp[CPos] = ctype;
+	CPos++;
+	if (--len) {
+	    ctype = (ctype & ~PC_WCHAR1) | PC_WCHAR2;
+	    while (len--) {
+		insC();
+		strBuf->ptr[CPos] = *(p++);
+		strProp[CPos] = ctype;
+		CPos++;
+	    }
+	}
+    }
+}
+#endif
+
+static void
+_esc(void)
+{
+    char c;
+
+    switch (c = getch()) {
+    case '[':
+    case 'O':
+	switch (c = getch()) {
+	case 'A':
+	    _prev();
+	    break;
+	case 'B':
+	    _next();
+	    break;
+	case 'C':
+	    _mvR();
+	    break;
+	case 'D':
+	    _mvL();
+	    break;
+	}
+	break;
+    case CTRL_I:
+    case ' ':
+	if (emacs_like_lineedit) {
+	    _rdcompl();
+	    cm_clear = FALSE;
+	    need_redraw = TRUE;
+	}
+	else
+	    _rcompl();
+	break;
+    case CTRL_D:
+	if (!emacs_like_lineedit)
+	    _rdcompl();
+	need_redraw = TRUE;
+	break;
+    case 'f':
+	if (emacs_like_lineedit)
+	    _mvRw();
+	break;
+    case 'b':
+	if (emacs_like_lineedit)
+	    _mvLw();
+	break;
+    case CTRL_H:
+	if (emacs_like_lineedit)
+	    _bsw();
+	break;
+#ifdef USE_M17N
+    default:
+	if (wc_char_conv(ESC_CODE) == NULL && wc_char_conv(c) == NULL)
+	    i_quote = TRUE;
+#endif
+    }
+}
+
+static void
+insC(void)
+{
+    int i;
+
+    Strinsert_char(strBuf, CPos, ' ');
+    CLen = strBuf->length;
+    for (i = CLen; i > CPos; i--) {
+	strProp[i] = strProp[i - 1];
+    }
+}
+
+static void
+delC(void)
+{
+    int i = CPos;
+    int delta = 1;
+
+    if (CLen == CPos)
+	return;
+#ifdef USE_M17N
+    while (i + delta < CLen && strProp[i + delta] & PC_WCHAR2)
+	delta++;
+#endif
+    for (i = CPos; i < CLen; i++) {
+	strProp[i] = strProp[i + delta];
+    }
+    Strdelete(strBuf, CPos, delta);
+    CLen -= delta;
+}
+
+static void
+_mvL(void)
+{
+    if (CPos > 0)
+	CPos--;
+#ifdef USE_M17N
+    while (CPos > 0 && strProp[CPos] & PC_WCHAR2)
+	CPos--;
+#endif
+}
+
+static void
+_mvLw(void)
+{
+    int first = 1;
+    while (CPos > 0 && (first || !terminated(strBuf->ptr[CPos - 1]))) {
+	CPos--;
+	first = 0;
+#ifdef USE_M17N
+	if (CPos > 0 && strProp[CPos] & PC_WCHAR2)
+	    CPos--;
+#endif
+	if (!move_word)
+	    break;
+    }
+}
+
+static void
+_mvRw(void)
+{
+    int first = 1;
+    while (CPos < CLen && (first || !terminated(strBuf->ptr[CPos - 1]))) {
+	CPos++;
+	first = 0;
+#ifdef USE_M17N
+	if (CPos < CLen && strProp[CPos] & PC_WCHAR2)
+	    CPos++;
+#endif
+	if (!move_word)
+	    break;
+    }
+}
+
+static void
+_mvR(void)
+{
+    if (CPos < CLen)
+	CPos++;
+#ifdef USE_M17N
+    while (CPos < CLen && strProp[CPos] & PC_WCHAR2)
+	CPos++;
+#endif
+}
+
+static void
+_bs(void)
+{
+    if (CPos > 0) {
+	_mvL();
+	delC();
+    }
+}
+
+static void
+_bsw(void)
+{
+    int t = 0;
+    while (CPos > 0 && !t) {
+	_mvL();
+	t = (move_word && terminated(strBuf->ptr[CPos - 1]));
+	delC();
+    }
+}
+
+static void
+_enter(void)
+{
+    i_cont = FALSE;
+}
+
+static void
+insertself(char c)
+{
+    if (CLen >= STR_LEN)
+	return;
+    insC();
+    strBuf->ptr[CPos] = c;
+    strProp[CPos] = (is_passwd) ? PC_ASCII : PC_CTRL;
+    CPos++;
+}
+
+static void
+_quo(void)
+{
+    i_quote = TRUE;
+}
+
+static void
+_mvB(void)
+{
+    CPos = 0;
+}
+
+static void
+_mvE(void)
+{
+    CPos = CLen;
+}
+
+static void
+killn(void)
+{
+    CLen = CPos;
+    Strtruncate(strBuf, CLen);
+}
+
+static void
+killb(void)
+{
+    while (CPos > 0)
+	_bs();
+}
+
+static void
+_inbrk(void)
+{
+    i_cont = FALSE;
+    i_broken = TRUE;
+}
+
+static void
+_compl(void)
+{
+    next_compl(1);
+}
+
+static void
+_rcompl(void)
+{
+    next_compl(-1);
+}
+
+static void
+_tcompl(void)
+{
+    if (cm_mode & CPL_OFF)
+	cm_mode = CPL_ON;
+    else if (cm_mode & CPL_ON)
+	cm_mode = CPL_OFF;
+}
+
+static void
+next_compl(int next)
+{
+    int status;
+    int b, a;
+    Str buf;
+    Str s;
+
+    if (cm_mode == CPL_NEVER || cm_mode & CPL_OFF)
+	return;
+    cm_clear = FALSE;
+    if (!cm_next) {
+	if (cm_mode & CPL_ALWAYS) {
+	    b = 0;
+	}
+	else {
+	    for (b = CPos - 1; b >= 0; b--) {
+		if ((strBuf->ptr[b] == ' ' || strBuf->ptr[b] == CTRL_I) &&
+		    !((b > 0) && strBuf->ptr[b - 1] == '\\'))
+		    break;
+	    }
+	    b++;
+	}
+	a = CPos;
+	CBeforeBuf = Strsubstr(strBuf, 0, b);
+	buf = Strsubstr(strBuf, b, a - b);
+	CAfterBuf = Strsubstr(strBuf, a, strBuf->length - a);
+	s = doComplete(buf, &status, next);
+    }
+    else {
+	s = doComplete(strBuf, &status, next);
+    }
+    if (next == 0)
+	return;
+
+    if (status != CPL_OK && status != CPL_MENU)
+	bell();
+    if (status == CPL_FAIL)
+	return;
+
+    strBuf = Strnew_m_charp(CBeforeBuf->ptr, s->ptr, CAfterBuf->ptr, NULL);
+    CLen = setStrType(strBuf, strProp);
+    CPos = CBeforeBuf->length + s->length;
+    if (CPos > CLen)
+	CPos = CLen;
+}
+
+static void
+_dcompl(void)
+{
+    next_dcompl(1);
+}
+
+static void
+_rdcompl(void)
+{
+    next_dcompl(-1);
+}
+
+static void
+next_dcompl(int next)
+{
+    static int col, row, len;
+    static Str d;
+    int i, j, n, y;
+    Str f;
+    char *p;
+    struct stat st;
+    int comment, nline;
+
+    if (cm_mode == CPL_NEVER || cm_mode & CPL_OFF)
+	return;
+    cm_disp_clear = FALSE;
+    if (CurrentTab)
+	displayBuffer(Currentbuf, B_FORCE_REDRAW);
+    if (LASTLINE >= 3) {
+	comment = TRUE;
+	nline = LASTLINE - 2;
+    }
+    else if (LASTLINE) {
+	comment = FALSE;
+	nline = LASTLINE;
+    }
+    else {
+	return;
+    }
+
+    if (cm_disp_next >= 0) {
+	if (next == 1) {
+	    cm_disp_next += col * nline;
+	    if (cm_disp_next >= NCFileBuf)
+		cm_disp_next = 0;
+	}
+	else if (next == -1) {
+	    cm_disp_next -= col * nline;
+	    if (cm_disp_next < 0)
+		cm_disp_next = 0;
+	}
+	row = (NCFileBuf - cm_disp_next + col - 1) / col;
+	goto disp_next;
+    }
+
+    cm_next = FALSE;
+    next_compl(0);
+    if (NCFileBuf == 0)
+	return;
+    cm_disp_next = 0;
+
+    d = Str_conv_to_system(Strdup(CDirBuf));
+    if (d->length > 0 && Strlastchar(d) != '/')
+	Strcat_char(d, '/');
+    if (cm_mode & CPL_URL && d->ptr[0] == 'f') {
+	p = d->ptr;
+	if (strncmp(p, "file://localhost/", 17) == 0)
+	    p = &p[16];
+	else if (strncmp(p, "file:///", 8) == 0)
+	    p = &p[7];
+	else if (strncmp(p, "file:/", 6) == 0 && p[6] != '/')
+	    p = &p[5];
+	d = Strnew_charp(p);
+    }
+
+    len = 0;
+    for (i = 0; i < NCFileBuf; i++) {
+	n = strlen(CFileBuf[i]) + 3;
+	if (len < n)
+	    len = n;
+    }
+    col = COLS / len;
+    if (col == 0)
+	col = 1;
+    row = (NCFileBuf + col - 1) / col;
+
+  disp_next:
+    if (comment) {
+	if (row > nline) {
+	    row = nline;
+	    y = 0;
+	}
+	else
+	    y = nline - row + 1;
+    }
+    else {
+	if (row >= nline) {
+	    row = nline;
+	    y = 0;
+	}
+	else
+	    y = nline - row - 1;
+    }
+    if (y) {
+	move(y - 1, 0);
+	clrtoeolx();
+    }
+    if (comment) {
+	move(y, 0);
+	clrtoeolx();
+	bold();
+	/* FIXME: gettextize? */
+	addstr("----- Completion list -----");
+	boldend();
+	y++;
+    }
+    for (i = 0; i < row; i++) {
+	for (j = 0; j < col; j++) {
+	    n = cm_disp_next + j * row + i;
+	    if (n >= NCFileBuf)
+		break;
+	    move(y, j * len);
+	    clrtoeolx();
+	    f = Strdup(d);
+	    Strcat_charp(f, CFileBuf[n]);
+	    addstr(conv_from_system(CFileBuf[n]));
+	    if (stat(expandPath(f->ptr), &st) != -1 && S_ISDIR(st.st_mode))
+		addstr("/");
+	}
+	y++;
+    }
+    if (comment && y == LASTLINE - 1) {
+	move(y, 0);
+	clrtoeolx();
+	bold();
+	if (emacs_like_lineedit)
+	    /* FIXME: gettextize? */
+	    addstr("----- Press TAB to continue -----");
+	else
+	    /* FIXME: gettextize? */
+	    addstr("----- Press CTRL-D to continue -----");
+	boldend();
+    }
+}
+
+
+Str
+escape_spaces(Str s)
+{
+    Str tmp = NULL;
+    char *p;
+
+    if (s == NULL)
+	return s;
+    for (p = s->ptr; *p; p++) {
+	if (*p == ' ' || *p == CTRL_I) {
+	    if (tmp == NULL)
+		tmp = Strnew_charp_n(s->ptr, (int)(p - s->ptr));
+	    Strcat_char(tmp, '\\');
+	}
+	if (tmp)
+	    Strcat_char(tmp, *p);
+    }
+    if (tmp)
+	return tmp;
+    return s;
+}
+
+
+Str
+unescape_spaces(Str s)
+{
+    Str tmp = NULL;
+    char *p;
+
+    if (s == NULL)
+	return s;
+    for (p = s->ptr; *p; p++) {
+	if (*p == '\\' && (*(p + 1) == ' ' || *(p + 1) == CTRL_I)) {
+	    if (tmp == NULL)
+		tmp = Strnew_charp_n(s->ptr, (int)(p - s->ptr));
+	}
+	else {
+	    if (tmp)
+		Strcat_char(tmp, *p);
+	}
+    }
+    if (tmp)
+	return tmp;
+    return s;
+}
+
+static Str
+doComplete(Str ifn, int *status, int next)
+{
+    int fl, i;
+    char *fn, *p;
+    DIR *d;
+    Directory *dir;
+    struct stat st;
+
+    if (!cm_next) {
+	NCFileBuf = 0;
+	ifn = Str_conv_to_system(ifn);
+	if (cm_mode & CPL_ON)
+	    ifn = unescape_spaces(ifn);
+	CompleteBuf = Strdup(ifn);
+	while (Strlastchar(CompleteBuf) != '/' && CompleteBuf->length > 0)
+	    Strshrink(CompleteBuf, 1);
+	CDirBuf = Strdup(CompleteBuf);
+	if (cm_mode & CPL_URL) {
+	    if (strncmp(CompleteBuf->ptr, "file://localhost/", 17) == 0)
+		Strdelete(CompleteBuf, 0, 16);
+	    else if (strncmp(CompleteBuf->ptr, "file:///", 8) == 0)
+		Strdelete(CompleteBuf, 0, 7);
+	    else if (strncmp(CompleteBuf->ptr, "file:/", 6) == 0 &&
+		     CompleteBuf->ptr[6] != '/')
+		Strdelete(CompleteBuf, 0, 5);
+	    else {
+		CompleteBuf = Strdup(ifn);
+		*status = CPL_FAIL;
+		return Str_conv_to_system(CompleteBuf);
+	    }
+	}
+	if (CompleteBuf->length == 0) {
+	    Strcat_char(CompleteBuf, '.');
+	}
+	if (Strlastchar(CompleteBuf) == '/' && CompleteBuf->length > 1) {
+	    Strshrink(CompleteBuf, 1);
+	}
+	if ((d = opendir(expandPath(CompleteBuf->ptr))) == NULL) {
+	    CompleteBuf = Strdup(ifn);
+	    *status = CPL_FAIL;
+	    if (cm_mode & CPL_ON)
+		CompleteBuf = escape_spaces(CompleteBuf);
+	    return CompleteBuf;
+	}
+	fn = lastFileName(ifn->ptr);
+	fl = strlen(fn);
+	CFileName = Strnew();
+	for (;;) {
+	    dir = readdir(d);
+	    if (dir == NULL)
+		break;
+	    if (fl == 0
+		&& (!strcmp(dir->d_name, ".") || !strcmp(dir->d_name, "..")))
+		continue;
+	    if (!strncmp(dir->d_name, fn, fl)) {	/* match */
+		NCFileBuf++;
+		CFileBuf = New_Reuse(char *, CFileBuf, NCFileBuf);
+		CFileBuf[NCFileBuf - 1] =
+		    NewAtom_N(char, strlen(dir->d_name) + 1);
+		strcpy(CFileBuf[NCFileBuf - 1], dir->d_name);
+		if (NCFileBuf == 1) {
+		    CFileName = Strnew_charp(dir->d_name);
+		}
+		else {
+		    for (i = 0; CFileName->ptr[i] == dir->d_name[i]; i++) ;
+		    Strtruncate(CFileName, i);
+		}
+	    }
+	}
+	closedir(d);
+	if (NCFileBuf == 0) {
+	    CompleteBuf = Strdup(ifn);
+	    *status = CPL_FAIL;
+	    if (cm_mode & CPL_ON)
+		CompleteBuf = escape_spaces(CompleteBuf);
+	    return CompleteBuf;
+	}
+	qsort(CFileBuf, NCFileBuf, sizeof(CFileBuf[0]), strCmp);
+	NCFileOffset = 0;
+	if (NCFileBuf >= 2) {
+	    cm_next = TRUE;
+	    *status = CPL_AMBIG;
+	}
+	else {
+	    *status = CPL_OK;
+	}
+    }
+    else {
+	CFileName = Strnew_charp(CFileBuf[NCFileOffset]);
+	NCFileOffset = (NCFileOffset + next + NCFileBuf) % NCFileBuf;
+	*status = CPL_MENU;
+    }
+    CompleteBuf = Strdup(CDirBuf);
+    if (CompleteBuf->length && Strlastchar(CompleteBuf) != '/')
+	Strcat_char(CompleteBuf, '/');
+    Strcat(CompleteBuf, CFileName);
+    if (*status != CPL_AMBIG) {
+	p = CompleteBuf->ptr;
+	if (cm_mode & CPL_URL) {
+	    if (strncmp(p, "file://localhost/", 17) == 0)
+		p = &p[16];
+	    else if (strncmp(p, "file:///", 8) == 0)
+		p = &p[7];
+	    else if (strncmp(p, "file:/", 6) == 0 && p[6] != '/')
+		p = &p[5];
+	}
+	if (stat(expandPath(p), &st) != -1 && S_ISDIR(st.st_mode))
+	    Strcat_char(CompleteBuf, '/');
+    }
+    if (cm_mode & CPL_ON)
+	CompleteBuf = escape_spaces(CompleteBuf);
+    return Str_conv_from_system(CompleteBuf);
+}
+
+static void
+_prev(void)
+{
+    Hist *hist = CurrentHist;
+    char *p;
+
+    if (!use_hist)
+	return;
+    if (strCurrentBuf) {
+	p = prevHist(hist);
+	if (p == NULL)
+	    return;
+    }
+    else {
+	p = lastHist(hist);
+	if (p == NULL)
+	    return;
+	strCurrentBuf = strBuf;
+    }
+    if (DecodeURL)
+	p = url_unquote_conv(p, 0);
+    strBuf = Strnew_charp(p);
+    CLen = CPos = setStrType(strBuf, strProp);
+    offset = 0;
+}
+
+static void
+_next(void)
+{
+    Hist *hist = CurrentHist;
+    char *p;
+
+    if (!use_hist)
+	return;
+    if (strCurrentBuf == NULL)
+	return;
+    p = nextHist(hist);
+    if (p) {
+	if (DecodeURL)
+	    p = url_unquote_conv(p, 0);
+	strBuf = Strnew_charp(p);
+    }
+    else {
+	strBuf = strCurrentBuf;
+	strCurrentBuf = NULL;
+    }
+    CLen = CPos = setStrType(strBuf, strProp);
+    offset = 0;
+}
+
+static int
+setStrType(Str str, Lineprop *prop)
+{
+    Lineprop ctype;
+    char *p = str->ptr, *ep = p + str->length;
+    int i, len = 1;
+
+    for (i = 0; p < ep;) {
+#ifdef USE_M17N
+	len = get_mclen(p);
+#endif
+	if (i + len > STR_LEN)
+	    break;
+	ctype = get_mctype(p);
+	if (is_passwd) {
+	    if (ctype & PC_CTRL)
+		ctype = PC_ASCII;
+#ifdef USE_M17N
+	    if (ctype & PC_UNKNOWN)
+		ctype = PC_WCHAR1;
+#endif
+	}
+	prop[i++] = ctype;
+#ifdef USE_M17N
+	p += len;
+	if (--len) {
+	    ctype = (ctype & ~PC_WCHAR1) | PC_WCHAR2;
+	    while (len--)
+		prop[i++] = ctype;
+	}
+#else
+	p++;
+#endif
+    }
+    return i;
+}
+
+static int
+terminated(unsigned char c)
+{
+    int termchar[] = { '/', '&', '?', ' ', -1 };
+    int *tp;
+
+    for (tp = termchar; *tp > 0; tp++) {
+	if (c == *tp) {
+	    return 1;
+	}
+    }
+
+    return 0;
+}
+
+static void
+_editor(void)
+{
+    FormItemList fi;
+    char *p;
+
+    if (is_passwd)
+	return;
+
+    fi.readonly = FALSE;
+    fi.value = Strdup(strBuf);
+    Strcat_char(fi.value, '\n');
+
+    input_textarea(&fi);
+
+    strBuf = Strnew();
+    for (p = fi.value->ptr; *p; p++) {
+	if (*p == '\r' || *p == '\n')
+	    continue;
+	Strcat_char(strBuf, *p);
+    }
+    CLen = CPos = setStrType(strBuf, strProp);
+    if (CurrentTab)
+	displayBuffer(Currentbuf, B_FORCE_REDRAW);
+}