Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume26/mytinfo/part02/tcapconv.c

C/C++ Source or Header | 1992-12-26 | 4.6 KB | 185 lines

/*
 * tcapconv.c
 *
 * By Ross Ridge
 * Public Domain
 * 92/02/01 07:30:20
 *
 */

#include "defs.h"
#define SINGLE
#include "term.h"

#ifdef USE_SCCS_IDS
static const char SCCSid[] = "@(#) mytinfo tcapconv.c 3.2 92/02/01 public domain, By Ross Ridge";
#endif

extern char **_sstrcodes[], **_sstrnames[];

static char *C_CR = "\r";
static char *C_LF = "\n";
static char *C_BS = "\b";
/* static char *C_FF = "\f"; */
static char *C_HT = "\t";
/* static char *C_VT = "\013"; */
/* static char *C_NL = "\r\n"; */

#define DEF(s) ((s) != (char *) -1 && (s) != NULL)
#define NOTSET(s) ((s) == (char *) -1)

/*
 * This routine fills in caps that either had defaults under termcap or
 * can be manufactured from obsolete termcap capabilities.
 */

void
_tcapdefault() {
    char buf[MAX_LINE * 2 + 2];

    if (NOTSET(carriage_return)) {
        if (carriage_return_delay > 0) {
            sprintf(buf, "%s$<%d>", C_CR, carriage_return_delay);
            carriage_return = _addstr(buf);
        } else
            carriage_return = _addstr(C_CR);
    }
    if (NOTSET(cursor_left)) {
        if (backspace_delay > 0) {
            sprintf(buf, "%s$<%d>", C_BS, backspace_delay);
            cursor_left = _addstr(buf);
        } else if (backspaces_with_bs == 1)
            cursor_left = _addstr(C_BS);
        else if (DEF(backspace_if_not_bs))
            cursor_left = _addstr(backspace_if_not_bs);
    }
/* vi doesn't use "do", but it does seems to use nl (or '\n') instead */
    if (NOTSET(cursor_down)) {
        if (DEF(linefeed_if_not_lf))
            cursor_down = _addstr(linefeed_if_not_lf);
        else if (linefeed_is_newline != 1) {
            if (new_line_delay > 0) {
                sprintf(buf, "%s$<%d>", C_LF, new_line_delay);
                cursor_down = _addstr(buf);
            } else
                cursor_down = _addstr(C_LF);
        }
    }
    if (NOTSET(scroll_forward) && crt_without_scrolling != 1) {
        if (DEF(linefeed_if_not_lf))
            cursor_down = _addstr(linefeed_if_not_lf);
        else if (linefeed_is_newline != 1) {
            if (new_line_delay > 0) {
                sprintf(buf, "%s$<%d>", C_LF, new_line_delay);
                scroll_forward = _addstr(buf);
            } else
                scroll_forward = _addstr(C_LF);
        }
    }
    if (NOTSET(newline)) {
        if (linefeed_is_newline == 1) {
            if (new_line_delay > 0) {
                sprintf(buf, "%s$<%d>", C_LF, new_line_delay);
                newline = _addstr(buf);
            } else
                newline = _addstr(C_LF);
        } else if (DEF(carriage_return) && DEF(scroll_forward)) {
            strncpy(buf, carriage_return, MAX_LINE-2);
            buf[MAX_LINE-1] = '\0';
            strncat(buf, scroll_forward, MAX_LINE-strlen(buf)-1);
            buf[MAX_LINE] = '\0';
            newline = _addstr(buf);
        } else if (DEF(carriage_return) && DEF(cursor_down)) {
            strncpy(buf, carriage_return, MAX_LINE-2);
            buf[MAX_LINE-1] = '\0';
            strncat(buf, cursor_down, MAX_LINE-strlen(buf)-1);
            buf[MAX_LINE] = '\0';
            newline = _addstr(buf);
        }
    }

/*
 * We wait until know to decide if we've got a working cr because even
 * one that doesn't work can be used for newline. Unfortunately the
 * space allocated for it is wasted.
 */
    if (return_does_clr_eol == 1 || no_correctly_working_cr == 1)
        carriage_return = NULL;

/*
 * supposedly most termcap entries have ta now and '\t' is no longer a
 * default, but it doesn't seem to be true...
 */
    if (NOTSET(tab)) {
        if (horizontal_tab_delay > 0) {
            sprintf(buf, "%s$<%d>", C_HT, horizontal_tab_delay);
            tab = _addstr(buf);
        } else
            tab = _addstr(C_HT);
    }
#if 0
/* probably not needed and might confuse some programmes */
    if (NOTSET(form_feed)) {
        if (form_feed_delay > 0) {
            sprintf(buf, "%s$<%d>", C_FF, form_feed_delay);
            form_feed = _addstr(buf);
        } else
            form_feed = _addstr(C_FF);
    }
#endif
    if (init_tabs == -1 && has_hardware_tabs == 1)
        init_tabs = 8;

    if (NOTSET(key_backspace))
        key_backspace = _addstr(C_BS);
    if (NOTSET(key_left))
        key_left = _addstr(C_BS);
    if (NOTSET(key_down))
        key_down = _addstr(C_LF);
}

void
_tcapconv() {
    char buf[MAX_LINE+1];

    if (GNU_tab_width > 0 && init_tabs == -1)
        init_tabs = GNU_tab_width;

    if (GNU_has_meta_key == 1 && has_meta_key == -1)
        has_meta_key = 1;

/*
 * this is some what a kludge, but should work unless someone breaks
 * conventions.
 */
    if (DEF(other_non_function_keys)) {
        register char *s;
        static char *o;
        static char name[MAX_NAME] = "k";
        char *str;
        int ind;

        s = strcpy(buf, other_non_function_keys);
        while(*s != '\0') {
            o = s;
            while(*s != ',' && *s != '\0')
                s++;
            if (*s != '\0')
                *s++ = '\0';
            ind = _findstrcode(o);
            if (ind == -1)
                continue;
            str = _term_buf.strs[ind];
            if (!DEF(str))
                continue;
            strncpy(name + 1, strnames[ind], MAX_NAME - 2);
            ind = _findstrname(name);
            if (ind == -1)
                continue;
            if (!NOTSET(_term_buf.strs[ind]))
                continue;
            _term_buf.strs[ind] = _addstr(str);
        }
    }
}