Adding upstream version 0.5.1upstream/0.5.1

1 files changed, 630 insertions, 0 deletions

diff --git a/func.c b/func.c
new file mode 100644
index 0000000..f389e00
--- /dev/null
+++ b/func.c
@@ -0,0 +1,630 @@
+/* $Id: func.c,v 1.27 2003/09/26 17:59:51 ukai Exp $ */
+/*
+ * w3m func.c
+ */
+
+#include <stdio.h>
+
+#include "fm.h"
+#include "func.h"
+#include "myctype.h"
+
+#include "funcname.c"
+#include "functable.c"
+
+#define KEYDATA_HASH_SIZE 16
+static Hash_iv *keyData = NULL;
+static char keymap_initialized = FALSE;
+static struct stat sys_current_keymap_file;
+static struct stat current_keymap_file;
+
+void
+setKeymap(char *p, int lineno, int verbose)
+{
+    unsigned char *map = NULL;
+    char *s, *emsg;
+    int c, f;
+
+    s = getQWord(&p);
+    c = getKey(s);
+    if (c < 0) {		/* error */
+	if (lineno > 0)
+	    /* FIXME: gettextize? */
+	    emsg = Sprintf("line %d: unknown key '%s'", lineno, s)->ptr;
+	else
+	    /* FIXME: gettextize? */
+	    emsg = Sprintf("defkey: unknown key '%s'", s)->ptr;
+	record_err_message(emsg);
+	if (verbose)
+	    disp_message_nsec(emsg, FALSE, 1, TRUE, FALSE);
+	return;
+    }
+    s = getWord(&p);
+    f = getFuncList(s);
+    if (f < 0) {
+	if (lineno > 0)
+	    /* FIXME: gettextize? */
+	    emsg = Sprintf("line %d: invalid command '%s'", lineno, s)->ptr;
+	else
+	    /* FIXME: gettextize? */
+	    emsg = Sprintf("defkey: invalid command '%s'", s)->ptr;
+	record_err_message(emsg);
+	if (verbose)
+	    disp_message_nsec(emsg, FALSE, 1, TRUE, FALSE);
+	return;
+    }
+    if (c & K_MULTI) {
+	unsigned char **mmap = NULL;
+	int i, j, m = MULTI_KEY(c);
+
+	if (m & K_ESCD)
+	    map = EscDKeymap;
+	else if (m & K_ESCB)
+	    map = EscBKeymap;
+	else if (m & K_ESC)
+	    map = EscKeymap;
+	else
+	    map = GlobalKeymap;
+	if (map[m & 0x7F] == FUNCNAME_multimap)
+	    mmap = (unsigned char **)getKeyData(m);
+	else
+	    map[m & 0x7F] = FUNCNAME_multimap;
+	if (!mmap) {
+	    mmap = New_N(unsigned char *, 4);
+	    for (i = 0; i < 4; i++) {
+		mmap[i] = New_N(unsigned char, 128);
+		for (j = 0; j < 128; j++)
+		    mmap[i][j] = FUNCNAME_nulcmd;
+	    }
+	    mmap[0][ESC_CODE] = FUNCNAME_escmap;
+	    mmap[1]['['] = FUNCNAME_escbmap;
+	    mmap[1]['O'] = FUNCNAME_escbmap;
+	}
+	if (keyData == NULL)
+	    keyData = newHash_iv(KEYDATA_HASH_SIZE);
+	putHash_iv(keyData, m, (void *)mmap);
+	if (c & K_ESCD)
+	    map = mmap[3];
+	else if (c & K_ESCB)
+	    map = mmap[2];
+	else if (c & K_ESC)
+	    map = mmap[1];
+	else
+	    map = mmap[0];
+    }
+    else {
+	if (c & K_ESCD)
+	    map = EscDKeymap;
+	else if (c & K_ESCB)
+	    map = EscBKeymap;
+	else if (c & K_ESC)
+	    map = EscKeymap;
+	else
+	    map = GlobalKeymap;
+    }
+    map[c & 0x7F] = f;
+    s = getQWord(&p);
+    if (*s) {
+	if (keyData == NULL)
+	    keyData = newHash_iv(KEYDATA_HASH_SIZE);
+	putHash_iv(keyData, c, (void *)s);
+    }
+    else if (getKeyData(c))
+	putHash_iv(keyData, c, NULL);
+}
+
+static void
+interpret_keymap(FILE * kf, struct stat *current, int force)
+{
+    int fd;
+    struct stat kstat;
+    Str line;
+    char *p, *s, *emsg;
+    int lineno;
+#ifdef USE_M17N
+    wc_ces charset = SystemCharset;
+#endif
+    int verbose = 1;
+    extern int str_to_bool(char *value, int old);
+
+    if ((fd = fileno(kf)) < 0 || fstat(fd, &kstat) ||
+	(!force &&
+	 kstat.st_mtime == current->st_mtime &&
+	 kstat.st_dev == current->st_dev &&
+	 kstat.st_ino == current->st_ino && kstat.st_size == current->st_size))
+	return;
+    *current = kstat;
+
+    lineno = 0;
+    while (!feof(kf)) {
+	line = Strfgets(kf);
+	lineno++;
+	Strchop(line);
+	Strremovefirstspaces(line);
+	if (line->length == 0)
+	    continue;
+#ifdef USE_M17N
+	line = wc_Str_conv(line, charset, InnerCharset);
+#endif
+	p = line->ptr;
+	s = getWord(&p);
+	if (*s == '#')		/* comment */
+	    continue;
+	if (!strcmp(s, "keymap")) ;
+#ifdef USE_M17N
+	else if (!strcmp(s, "charset") || !strcmp(s, "encoding")) {
+	    s = getQWord(&p);
+	    if (*s)
+		charset = wc_guess_charset(s, charset);
+	    continue;
+	}
+#endif
+	else if (!strcmp(s, "verbose")) {
+	    s = getWord(&p);
+	    if (*s)
+		verbose = str_to_bool(s, verbose);
+	    continue;
+	}
+	else {			/* error */
+	    emsg = Sprintf("line %d: syntax error '%s'", lineno, s)->ptr;
+	    record_err_message(emsg);
+	    if (verbose)
+		disp_message_nsec(emsg, FALSE, 1, TRUE, FALSE);
+	    continue;
+	}
+	setKeymap(p, lineno, verbose);
+    }
+}
+
+void
+initKeymap(int force)
+{
+    FILE *kf;
+
+    if ((kf = fopen(confFile(KEYMAP_FILE), "rt")) != NULL) {
+	interpret_keymap(kf, &sys_current_keymap_file,
+			 force || !keymap_initialized);
+	fclose(kf);
+    }
+    if ((kf = fopen(rcFile(keymap_file), "rt")) != NULL) {
+	interpret_keymap(kf, &current_keymap_file,
+			 force || !keymap_initialized);
+	fclose(kf);
+    }
+    keymap_initialized = TRUE;
+}
+
+int
+getFuncList(char *id)
+{
+    return getHash_si(&functable, id, -1);
+}
+
+char *
+getKeyData(int key)
+{
+    if (keyData == NULL)
+	return NULL;
+    return (char *)getHash_iv(keyData, key, NULL);
+}
+
+static int
+getKey2(char **str)
+{
+    char *s = *str;
+    int c, esc = 0, ctrl = 0;
+
+    if (s == NULL || *s == '\0')
+	return -1;
+
+    if (strcasecmp(s, "UP") == 0) {	/* ^[[A */
+	*str = s + 2;
+	return K_ESCB | 'A';
+    }
+    else if (strcasecmp(s, "DOWN") == 0) {	/* ^[[B */
+	*str = s + 4;
+	return K_ESCB | 'B';
+    }
+    else if (strcasecmp(s, "RIGHT") == 0) {	/* ^[[C */
+	*str = s + 5;
+	return K_ESCB | 'C';
+    }
+    else if (strcasecmp(s, "LEFT") == 0) {	/* ^[[D */
+	*str = s + 4;
+	return K_ESCB | 'D';
+    }
+
+    if (strncasecmp(s, "ESC-", 4) == 0 || strncasecmp(s, "ESC ", 4) == 0) {	/* ^[ */
+	s += 4;
+	esc = K_ESC;
+    }
+    else if (strncasecmp(s, "M-", 2) == 0 || strncasecmp(s, "\\E", 2) == 0) {	/* ^[ */
+	s += 2;
+	esc = K_ESC;
+    }
+    else if (*s == ESC_CODE) {	/* ^[ */
+	s++;
+	esc = K_ESC;
+    }
+    if (strncasecmp(s, "C-", 2) == 0) {	/* ^, ^[^ */
+	s += 2;
+	ctrl = 1;
+    }
+    else if (*s == '^' && *(s + 1)) {	/* ^, ^[^ */
+	s++;
+	ctrl = 1;
+    }
+    if (!esc && ctrl && *s == '[') {	/* ^[ */
+	s++;
+	ctrl = 0;
+	esc = K_ESC;
+    }
+    if (esc && !ctrl) {
+	if (*s == '[' || *s == 'O') {	/* ^[[, ^[O */
+	    s++;
+	    esc = K_ESCB;
+	}
+	if (strncasecmp(s, "C-", 2) == 0) {	/* ^[^, ^[[^ */
+	    s += 2;
+	    ctrl = 1;
+	}
+	else if (*s == '^' && *(s + 1)) {	/* ^[^, ^[[^ */
+	    s++;
+	    ctrl = 1;
+	}
+    }
+
+    if (ctrl) {
+	*str = s + 1;
+	if (*s >= '@' && *s <= '_')	/* ^@ .. ^_ */
+	    return esc | (*s - '@');
+	else if (*s >= 'a' && *s <= 'z')	/* ^a .. ^z */
+	    return esc | (*s - 'a' + 1);
+	else if (*s == '?')	/* ^? */
+	    return esc | DEL_CODE;
+	else
+	    return -1;
+    }
+
+    if (esc == K_ESCB && IS_DIGIT(*s)) {
+	c = (int)(*s - '0');
+	s++;
+	if (IS_DIGIT(*s)) {
+	    c = c * 10 + (int)(*s - '0');
+	    s++;
+	}
+	*str = s + 1;
+	if (*s == '~')
+	    return K_ESCD | c;
+	else
+	    return -1;
+    }
+
+    if (strncasecmp(s, "SPC", 3) == 0) {	/* ' ' */
+	*str = s + 3;
+	return esc | ' ';
+    }
+    else if (strncasecmp(s, "TAB", 3) == 0) {	/* ^i */
+	*str = s + 3;
+	return esc | '\t';
+    }
+    else if (strncasecmp(s, "DEL", 3) == 0) {	/* ^? */
+	*str = s + 3;
+	return esc | DEL_CODE;
+    }
+
+    if (*s == '\\' && *(s + 1) != '\0') {
+	s++;
+	*str = s + 1;
+	switch (*s) {
+	case 'a':		/* ^g */
+	    return esc | CTRL_G;
+	case 'b':		/* ^h */
+	    return esc | CTRL_H;
+	case 't':		/* ^i */
+	    return esc | CTRL_I;
+	case 'n':		/* ^j */
+	    return esc | CTRL_J;
+	case 'r':		/* ^m */
+	    return esc | CTRL_M;
+	case 'e':		/* ^[ */
+	    return esc | ESC_CODE;
+	case '^':		/* ^ */
+	    return esc | '^';
+	case '\\':		/* \ */
+	    return esc | '\\';
+	default:
+	    return -1;
+	}
+    }
+    *str = s + 1;
+    if (IS_ASCII(*s))		/* Ascii */
+	return esc | *s;
+    else
+	return -1;
+}
+
+int
+getKey(char *s)
+{
+    int c, c2;
+
+    c = getKey2(&s);
+    if (c < 0)
+	return -1;
+    if (*s == ' ' || *s == '-')
+	s++;
+    if (*s) {
+	c2 = getKey2(&s);
+	if (c2 < 0)
+	    return -1;
+	c = K_MULTI | (c << 16) | c2;
+    }
+    return c;
+}
+
+char *
+getWord(char **str)
+{
+    char *p, *s;
+
+    p = *str;
+    SKIP_BLANKS(p);
+    for (s = p; *p && !IS_SPACE(*p) && *p != ';'; p++) ;
+    *str = p;
+    return Strnew_charp_n(s, p - s)->ptr;
+}
+
+char *
+getQWord(char **str)
+{
+    Str tmp = Strnew();
+    char *p;
+    int in_q = 0, in_dq = 0, esc = 0;
+
+    p = *str;
+    SKIP_BLANKS(p);
+    for (; *p; p++) {
+	if (esc) {
+	    if (in_q) {
+		if (*p != '\\' && *p != '\'')	/* '..\\..', '..\'..' */
+		    Strcat_char(tmp, '\\');
+	    }
+	    else if (in_dq) {
+		if (*p != '\\' && *p != '"')	/* "..\\..", "..\".." */
+		    Strcat_char(tmp, '\\');
+	    }
+	    else {
+		if (*p != '\\' && *p != '\'' &&	/* ..\\.., ..\'.. */
+		    *p != '"' && !IS_SPACE(*p))	/* ..\".., ..\.. */
+		    Strcat_char(tmp, '\\');
+	    }
+	    Strcat_char(tmp, *p);
+	    esc = 0;
+	}
+	else if (*p == '\\') {
+	    esc = 1;
+	}
+	else if (in_q) {
+	    if (*p == '\'')
+		in_q = 0;
+	    else
+		Strcat_char(tmp, *p);
+	}
+	else if (in_dq) {
+	    if (*p == '"')
+		in_dq = 0;
+	    else
+		Strcat_char(tmp, *p);
+	}
+	else if (*p == '\'') {
+	    in_q = 1;
+	}
+	else if (*p == '"') {
+	    in_dq = 1;
+	}
+	else if (IS_SPACE(*p) || *p == ';') {
+	    break;
+	}
+	else {
+	    Strcat_char(tmp, *p);
+	}
+    }
+    *str = p;
+    return tmp->ptr;
+}
+
+#ifdef USE_MOUSE
+static MouseAction default_mouse_action = {
+    NULL,
+    "<=UpDn",
+    0, 6, FALSE, 0, 0,
+    {{movMs, NULL}, {backBf, NULL}, {menuMs, NULL}},	/* default */
+    {{NULL, NULL}, {NULL, NULL}, {NULL, NULL}},	/* anchor */
+    {{followA, NULL}, {NULL, NULL}, {NULL, NULL}},	/* active */
+    {{tabMs, NULL}, {closeTMs, NULL}, {NULL, NULL}},	/* tab */
+    {NULL, NULL, NULL},		/* menu */
+    {NULL, NULL, NULL}		/* lastline */
+};
+static MouseActionMap default_lastline_action[6] = {
+    {backBf, NULL},
+    {backBf, NULL},
+    {pgBack, NULL},
+    {pgBack, NULL},
+    {pgFore, NULL},
+    {pgFore, NULL}
+};
+
+static void
+setMouseAction0(char **str, int *width, MouseActionMap ** map, char *p)
+{
+    char *s;
+    int b, w, x;
+
+    s = getQWord(&p);
+    if (!*s) {
+	*str = NULL;
+	width = 0;
+	for (b = 0; b < 3; b++)
+	    map[b] = NULL;
+	return;
+    }
+    w = *width;
+    *str = s;
+    *width = get_strwidth(s);
+    if (*width >= LIMIT_MOUSE_MENU)
+	*width = LIMIT_MOUSE_MENU;
+    if (*width <= w)
+	return;
+    for (b = 0; b < 3; b++) {
+	if (!map[b])
+	    continue;
+	map[b] = New_Reuse(MouseActionMap, map[b], *width);
+	for (x = w + 1; x < *width; x++) {
+	    map[b][x].func = NULL;
+	    map[b][x].data = NULL;
+	}
+    }
+}
+
+static void
+setMouseAction1(MouseActionMap ** map, int width, char *p)
+{
+    char *s;
+    int x, x2, f;
+
+    if (!*map) {
+	*map = New_N(MouseActionMap, width);
+	for (x = 0; x < width; x++) {
+	    (*map)[x].func = NULL;
+	    (*map)[x].data = NULL;
+	}
+    }
+    s = getWord(&p);
+    x = atoi(s);
+    if (!(IS_DIGIT(*s) && x >= 0 && x < width))
+	return;			/* error */
+    s = getWord(&p);
+    x2 = atoi(s);
+    if (!(IS_DIGIT(*s) && x2 >= 0 && x2 < width))
+	return;			/* error */
+    s = getWord(&p);
+    f = getFuncList(s);
+    s = getQWord(&p);
+    if (!*s)
+	s = NULL;
+    for (; x <= x2; x++) {
+	(*map)[x].func = (f >= 0) ? w3mFuncList[f].func : NULL;
+	(*map)[x].data = s;
+    }
+}
+
+static void
+setMouseAction2(MouseActionMap * map, char *p)
+{
+    char *s;
+    int f;
+
+    s = getWord(&p);
+    f = getFuncList(s);
+    s = getQWord(&p);
+    if (!*s)
+	s = NULL;
+    map->func = (f >= 0) ? w3mFuncList[f].func : NULL;
+    map->data = s;
+}
+
+static void
+interpret_mouse_action(FILE * mf)
+{
+    Str line;
+    char *p, *s;
+    int b;
+
+    while (!feof(mf)) {
+	line = Strfgets(mf);
+	Strchop(line);
+	Strremovefirstspaces(line);
+	if (line->length == 0)
+	    continue;
+	p = conv_from_system(line->ptr);
+	s = getWord(&p);
+	if (*s == '#')		/* comment */
+	    continue;
+	if (!strcmp(s, "menu")) {
+	    setMouseAction0(&mouse_action.menu_str, &mouse_action.menu_width,
+			    mouse_action.menu_map, p);
+	    continue;
+	}
+	else if (!strcmp(s, "lastline")) {
+	    setMouseAction0(&mouse_action.lastline_str,
+			    &mouse_action.lastline_width,
+			    mouse_action.lastline_map, p);
+	    continue;
+	}
+	if (strcmp(s, "button"))
+	    continue;		/* error */
+	s = getWord(&p);
+	b = atoi(s) - 1;
+	if (!(b >= 0 && b <= 2))
+	    continue;		/* error */
+	SKIP_BLANKS(p);
+	if (IS_DIGIT(*p))
+	    s = "menu";
+	else
+	    s = getWord(&p);
+	if (!strcasecmp(s, "menu")) {
+	    if (!mouse_action.menu_str)
+		continue;
+	    setMouseAction1(&mouse_action.menu_map[b], mouse_action.menu_width,
+			    p);
+	}
+	else if (!strcasecmp(s, "lastline")) {
+	    if (!mouse_action.lastline_str)
+		continue;
+	    setMouseAction1(&mouse_action.lastline_map[b],
+			    mouse_action.lastline_width, p);
+	}
+	else if (!strcasecmp(s, "default"))
+	    setMouseAction2(&mouse_action.default_map[b], p);
+	else if (!strcasecmp(s, "anchor"))
+	    setMouseAction2(&mouse_action.anchor_map[b], p);
+	else if (!strcasecmp(s, "active"))
+	    setMouseAction2(&mouse_action.active_map[b], p);
+	else if (!strcasecmp(s, "tab"))
+	    setMouseAction2(&mouse_action.tab_map[b], p);
+    }
+}
+
+void
+initMouseAction(void)
+{
+    FILE *mf;
+
+    bcopy((void *)&default_mouse_action, (void *)&mouse_action,
+	  sizeof(default_mouse_action));
+    mouse_action.lastline_map[0] = New_N(MouseActionMap, 6);
+    bcopy((void *)&default_lastline_action,
+	  (void *)mouse_action.lastline_map[0],
+	  sizeof(default_lastline_action));
+    {
+#ifdef USE_M17N
+	int w = 0;
+	char **symbol = get_symbol(DisplayCharset, &w);
+#else
+	char **symbol = get_symbol();
+#endif
+	mouse_action.lastline_str =
+	    Strnew_charp(symbol[N_GRAPH_SYMBOL + 13])->ptr;
+    }
+
+    if ((mf = fopen(confFile(MOUSE_FILE), "rt")) != NULL) {
+	interpret_mouse_action(mf);
+	fclose(mf);
+    }
+    if ((mf = fopen(rcFile(MOUSE_FILE), "rt")) != NULL) {
+	interpret_mouse_action(mf);
+	fclose(mf);
+    }
+}
+#endif