diff options
Diffstat (limited to 'src/LYEditmap.c')
| -rw-r--r-- | src/LYEditmap.c | 1931 |
1 files changed, 1931 insertions, 0 deletions
diff --git a/src/LYEditmap.c b/src/LYEditmap.c new file mode 100644 index 0000000..dec2ac9 --- /dev/null +++ b/src/LYEditmap.c @@ -0,0 +1,1931 @@ +/* + * $LynxId: LYEditmap.c,v 1.76 2018/12/27 10:33:52 tom Exp $ + * + * LYEditMap.c + * Keybindings for line and form editing. + */ + +#include <HTUtils.h> +#include <HTAlert.h> +#include <HTFile.h> +#include <LYGlobalDefs.h> +#include <LYCharUtils.h> +#include <LYStrings.h> +#include <LYKeymap.h> /* KEYMAP_SIZE, LKC_*, LYK_* - kw */ +#include <LYLeaks.h> + +#define PUTS(buf) (*target->isa->put_string)(target, buf) + +/* * * * * LynxEditactionCodes * * * * */ +#ifdef USE_ALT_BINDINGS + +/* Last valid index for the (lynxkeycode+modifier -> lynxeditactioncode) + * tables. Currently all three tables are the same. - kw + */ +#define LAST_MOD1_LKC 0x111 +#define LAST_MOD2_LKC 0x111 +#define LAST_MOD3_LKC 0x111 + +/* Get (lynxkeycode+modifier -> lynxeditactioncode) mapping, intermediate. + */ +#define LKC_TO_LEC_M1(c) ((c)>LAST_MOD1_LKC? (int)LYE_UNMOD: Mod1Binding[c]) +#define LKC_TO_LEC_M2(c) ((c)>LAST_MOD2_LKC? (int)LYE_UNMOD: Mod2Binding[c]) +#define LKC_TO_LEC_M3(c) ((c)>LAST_MOD3_LKC? (int)LYE_UNMOD: Mod3Binding[c]) + +#endif /* USE_ALT_BINDINGS */ + +int current_lineedit = 0; /* Index into LYLineEditors[] */ + +int escape_bound = 0; /* User wanted Escape to perform actions? */ + +/* + * See LYStrings.h for the LYE definitions. + */ +/* *INDENT-OFF* */ +struct emap { + const char *name; + const int code; + const char *descr; +}; + +#define SEPARATOR {"", -1, ""} + +static struct emap ekmap[] = { + {"NOP", LYE_NOP, "Do Nothing"}, + {"CHAR", LYE_CHAR, "Insert printable char"}, + SEPARATOR, + {"ENTER", LYE_ENTER, "Input complete, return char"}, + {"TAB", LYE_TAB, "Input complete, return TAB"}, + {"STOP", LYE_STOP, "Input deactivated"}, + {"ABORT", LYE_ABORT, "Input cancelled"}, + SEPARATOR, + {"PASS", LYE_FORM_PASS, "Fields only: input complete"}, + SEPARATOR, + {"DELBL", LYE_DELBL, "Delete back to BOL"}, + {"DELEL", LYE_DELEL, "Delete thru EOL"}, + {"DELN", LYE_DELN, "Delete next/curr char"}, + {"DELP", LYE_DELP, "Delete prev char"}, + {"DELNW", LYE_DELNW, "Delete next word"}, + {"DELPW", LYE_DELPW, "Delete prev word"}, + SEPARATOR, + + {"ERASE", LYE_ERASE, "Erase the line"}, + SEPARATOR, + {"BOL", LYE_BOL, "Go to begin of line"}, + {"EOL", LYE_EOL, "Go to end of line"}, + {"FORW", LYE_FORW, "Cursor forwards"}, + {"FORW_RL", LYE_FORW_RL, "Cursor forwards or right link"}, + {"BACK", LYE_BACK, "Cursor backwards"}, + {"BACK_LL", LYE_BACK_LL, "Cursor backwards or left link"}, + {"FORWW", LYE_FORWW, "Word forward"}, + {"BACKW", LYE_BACKW, "Word back"}, + SEPARATOR, + {"LOWER", LYE_LOWER, "Lower case the line"}, + {"UPPER", LYE_UPPER, "Upper case the line"}, + SEPARATOR, + {"LKCMD", LYE_LKCMD, "Invoke command prompt"}, + {"SWMAP", LYE_SWMAP, "Switch input keymap"}, + SEPARATOR, + {"C1CHAR", LYE_C1CHAR, "Insert C1 char if printable"}, + {"SETM1", LYE_SETM1, "Set modifier 1 flag"}, + {"SETM2", LYE_SETM2, "Set modifier 2 flag"}, + {"UNMOD", LYE_UNMOD, "Fall back to no-modifier command"}, + SEPARATOR, + {"TPOS", LYE_TPOS, "Transpose characters"}, + {"SETMARK", LYE_SETMARK, "emacs-like set-mark-command"}, + {"XPMARK", LYE_XPMARK, "emacs-like exchange-point-and-mark"}, + {"KILLREG", LYE_KILLREG, "emacs-like kill-region"}, + {"YANK", LYE_YANK, "emacs-like yank"}, +#ifdef CAN_CUT_AND_PASTE + SEPARATOR, + {"PASTE", LYE_PASTE, "ClipBoard to Lynx"}, +#endif + SEPARATOR, + {"AIX", LYE_AIX, "Hex 97"}, + {0, -1, 0}, +}; +#undef SEPARATOR +/* *INDENT-ON* */ + +static LYEditCode DefaultEditBinding[KEYMAP_SIZE]; + +#ifdef USE_ALT_BINDINGS +static LYEditCode BetterEditBinding[KEYMAP_SIZE]; +static LYEditCode BashlikeEditBinding[KEYMAP_SIZE]; + +/* + * If a modifier bit is set in a lynxkeycode, it is first looked up here. + * + * Currently this table isn't specific to the current_lineedit value, it is + * shared by all alternative "Bindings" to save space. However, if the + * modifier flag is set only by a LYE_SETMn lynxeditaction, this table can have + * effect only for those Bindings that map a lynxkeycode to LYE_SETMn. ( This + * doesn't apply if the modifier is already being set in LYgetch(). ) - kw + */ +static LYEditCode Mod1Binding[KEYMAP_SIZE]; + +/* Two more tables here, but currently they are all the same. + In other words, we are cheating to save space, until there + is a need for different tables. - kw */ +static LYEditCode *Mod2Binding = Mod1Binding; +static LYEditCode *Mod3Binding = Mod1Binding; + +static const LYEditInit initMod1Binding[] = +{ + {CTL('A'), LYE_BOL}, + {CTL('B'), LYE_BACKW}, + {CTL('C'), LYE_UNMOD}, + {CTL('D'), LYK_NEXT_LINK | LYE_FORM_LAC}, + {CTL('E'), LYK_EDITTEXTAREA | LYE_FORM_LAC}, + {CTL('F'), LYE_FORWW}, + {CTL('G'), LYE_ABORT}, + {CTL('H'), LYE_DELPW}, + {CTL('I'), LYE_UNMOD}, + {CTL('J'), LYE_ENTER}, + {CTL('K'), LYK_LPOS_NEXT_LINK | LYE_FORM_LAC}, + {CTL('L'), LYE_FORM_PASS}, + {CTL('M'), LYE_ENTER}, + {CTL('N'), LYE_FORWW}, + {CTL('O'), LYE_UNMOD}, + {CTL('P'), LYE_BACKW}, + {CTL('R'), LYE_BACKW}, + {CTL('U'), LYE_FORM_PASS}, + {CTL('W'), LYE_KILLREG}, + {CTL('X'), LYE_XPMARK}, + {CTL('Y'), LYE_UNMOD}, + {CTL('Z'), LYE_FORM_PASS}, + {CTL('\\'), LYE_FORM_PASS}, + {CTL(']'), LYE_FORM_PASS}, + {CTL('^'), LYE_UNMOD}, + {' ', LYE_UNMOD}, + {'!', LYE_UNMOD}, + {'"', LYE_UNMOD}, + {'#', LYE_UNMOD}, + {'$', LYE_UNMOD}, + {'%', LYE_UNMOD}, + {'&', LYE_UNMOD}, + {'\'', LYE_UNMOD}, + {'(', LYE_UNMOD}, + {')', LYE_UNMOD}, + {'*', LYE_UNMOD}, + {'+', LYE_UNMOD}, + {',', LYE_UNMOD}, + {'-', LYE_UNMOD}, + {'.', LYE_UNMOD}, + {'/', LYE_FORM_PASS}, + {'0', LYE_UNMOD}, + {'1', LYE_UNMOD}, + {'2', LYE_UNMOD}, + {'3', LYE_UNMOD}, + {'4', LYE_UNMOD}, + {'5', LYE_UNMOD}, + {'6', LYE_UNMOD}, + {'7', LYE_UNMOD}, + {'8', LYE_UNMOD}, + {'9', LYE_UNMOD}, + {':', LYE_UNMOD}, + {';', LYE_UNMOD}, + {'<', LYK_HOME | LYE_FORM_LAC}, + {'=', LYE_UNMOD}, + {'>', LYK_END | LYE_FORM_LAC}, + {'?', LYE_UNMOD}, + {'@', LYE_C1CHAR}, + {'A', LYE_C1CHAR}, + {'B', LYE_C1CHAR}, + {'C', LYE_C1CHAR}, + {'D', LYE_C1CHAR}, + {'E', LYE_C1CHAR}, + {'F', LYE_C1CHAR}, + {'G', LYE_C1CHAR}, + {'H', LYE_C1CHAR}, + {'I', LYE_C1CHAR}, + {'J', LYE_C1CHAR}, + {'K', LYE_C1CHAR}, + {'L', LYE_C1CHAR}, + {'M', LYE_C1CHAR}, + {'N', LYE_C1CHAR}, + {'O', LYE_C1CHAR}, + {'P', LYE_C1CHAR}, + {'Q', LYE_C1CHAR}, + {'R', LYE_C1CHAR}, + {'S', LYE_C1CHAR}, + {'T', LYE_C1CHAR}, + {'U', LYE_C1CHAR}, + {'V', LYE_C1CHAR}, + {'W', LYE_C1CHAR}, + {'X', LYE_C1CHAR}, + {'Y', LYE_C1CHAR}, + {'Z', LYE_C1CHAR}, + {'[', LYE_C1CHAR}, + {'\\', LYE_C1CHAR}, + {']', LYE_C1CHAR}, + {'^', LYE_C1CHAR}, + {'_', LYE_C1CHAR}, + {'`', LYE_UNMOD}, + {'a', LYE_BOL}, + {'b', LYE_BACKW}, + {'c', LYE_UNMOD}, + {'d', LYE_DELNW}, + {'e', LYK_EDITTEXTAREA | LYE_FORM_LAC}, + {'f', LYE_FORWW}, + {'g', LYK_GROWTEXTAREA | LYE_FORM_LAC}, + {'h', LYE_CHAR}, + {'i', LYK_INSERTFILE | LYE_FORM_LAC}, + {'j', LYE_CHAR}, + {'k', LYE_ERASE}, + {'l', LYE_LOWER}, + {'m', LYE_CHAR}, + {'n', LYE_FORM_PASS}, + {'o', LYE_UNMOD}, + {'p', LYE_CHAR}, + {'u', LYE_UPPER}, + {'z', LYE_UNMOD}, + {'{', LYE_UNMOD}, + {'|', LYE_UNMOD}, + {'}', LYE_UNMOD}, + {'~', LYE_UNMOD}, + {DEL_KEY, LYE_DELPW}, + {160, LYE_UNMOD}, + {161, LYE_UNMOD}, + {162, LYE_UNMOD}, + {163, LYE_UNMOD}, + {164, LYE_UNMOD}, + {165, LYE_UNMOD}, + {166, LYE_UNMOD}, + {167, LYE_UNMOD}, + {168, LYE_UNMOD}, + {169, LYE_UNMOD}, + {170, LYE_UNMOD}, + {171, LYE_UNMOD}, + {172, LYE_UNMOD}, + {173, LYE_UNMOD}, + {174, LYE_UNMOD}, + {175, LYE_UNMOD}, + {176, LYE_UNMOD}, + {177, LYE_UNMOD}, + {178, LYE_UNMOD}, + {179, LYE_UNMOD}, + {180, LYE_UNMOD}, + {181, LYE_UNMOD}, + {182, LYE_UNMOD}, + {183, LYE_UNMOD}, + {184, LYE_UNMOD}, + {185, LYE_UNMOD}, + {186, LYE_UNMOD}, + {187, LYE_UNMOD}, + {188, LYE_UNMOD}, + {189, LYE_UNMOD}, + {190, LYE_UNMOD}, + {191, LYE_UNMOD}, + {192, LYE_UNMOD}, + {193, LYE_UNMOD}, + {194, LYE_UNMOD}, + {195, LYE_UNMOD}, + {196, LYE_UNMOD}, + {197, LYE_UNMOD}, + {198, LYE_UNMOD}, + {199, LYE_UNMOD}, + {200, LYE_UNMOD}, + {201, LYE_UNMOD}, + {202, LYE_UNMOD}, + {203, LYE_UNMOD}, + {204, LYE_UNMOD}, + {205, LYE_UNMOD}, + {206, LYE_UNMOD}, + {207, LYE_UNMOD}, + {208, LYE_UNMOD}, + {209, LYE_UNMOD}, + {210, LYE_UNMOD}, + {211, LYE_UNMOD}, + {212, LYE_UNMOD}, + {213, LYE_UNMOD}, + {214, LYE_UNMOD}, + {215, LYE_UNMOD}, + {216, LYE_UNMOD}, + {217, LYE_UNMOD}, + {218, LYE_UNMOD}, + {219, LYE_UNMOD}, + {220, LYE_UNMOD}, + {221, LYE_UNMOD}, + {222, LYE_UNMOD}, + {223, LYE_UNMOD}, + {224, LYE_UNMOD}, + {225, LYE_UNMOD}, + {226, LYE_UNMOD}, + {227, LYE_UNMOD}, + {228, LYE_UNMOD}, + {229, LYE_UNMOD}, + {230, LYE_UNMOD}, + {231, LYE_UNMOD}, + {232, LYE_UNMOD}, + {233, LYE_UNMOD}, + {234, LYE_UNMOD}, + {235, LYE_UNMOD}, + {236, LYE_UNMOD}, + {237, LYE_UNMOD}, + {238, LYE_UNMOD}, + {239, LYE_UNMOD}, + {240, LYE_UNMOD}, + {241, LYE_UNMOD}, + {242, LYE_UNMOD}, + {243, LYE_UNMOD}, + {244, LYE_UNMOD}, + {245, LYE_UNMOD}, + {246, LYE_UNMOD}, + {247, LYE_UNMOD}, + {248, LYE_UNMOD}, + {249, LYE_UNMOD}, + {250, LYE_UNMOD}, + {251, LYE_UNMOD}, + {252, LYE_UNMOD}, + {253, LYE_UNMOD}, + {254, LYE_UNMOD}, + {255, LYE_UNMOD}, + {UPARROW_KEY, LYE_UNMOD}, + {DNARROW_KEY, LYE_UNMOD}, + {RTARROW_KEY, LYE_UNMOD}, + {LTARROW_KEY, LYE_UNMOD}, + {PGDOWN_KEY, LYE_UNMOD}, + {PGUP_KEY, LYE_UNMOD}, + {HOME_KEY, LYE_FORM_PASS}, + {END_KEY, LYE_FORM_PASS}, + {F1_KEY, LYK_DWIMHELP | LYE_FORM_LAC}, + {DO_KEY, LYE_UNMOD}, +#if (defined(_WINDOWS) || defined(__DJGPP__)) + {FIND_KEY, LYE_UNMOD}, + {SELECT_KEY, LYE_UNMOD}, +#else + {FIND_KEY, LYK_WHEREIS | LYE_FORM_LAC}, + {SELECT_KEY, LYK_NEXT | LYE_FORM_LAC}, +#endif + {INSERT_KEY, LYE_UNMOD}, + {DO_NOTHING, LYE_UNMOD}, + {BACKTAB_KEY, LYE_UNMOD}, +#if (defined(_WINDOWS) || defined(__DJGPP__)) && defined(USE_SLANG) && !defined(DJGPP_KEYHANDLER) + {272, LYE_DELPW}, +#else + {272, LYE_UNMOD}, +#endif + {273, LYE_UNMOD}, + {-1, LYE_UNKNOWN} +}; + +LYEditConfig LYModifierBindings[] = +{ + {"Modifier Binding", initMod1Binding, Mod1Binding}, +}; + +#endif /* USE_ALT_BINDINGS */ + +static const LYEditInit initDefaultEditor[] = +{ + {CTL('A'), LYE_BOL}, + {CTL('B'), LYE_DELPW}, + {CTL('C'), LYE_ABORT}, + {CTL('D'), LYE_DELN}, + {CTL('E'), LYE_EOL}, + {CTL('F'), LYE_DELNW}, + {CTL('G'), LYE_ABORT}, + {CTL('H'), LYE_DELP}, + {CTL('I'), LYE_TAB}, + {CTL('J'), LYE_ENTER}, + {CTL('K'), LYE_LOWER}, + {CTL('M'), LYE_ENTER}, + {CTL('N'), LYE_FORWW}, + {CTL('O'), LYE_ABORT}, + {CTL('P'), LYE_BACKW}, + {CTL('R'), LYE_DELN}, + {CTL('T'), LYE_UPPER}, + {CTL('U'), LYE_ERASE}, + {CTL('V'), LYE_LKCMD}, +#ifdef CAN_CUT_AND_PASTE + {CTL('W'), LYE_PASTE}, +#endif + {CTL('X'), LYE_SETM1}, + {CTL('^'), LYE_SWMAP}, + {CTL('_'), LYE_DELEL}, + {' ', LYE_CHAR}, + {'!', LYE_CHAR}, + {'"', LYE_CHAR}, + {'#', LYE_CHAR}, + {'$', LYE_CHAR}, + {'%', LYE_CHAR}, + {'&', LYE_CHAR}, + {'\'', LYE_CHAR}, + {'(', LYE_CHAR}, + {')', LYE_CHAR}, + {'*', LYE_CHAR}, + {'+', LYE_CHAR}, + {',', LYE_CHAR}, + {'-', LYE_CHAR}, + {'.', LYE_CHAR}, + {'/', LYE_CHAR}, + {'0', LYE_CHAR}, + {'1', LYE_CHAR}, + {'2', LYE_CHAR}, + {'3', LYE_CHAR}, + {'4', LYE_CHAR}, + {'5', LYE_CHAR}, + {'6', LYE_CHAR}, + {'7', LYE_CHAR}, + {'8', LYE_CHAR}, + {'9', LYE_CHAR}, + {':', LYE_CHAR}, + {';', LYE_CHAR}, + {'<', LYE_CHAR}, + {'=', LYE_CHAR}, + {'>', LYE_CHAR}, + {'?', LYE_CHAR}, + {'@', LYE_CHAR}, + {'A', LYE_CHAR}, + {'B', LYE_CHAR}, + {'C', LYE_CHAR}, + {'D', LYE_CHAR}, + {'E', LYE_CHAR}, + {'F', LYE_CHAR}, + {'G', LYE_CHAR}, + {'H', LYE_CHAR}, + {'I', LYE_CHAR}, + {'J', LYE_CHAR}, + {'K', LYE_CHAR}, + {'L', LYE_CHAR}, + {'M', LYE_CHAR}, + {'N', LYE_CHAR}, + {'O', LYE_CHAR}, + {'P', LYE_CHAR}, + {'Q', LYE_CHAR}, + {'R', LYE_CHAR}, + {'S', LYE_CHAR}, + {'T', LYE_CHAR}, + {'U', LYE_CHAR}, + {'V', LYE_CHAR}, + {'W', LYE_CHAR}, + {'X', LYE_CHAR}, + {'Y', LYE_CHAR}, + {'Z', LYE_CHAR}, + {'[', LYE_CHAR}, + {'\\', LYE_CHAR}, + {']', LYE_CHAR}, + {'^', LYE_CHAR}, + {'_', LYE_CHAR}, + {'`', LYE_CHAR}, + {'a', LYE_CHAR}, + {'b', LYE_CHAR}, + {'c', LYE_CHAR}, + {'d', LYE_CHAR}, + {'e', LYE_CHAR}, + {'f', LYE_CHAR}, + {'g', LYE_CHAR}, + {'h', LYE_CHAR}, + {'i', LYE_CHAR}, + {'j', LYE_CHAR}, + {'k', LYE_CHAR}, + {'l', LYE_CHAR}, + {'m', LYE_CHAR}, + {'n', LYE_CHAR}, + {'o', LYE_CHAR}, + {'p', LYE_CHAR}, + {'q', LYE_CHAR}, + {'r', LYE_CHAR}, + {'s', LYE_CHAR}, + {'t', LYE_CHAR}, + {'u', LYE_CHAR}, + {'v', LYE_CHAR}, + {'w', LYE_CHAR}, + {'x', LYE_CHAR}, + {'y', LYE_CHAR}, + {'z', LYE_CHAR}, + {'{', LYE_CHAR}, + {'|', LYE_CHAR}, + {'}', LYE_CHAR}, + {'~', LYE_CHAR}, + {DEL_KEY, LYE_DELP}, + {128, LYE_CHAR}, + {129, LYE_CHAR}, + {130, LYE_CHAR}, + {131, LYE_CHAR}, + {132, LYE_CHAR}, + {133, LYE_CHAR}, + {134, LYE_CHAR}, + {135, LYE_CHAR}, + {136, LYE_CHAR}, + {137, LYE_CHAR}, + {138, LYE_CHAR}, + {139, LYE_CHAR}, + {140, LYE_CHAR}, + {141, LYE_CHAR}, +#ifdef CJK_EX /* 1997/11/03 (Mon) 20:30:54 */ + {142, LYE_CHAR}, +#else + {142, LYE_AIX}, +#endif + {143, LYE_CHAR}, + {144, LYE_CHAR}, + {145, LYE_CHAR}, + {146, LYE_CHAR}, + {147, LYE_CHAR}, + {148, LYE_CHAR}, + {149, LYE_CHAR}, + {150, LYE_CHAR}, + {151, LYE_CHAR}, + {152, LYE_CHAR}, + {153, LYE_CHAR}, + {154, LYE_CHAR}, + {155, LYE_CHAR}, + {156, LYE_CHAR}, + {157, LYE_CHAR}, + {158, LYE_CHAR}, + {159, LYE_CHAR}, + {160, LYE_CHAR}, + {161, LYE_CHAR}, + {162, LYE_CHAR}, + {163, LYE_CHAR}, + {164, LYE_CHAR}, + {165, LYE_CHAR}, + {166, LYE_CHAR}, + {167, LYE_CHAR}, + {168, LYE_CHAR}, + {169, LYE_CHAR}, + {170, LYE_CHAR}, + {171, LYE_CHAR}, + {172, LYE_CHAR}, + {173, LYE_CHAR}, + {174, LYE_CHAR}, + {175, LYE_CHAR}, + {176, LYE_CHAR}, + {177, LYE_CHAR}, + {178, LYE_CHAR}, + {179, LYE_CHAR}, + {180, LYE_CHAR}, + {181, LYE_CHAR}, + {182, LYE_CHAR}, + {183, LYE_CHAR}, + {184, LYE_CHAR}, + {185, LYE_CHAR}, + {186, LYE_CHAR}, + {187, LYE_CHAR}, + {188, LYE_CHAR}, + {189, LYE_CHAR}, + {190, LYE_CHAR}, + {191, LYE_CHAR}, + {192, LYE_CHAR}, + {193, LYE_CHAR}, + {194, LYE_CHAR}, + {195, LYE_CHAR}, + {196, LYE_CHAR}, + {197, LYE_CHAR}, + {198, LYE_CHAR}, + {199, LYE_CHAR}, + {200, LYE_CHAR}, + {201, LYE_CHAR}, + {202, LYE_CHAR}, + {203, LYE_CHAR}, + {204, LYE_CHAR}, + {205, LYE_CHAR}, + {206, LYE_CHAR}, + {207, LYE_CHAR}, + {208, LYE_CHAR}, + {209, LYE_CHAR}, + {210, LYE_CHAR}, + {211, LYE_CHAR}, + {212, LYE_CHAR}, + {213, LYE_CHAR}, + {214, LYE_CHAR}, + {215, LYE_CHAR}, + {216, LYE_CHAR}, + {217, LYE_CHAR}, + {218, LYE_CHAR}, + {219, LYE_CHAR}, + {220, LYE_CHAR}, + {221, LYE_CHAR}, + {222, LYE_CHAR}, + {223, LYE_CHAR}, + {224, LYE_CHAR}, + {225, LYE_CHAR}, + {226, LYE_CHAR}, + {227, LYE_CHAR}, + {228, LYE_CHAR}, + {229, LYE_CHAR}, + {230, LYE_CHAR}, + {231, LYE_CHAR}, + {232, LYE_CHAR}, + {233, LYE_CHAR}, + {234, LYE_CHAR}, + {235, LYE_CHAR}, + {236, LYE_CHAR}, + {237, LYE_CHAR}, + {238, LYE_CHAR}, + {239, LYE_CHAR}, + {240, LYE_CHAR}, + {241, LYE_CHAR}, + {242, LYE_CHAR}, + {243, LYE_CHAR}, + {244, LYE_CHAR}, + {245, LYE_CHAR}, + {246, LYE_CHAR}, + {247, LYE_CHAR}, + {248, LYE_CHAR}, + {249, LYE_CHAR}, + {250, LYE_CHAR}, + {251, LYE_CHAR}, + {252, LYE_CHAR}, + {253, LYE_CHAR}, + {254, LYE_CHAR}, + {255, LYE_CHAR}, + {UPARROW_KEY, LYE_FORM_PASS}, + {DNARROW_KEY, LYE_FORM_PASS}, + {RTARROW_KEY, LYE_FORW}, + {LTARROW_KEY, LYE_BACK}, + {PGDOWN_KEY, LYE_FORM_PASS}, + {PGUP_KEY, LYE_FORM_PASS}, + {HOME_KEY, LYE_BOL}, + {END_KEY, LYE_EOL}, + {F1_KEY, LYE_FORM_PASS}, +#if !(defined(_WINDOWS) || defined(__DJGPP__)) + {DO_KEY, LYE_TAB}, + {FIND_KEY, LYE_BOL}, + {SELECT_KEY, LYE_EOL}, +#endif + {REMOVE_KEY, LYE_DELP}, + {BACKTAB_KEY, LYE_FORM_PASS}, +#if (defined(_WINDOWS) || defined(__DJGPP__)) && defined(USE_SLANG) && !defined(DJGPP_KEYHANDLER) + {272, LYE_DELP}, + {273, LYE_ENTER}, +#endif + {-1, LYE_UNKNOWN} +}; + +#ifdef USE_ALT_BINDINGS +static const LYEditInit initBetterEditor[] = +{ + {CTL('A'), LYE_BOL}, + {CTL('B'), LYE_BACK}, + {CTL('C'), LYE_ABORT}, + {CTL('D'), LYE_DELN}, + {CTL('E'), LYE_EOL}, + {CTL('F'), LYE_FORW}, + {CTL('G'), LYE_ABORT}, + {CTL('H'), LYE_DELP}, + {CTL('I'), LYE_ENTER}, + {CTL('J'), LYE_ENTER}, + {CTL('K'), LYE_DELEL}, + {CTL('M'), LYE_ENTER}, + {CTL('N'), LYE_FORWW}, + {CTL('O'), LYE_ABORT}, + {CTL('P'), LYE_BACKW}, + {CTL('R'), LYE_DELPW}, + {CTL('T'), LYE_DELNW}, + {CTL('U'), LYE_ERASE}, + {CTL('V'), LYE_LKCMD}, +#ifdef CAN_CUT_AND_PASTE + {CTL('W'), LYE_PASTE}, +#endif + {CTL('X'), LYE_SETM1}, + {CTL('^'), LYE_UPPER}, + {CTL('_'), LYE_LOWER}, + {' ', LYE_CHAR}, + {'!', LYE_CHAR}, + {'"', LYE_CHAR}, + {'#', LYE_CHAR}, + {'$', LYE_CHAR}, + {'%', LYE_CHAR}, + {'&', LYE_CHAR}, + {'\'', LYE_CHAR}, + {'(', LYE_CHAR}, + {')', LYE_CHAR}, + {'*', LYE_CHAR}, + {'+', LYE_CHAR}, + {',', LYE_CHAR}, + {'-', LYE_CHAR}, + {'.', LYE_CHAR}, + {'/', LYE_CHAR}, + {'0', LYE_CHAR}, + {'1', LYE_CHAR}, + {'2', LYE_CHAR}, + {'3', LYE_CHAR}, + {'4', LYE_CHAR}, + {'5', LYE_CHAR}, + {'6', LYE_CHAR}, + {'7', LYE_CHAR}, + {'8', LYE_CHAR}, + {'9', LYE_CHAR}, + {':', LYE_CHAR}, + {';', LYE_CHAR}, + {'<', LYE_CHAR}, + {'=', LYE_CHAR}, + {'>', LYE_CHAR}, + {'?', LYE_CHAR}, + {'@', LYE_CHAR}, + {'A', LYE_CHAR}, + {'B', LYE_CHAR}, + {'C', LYE_CHAR}, + {'D', LYE_CHAR}, + {'E', LYE_CHAR}, + {'F', LYE_CHAR}, + {'G', LYE_CHAR}, + {'H', LYE_CHAR}, + {'I', LYE_CHAR}, + {'J', LYE_CHAR}, + {'K', LYE_CHAR}, + {'L', LYE_CHAR}, + {'M', LYE_CHAR}, + {'N', LYE_CHAR}, + {'O', LYE_CHAR}, + {'P', LYE_CHAR}, + {'Q', LYE_CHAR}, + {'R', LYE_CHAR}, + {'S', LYE_CHAR}, + {'T', LYE_CHAR}, + {'U', LYE_CHAR}, + {'V', LYE_CHAR}, + {'W', LYE_CHAR}, + {'X', LYE_CHAR}, + {'Y', LYE_CHAR}, + {'Z', LYE_CHAR}, + {'[', LYE_CHAR}, + {'\\', LYE_CHAR}, + {']', LYE_CHAR}, + {'^', LYE_CHAR}, + {'_', LYE_CHAR}, + {'`', LYE_CHAR}, + {'a', LYE_CHAR}, + {'b', LYE_CHAR}, + {'c', LYE_CHAR}, + {'d', LYE_CHAR}, + {'e', LYE_CHAR}, + {'f', LYE_CHAR}, + {'g', LYE_CHAR}, + {'h', LYE_CHAR}, + {'i', LYE_CHAR}, + {'j', LYE_CHAR}, + {'k', LYE_CHAR}, + {'l', LYE_CHAR}, + {'m', LYE_CHAR}, + {'n', LYE_CHAR}, + {'o', LYE_CHAR}, + {'p', LYE_CHAR}, + {'q', LYE_CHAR}, + {'r', LYE_CHAR}, + {'s', LYE_CHAR}, + {'t', LYE_CHAR}, + {'u', LYE_CHAR}, + {'v', LYE_CHAR}, + {'w', LYE_CHAR}, + {'x', LYE_CHAR}, + {'y', LYE_CHAR}, + {'z', LYE_CHAR}, + {'{', LYE_CHAR}, + {'|', LYE_CHAR}, + {'}', LYE_CHAR}, + {'~', LYE_CHAR}, + {DEL_KEY, LYE_DELP}, + {128, LYE_CHAR}, + {129, LYE_CHAR}, + {130, LYE_CHAR}, + {131, LYE_CHAR}, + {132, LYE_CHAR}, + {133, LYE_CHAR}, + {134, LYE_CHAR}, + {135, LYE_CHAR}, + {136, LYE_CHAR}, + {137, LYE_CHAR}, + {138, LYE_CHAR}, + {139, LYE_CHAR}, + {140, LYE_CHAR}, + {141, LYE_CHAR}, +#ifdef CJK_EX /* 1997/11/03 (Mon) 20:30:54 */ + {142, LYE_CHAR}, +#else + {142, LYE_AIX}, +#endif + {143, LYE_CHAR}, + {144, LYE_CHAR}, + {145, LYE_CHAR}, + {146, LYE_CHAR}, + {147, LYE_CHAR}, + {148, LYE_CHAR}, + {149, LYE_CHAR}, + {150, LYE_CHAR}, + {151, LYE_CHAR}, + {152, LYE_CHAR}, + {153, LYE_CHAR}, + {154, LYE_CHAR}, + {155, LYE_CHAR}, + {156, LYE_CHAR}, + {157, LYE_CHAR}, + {158, LYE_CHAR}, + {159, LYE_CHAR}, + {160, LYE_CHAR}, + {161, LYE_CHAR}, + {162, LYE_CHAR}, + {163, LYE_CHAR}, + {164, LYE_CHAR}, + {165, LYE_CHAR}, + {166, LYE_CHAR}, + {167, LYE_CHAR}, + {168, LYE_CHAR}, + {169, LYE_CHAR}, + {170, LYE_CHAR}, + {171, LYE_CHAR}, + {172, LYE_CHAR}, + {173, LYE_CHAR}, + {174, LYE_CHAR}, + {175, LYE_CHAR}, + {176, LYE_CHAR}, + {177, LYE_CHAR}, + {178, LYE_CHAR}, + {179, LYE_CHAR}, + {180, LYE_CHAR}, + {181, LYE_CHAR}, + {182, LYE_CHAR}, + {183, LYE_CHAR}, + {184, LYE_CHAR}, + {185, LYE_CHAR}, + {186, LYE_CHAR}, + {187, LYE_CHAR}, + {188, LYE_CHAR}, + {189, LYE_CHAR}, + {190, LYE_CHAR}, + {191, LYE_CHAR}, + {192, LYE_CHAR}, + {193, LYE_CHAR}, + {194, LYE_CHAR}, + {195, LYE_CHAR}, + {196, LYE_CHAR}, + {197, LYE_CHAR}, + {198, LYE_CHAR}, + {199, LYE_CHAR}, + {200, LYE_CHAR}, + {201, LYE_CHAR}, + {202, LYE_CHAR}, + {203, LYE_CHAR}, + {204, LYE_CHAR}, + {205, LYE_CHAR}, + {206, LYE_CHAR}, + {207, LYE_CHAR}, + {208, LYE_CHAR}, + {209, LYE_CHAR}, + {210, LYE_CHAR}, + {211, LYE_CHAR}, + {212, LYE_CHAR}, + {213, LYE_CHAR}, + {214, LYE_CHAR}, + {215, LYE_CHAR}, + {216, LYE_CHAR}, + {217, LYE_CHAR}, + {218, LYE_CHAR}, + {219, LYE_CHAR}, + {220, LYE_CHAR}, + {221, LYE_CHAR}, + {222, LYE_CHAR}, + {223, LYE_CHAR}, + {224, LYE_CHAR}, + {225, LYE_CHAR}, + {226, LYE_CHAR}, + {227, LYE_CHAR}, + {228, LYE_CHAR}, + {229, LYE_CHAR}, + {230, LYE_CHAR}, + {231, LYE_CHAR}, + {232, LYE_CHAR}, + {233, LYE_CHAR}, + {234, LYE_CHAR}, + {235, LYE_CHAR}, + {236, LYE_CHAR}, + {237, LYE_CHAR}, + {238, LYE_CHAR}, + {239, LYE_CHAR}, + {240, LYE_CHAR}, + {241, LYE_CHAR}, + {242, LYE_CHAR}, + {243, LYE_CHAR}, + {244, LYE_CHAR}, + {245, LYE_CHAR}, + {246, LYE_CHAR}, + {247, LYE_CHAR}, + {248, LYE_CHAR}, + {249, LYE_CHAR}, + {250, LYE_CHAR}, + {251, LYE_CHAR}, + {252, LYE_CHAR}, + {253, LYE_CHAR}, + {254, LYE_CHAR}, + {255, LYE_CHAR}, + {UPARROW_KEY, LYE_FORM_PASS}, + {DNARROW_KEY, LYE_FORM_PASS}, + {RTARROW_KEY, LYE_FORW}, + {LTARROW_KEY, LYE_BACK}, + {PGDOWN_KEY, LYE_FORM_PASS}, + {PGUP_KEY, LYE_FORM_PASS}, + {HOME_KEY, LYE_BOL}, + {END_KEY, LYE_EOL}, + {F1_KEY, LYE_FORM_PASS}, +#if !(defined(_WINDOWS) || defined(__DJGPP__)) + {DO_KEY, LYE_TAB}, + {FIND_KEY, LYE_BOL}, + {SELECT_KEY, LYE_EOL}, +#endif + {REMOVE_KEY, LYE_DELP}, + {BACKTAB_KEY, LYE_FORM_PASS}, +#if (defined(_WINDOWS) || defined(__DJGPP__)) && defined(USE_SLANG) && !defined(DJGPP_KEYHANDLER) + {272, LYE_DELP}, + {273, LYE_ENTER}, +#endif + {-1, LYE_UNKNOWN} +}; + +static const LYEditInit initBashlikeEditor[] = +{ + {CTL('@'), LYE_SETMARK}, + {CTL('A'), LYE_BOL}, + {CTL('B'), LYE_BACK}, + {CTL('C'), LYE_ABORT}, + {CTL('D'), LYE_DELN}, + {CTL('E'), LYE_EOL | LYE_DF}, + {CTL('F'), LYE_FORW}, + {CTL('G'), LYE_ABORT}, + {CTL('H'), LYE_DELP}, + {CTL('I'), LYE_TAB}, + {CTL('J'), LYE_ENTER}, + {CTL('K'), LYE_DELEL | LYE_DF}, + {CTL('L'), LYE_FORM_PASS}, + {CTL('M'), LYE_ENTER}, + {CTL('N'), LYE_FORM_PASS}, + {CTL('O'), LYE_FORM_PASS}, + {CTL('P'), LYE_FORM_PASS}, + {CTL('R'), LYE_BACKW}, + {CTL('S'), LYE_FORWW}, + {CTL('T'), LYE_TPOS}, + {CTL('U'), LYE_DELBL}, + {CTL('V'), LYE_LKCMD}, + {CTL('W'), LYE_DELPW}, + {CTL('X'), LYE_SETM1}, + {CTL('Y'), LYE_YANK}, + {CTL('Z'), LYE_FORM_PASS}, + {CTL('['), LYE_SETM2}, + {CTL('\\'), LYE_FORM_PASS}, + {CTL(']'), LYE_FORM_PASS}, + {CTL('^'), LYE_SWMAP}, + {CTL('_'), LYE_ABORT}, + {' ', LYE_CHAR}, + {'!', LYE_CHAR}, + {'"', LYE_CHAR}, + {'#', LYE_CHAR}, + {'$', LYE_CHAR}, + {'%', LYE_CHAR}, + {'&', LYE_CHAR}, + {'\'', LYE_CHAR}, + {'(', LYE_CHAR}, + {')', LYE_CHAR}, + {'*', LYE_CHAR}, + {'+', LYE_CHAR}, + {',', LYE_CHAR}, + {'-', LYE_CHAR}, + {'.', LYE_CHAR}, + {'/', LYE_CHAR}, + {'0', LYE_CHAR}, + {'1', LYE_CHAR}, + {'2', LYE_CHAR}, + {'3', LYE_CHAR}, + {'4', LYE_CHAR}, + {'5', LYE_CHAR}, + {'6', LYE_CHAR}, + {'7', LYE_CHAR}, + {'8', LYE_CHAR}, + {'9', LYE_CHAR}, + {':', LYE_CHAR}, + {';', LYE_CHAR}, + {'<', LYE_CHAR}, + {'=', LYE_CHAR}, + {'>', LYE_CHAR}, + {'?', LYE_CHAR}, + {'@', LYE_CHAR}, + {'A', LYE_CHAR}, + {'B', LYE_CHAR}, + {'C', LYE_CHAR}, + {'D', LYE_CHAR}, + {'E', LYE_CHAR}, + {'F', LYE_CHAR}, + {'G', LYE_CHAR}, + {'H', LYE_CHAR}, + {'I', LYE_CHAR}, + {'J', LYE_CHAR}, + {'K', LYE_CHAR}, + {'L', LYE_CHAR}, + {'M', LYE_CHAR}, + {'N', LYE_CHAR}, + {'O', LYE_CHAR}, + {'P', LYE_CHAR}, + {'Q', LYE_CHAR}, + {'R', LYE_CHAR}, + {'S', LYE_CHAR}, + {'T', LYE_CHAR}, + {'U', LYE_CHAR}, + {'V', LYE_CHAR}, + {'W', LYE_CHAR}, + {'X', LYE_CHAR}, + {'Y', LYE_CHAR}, + {'Z', LYE_CHAR}, + {'[', LYE_CHAR}, + {'\\', LYE_CHAR}, + {']', LYE_CHAR}, + {'^', LYE_CHAR}, + {'_', LYE_CHAR}, + {'`', LYE_CHAR}, + {'a', LYE_CHAR}, + {'b', LYE_CHAR}, + {'c', LYE_CHAR}, + {'d', LYE_CHAR}, + {'e', LYE_CHAR}, + {'f', LYE_CHAR}, + {'g', LYE_CHAR}, + {'h', LYE_CHAR}, + {'i', LYE_CHAR}, + {'j', LYE_CHAR}, + {'k', LYE_CHAR}, + {'l', LYE_CHAR}, + {'m', LYE_CHAR}, + {'n', LYE_CHAR}, + {'o', LYE_CHAR}, + {'p', LYE_CHAR}, + {'q', LYE_CHAR}, + {'r', LYE_CHAR}, + {'s', LYE_CHAR}, + {'t', LYE_CHAR}, + {'u', LYE_CHAR}, + {'v', LYE_CHAR}, + {'w', LYE_CHAR}, + {'x', LYE_CHAR}, + {'y', LYE_CHAR}, + {'z', LYE_CHAR}, + {'{', LYE_CHAR}, + {'|', LYE_CHAR}, + {'}', LYE_CHAR}, + {'~', LYE_CHAR}, + {DEL_KEY, LYE_DELP}, + {128, LYE_CHAR}, + {129, LYE_CHAR}, + {130, LYE_CHAR}, + {131, LYE_CHAR}, + {132, LYE_CHAR}, + {133, LYE_CHAR}, + {134, LYE_CHAR}, + {135, LYE_CHAR}, + {136, LYE_CHAR}, + {137, LYE_CHAR}, + {138, LYE_CHAR}, + {139, LYE_CHAR}, + {140, LYE_CHAR}, + {141, LYE_CHAR}, + {142, LYE_CHAR}, + {143, LYE_CHAR}, + {144, LYE_CHAR}, + {145, LYE_CHAR}, + {146, LYE_CHAR}, + {147, LYE_CHAR}, + {148, LYE_CHAR}, + {149, LYE_CHAR}, + {150, LYE_CHAR}, + {151, LYE_AIX}, + {152, LYE_CHAR}, + {153, LYE_CHAR}, + {154, LYE_CHAR}, + {155, LYE_CHAR}, + {156, LYE_CHAR}, + {157, LYE_CHAR}, + {158, LYE_CHAR}, + {159, LYE_CHAR}, + {160, LYE_CHAR}, + {161, LYE_CHAR}, + {162, LYE_CHAR}, + {163, LYE_CHAR}, + {164, LYE_CHAR}, + {165, LYE_CHAR}, + {166, LYE_CHAR}, + {167, LYE_CHAR}, + {168, LYE_CHAR}, + {169, LYE_CHAR}, + {170, LYE_CHAR}, + {171, LYE_CHAR}, + {172, LYE_CHAR}, + {173, LYE_CHAR}, + {174, LYE_CHAR}, + {175, LYE_CHAR}, + {176, LYE_CHAR}, + {177, LYE_CHAR}, + {178, LYE_CHAR}, + {179, LYE_CHAR}, + {180, LYE_CHAR}, + {181, LYE_CHAR}, + {182, LYE_CHAR}, + {183, LYE_CHAR}, + {184, LYE_CHAR}, + {185, LYE_CHAR}, + {186, LYE_CHAR}, + {187, LYE_CHAR}, + {188, LYE_CHAR}, + {189, LYE_CHAR}, + {190, LYE_CHAR}, + {191, LYE_CHAR}, + {192, LYE_CHAR}, + {193, LYE_CHAR}, + {194, LYE_CHAR}, + {195, LYE_CHAR}, + {196, LYE_CHAR}, + {197, LYE_CHAR}, + {198, LYE_CHAR}, + {199, LYE_CHAR}, + {200, LYE_CHAR}, + {201, LYE_CHAR}, + {202, LYE_CHAR}, + {203, LYE_CHAR}, + {204, LYE_CHAR}, + {205, LYE_CHAR}, + {206, LYE_CHAR}, + {207, LYE_CHAR}, + {208, LYE_CHAR}, + {209, LYE_CHAR}, + {210, LYE_CHAR}, + {211, LYE_CHAR}, + {212, LYE_CHAR}, + {213, LYE_CHAR}, + {214, LYE_CHAR}, + {215, LYE_CHAR}, + {216, LYE_CHAR}, + {217, LYE_CHAR}, + {218, LYE_CHAR}, + {219, LYE_CHAR}, + {220, LYE_CHAR}, + {221, LYE_CHAR}, + {222, LYE_CHAR}, + {223, LYE_CHAR}, + {224, LYE_CHAR}, + {225, LYE_CHAR}, + {226, LYE_CHAR}, + {227, LYE_CHAR}, + {228, LYE_CHAR}, + {229, LYE_CHAR}, + {230, LYE_CHAR}, + {231, LYE_CHAR}, + {232, LYE_CHAR}, + {233, LYE_CHAR}, + {234, LYE_CHAR}, + {235, LYE_CHAR}, + {236, LYE_CHAR}, + {237, LYE_CHAR}, + {238, LYE_CHAR}, + {239, LYE_CHAR}, + {240, LYE_CHAR}, + {241, LYE_CHAR}, + {242, LYE_CHAR}, + {243, LYE_CHAR}, + {244, LYE_CHAR}, + {245, LYE_CHAR}, + {246, LYE_CHAR}, + {247, LYE_CHAR}, + {248, LYE_CHAR}, + {249, LYE_CHAR}, + {250, LYE_CHAR}, + {251, LYE_CHAR}, + {252, LYE_CHAR}, + {253, LYE_CHAR}, + {254, LYE_CHAR}, + {255, LYE_CHAR}, + {UPARROW_KEY, LYE_FORM_PASS}, + {DNARROW_KEY, LYE_FORM_PASS}, + {RTARROW_KEY, LYE_FORW}, + {LTARROW_KEY, LYE_BACK}, + {PGDOWN_KEY, LYE_FORM_PASS}, + {PGUP_KEY, LYE_FORM_PASS}, + {HOME_KEY, LYE_BOL}, + {END_KEY, LYE_EOL}, + {F1_KEY, LYE_FORM_PASS}, +#if !(defined(_WINDOWS) || defined(__DJGPP__)) + {DO_KEY, LYE_TAB}, + {FIND_KEY, LYE_BOL}, + {SELECT_KEY, LYE_EOL}, +#endif + {REMOVE_KEY, LYE_DELN}, + {BACKTAB_KEY, LYE_FORM_PASS}, +#if (defined(_WINDOWS) || defined(__DJGPP__)) && defined(USE_SLANG) && !defined(DJGPP_KEYHANDLER) + {272, LYE_DELP}, + {273, LYE_ENTER}, +#endif + {-1, LYE_UNKNOWN} +}; +#endif /* USE_ALT_BINDINGS */ + +LYEditConfig LYLineEditors[] = +{ + {"Default Binding", initDefaultEditor, DefaultEditBinding}, +#ifdef USE_ALT_BINDINGS + {"Alternate Bindings", initBetterEditor, BetterEditBinding}, + {"Bash-like Bindings", initBashlikeEditor, BashlikeEditBinding}, +#endif +}; + +const char *LYEditorNames[TABLESIZE(LYLineEditors) + 1]; + +/* + * Add the URL (relative to helpfilepath) used for context-dependent + * help on form field editing. + * + * The order must correspond to that of LYLineditNames. + */ +const char *LYLineeditHelpURLs[] = +{ + EDIT_HELP, +#ifdef USE_ALT_BINDINGS + ALT_EDIT_HELP, + BASHLIKE_EDIT_HELP, +#endif + (char *) 0 +}; + +static struct emap *name2emap(const char *name) +{ + struct emap *mp; + struct emap *result = 0; + + if (non_empty(name)) { + for (mp = ekmap; mp->name != NULL; mp++) { + if (strcasecomp(mp->name, name) == 0) { + result = mp; + break; + } + } + } + return result; +} + +static struct emap *code2emap(int code) +{ + struct emap *mp; + struct emap *result = 0; + + for (mp = ekmap; mp->name != NULL; mp++) { + if (mp->code == code) { + result = mp; + break; + } + } + return result; +} + +/* + * Return editactioncode whose name is the string func. func must be present + * in the ekmap table. returns -1 if not found. - kw + */ +int lecname_to_lec(const char *func) +{ + struct emap *mp; + int result = -1; + + if ((mp = name2emap(func)) != 0) { + result = mp->code; + } + return result; +} + +const char *lec_to_lecname(int code) +{ + struct emap *mp; + const char *result = 0; + + if ((mp = code2emap(code)) != 0) { + result = mp->name; + } + return result; +} + +int EditBinding(int xlkc) +{ + int editaction, xleac = LYE_UNMOD; + int c = xlkc & LKC_MASK; + + if (xlkc == -1) + return LYE_NOP; /* maybe LYE_ABORT? or LYE_FORM_LAC|LYK_UNKNOWN? */ +#ifdef NOT_ASCII + if (c < 256) { + c = TOASCII(c); + } +#endif +#ifdef USE_ALT_BINDINGS + /* + * Get intermediate code from one of the lynxkeycode+modifier tables if + * applicable, otherwise get the lynxeditactioncode directly. If we have + * more than one modifier bits, the first currently wins. - kw + */ + if (xlkc & LKC_ISLECLAC) { + return LKC2_TO_LEC(xlkc); + } else if (xlkc & LKC_MOD1) { + xleac = LKC_TO_LEC_M1(c); + } else if (xlkc & LKC_MOD2) { + xleac = LKC_TO_LEC_M2(c); + } else if (xlkc & LKC_MOD3) { + xleac = LKC_TO_LEC_M3(c); + } else { + xleac = UCH(CurrentLineEditor()[c]); + } +#endif + /* + * If we have an intermediate code that says "same as without modifier", + * look that up now; otherwise we are already done. - kw + */ + if (xleac == LYE_UNMOD) { + editaction = CurrentLineEditor()[c]; + } else { + editaction = xleac; + } + return editaction; +} + +/* + * Install lec as the lynxeditaction for lynxkeycode xlkc. func must be + * present in the revmap table. For normal (non-modifier) lynxkeycodes, + * select_edi selects which of the alternative line-editor binding tables is + * modified. If select_edi is positive, only the table given by it is modified + * (the DefaultEditBinding table is numbered 1). If select_edi is 0, all + * tables are modified. If select_edi is negative, all tables except the one + * given by abs(select_edi) are modified. returns TRUE if the mapping was + * made, FALSE if not. Note that this remapping cannot be undone (as might be + * desirable as a result of re-parsing lynx.cfg), we don't remember the + * original editaction from the Bindings tables anywhere. - kw + */ +BOOL LYRemapEditBinding(int xlkc, + int lec, + int select_edi) +{ + int j; + int c = xlkc & LKC_MASK; + BOOLEAN success = FALSE; + + if (xlkc >= 0 && !(xlkc & LKC_ISLAC) && (c < KEYMAP_SIZE)) { + LYEditCode code = (LYEditCode) lec; + +#ifdef USE_ALT_BINDINGS + if (xlkc & LKC_MOD1) { + if (c <= LAST_MOD1_LKC) { + Mod1Binding[c] = code; + success = TRUE; + } + } else if (xlkc & LKC_MOD2) { + if (c <= LAST_MOD2_LKC) { + Mod2Binding[c] = code; + success = TRUE; + } + } else if (xlkc & LKC_MOD3) { + if (c <= LAST_MOD3_LKC) { + Mod3Binding[c] = code; + success = TRUE; + } + } else +#endif /* USE_ALT_BINDINGS */ + { +#ifndef UCHAR_MAX +#define UCHAR_MAX 255 +#endif + if ((unsigned int) lec <= UCHAR_MAX) { + if (select_edi > 0) { + if ((unsigned int) select_edi < TABLESIZE(LYLineEditors)) { + LYLineEditors[select_edi - 1].used[c] = code; + success = TRUE; + } + } else { + for (j = 0; j < (int) TABLESIZE(LYLineEditors); j++) { + success = TRUE; + if ((select_edi < 0) && ((j + 1 + select_edi) == 0)) + continue; + LYLineEditors[j].used[c] = code; + } + } + } + } + } + return success; +} + +/* + * Macro to walk through lkc-indexed tables up to imax, in the (ASCII) order + * 97 - 122 ('a' - 'z'), + * 32 - 96 (' ' - '`', includes 'A' - 'Z'), + * 123 - 126 ('{' - '~'), + * 0 - 31 (^@ - ^_), + * 256 - imax, + * 127 - 255 + */ +#define NEXT_I(i,imax) ((i==122) ? 32 : (i==96) ? 123 : (i==126) ? 0 :\ + (i==31) ? 256 : (i==imax) ? 127 :\ + (i==255) ? (-1) :i+1) +#define FIRST_I 97 + +int LYKeyForEditAction(int lec) +{ + int editaction, i; + + for (i = FIRST_I; i >= 0; i = NEXT_I(i, KEYMAP_SIZE - 1)) { + editaction = CurrentLineEditor()[i]; + if (editaction == lec) { +#ifdef NOT_ASCII + if (i < 256) { + return FROMASCII(i); + } else +#endif + return i; + } + } + return (-1); +} + +/* + * Given a lynxactioncode, return a key (lynxkeycode) or sequence of two keys + * that results in the given action while forms-editing. The main keycode is + * returned as function value, possibly with modifier bits set; in addition, if + * applicable, a key that sets the required modifier flag is returned in + * *pmodkey if (pmodkey!=NULL). Non-lineediting bindings that would require + * typing LYE_LKCMD (default ^V) to activate are not checked here, the caller + * should do that separately if required. If no key is bound by current + * line-editor bindings to the action, -1 is returned. + * + * This is all a bit long - it is general enough to continue to work should the + * three Mod<N>Binding[] become different tables. - kw + */ +int LYEditKeyForAction(int lac, + int *pmodkey) +{ + int editaction, i, c; + int mod1found = -1, mod2found = -1, mod3found = -1; + + if (pmodkey) + *pmodkey = -1; + for (i = FIRST_I; i >= 0; i = NEXT_I(i, KEYMAP_SIZE - 1)) { + editaction = CurrentLineEditor()[i]; +#ifdef NOT_ASCII + if (i < 256) { + c = FROMASCII(i); + } else +#endif + c = i; + if (editaction == (lac | LYE_FORM_LAC)) + return c; + if (editaction == LYE_FORM_PASS) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, c) == lac) + return c; +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, c) == lac) + return c; + } + if (editaction == LYE_TAB) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, '\t') == lac) + return c; +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, '\t') == lac) + return c; + } + if (editaction == LYE_SETM1 && mod1found < 0) + mod1found = i; + if (editaction == LYE_SETM2 && mod2found < 0) + mod2found = i; + if ((editaction & LYE_DF) && mod3found < 0) + mod3found = i; + } +#ifdef USE_ALT_BINDINGS + if (mod3found >= 0) { + for (i = mod3found; i >= 0; i = NEXT_I(i, LAST_MOD3_LKC)) { + editaction = CurrentLineEditor()[i]; + if (!(editaction & LYE_DF)) + continue; + editaction = Mod3Binding[i]; +#ifdef NOT_ASCII + if (i < 256) { + c = FROMASCII(i); + } else +#endif + c = i; + if (pmodkey) + *pmodkey = c; + if (editaction == (lac | LYE_FORM_LAC)) + return (c | LKC_MOD3); + if (editaction == LYE_FORM_PASS) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, c) == lac) + return (c | LKC_MOD3); +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, c) == lac) + return (c | LKC_MOD3); + } + if (editaction == LYE_TAB) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, '\t') == lac) + return (c | LKC_MOD3); +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, '\t') == lac) + return (c | LKC_MOD3); + } + } + } + if (mod1found >= 0) { + if (pmodkey) { +#ifdef NOT_ASCII + if (mod1found < 256) { + *pmodkey = FROMASCII(mod1found); + } else +#endif + *pmodkey = mod1found; + } + for (i = FIRST_I; i >= 0; i = NEXT_I(i, LAST_MOD1_LKC)) { + editaction = Mod1Binding[i]; +#ifdef NOT_ASCII + if (i < 256) { + c = FROMASCII(i); + } else +#endif + c = i; + if (editaction == (lac | LYE_FORM_LAC)) + return (c | LKC_MOD1); + if (editaction == LYE_FORM_PASS) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, c) == lac) + return (c | LKC_MOD1); +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, c) == lac) + return (c | LKC_MOD1); + } + if (editaction == LYE_TAB) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, '\t') == lac) + return (c | LKC_MOD1); +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, '\t') == lac) + return (c | LKC_MOD1); + } + } + } + if (mod2found >= 0) { + if (pmodkey) { +#ifdef NOT_ASCII + if (mod1found < 256) { + *pmodkey = FROMASCII(mod1found); + } else +#endif + *pmodkey = mod1found; + } + for (i = FIRST_I; i >= 0; i = NEXT_I(i, LAST_MOD2_LKC)) { + editaction = Mod2Binding[i]; +#ifdef NOT_ASCII + if (i < 256) { + c = FROMASCII(i); + } else +#endif + c = i; + if (editaction == (lac | LYE_FORM_LAC)) + return (c | LKC_MOD2); + if (editaction == LYE_FORM_PASS) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, c) == lac) + return (c | LKC_MOD2); +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, c) == lac) + return (c | LKC_MOD2); + } + if (editaction == LYE_TAB) { +#if defined(DIRED_SUPPORT) && defined(OK_OVERRIDE) + if (lynx_edit_mode && !no_dired_support && lac && + LKC_TO_LAC(key_override, '\t') == lac) + return (c | LKC_MOD2); +#endif /* DIRED_SUPPORT && OK_OVERRIDE */ + if (LKC_TO_LAC(keymap, '\t') == lac) + return (c | LKC_MOD2); + } + } + } +#endif /* USE_ALT_BINDINGS */ + if (pmodkey) + *pmodkey = -1; + return (-1); +} + +#if 0 +/* + * This function was useful in converting the hand-crafted key-bindings to + * their reusable form in 2.8.8 -TD + */ +static void checkEditMap(LYEditConfig * table) +{ + unsigned j, k; + char comment[80]; + int first = TRUE; + + for (j = 0; table->init[j].code >= 0; ++j) { + int code = table->init[j].code; + + if (table->init[j].edit != table->used[code]) { + if (first) { + printf("TABLE %s\n", table->name); + first = FALSE; + } + printf("%u: init %d vs used %d\n", + j, + table->init[j].edit, + table->used[code]); + } + } + for (j = 0; j < KEYMAP_SIZE; ++j) { + int code = (int) j; + BOOL found = FALSE; + + for (k = 0; table->init[k].code >= 0; ++k) { + if (code == table->init[k].code) { + found = TRUE; + break; + } + } + if (!found) { + if (table->used[j] != 0) { + int edit = table->used[j]; + int has_DF = (edit & LYE_DF); + int has_LAC = (edit & LYE_FORM_LAC); + const char *prefix = "LYE_"; + const char *name = 0; + + edit &= 0x7f; + if (has_LAC) { + Kcmd *cmd = LYKeycodeToKcmd(edit); + + if (cmd != 0) { + prefix = "LYK_"; + name = cmd->name; + } + } else { + name = lec_to_lecname(edit); + } + + if (j < 32) { + char temp[80]; + const char *what = 0; + + switch (j) { + case 0: + what = "nul"; + break; + case 17: + what = "XON"; + break; + case 19: + what = "XOFF"; + break; + default: + sprintf(temp, "^%c", j + 'A'); + what = temp; + break; + } + sprintf(comment, "\t/* %s */", what); + } else if (j < 127) { + sprintf(comment, "\t/* %c */", j); + } else { + const char *what = LYextraKeysToName(j); + + if (Non_Empty(what)) { + sprintf(comment, "\t/* %s%s */", what, + ((StrChr(what, '_') != 0) + ? "" + : "_KEY")); + } else { + strcpy(comment, ""); + } + } + if (name == 0) { + name = "XXX"; + } else if (!strcasecomp(name, "PASS")) { + name = "FORM_PASS"; + } + if (first) { + printf("TABLE %s\n", table->name); + first = FALSE; + } + printf("\t{ %d, %s%s%s%s },%s\n", code, prefix, name, + has_DF ? "|LYE_DF" : "", + has_LAC ? "|LYE_FORM_LAC" : "", + comment); + } + } + } +} + +#else +#define checkEditMap(table) /* nothing */ +#endif + +static void initLineEditor(LYEditConfig * table) +{ + unsigned k; + LYEditCode *used = table->used; + const LYEditInit *init = table->init; + + memset(used, 0, sizeof(LYEditCode) * KEYMAP_SIZE); + + for (k = 0; init[k].code >= 0; ++k) { + int code = init[k].code; + + used[code] = init[k].edit; + } + checkEditMap(table); +} + +/* + * Reset the editor bindings to their default values. + */ +void LYinitEditmap(void) +{ + unsigned j; + + for (j = 0; j < TABLESIZE(LYLineEditors); ++j) { + LYEditorNames[j] = LYLineEditors[j].name; + initLineEditor(&LYLineEditors[j]); + } +#ifdef USE_ALT_BINDINGS + for (j = 0; j < TABLESIZE(LYModifierBindings); ++j) { + initLineEditor(&LYModifierBindings[j]); + } +#endif +} + +static char *showRanges(int *state) +{ + char *result = 0; + int range[2]; + int i; + + range[0] = range[1] = -1; + for (i = 0; i < KEYMAP_SIZE; ++i) { + if (!state[i]) { + int code = CurrentLineEditor()[i]; + + if (code == LYE_CHAR) { + if (range[0] < 0) + range[0] = i; + range[1] = i; + state[i] = 3; + } else if (range[0] >= 0) { + if (non_empty(result)) + StrAllocCat(result, ", "); + HTSprintf(&result, "%d-%d", range[0], range[1]); + range[0] = range[1] = -1; + } + } + } + return result; +} + +static int LYLoadEditmap(const char *arg GCC_UNUSED, + HTParentAnchor *anAnchor, + HTFormat format_out, + HTStream *sink) +{ +#define FORMAT " %-*s %-*s - %s\n" + HTFormat format_in = WWW_HTML; + HTStream *target; + int state[KEYMAP_SIZE]; + int width[2]; + char *buf = 0; + char *ranges = 0; + struct emap *mp; + int i; + int hanging; + int wrapped; + int had_output = FALSE; + int result; + + if ((target = HTStreamStack(format_in, format_out, sink, anAnchor)) != 0) { + anAnchor->no_cache = TRUE; + + HTSprintf0(&buf, + "<html>\n<head>\n<title>%s</title>\n</head>\n<body>\n", + CURRENT_EDITMAP_TITLE); + PUTS(buf); + HTSprintf0(&buf, "<pre>\n"); + PUTS(buf); + + /* determine the column-widths we will use for showing bindings */ + width[0] = 0; + width[1] = 0; + for (i = 0; i < KEYMAP_SIZE; ++i) { + int code = CurrentLineEditor()[i]; + + if (code == LYE_NOP) { + state[i] = 1; + } else { + int need; + + if ((mp = code2emap(code)) != 0) { + state[i] = 0; + if ((need = (int) strlen(mp->name)) > width[0]) + width[0] = need; + if ((need = (int) strlen(mp->descr)) > width[1]) + width[1] = need; + } else { + state[i] = 2; + } + } + } + hanging = 2 + width[0] + 2 + width[1] + 5; + wrapped = hanging; + + /* + * Tell which set of bindings we are showing, and link to the + * handcrafted page, which adds explanations. + */ + PUTS(gettext("These are the current edit-bindings:")); + HTSprintf0(&buf, + " <a href=\"%s\">%s</a>\n\n", + LYLineeditHelpURL(), + LYEditorNames[current_lineedit]); + PUTS(buf); + + /* Show by groups to match the arrangement in the handmade files. */ + for (mp = ekmap; mp->name != 0; ++mp) { + if (isEmpty(mp->name)) { + if (had_output) { + PUTS("\n"); + had_output = FALSE; + } + } else if (mp->code == LYE_CHAR) { + ranges = showRanges(state); + HTSprintf0(&buf, FORMAT, + width[0], mp->name, + width[1], mp->descr, + ranges); + FREE(ranges); + PUTS(buf); + had_output = TRUE; + } else { + for (i = 0; i < KEYMAP_SIZE; ++i) { + int code = CurrentLineEditor()[i]; + + if ((code == mp->code) && !state[i]) { + char *value = LYKeycodeToString(i, (i >= 160 && + i <= 255)); + int before = wrapped + (ranges ? ((int) + strlen(ranges)) : 0); + int after = before; + + if (non_empty(ranges)) { + StrAllocCat(ranges, ", "); + after += 2; + } + after += (int) strlen(value) + 2; + if ((before / LYcols) != (after / LYcols)) { + wrapped += (LYcols - (before % LYcols)); + HTSprintf(&ranges, "\n%-*s", hanging, " "); + } + StrAllocCat(ranges, value); + } + } + if (non_empty(ranges)) { + LYEntify(&ranges, TRUE); + HTSprintf0(&buf, FORMAT, + width[0], mp->name, + width[1], mp->descr, + ranges); + PUTS(buf); + FREE(ranges); + had_output = TRUE; + } + } + } + + HTSprintf0(&buf, "</pre>\n</body>\n</html>\n"); + PUTS(buf); + + (*target->isa->_free) (target); + result = HT_LOADED; + } else { + HTSprintf0(&buf, CANNOT_CONVERT_I_TO_O, + HTAtom_name(format_in), HTAtom_name(format_out)); + HTAlert(buf); + result = HT_NOT_LOADED; + } + FREE(ranges); + FREE(buf); + return result; +#undef FORMAT +} + +#ifdef GLOBALDEF_IS_MACRO +#define _LYEDITMAP_C_GLOBALDEF_1_INIT { "LYNXEDITMAP", LYLoadEditmap, 0} +GLOBALDEF(HTProtocol, LYLynxEditmap, _LYEDITMAP_C_GLOBALDEF_1_INIT); +#else +GLOBALDEF HTProtocol LYLynxEditmap = +{ + "LYNXEDITMAP", LYLoadEditmap, 0 +}; +#endif /* GLOBALDEF_IS_MACRO */ |