reorganizing files

1 files changed, 0 insertions, 961 deletions

diff --git a/edit.c b/edit.c
deleted file mode 100644
index bcfab21..0000000
--- a/edit.c
+++ /dev/null
@@ -1,961 +0,0 @@
-/*
- *  edit.c  --  line editing functions for powwow
- *
- *  Copyright (C) 1998 by Massimiliano Ghilardi
- *
- *  This program is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 2 of the License, or
- *  (at your option) any later version.
- *
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <unistd.h>
-#include <string.h>
-#include <strings.h>
-#include <ctype.h>
-#include <time.h>
-#include <sys/types.h>
-#include <sys/time.h>
-
-#include "defines.h"
-#include "main.h"
-#include "utils.h"
-#include "cmd.h"
-#include "edit.h"
-#include "tcp.h"
-#include "tty.h"
-#include "eval.h"
-#include "log.h"
-
-static void insert_string(char *arg);
-
-/* history buffer */
-char *hist[MAX_HIST];	/* saved history lines */
-int curline = 0;	/* current history line */
-int pickline = 0;	/* line to pick history from */
-
-/* word completion list */
-wordnode words[MAX_WORDS];
-int wordindex = 0;
-
-edit_function internal_functions[] = {
-    {(char *)0, (function_str)0, },
-    {"&enter-line", enter_line, },
-    {"&complete-word", complete_word, },
-    {"&complete-line", complete_line, },
-    {"&del-char-left", del_char_left, },
-    {"&del-char-right",  del_char_right, },
-    {"&prev-char", prev_char, },
-    {"&prev-line", prev_line, },
-    {"&next-char", next_char, },
-    {"&next-line", next_line, },
-    {"&to-history", to_history, },
-    {"&clear-line", clear_line, },
-    {"&redraw-line", redraw_line, },
-    {"&redraw-line-noprompt", redraw_line_noprompt, },
-    {"&begin-of-line", begin_of_line, },
-    {"&end-of-line", end_of_line, },
-    {"&kill-to-eol", kill_to_eol, },
-    {"&transpose", transpose_chars, },
-    {"&transpose-words", transpose_words, },
-    {"&suspend", (function_str)suspend_powwow, }, /* yep, it's an hack */
-    {"&del-word-left", del_word_left, },
-    {"&del-word-right", del_word_right, },
-    {"&prev-word", prev_word, },
-    {"&upcase-word", upcase_word, },
-    {"&downcase-word", downcase_word, },
-    {"&next-word", next_word, },
-    {"&insert-string", insert_string, },
-    {(char *)0, (function_str)0 }
-};
-
-int lookup_edit_name(char *name, char **arg)
-{
-    int i, len, flen;
-    char *fname, *extra = NULL;
-
-    if ((fname = strchr(name, ' ')))
-	len = fname - name;
-    else
-	len = strlen(name);
-
-    for (i=1; (fname = internal_functions[i].name); i++) {
-	flen = strlen(fname);
-	if (flen == len && !strncmp(name, fname, flen)) {
-	    extra = name + flen;
-	    if (*extra == ' ') extra++;
-	    if (!*extra) extra = NULL;
-	    *arg = extra;
-	    return i;
-	}
-    }
-    *arg = extra;
-    return 0;
-}
-
-int lookup_edit_function(function_str funct)
-{
-    int i;
-    function_str ffunct;
-
-    for (i = 1; (ffunct = internal_functions[i].funct); i++)
-	if (funct == ffunct)
-	    return i;
-
-    return 0;
-}
-
-/* return pointer to any unterminated escape code at the end of s */
-static char *find_partial_esc(char *s)
-{
-    size_t len = strlen(s);
-    char *end = s + len;
-    while (end > s) {
-        char c = *--end;
-        if (c == '\033')
-            return end;
-        if (isalpha(c))
-            return NULL;
-    }
-    return NULL;
-}
-
-/*
- * redisplay the prompt
- * assume cursor is at beginning of line
- */
-void draw_prompt(void)
-{
-    if (promptlen && prompt_status == 1) {
-        char *esc, *pstr;
-	int e = error;
-	error = 0;
-	marked_prompt = ptraddmarks(marked_prompt, prompt->str);
-	if (MEM_ERROR) { promptzero(); errmsg("malloc(prompt)"); return; }
-
-        /* if prompt ends in unterminated escape code, do not print
-         * that part */
-        pstr = ptrdata(marked_prompt);
-        esc = find_partial_esc(pstr);
-        if (esc)
-            *esc = 0;
-        tty_puts(pstr);
-	col0 = printstrlen(pstr);
-        if (esc)
-            *esc = '\033';
-
-	error = e;
-    }
-    prompt_status = 0;
-}
-
-/*
- * clear current input line (deleteprompt == 1 if to clear also prompt)
- * cursor is left right after the prompt.
- *
- * since we do not expect data from the user at this point,
- * do not print edattrbeg now.
- */
-void clear_input_line(int deleteprompt)
-{
-    /*
-     * be careful: if prompt and/or input line have been erased from screen,
-     * pos will be different from the actual cursor position
-     */
-    if ((edlen && line_status == 0) || (promptlen && prompt_status == 0 && deleteprompt)) {
-	int newcol = deleteprompt ? 0 : col0;
-	int realpos = line_status == 0 ? pos : (prompt_status == 0 ? 0 : -col0);
-
-	tty_gotoxy_opt(CURCOL(realpos), CURLINE(realpos), newcol, line0);
-	tty_puts(edattrend);
-	if (line0 < lines - 1)
-	    tty_puts(tty_clreoscr);
-        else
-	    tty_puts(tty_clreoln);
-	col0 = newcol;
-    } else {
-	tty_puts(edattrend);
-    }
-    if (deleteprompt)
-	status(1);
-    else
-	line_status = 1;
-}
-
-/*
- * clear input line, but do nothing else
- */
-void clear_line(char *dummy)
-{
-    if (!edlen)
-	return;
-    clear_input_line(0);
-    pickline = curline;
-    *edbuf = '\0';
-    pos = edlen = 0;
-}
-
-/*
- * Redraw the input line and put the cursor at the current position.
- * The cursor is assumed to be directly after the prompt.
- */
-void draw_input_line(void)
-{
-    int i, oldline0;
-
-    if (line_status == 0 || linemode & LM_NOECHO)
-	return;
-
-    tty_puts(edattrbeg);
-
-    if (edlen) {
-	oldline0 = line0;
-	if (edlen < cols_1 - col0) {
-	    tty_puts(edbuf);
-	} else {
-	    tty_printf("%.*s", cols_1 - col0, edbuf);
-	    for (i = cols_1 - col0; i <= edlen; i += cols_1) {
-#ifdef BUG_ANSI
-		if (edattrbg)
-		    tty_printf("%s\n%s%.*s", edattrend, edattrbeg, cols_1, edbuf + i);
-		else
-#endif
-		    tty_printf("\n%.*s", cols_1, edbuf + i);
-	    }
-	}
-	line0 = lines - (edlen + col0) / cols_1 - 1;
-	if (line0 > oldline0)
-	    line0 = oldline0;
-	if ((i = CURLINE(pos)) < 0)
-	    line0 -= i;
-	else if (i > lines - 1)
-	    line0 -= i - lines + 1;
-	tty_gotoxy_opt(CURCOL(edlen), CURLINE(edlen), CURCOL(pos), CURLINE(pos));
-    }
-    line_status = 0;
-}
-
-/*
- * redraw the input line
- */
-void redraw_line(char *dummy)
-{
-    clear_input_line(1);
-}
-
-/*
- * redraw the input line, clearing the prompt
- */
-void redraw_line_noprompt(char *dummy)
-{
-    clear_input_line(0);
-    tty_putc('\n');
-    if (line0 < lines - 1)
-	line0++;
-    status(-1);
-}
-
-/*
- * GH: transpose two words to the left
- */
-void transpose_words(char *dummy)
-{
-    /* other refers to the word to the left, this is the one we are at */
-
-    int this_so, other_so, this_eo, other_eo;
-    char buf[BUFSIZE];
-    int n;
-
-    if (pos > 2) {
-
-	this_eo = this_so = pos;
-	/* optionally traceback to find a word */
-	while (this_so && strchr(DELIM, edbuf[this_so]))
-	    this_so--;
-
-	/* now find where the current word ends */
-	while (this_eo < edlen && !strchr(DELIM, edbuf[this_eo]))
-	    this_eo++;
-
-	/* found a word; now find its start */
-	while (this_so > 0 && !strchr(DELIM, edbuf[this_so - 1]))
-	    this_so--;
-
-	if (this_so < 2)
-	    return;		/* impossible that there's another word */
-
-	other_so = this_so - 1;
-	while (other_so >= 0 && strchr(DELIM, edbuf[other_so]))
-	    other_so--;
-	if (other_so < 0)
-	    return;
-	other_eo = other_so + 1;
-	while (other_so > 0 && !strchr(DELIM, edbuf[other_so - 1]))
-	    other_so--;
-
-	sprintf(buf, "%.*s%.*s%.*s",
-		this_eo - this_so, edbuf + this_so,
-		this_so - other_eo, edbuf + other_eo,
-		other_eo - other_so, edbuf + other_so);
-
-	input_moveto(other_so);
-	for (n = 0; buf[n]; input_overtype_follow(buf[n++]))
-	    ;
-    }
-}
-
-/*
- * transpose two characters to the left
- */
-void transpose_chars(char *dummy)
-{
-    int i, j;
-    char c;
-    if (pos > 1 || (pos > 0 && pos < edlen)) {
-        if (pos < edlen) {
-	    j = pos;
-	    i = pos - 1;
-	} else {
-	    j = pos - 1;
-	    i = pos - 2;
-	}
-	c = edbuf[j]; edbuf[j] = edbuf[i]; edbuf[i] = c;
-
-	if (line_status == 0) {
-	    tty_gotoxy_opt(CURCOL(pos), CURLINE(pos), CURCOL(i), CURLINE(i));
-	    tty_putc(edbuf[i]);
-	    tty_gotoxy_opt(CURCOL(i+1), CURLINE(i+1), CURCOL(j), CURLINE(j));
-	    tty_putc(edbuf[j]);
-	    if (pos < edlen) {
-		pos++;
-		tty_gotoxy_opt(CURCOL(j+1), CURLINE(j+1), CURCOL(pos), CURLINE(pos));
-	    }
-	} else
-	    pos++;
-    }
-}
-
-/*
- * erase everything to the end of line
- */
-void kill_to_eol(char *dummy)
-{
-    if (line_status == 0) {
-	if (edattrbg)
-	    tty_printf("%s%s", edattrend, tty_clreoln);
-	else
-	    tty_puts(tty_clreoln);
-	if (CURLINE(edlen) > CURLINE(pos)) {
-	    tty_printf("\n%s", tty_clreoscr);
-	    tty_gotoxy_opt(0, CURLINE(pos) + 1, CURCOL(pos), CURLINE(pos));
-	}
-	if (edattrbg)
-	    tty_puts(edattrbeg);
-    }
-    edbuf[edlen = pos] = '\0';
-}
-
-/*
- * move cursor to end of line
- */
-void end_of_line(char *dummy)
-{
-    input_moveto(edlen);
-}
-
-/*
- * move cursor to beginning of line
- */
-void begin_of_line(char *dummy)
-{
-    input_moveto(0);
-}
-
-/*
- * delete a character to the right
- */
-void del_char_right(char *dummy)
-{
-    input_delete_nofollow_chars(1);
-}
-
-/*
- * delete a character to the left
- */
-void del_char_left(char *dummy)
-{
-    if (pos) {
-	input_moveto(pos-1);
-	input_delete_nofollow_chars(1);
-    }
-}
-
-/*
- * move a line into history, but don't do anything else
- */
-void to_history(char *dummy)
-{
-    if (!edlen)
-	return;
-    clear_input_line(0);
-    put_history(edbuf);
-    pickline = curline;
-    *edbuf = '\0';
-    pos = edlen = 0;
-}
-
-/*
- * put string in history at current position
- * (string is assumed to be trashable)
- */
-void put_history(char *str)
-{
-    char *p;
-    if (hist[curline]) free(hist[curline]);
-    if (!(hist[curline] = my_strdup(str))) {
-	errmsg("malloc");
-	return;
-    }
-
-    if (++curline == MAX_HIST)
-	curline = 0;
-
-    /* split into words and put into completion list */
-    for (p = strtok(str, DELIM); p;
-	 p = strtok(NULL, DELIM)) {
-        if (strlen(p) >= MIN_WORDLEN &&
-	    p[0] != '#') /* no commands/short words */
-	    put_word(p);
-    }
-}
-
-/*
- * move a node before wordindex, i.e. make it the last word
- */
-static void demote_word(int i)
-{
-    words[words[i].prev].next = words[i].next;
-    words[words[i].next].prev = words[i].prev;
-    words[i].prev = words[words[i].next = wordindex].prev;
-    words[wordindex].prev = words[words[wordindex].prev].next = i;
-}
-
-static struct {
-    int size, used;
-    char **words;
-} static_words;
-
-static int compl_next_word(int i)
-{
-    if (i < 0) {
-    go_static:
-        --i;
-        if (-i - 1 >= static_words.used)
-            i = wordindex;
-    } else {
-        i = words[i].next;
-        if (i == wordindex || words[i].word == NULL) {
-            i = 0;
-            goto go_static;
-        }
-    }
-    return i;
-}
-
-static char *compl_get_word(int i)
-{
-    return i < 0 ? static_words.words[-i - 1] : words[i].word;
-}
-
-/*
- * match and complete a word referring to the word list
- */
-void complete_word(char *dummy)
-{
-    /*
-     * GH: rewritten to allow circulating through history with
-     * repetitive command
-     *     code stolen from cancan 2.6.3a
-     *        curr_word:   index into words[]
-     *        comp_len     length of current completition
-     *        root_len     length of the root word (before the completition)
-     *        root         start of the root word
-     */
-
-    static int curr_word, comp_len = 0, root_len = 0;
-    char *root, *p;
-    int k, n;
-
-    /* find word start */
-    if (last_edit_cmd == (function_any)complete_word && comp_len) {
-	k = comp_len;
-	input_moveto(pos - k);
-	n = pos - root_len;
-    } else {
-	for (n = pos; n > 0 && !IS_DELIM(edbuf[n - 1]); n--)
-	    ;
-	k = 0;
-	curr_word = wordindex;
-	root_len = pos - n;
-    }
-    root = edbuf + n; comp_len = 0;
-
-    /* k = chars to delete,  n = position of starting word */
-
-    /* scan word list for next match */
-    while ((p = compl_get_word(curr_word = compl_next_word(curr_word)))) {
-	if (!strncasecmp(p, root, root_len) &&
-	    *(p += root_len) &&
-	    (n = strlen(p)) + edlen < BUFSIZE) {
-	    comp_len = n;
-	    for (; k && n; k--, n--)
-		input_overtype_follow(*p++);
-	    if (n > 0)
-		input_insert_follow_chars(p, n);
-	    break;
-	}
-    }
-    if (k > 0)
-	input_delete_nofollow_chars(k);
-
-    /* delete duplicate instances of the word */
-    if (p && curr_word >= 0
-        && !(words[k = curr_word].flags & WORD_UNIQUE)) {
-	words[k].flags |= WORD_UNIQUE;
-	p = words[k].word;
-	n = words[k].next;
-	while (words[k = n].word) {
-	    n = words[k].next;
-	    if (!strcmp(p, words[k].word)) {
-		demote_word(k);
-		free(words[k].word);
-		words[k].word = 0;
-		words[curr_word].flags |= words[k].flags;	/* move retain flag */
-		if ((words[k].flags &= WORD_UNIQUE))
-		    break;
-	    }
-	}
-    }
-}
-
-/*
- * match and complete entire lines backwards in history
- * GH: made repeated complete_line cycle through history
- */
-void complete_line(char *dummy)
-{
-    static int curr_line = MAX_HIST-1, root_len = 0, first_line = 0;
-    int i;
-
-    if (last_edit_cmd != (function_any)complete_line) {
-	root_len = edlen;
-	first_line = curr_line = curline;
-    }
-
-    for (i = curr_line - 1; i != curr_line; i--) {
-	if (i < 0) i = MAX_HIST - 1;
-	if (i == first_line)
-	    break;
-	if (hist[i] && !strncmp(edbuf, hist[i], root_len))
-	    break;
-    }
-    if (i != curr_line) {
-	clear_input_line(0);
-	if (i == first_line) {
-	    edbuf[root_len] = 0;
-	    edlen = root_len;
-	} else {
-	    strcpy(edbuf, hist[i]);
-	    edlen = strlen(edbuf);
-	}
-	pos = edlen;
-	curr_line = i;
-    }
-}
-
-/*
- * GH: word history handling stolen from cancan 2.6.3a
- */
-
-static void default_completions(void)
-{
-    char buf[BUFSIZE];
-    cmdstruct *p;
-    int i;
-    /* TODO: add some way to handle new commands going in the default
-     * completions list */
-    for (i = 0, buf[0] = '#', p = commands; p != NULL; p = p -> next)
-	if (p->funct) {
-	    strcpy(buf + 1, p->name);
-            put_static_word(buf);
-	}
-    /* init 'words' double-linked list */
-    for (i = MAX_WORDS; i--; words[i].prev = i - 1, words[i].next = i + 1)
-	;
-    words[0].prev = MAX_WORDS - 1;
-    words[MAX_WORDS - 1].next = 0;
-}
-
-void put_static_word(char *s)
-{
-    if (static_words.used >= static_words.size) {
-        do {
-            static_words.size = static_words.size ? static_words.size * 2 : 16;
-        } while (static_words.used >= static_words.size);
-        static_words.words = realloc(static_words.words,
-                                     sizeof static_words.words[0]
-                                     * static_words.size);
-    }
-
-    if ((s = my_strdup(s)) == NULL) {
-        errmsg("malloc");
-        return;
-    }
-    static_words.words[static_words.used++] = s;
-}
-
-/*
- * put word in word completion ring
- */
-void put_word(char *s)
-{
-    int r = wordindex;
-    if (!(words[r].word = my_strdup(s))) {
-	errmsg("malloc");
-	return;
-    }
-    words[r].flags = 0;
-    r = words[r].prev;
-    demote_word(r);
-    wordindex = r;
-    if (words[r].word) {
-	free(words[r].word);
-	words[r].word = 0;
-    }
-}
-
-/*
- * GH: set delimeters[DELIM_CUSTOM]
- */
-void set_custom_delimeters(char *s)
-{
-    char *old = delim_list[DELIM_CUSTOM];
-    if (!(delim_list[DELIM_CUSTOM] = my_strdup(s)))
-	errmsg("malloc");
-    else {
-	if (old)
-	    free(old);
-	delim_len[DELIM_CUSTOM] = strlen(s);
-	delim_mode = DELIM_CUSTOM;
-    }
-}
-
-/*
- * enter a line
- */
-void enter_line(char *dummy)
-{
-    char *p;
-
-    if (line_status == 0)
-	input_moveto(edlen);
-    else {
-	if (prompt_status != 0)
-	    col0 = 0;
-	draw_input_line();
-    }
-    PRINTF("%s\n", edattrend);
-
-    line0 = CURLINE(edlen);
-    if (line0 < lines - 1) line0++;
-
-    if (recordfile)
-	fprintf(recordfile, "%s\n", edbuf);
-
-    col0 = error = pos = line_status = 0;
-
-    if (!*edbuf || (verbatim && *edbuf != '#'))
-	tcp_write(tcp_fd, edbuf);
-    else
-	parse_user_input(edbuf, 1);
-    history_done = 0;
-
-    /* don't put identical lines in history, nor empty ones */
-    p = hist[curline ? curline - 1 : MAX_HIST - 1];
-    if (!p || (edlen > 0 && strcmp(edbuf, p)))
-	put_history(edbuf);
-    pickline = curline;
-    if (*inserted_next) {
-	strcpy(edbuf, inserted_next);
-	inserted_next[0] = '\0';
-	line_status = 1;
-    } else if (*prefixstr) {
-	strcpy(edbuf, prefixstr);
-	line_status = 1;
-    } else
-	edbuf[0] = '\0';
-    pos = edlen = strlen(edbuf);
-}
-
-/*
- * move one word forward
- */
-void next_word(char *dummy)
-{
-    int i;
-    for (i = pos; edbuf[i] && !isalnum(edbuf[i]); i++)
-	;
-    while (isalnum(edbuf[i]))
-	i++;
-    input_moveto(i);
-}
-
-/*
- * move one word backward
- */
-void prev_word(char *dummy)
-{
-    int i;
-    for (i = pos; i && !isalnum(edbuf[i - 1]); i--)
-	;
-    while (i && isalnum(edbuf[i - 1]))
-	i--;
-    input_moveto(i);
-}
-
-/*
- * delete word to the right
- */
-void del_word_right(char *dummy)
-{
-    int i;
-    for (i = pos; edbuf[i] && !isalnum(edbuf[i]); i++)
-	;
-    while (isalnum(edbuf[i]))
-	i++;
-    input_delete_nofollow_chars(i - pos);
-}
-
-/*
- * delete word to the left
- */
-void del_word_left(char *dummy)
-{
-    int i;
-    for (i = pos; i && !isalnum(edbuf[i - 1]); i--)
-	;
-    while (i && isalnum(edbuf[i - 1]))
-	i--;
-    i = pos - i;
-    input_moveto(pos - i);
-    input_delete_nofollow_chars(i);
-}
-
-/*
- * GH: make word upcase
- */
-void upcase_word(char *dummy)
-{
-    int opos = pos;
-    int npos = pos;
-
-    if (last_edit_cmd == (function_any)upcase_word)
-	npos = 0;
-    else {
-	while (npos > 0 && IS_DELIM(edbuf[npos])) npos--;
-	while (npos > 0 && !IS_DELIM(edbuf[npos - 1])) npos--;
-    }
-    input_moveto(npos);
-    while (!IS_DELIM(edbuf[npos]) ||
-	   (last_edit_cmd == (function_any)upcase_word && edbuf[npos]))
-	input_overtype_follow(toupper(edbuf[npos++]));
-    input_moveto(opos);
-}
-
-/*
- * GH: make word downcase
- */
-void downcase_word(char *dummy)
-{
-    int opos = pos;
-    int npos = pos;
-
-    if (last_edit_cmd == (function_any)downcase_word)
-	npos = 0;
-    else {
-	while (npos > 0 && IS_DELIM(edbuf[npos])) npos--;
-	while (npos > 0 && !IS_DELIM(edbuf[npos - 1])) npos--;
-    }
-    input_moveto(npos);
-    while (!IS_DELIM(edbuf[npos]) ||
-	   (last_edit_cmd == (function_any)downcase_word && edbuf[npos])) {
-	input_overtype_follow(tolower(edbuf[npos++]));
-    }
-    input_moveto(opos);
-}
-
-/*
- * get previous line from history list
- */
-void prev_line(char *dummy)
-{
-    int i = pickline - 1;
-    if (i < 0) i = MAX_HIST - 1;
-    if (hist[i]) {
-	if (hist[pickline] && strcmp(hist[pickline], edbuf)) {
-	    free(hist[pickline]);
-	    hist[pickline] = NULL;
-	}
-	if (!hist[pickline]) {
-	    if (!(hist[pickline] = my_strdup(edbuf))) {
-		errmsg("malloc");
-		return;
-	    }
-	}
-	pickline = i;
-	clear_input_line(0);
-	strcpy(edbuf, hist[pickline]);
-	pos = edlen = strlen(edbuf);
-    }
-}
-
-/*
- * get next line from history list
- */
-void next_line(char *dummy)
-{
-    int i = pickline + 1;
-    if (i == MAX_HIST) i = 0;
-    if (hist[i]) {
-	if (hist[pickline] && strcmp(hist[pickline], edbuf)) {
-	    free(hist[pickline]);
-	    hist[pickline] = NULL;
-	}
-	if (!hist[pickline]) {
-	    if (!(hist[pickline] = my_strdup(edbuf))) {
-		errmsg("malloc");
-		return;
-	    }
-	}
-	pickline = i;
-	clear_input_line(0);
-	strcpy(edbuf, hist[pickline]);
-	edlen = pos = strlen(edbuf);
-    }
-}
-
-/*
- * move one char backward
- */
-void prev_char(char *dummy)
-{
-    input_moveto(pos-1);
-}
-
-/*
- * move one char forward
- */
-void next_char(char *dummy)
-{
-    input_moveto(pos+1);
-}
-
-/*
- * Flash cursor at parentheses that matches c inserted before current pos
- */
-static void flashparen(char c)
-{
-    int lev, i;
-    if (line_status != 0)
-	return;
-    for (i = pos - 1, lev = 0; i >= 0; i--) {
-	if (ISRPAREN(edbuf[i])) {
-	    lev++;
-	} else if (ISLPAREN(edbuf[i])) {
-	    lev--;
-	    if (!lev) {
-		if (LPAREN(c) == edbuf[i])
-		    break;
-		else
-		    i = -1;
-	    }
-	}
-    }
-    if (i >= 0) {
-	tty_gotoxy_opt(CURCOL(pos), CURLINE(pos), CURCOL(i), CURLINE(i));
-	flashback = 1;
-	excursion = i;
-    }
-}
-
-/*
- * put cursor back where it belongs
- */
-void putbackcursor(void)
-{
-    if (line_status == 0)
-	tty_gotoxy_opt(CURCOL(excursion), CURLINE(excursion), CURCOL(pos), CURLINE(pos));
-    flashback = 0;
-}
-
-/*
- * insert a typed character on screen (if it is printable)
- */
-void insert_char(char c)
-{
-    if (((c & 0x80) || (c >= ' ' && c <= '~')) && edlen < BUFSIZE - 2) {
-	if (flashback) putbackcursor();
-	input_insert_follow_chars(&c, 1);
-	if (ISRPAREN(c))
-	    flashparen(c);
-    }
-}
-
-static void insert_string(char *arg)
-{
-    char buf[BUFSIZE];
-    int len;
-
-    if (!arg || !*arg)
-	return;
-
-    my_strncpy(buf, arg, BUFSIZE-1);
-    unescape(buf);
-    len = strlen(buf);
-
-    if (len > 1) {
-	if (flashback) putbackcursor();
-	input_insert_follow_chars(buf, len);
-    } else if (len == 1)
-	insert_char(buf[0]); /* also flash matching parentheses */
-}
-
-/*
- * execute string as if typed
- */
-void key_run_command(char *cmd)
-{
-    clear_input_line(opt_compact && !opt_keyecho);
-    if (opt_keyecho) {
-	tty_printf("%s%s%s\n", edattrbeg, cmd, edattrend);
-    } else if (!opt_compact)
-        tty_putc('\n');
-
-    status(1);
-    error = 0;
-
-    if (recordfile)
-	fprintf(recordfile, "%s\n", edbuf);
-
-    parse_instruction(cmd, 1, 0, 1);
-    history_done = 0;
-}
-
-void edit_bootstrap(void)
-{
-    default_completions();
-}
-