freebsd-src/lib/libmytinfo/tcapconv.c
1994-10-06 23:38:41 +00:00

195 lines
4.9 KiB
C

/*
* 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];
int set_scroll_forward_to_lf;
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);
}
}
set_scroll_forward_to_lf = 0;
if (NOTSET(scroll_forward) && crt_without_scrolling != 1) {
set_scroll_forward_to_lf = 1;
if (DEF(linefeed_if_not_lf))
scroll_forward = _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) && carriage_return_delay <= 0) {
if (set_scroll_forward_to_lf) {
strncpy(buf, carriage_return, MAX_LINE-2);
buf[MAX_LINE-1] = '\0';
strncat(buf, scroll_forward, MAX_LINE-strlen(buf)-1);
} else if (DEF(linefeed_if_not_lf)) {
strncpy(buf, carriage_return, MAX_LINE-2);
buf[MAX_LINE-1] = '\0';
strncat(buf, linefeed_if_not_lf, MAX_LINE-strlen(buf)-1);
}
else if (new_line_delay > 0)
sprintf(buf, "%s%s$<%d>", carriage_return, C_LF, new_line_delay);
else {
strncpy(buf, carriage_return, MAX_LINE-2);
buf[MAX_LINE-1] = '\0';
strncat(buf, C_LF, MAX_LINE-strlen(buf)-1);
}
buf[MAX_LINE-1] = '\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);
}
}
}