/*  * w3m func.c */ #include <stdio.h> #include "fm.h"#include "func.h"#include "myctype.h" #include "funcname.c"int w3mNFuncList = 0; KeyList w3mKeyList = {    NULL, 0, 0}; voidinitKeymap(void){    FILE *kf;    Str line;    char *p, *s, *emsg;    int c;    int f;    int lineno;     if (!w3mNFuncList)	w3mNFuncList = countFuncList(w3mFuncList);     if ((kf = fopen(rcFile(KEYMAP_FILE), "rt")) == NULL)	return;     lineno = 0;    while (!feof(kf)) {	line = Strfgets(kf);	lineno++;	Strchop(line);	Strremovefirstspaces(line);	if (line->length == 0)	    continue;	p = line->ptr;	s = getWord(&p);	if (*s == '#')		/* comment */	    continue;	if (strcmp(s, "keymap")) {	/* error */	    emsg = Sprintf("line %d: keymap not found\n", lineno)->ptr;	    record_err_message(emsg);	    disp_message_nsec(emsg, FALSE, 1, TRUE, FALSE);	    continue;	}	s = getQWord(&p);	c = getKey(s);	if (c < 0) {		/* error */	    emsg = Sprintf("line %d: unknown key '%s'\n", lineno, s)->ptr;	    record_err_message(emsg);	    disp_message_nsec(emsg, FALSE, 1, TRUE, FALSE);	    continue;	}	s = getWord(&p);	f = getFuncList(s, w3mFuncList, w3mNFuncList);	if (f < 0) {	    emsg = Sprintf("line %d: invalid command '%s'\n", lineno, s)->ptr;	    record_err_message(emsg);	    disp_message_nsec(emsg, FALSE, 1, TRUE, FALSE);	    f = FUNCNAME_nulcmd;	}	if (c & K_ESCD)	    EscDKeymap[c ^ K_ESCD] = (f >= 0) ? f : FUNCNAME_nulcmd;	else if (c & K_ESCB)	    EscBKeymap[c ^ K_ESCB] = (f >= 0) ? f : FUNCNAME_nulcmd;	else if (c & K_ESC)	    EscKeymap[c ^ K_ESC] = (f >= 0) ? f : FUNCNAME_nulcmd;	else	    GlobalKeymap[c] = (f >= 0) ? f : FUNCNAME_nulcmd;	s = getQWord(&p);	addKeyList(&w3mKeyList, c, s);    }    fclose(kf);} intcountFuncList(FuncList * list){    int i;     for (i = 0; list->id != NULL; i++, list++);    return i;} intgetFuncList(char *id, FuncList * list, int nlist){    int i, is, ie, m;     if (id == NULL || *id == '\0' || nlist <= 0)	return -1;     is = 0;    ie = nlist - 1;    while (1) {	i = is + (ie - is) / 2;	if ((m = strcmp(id, list[i].id)) == 0)	    return i;	else if (is >= ie)	    return -1;	else if (m > 0)	    is = i + 1;	else	    ie = i - 1;    }} intgetKey(char *s){    int c, esc = 0, ctrl = 0;     if (s == NULL || *s == '\0')	return -1;     if (strcasecmp(s, "UP") == 0)	/* ^[[A */	return K_ESCB | 'A';    else if (strcasecmp(s, "DOWN") == 0)	/* ^[[B */	return K_ESCB | 'B';    else if (strcasecmp(s, "RIGHT") == 0)	/* ^[[C */	return K_ESCB | 'C';    else if (strcasecmp(s, "LEFT") == 0)	/* ^[[D */	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++;	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++;	    ctrl = 1;	}    }     if (ctrl) {	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++;	}	if (*s == '~')	    return K_ESCD | c;	else	    return -1;    }     if (strncasecmp(s, "SPC", 3) == 0)	/* ' ' */	return esc | ' ';    else if (strncasecmp(s, "TAB", 3) == 0)	/* ^i */	return esc | '\t';    else if (strncasecmp(s, "DEL", 3) == 0)	/* ^? */	return esc | DEL_CODE;     if (*s == '\\' && *(s + 1) != '\0') {	switch (*(s + 1)) {	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;	}    }    if (IS_ASCII(*s))		/* Ascii */	return esc | *s;    else	return -1;} voidaddKeyList(KeyList *list, int key, char *data){    KeyListItem *item;     if (data == NULL || *data == '\0')	data = NULL;    else	data = allocStr(data, 0);    item = searchKeyList(list, key);    if (item == NULL) {	if (data == NULL)	    return;	list->nitem++;	if (list->nitem > list->size) {	    list->size = (list->size >= 2) ? (list->size * 3 / 2) : 2;	    list->item = New_Reuse(KeyListItem, list->item,		list->size * sizeof(KeyListItem));	}	item = &(list->item[list->nitem - 1]);	item->key = key;    }    item->data = data;} KeyListItem *searchKeyList(KeyList *list, int key){    int i;    KeyListItem *item;     if (list == NULL)	return NULL;    for (i = 0, item = list->item; i < list->nitem; i++, item++) {	if (key == item->key)	    return item;    }    return NULL;} char *getWord(char **str){    char *p, *s;     p = *str;    SKIP_BLANKS(p);    s = p;    while (*p != '\0') {	if (IS_SPACE(*p)) {	    *p = '\0';	    p++;	    break;	}	p++;    }    *str = p;    return s;} char *getQWord(char **str){    char *p, *s, *e;    int in_q = 0, in_dq = 0, esc = 0;     p = *str;    while (*p && IS_SPACE(*p))	p++;    s = p;    e = p;    while (*p != '\0') {	if (esc) {	    if (in_q) {		if (*p != '\\' && *p != '\'')	/* '..\\..', '..\'..' */		    *e++ = '\\';	    }	    else if (in_dq) {		if (*p != '\\' && *p != '"')	/* "..\\..", "..\".." */		    *e++ = '\\';	    }	    else {		if (*p != '\\' && *p != '\'' &&		/* ..\\.., *							 * ..\'..  */		    *p != '"' && !IS_SPACE(*p))		/* ..\".., * ..\.. 							 */		    *e++ = '\\';	    }	    *e++ = *p;	    esc = 0;	}	else if (*p == '\\') {	    esc = 1;	}	else if (in_q) {	    if (*p == '\'')		in_q = 0;	    else		*e++ = *p;	}	else if (in_dq) {	    if (*p == '"')		in_dq = 0;	    else		*e++ = *p;	}	else if (*p == '\'') {	    in_q = 1;	}	else if (*p == '"') {	    in_dq = 1;	}	else if (IS_SPACE(*p)) {	    p++;	    break;	}	else {	    *e++ = *p;	}	p++;    }    *e = '\0';    *str = p;    return s;}