diff options
Diffstat (limited to 'src/LYStrings.c')
| -rw-r--r-- | src/LYStrings.c | 6236 |
1 files changed, 6236 insertions, 0 deletions
diff --git a/src/LYStrings.c b/src/LYStrings.c new file mode 100644 index 0000000..8199c2c --- /dev/null +++ b/src/LYStrings.c @@ -0,0 +1,6236 @@ +/* $LynxId: LYStrings.c,v 1.280 2023/01/03 00:11:49 Jens.Schleusener Exp $ */ +#include <HTUtils.h> +#include <HTCJK.h> +#include <UCAux.h> +#include <LYGlobalDefs.h> +#include <LYUtils.h> +#include <LYStrings.h> +#include <GridText.h> +#include <LYKeymap.h> +#include <LYClean.h> +#include <LYMail.h> +#include <LYNews.h> +#include <LYOptions.h> +#include <LYCharSets.h> +#include <HTAlert.h> +#include <HTString.h> +#include <LYCharUtils.h> +#include <HTList.h> +#include <HTParse.h> +#ifdef USE_MOUSE +#include <LYMainLoop.h> +#endif + +#ifdef DJGPP_KEYHANDLER +#include <pc.h> +#include <keys.h> +#endif /* DJGPP_KEYHANDLER */ + +#ifdef USE_COLOR_STYLE +#include <LYHash.h> +#include <AttrList.h> +#endif + +#ifdef USE_SCROLLBAR +#include <LYMainLoop.h> +#endif + +#ifdef USE_CMD_LOGGING +#include <LYReadCFG.h> +#include <LYrcFile.h> +#endif + +#include <LYShowInfo.h> +#include <LYLeaks.h> + +#if defined(WIN_EX) +#undef BUTTON_CTRL +#define BUTTON_CTRL 0 /* Quick hack */ +#endif + +#ifdef DEBUG_EDIT +#define CTRACE_EDIT(p) CTRACE(p) +#else +#define CTRACE_EDIT(p) /*nothing */ +#endif + +#ifdef SUPPORT_MULTIBYTE_EDIT +#define IsWordChar(c) (isalnum(UCH(c)) || is8bits(c)) +#else +#define IsWordChar(c) isalnum(UCH(c)) +#endif + +/* + * The edit_history lists allow the user to press tab when entering URL to get + * the closest match in the closet + */ +#define LYClosetSize 100 + +static HTList *URL_edit_history; +static HTList *MAIL_edit_history; + +/* If you want to add mouse support for some new platform, it's fairly + * simple to do. Once you've determined the X and Y coordinates of + * the mouse event, loop through the elements in the links[] array and + * see if the coordinates fall within a highlighted link area. If so, + * the code must set mouse_link to the index of the chosen link, + * and return a key value that corresponds to LYK_ACTIVATE. The + * LYK_ACTIVATE code in LYMainLoop.c will then check mouse_link + * and activate that link. If the mouse event didn't fall within a + * link, the code should just set mouse_link to -1 and return -1. --AMK + */ + +/* The number of the link selected w/ the mouse (-1 if none) */ +static int mouse_link = -1; + +static int have_levent; + +#if defined(USE_MOUSE) && defined(NCURSES) +static MEVENT levent; +#endif + +/* Return the value of mouse_link */ +int peek_mouse_levent(void) +{ +#if defined(USE_MOUSE) && defined(NCURSES) + if (have_levent > 0) { + ungetmouse(&levent); + have_levent--; + return 1; + } +#endif + return 0; +} + +/* Return the value of mouse_link, erasing it */ +int get_mouse_link(void) +{ + int t; + + t = mouse_link; + mouse_link = -1; + if (t < 0) + t = -1; /* Backward compatibility. */ + return t; +} + +/* Return the value of mouse_link */ +int peek_mouse_link(void) +{ + return mouse_link; +} + +int fancy_mouse(WINDOW * win, int row, + int *position) +{ + int cmd = LYK_DO_NOTHING; + +#ifdef USE_MOUSE +/*********************************************************************/ + +#if defined(WIN_EX) && defined(PDCURSES) + + request_mouse_pos(); + + if (BUTTON_STATUS(1) + && (MOUSE_X_POS >= getbegx(win) && + MOUSE_X_POS < (getbegx(win) + getmaxx(win)))) { + int mypos = MOUSE_Y_POS - getbegy(win); + int delta = mypos - row; + + if (mypos + 1 == getmaxy(win)) { + /* At the decorative border: scroll forward */ + if (BUTTON_STATUS(1) & BUTTON1_TRIPLE_CLICKED) + cmd = LYK_END; + else if (BUTTON_STATUS(1) & BUTTON1_DOUBLE_CLICKED) + cmd = LYK_NEXT_PAGE; + else + cmd = LYK_NEXT_LINK; + } else if (mypos >= getmaxy(win)) { + if (BUTTON_STATUS(1) & (BUTTON1_DOUBLE_CLICKED | BUTTON1_TRIPLE_CLICKED)) + cmd = LYK_END; + else + cmd = LYK_NEXT_PAGE; + } else if (mypos == 0) { + /* At the decorative border: scroll back */ + if (BUTTON_STATUS(1) & BUTTON1_TRIPLE_CLICKED) + cmd = LYK_HOME; + else if (BUTTON_STATUS(1) & BUTTON1_DOUBLE_CLICKED) + cmd = LYK_PREV_PAGE; + else + cmd = LYK_PREV_LINK; + } else if (mypos < 0) { + if (BUTTON_STATUS(1) & (BUTTON1_DOUBLE_CLICKED | BUTTON1_TRIPLE_CLICKED)) + cmd = LYK_HOME; + else + cmd = LYK_PREV_PAGE; +#ifdef KNOW_HOW_TO_TOGGLE + } else if (BUTTON_STATUS(1) & (BUTTON_CTRL)) { + cur_selection += delta; + cmd = LYX_TOGGLE; +#endif + } else if (BUTTON_STATUS(1) & (BUTTON_ALT | BUTTON_SHIFT | BUTTON_CTRL)) { + /* Probably some unrelated activity, such as selecting some text. + * Select, but do nothing else. + */ + *position += delta; + cmd = -1; + } else { + /* No scrolling or overflow checks necessary. */ + *position += delta; + cmd = LYK_ACTIVATE; + } + } else if (BUTTON_STATUS(1) & (BUTTON3_CLICKED | BUTTON3_DOUBLE_CLICKED | BUTTON3_TRIPLE_CLICKED)) { + cmd = LYK_QUIT; + } +#else +#if defined(NCURSES) +#define ButtonModifiers (BUTTON_ALT | BUTTON_SHIFT | BUTTON_CTRL) + MEVENT event; + + getmouse(&event); + if ((event.bstate & (BUTTON1_CLICKED | + BUTTON1_DOUBLE_CLICKED | + BUTTON1_TRIPLE_CLICKED))) { + int mypos = event.y - getbegy(win); + int delta = mypos - row; + + if ((event.x < getbegx(win) || + event.x >= (getbegx(win) + getmaxx(win))) + && !(event.bstate & ButtonModifiers)) + return LYK_QUIT; /* User clicked outside, wants to quit? */ + if (mypos + 1 == getmaxy(win)) { + /* At the decorative border: scroll forward */ + if (event.bstate & BUTTON1_TRIPLE_CLICKED) + cmd = LYK_END; + else if (event.bstate & BUTTON1_DOUBLE_CLICKED) + cmd = LYK_NEXT_PAGE; + else + cmd = LYK_NEXT_LINK; + } else if (mypos >= getmaxy(win)) { + if (event.bstate & (BUTTON1_DOUBLE_CLICKED | + BUTTON1_TRIPLE_CLICKED)) + cmd = LYK_END; + else + cmd = LYK_NEXT_PAGE; + } else if (mypos == 0) { + /* At the decorative border: scroll back */ + if (event.bstate & BUTTON1_TRIPLE_CLICKED) + cmd = LYK_HOME; + else if (event.bstate & BUTTON1_DOUBLE_CLICKED) + cmd = LYK_PREV_PAGE; + else + cmd = LYK_PREV_LINK; + } else if (mypos < 0) { + if (event.bstate & (BUTTON1_DOUBLE_CLICKED | + BUTTON1_TRIPLE_CLICKED)) + cmd = LYK_HOME; + else + cmd = LYK_PREV_PAGE; +#ifdef KNOW_HOW_TO_TOGGLE + } else if (event.bstate & (BUTTON_CTRL)) { + cur_selection += delta; + cmd = LYX_TOGGLE; +#endif + } else if (event.x <= getbegx(win) + 1 || + event.x >= getbegx(win) + getmaxx(win) - 2) { + /* Click on left or right border for positioning without + * immediate action: select, but do nothing else. + * Actually, allow an error of one position inwards. - kw + */ + *position += delta; + cmd = -1; + } else if (event.bstate & ButtonModifiers) { + /* Probably some unrelated activity, such as selecting some text. + * Select, but do nothing else. + */ + /* Possibly this is never returned by ncurses, so this case + * may be useless depending on situation (kind of mouse support + * and library versions). - kw + */ + *position += delta; + cmd = -1; + } else { + /* No scrolling or overflow checks necessary. */ + *position += delta; + cmd = LYK_ACTIVATE; + } + } else if (event.bstate & (BUTTON3_CLICKED | BUTTON3_DOUBLE_CLICKED | BUTTON3_TRIPLE_CLICKED)) { + cmd = LYK_QUIT; + } +#endif /* NCURSES */ +#endif /* PDCURSES */ + +/************************************************************************/ +#endif /* USE_MOUSE */ + (void) win; + (void) row; + (void) position; + + return cmd; +} + +/* + * Manage the collection of edit-histories + */ +static HTList *whichRecall(RecallType recall) +{ + HTList **list; + + switch (recall) { + case RECALL_CMD: + return LYcommandList(); + case RECALL_MAIL: + list = &MAIL_edit_history; + break; + default: + list = &URL_edit_history; + break; + } + if (*list == 0) + *list = HTList_new(); + return *list; +} + +/* + * Remove the oldest item in the closet + */ +static void LYRemoveFromCloset(HTList *list) +{ + void *data = HTList_removeFirstObject(list); + + if (data != 0) + FREE(data); +} + +void LYCloseCloset(RecallType recall) +{ + HTList *list = whichRecall(recall); + + while (!HTList_isEmpty(list)) { + LYRemoveFromCloset(list); + } + HTList_delete(list); /* should already be empty */ +} + +/* + * Strategy: We begin at the top and search downwards. We return the first + * match, i.e., the newest since we search from the top. This should be made + * more intelligent, but works for now. + */ +static char *LYFindInCloset(RecallType recall, char *base) +{ + HTList *list = whichRecall(recall); + char *data; + size_t len = strlen(base); + + while (!HTList_isEmpty(list)) { + data = (char *) HTList_nextObject(list); + if (data != NULL && !StrNCmp(base, data, len)) + return (data); + } + + return (0); +} + +static void LYAddToCloset(RecallType recall, char *str) +{ + HTList *list = whichRecall(recall); + char *data = NULL; + + StrAllocCopy(data, str); + HTList_addObject(list, data); + while (HTList_count(list) > LYClosetSize) + LYRemoveFromCloset(list); +} + +#ifdef USE_MOUSE +static int XYdist(int x1, + int y1, + int x2, + int y2, + int dx2) +{ + int xerr = 3 * (x2 - x1), yerr = 9 * (y2 - y1); + + if (xerr < 0) + xerr = 3 * (x1 - x2 - dx2) + 1; /* pos after string not really in it */ + if (xerr < 0) + xerr = 0; + if (yerr < 0) + yerr = -yerr; + if (!yerr) /* same line is good */ + return (xerr > 0) ? (xerr * 2 - 1) : 0; + if (xerr < 9 && yerr) /* x-dist of 3 cell better than y-dist of 1 cell */ + yerr += (9 - xerr); + return 2 * xerr + yerr; /* Subjective factor; ratio -> approx. 6 / 9 */ +/* +old: (IZ 1999-07-30) + 3 2 2 2 1 1 1 XX XX XX XX XX 0 1 1 1 2 2 2 3 3 + 4\ 3 3 3 2 2 2 2 2 2 2 2 2 2 2 2 3 3 3/ 4 4 + 5 4 4 4\ 3 3 3 3 3 3 3 3 3 3 3 3/ 4 4 4 5 5 + 6 5 5 5 4 4 4 4 4 4 4 4 4 4 4 4 5 5 5 6 5 +now: (kw 1999-10-23) +41 35 29|23 17 11 5 XX XX XX XX XX 1 7 13 19 25|31 37 43 49 + 45 39 33\27 24 21 18 18 18 18 18 19 22 25 28/34 40 46 50 + 48 42 36 33 30\27 27 27 27 27 28/31 34 37 43 49 + 51 45 42 39 36 36 36 36 36 37 40 43 46 49 + 51 48 45 45 45 45 45 46 49 52 +*/ +} + +/* Given X and Y coordinates of a mouse event, set mouse_link to the + * index of the corresponding hyperlink, or set mouse_link to -1 if no + * link matches the event. Returns -1 if no link matched the click, + * or a keycode that must be returned from LYgetch() to activate the + * link. + */ + +static int set_clicked_link(int x, + int y, + int code, + int clicks) +{ + int left = 6; + int right = LYcolLimit - 5; + + /* yes, I am assuming that my screen will be a certain width. */ + int i; + int c = -1; + + if (y == (LYlines - 1) || y == 0) { /* First or last row */ + /* XXXX In fact # is not always at x==0? KANJI_CODE_OVERRIDE? */ + int toolbar = (y == 0 && HText_hasToolbar(HTMainText)); + + mouse_link = -2; + if (x == 0 && toolbar) /* On '#' */ + c = LAC_TO_LKC0(LYK_TOOLBAR); +#if defined(CAN_CUT_AND_PASTE) && defined(USE_COLOR_STYLE) + else if (y == 0 && x == LYcolLimit && s_hot_paste != NOSTYLE) + c = LAC_TO_LKC0(LYK_PASTE_URL); +#endif + else if (clicks > 1) { + if (x < left + toolbar) + c = (code == FOR_PROMPT && y) + ? HOME_KEY : LAC_TO_LKC0(LYK_MAIN_MENU); + else if (x > right) + c = (code == FOR_PROMPT && y) + ? END_KEY : LAC_TO_LKC0(LYK_VLINKS); + else if (y) /* Last row */ + c = LAC_TO_LKC0(LYK_END); + else /* First row */ + c = LAC_TO_LKC0(LYK_HOME); + } else { + if (x < left + toolbar) + c = (code == FOR_PROMPT && y) + ? LTARROW_KEY + : ( +#ifdef USE_COLOR_STYLE + (s_forw_backw != NOSTYLE && x - toolbar >= 3) + ? LAC_TO_LKC0(LYK_NEXT_DOC) + : LAC_TO_LKC0(LYK_PREV_DOC) +#else + LAC_TO_LKC0(LYK_NEXT_DOC) +#endif + ); + else if (x > right) + c = (code == FOR_PROMPT && y) + ? RTARROW_KEY : LAC_TO_LKC0(LYK_HISTORY); + else if (y) /* Last row */ + c = LAC_TO_LKC0(LYK_NEXT_PAGE); + else /* First row */ + c = LAC_TO_LKC0(LYK_PREV_PAGE); + } +#ifdef USE_SCROLLBAR + } else if (x == (LYcols - 1) && LYShowScrollbar && LYsb_begin >= 0) { + int h = display_lines - 2 * (LYsb_arrow != 0); + + mouse_link = -2; + y -= 1 + (LYsb_arrow != 0); + if (y < 0) + return LAC_TO_LKC0(LYK_UP_TWO); + if (y >= h) + return LAC_TO_LKC0(LYK_DOWN_TWO); + + if (clicks >= 2) { + double frac = (1. * y) / (h - 1); + int l = HText_getNumOfLines() + 1; /* NOL() off by one? */ + + l -= display_lines; + if (l > 0) + LYSetNewline((int) (frac * l + 1 + 0.5)); + return LYReverseKeymap(LYK_DO_NOTHING); + } + + if (y < LYsb_begin) + return LAC_TO_LKC0(LYK_PREV_PAGE); + if (y >= LYsb_end) + return LAC_TO_LKC0(LYK_NEXT_PAGE); + mouse_link = -1; /* No action in edit fields */ +#endif + } else { + int mouse_err = 29, /* subjctv-dist better than this for approx stuff */ cur_err; + + /* Loop over the links and see if we can get a match */ + for (i = 0; i < nlinks; i++) { + int len, lx = links[i].lx, is_text = 0; + int count = 0; + const char *text = LYGetHiliteStr(i, count); + + if (links[i].type == WWW_FORM_LINK_TYPE + && F_TEXTLIKE(links[i].l_form->type)) + is_text = 1; + + /* Check the first line of the link */ + if (text != NULL) { + if (is_text) + len = links[i].l_form->size; + else + len = (int) LYstrCells(text); + cur_err = XYdist(x, y, links[i].lx, links[i].ly, len); + /* Check the second line */ + while (cur_err > 0 + && (text = LYGetHiliteStr(i, ++count)) != NULL) { + /* Note that there is at most one hightext if is_text */ + int cur_err_2 = XYdist(x, y, + LYGetHilitePos(i, count), + links[i].ly + count, + (int) LYstrCells(text)); + + cur_err = HTMIN(cur_err, cur_err_2); + } + if (cur_err > 0 && is_text) + cur_err--; /* a bit of preference for text fields, + enter field if hit exactly at end - kw */ + if (cur_err == 0) { + int cury, curx; + + LYGetYX(cury, curx); + /* double-click, if we care: + submit text submit fields. - kw */ + if (clicks > 1 && is_text && + links[i].l_form->type == F_TEXT_SUBMIT_TYPE) { + if (code != FOR_INPUT + /* submit current input field directly */ + || !(cury == y && + (curx >= lx) && + ((curx - lx) <= len))) { + c = LAC_TO_LKC0(LYK_MOUSE_SUBMIT); + mouse_link = i; + } else { + c = LAC_TO_LKC0(LYK_MOUSE_SUBMIT); + mouse_link = -1; + } + mouse_err = 0; + break; + } + if (code != FOR_INPUT + /* Do not pick up the current input field */ + || !((cury == y && (curx >= lx) && ((curx - lx) <= len)))) { + if (is_text) { + have_levent = 1; +#if defined(TEXTFIELDS_MAY_NEED_ACTIVATION) && defined(INACTIVE_INPUT_STYLE_VH) + if (x == links[i].lx && y == links[i].ly) + textinput_redrawn = FALSE; +#endif /* TEXTFIELDS_MAY_NEED_ACTIVATION && INACTIVE_INPUT_STYLE_VH */ + } + mouse_link = i; + } else + mouse_link = -1; + mouse_err = 0; + break; + } else if (cur_err < mouse_err) { + mouse_err = cur_err; + mouse_link = i; + } + } + } + /* + * If a link was hit, we must look for a key which will activate + * LYK_ACTIVATE We expect to find LYK_ACTIVATE (it's usually mapped to + * the Enter key). + */ + if (mouse_link >= 0) { + if (mouse_err == 0) { + if (c == -1) + c = LAC_TO_LKC0(LYK_ACTIVATE); + } else if (mouse_err >= 0) + c = LAC_TO_LKC0(LYK_CHANGE_LINK); + } else { + if (2 * y > LYlines) { /* Bottom Half of the screen */ + if (4 * y < 3 * LYlines) { + c = LAC_TO_LKC0(LYK_DOWN_TWO); /* Third quarter */ + } else + c = LAC_TO_LKC0(LYK_DOWN_HALF); /* Fourth quarter */ + } else { /* Upper Half of the screen */ + if (4 * y < LYlines) { + c = LAC_TO_LKC0(LYK_UP_HALF); /* First quarter */ + } else + c = LAC_TO_LKC0(LYK_UP_TWO); /* Second quarter */ + } + } + } + return c; +} +#endif /* USE_MOUSE */ + +/* + * LYstrncpy() ensures that the copied strings end with a nul byte. + * The nul is written to the n+1 position of the target. + */ +char *LYstrncpy(char *target, + const char *source, + int n) +{ + char *val = target; + int len; + + if (source == 0) + source = ""; + len = (int) strlen(source); + + if (n > 0) { + if (n > len) + n = len; + (void) memcpy(target, source, (size_t) n); + } else { + n = 0; + } + target[n] = '\0'; + return val; +} + +#define IS_NEW_GLYPH(ch) (utf_flag && (UCH(ch)&0xc0) != 0x80) +#define IS_UTF_EXTRA(ch) (utf_flag && (UCH(ch)&0xc0) == 0x80) + +/* + * LYmbcsstrncpy() terminates strings with a null byte. It takes account of + * multibyte characters. The source string is copied until either end of string + * or max number of either bytes or glyphs (mbcs sequences) (CJK or UTF8). The + * utf_flag argument should be TRUE for UTF8. - KW & FM + */ +char *LYmbcsstrncpy(char *target, + const char *source, + int n_bytes, + int n_glyphs, + int utf_flag) +{ + char *val = target; + int i_bytes = 0, i_glyphs = 0; + + if (n_bytes < 0) + n_bytes = 0; + if (n_glyphs < 0) + n_glyphs = 0; + + for (; *source != '\0' && i_bytes < n_bytes; i_bytes++) { + if (IS_NEW_GLYPH(*source)) { + if (i_glyphs++ >= n_glyphs) { + *target = '\0'; + return val; + } + } + *(target++) = *(source++); + } + *target = '\0'; + + return val; +} + +/* + * LYmbcs_skip_glyphs() skips a given number of character positions in a string + * and returns the resulting pointer. It takes account of UTF-8 encoded + * characters. - KW + */ +const char *LYmbcs_skip_glyphs(const char *data, + int n_glyphs, + int utf_flag) +{ + int i_glyphs = 0; + + if (n_glyphs < 0) + n_glyphs = 0; + + if (non_empty(data)) { + if (!utf_flag) { + while (n_glyphs-- > 0) { + if (!*++data) + break; + } + } else { + while (*data) { + if (IS_NEW_GLYPH(*data)) { + if (i_glyphs++ >= n_glyphs) { + break; + } + } + data++; + } + } + } + return data; +} + +/* + * LYmbcs_skip_cells() skips a given number of display positions in a string + * and returns the resulting pointer. It takes account of UTF-8 encoded + * characters. - TD + */ +const char *LYmbcs_skip_cells(const char *data, + int n_cells, + int utf_flag) +{ + const char *result; + int actual; + int target = n_cells; + + do { + result = LYmbcs_skip_glyphs(data, target--, utf_flag); + actual = LYstrExtent2(data, (int) (result - data)); + } while ((actual > 0) && (actual > n_cells)); + return result; +} + +/* + * LYmbcsstrlen() returns the printable length of a string that might contain + * IsSpecial or multibyte (CJK or UTF8) characters. - FM + * + * Counts glyph cells if count_gcells is set. (Full-width characters in CJK + * mode count as two.) Counts character glyphs if count_gcells is unset. + * (Full- width characters in CJK mode count as one.) - kw + */ +int LYmbcsstrlen(const char *str, + int utf_flag, + int count_gcells) +{ + int i, j, len = 0; + + if (non_empty(str)) { +#ifdef WIDEC_CURSES + if (count_gcells) { + len = LYstrCells(str); + } else +#endif + { + for (i = 0; str[i] != '\0'; i++) { + if (!IsSpecialAttrChar(str[i])) { + len++; + if (IS_NEW_GLYPH(str[i])) { + j = 0; + while (IsNormalChar(str[(i + 1)]) && + j < 5 && + IS_UTF_EXTRA(str[(i + 1)])) { + i++; + j++; + } + } else if (!utf_flag && IS_CJK_TTY && !count_gcells && + is8bits(str[i]) && + IsNormalChar(str[(i + 1)])) { + i++; + } + } + } + } + } + return (len); +} + +#undef GetChar + +#ifdef USE_SLANG +#if defined(VMS) +#define GetChar() ttgetc() +#elif defined(__DJGPP__) +#define GetChar() getxkey() /* HTDos.c */ +#elif defined(__CYGWIN__) +#define GetChar SLkp_getkey +#else +#define GetChar (int)SLang_getkey +#endif +#else /* curses */ +#if defined(DJGPP) +#define GetChar() (djgpp_idle_loop(), wgetch(LYtopwindow())) +#elif defined(NCURSES_VERSION) && defined(__BEOS__) +#define GetChar() myGetCharNodelay() +#elif defined(NCURSES) +#define GetChar() wgetch(LYtopwindow()) +#endif +#endif + +#ifdef USE_CURSES_NODELAY +/* PDCurses - until version 2.7 in 2005 - defined ERR as 0, unlike other + * versions of curses. Generally both EOF and ERR are defined as -1's. + * However, there is a special case (see HTCheckForInterrupt()) to handle a + * case where no select() function is used in the win32 environment. + * + * HTCheckForInterrupt() uses nodelay() in this special case to check for + * pending input. That normally returns ERR. But LYgetch_for() checks the + * return value of this function for EOF (to handle some antique runtime + * libraries which did not set the state for feof/ferror). Returning a zero + * (0) is safer since normally that is not mapped to any commands, and will be + * ignored by lynx. + */ +static int myGetCharNodelay(void) +{ + int c = wgetch(LYwin); + + if (c == -1) + c = 0; + + return c; +} +#else +#define myGetCharNodelay() wgetch(LYwin) +#endif + +#if !defined(GetChar) && defined(PDCURSES) && defined(PDC_BUILD) && PDC_BUILD >= 2401 +/* PDCurses sends back key-modifiers that we don't use, but would waste time + * upon, e.g., repainting the status line + */ +static int myGetChar(void) +{ + int c; + BOOL done = FALSE; + + do { + switch (c = myGetCharNodelay()) { + case KEY_SHIFT_L: + case KEY_SHIFT_R: + case KEY_CONTROL_L: + case KEY_CONTROL_R: + case KEY_ALT_L: + case KEY_ALT_R: + case KEY_RESIZE: + break; + default: + done = TRUE; + break; + } + } while (!done); + + return c; +} +#define GetChar() myGetChar() +#endif + +#if !defined(GetChar) && defined(VMS) +#define GetChar() ttgetc() +#endif + +#if !defined(GetChar) +#ifdef HAVE_KEYPAD +#define GetChar() getch() +#else +#ifndef USE_GETCHAR +#define USE_GETCHAR +#endif /* !USE_GETCHAR */ +#define GetChar() getchar() /* used to be "getc(stdin)" and "getch()" */ +#endif /* HAVE_KEYPAD */ +#endif /* !defined(GetChar) */ + +#if defined(USE_SLANG) && defined(USE_MOUSE) +static int sl_parse_mouse_event(int *x, int *y, int *button) +{ + /* "ESC [ M" has already been processed. There more characters are + * expected: BUTTON X Y + */ + *button = (int) SLang_getkey(); + switch (*button) { + case 040: /* left button */ + case 041: /* middle button */ + case 042: /* right button */ + *button -= 040; + break; + + default: /* Hmmm.... */ + SLang_flush_input(); + return -1; + } + + *x = (int) SLang_getkey(); + if (*x == CH_ESC) /* Undo 7-bit replace for large x - kw */ + *x = (int) SLang_getkey() + 64 - 33; + else + *x -= 33; + *y = (int) SLang_getkey(); + if (*y == CH_ESC) /* Undo 7-bit replace for large y - kw */ + *y = (int) SLang_getkey() + 64 - 33; + else + *y -= 33; + return 0; +} + +static int sl_read_mouse_event(int code) +{ + int mouse_x, mouse_y, button; + + mouse_link = -1; + if (-1 != sl_parse_mouse_event(&mouse_x, &mouse_y, &button)) { + if (button == 0) /* left */ + return set_clicked_link(mouse_x, mouse_y, FOR_PANEL, 1); + + if (button == 1) /* middle */ + return LYReverseKeymap(LYK_VIEW_BOOKMARK); + + if (button == 2) /* right */ + { + /* Right button: go back to prev document. + * The problem is that we need to determine + * what to return to achieve this. + */ + return LYReverseKeymap(LYK_PREV_DOC); + } + } + if (code == FOR_INPUT || code == FOR_PROMPT) + return DO_NOTHING; + else + return -1; +} +#endif /* USE_SLANG and USE_MOUSE */ + +static BOOLEAN csi_is_csi = TRUE; +void ena_csi(int flag) +{ + csi_is_csi = (BOOLEAN) flag; +} + +#if defined(USE_KEYMAPS) + +#ifdef USE_SLANG +#define define_key(string, code) \ + SLkm_define_keysym ((SLFUTURE_CONST char*)(string), \ + (unsigned) code, \ + Keymap_List) +#if SLANG_VERSION < 20000 +#define expand_substring(target, first, last, final) \ + (SLexpand_escaped_string(target, \ + DeConst(first), \ + DeConst(last), 1) +static int SLang_get_error(void) +{ + return SLang_Error; +} +#else +int LY_Slang_UTF8_Mode = 0; + +#define expand_substring(target, first, last, final) \ + (SLexpand_escaped_string(target, \ + DeConst(first), \ + DeConst(last), \ + LY_Slang_UTF8_Mode), 1) +#endif + +static SLKeyMap_List_Type *Keymap_List; + +/* This value should be larger than anything in LYStrings.h */ +#define MOUSE_KEYSYM 0x0400 +#endif + +/* + * For ncurses, we use the predefined keysyms, since that lets us also reuse + * the CSI logic and other special cases for VMS, NCSA telnet, etc. + */ +#ifdef USE_SLANG +# ifdef VMS +# define EXTERN_KEY(string,string1,lynx,curses) {string,lynx} +# else +# define EXTERN_KEY(string,string1,lynx,curses) {string,lynx},{string1,lynx} +# endif +# define INTERN_KEY(string,lynx,curses) {string,lynx,lynx} +#else +# define INTERN_KEY(string,lynx,curses) {string,curses,lynx} +# define EXTERN_KEY(string,string1,lynx,curses) {string,curses,lynx} +#endif + +typedef struct { + const char *string; + int value; + LYExtraKeys internal; +} Keysym_String_List; +/* *INDENT-OFF* */ +static Keysym_String_List Keysym_Strings [] = +{ + INTERN_KEY( "UPARROW", UPARROW_KEY, KEY_UP ), + INTERN_KEY( "DNARROW", DNARROW_KEY, KEY_DOWN ), + INTERN_KEY( "RTARROW", RTARROW_KEY, KEY_RIGHT ), + INTERN_KEY( "LTARROW", LTARROW_KEY, KEY_LEFT ), + INTERN_KEY( "PGDOWN", PGDOWN_KEY, KEY_NPAGE ), + INTERN_KEY( "PGUP", PGUP_KEY, KEY_PPAGE ), + INTERN_KEY( "HOME", HOME_KEY, KEY_HOME ), + INTERN_KEY( "END", END_KEY, KEY_END ), + INTERN_KEY( "F1", F1_KEY, KEY_F(1) ), + INTERN_KEY( "F2", F2_KEY, KEY_F(2) ), + INTERN_KEY( "F3", F3_KEY, KEY_F(3) ), + INTERN_KEY( "F4", F4_KEY, KEY_F(4) ), + INTERN_KEY( "F5", F5_KEY, KEY_F(5) ), + INTERN_KEY( "F6", F6_KEY, KEY_F(7) ), + INTERN_KEY( "F7", F7_KEY, KEY_F(7) ), + INTERN_KEY( "F8", F8_KEY, KEY_F(8) ), + INTERN_KEY( "F9", F9_KEY, KEY_F(9) ), + INTERN_KEY( "F10", F10_KEY, KEY_F(10) ), + INTERN_KEY( "F11", F11_KEY, KEY_F(11) ), + INTERN_KEY( "F12", F12_KEY, KEY_F(12) ), + INTERN_KEY( "DO_KEY", DO_KEY, KEY_F(16) ), + INTERN_KEY( "FIND_KEY", FIND_KEY, KEY_FIND ), + INTERN_KEY( "SELECT_KEY", SELECT_KEY, KEY_SELECT ), + INTERN_KEY( "INSERT_KEY", INSERT_KEY, KEY_IC ), + INTERN_KEY( "REMOVE_KEY", REMOVE_KEY, KEY_DC ), + INTERN_KEY( "DO_NOTHING", DO_NOTHING, DO_NOTHING|LKC_ISLKC ), + INTERN_KEY( "BACKTAB_KEY", BACKTAB_KEY, BACKTAB_KEY ), + INTERN_KEY( NULL, UNKNOWN_KEY, ERR ) +}; +/* *INDENT-ON* */ + +#ifdef NCURSES_VERSION +/* + * Ncurses stores the termcap/terminfo names in arrays sorted to match the + * array of strings in the TERMTYPE struct. + */ +static int lookup_tiname(char *name, NCURSES_CONST char *const *names) +{ + int code; + + for (code = 0; names[code] != 0; code++) + if (!strcmp(names[code], name)) + return code; + return -1; +} + +static const char *expand_tiname(const char *first, size_t len, char **result, char *final) +{ + char name[BUFSIZ]; + int code; + TERMTYPE *tp = (TERMTYPE *) (cur_term); + + LYStrNCpy(name, first, len); + **result = '\0'; + if ((code = lookup_tiname(name, strnames)) >= 0 + || (code = lookup_tiname(name, strfnames)) >= 0) { + if (tp->Strings[code] != 0) { + LYStrNCpy(*result, tp->Strings[code], (final - *result)); + (*result) += strlen(*result); + } + } + return first + len; +} + +static const char *expand_tichar(const char *first, char **result, char *final) +{ + int ch; + int limit = 0; + int radix = 0; + int value = 0; + const char *name = 0; + + switch (ch = *first++) { + case 'E': + case 'e': + value = 27; + break; + case 'a': + name = "bel"; + break; + case 'b': + value = '\b'; + break; + case 'f': + value = '\f'; + break; + case 'n': + value = '\n'; + break; + case 'r': + value = '\r'; + break; + case 't': + value = '\t'; + break; + case 'v': + value = '\v'; + break; + case 'd': + radix = 10; + limit = 3; + break; + case 'x': + radix = 16; + limit = 2; + break; + default: + if (isdigit(ch)) { + radix = 8; + limit = 3; + first--; + } else { + value = *first; + } + break; + } + + if (radix != 0) { + char *last = 0; + char tmp[80]; + + LYStrNCpy(tmp, first, limit); + value = (int) strtol(tmp, &last, radix); + if (last != 0 && last != tmp) + first += (last - tmp); + } + + if (name != 0) { + (void) expand_tiname(name, strlen(name), result, final); + } else { + **result = (char) value; + (*result) += 1; + } + + return first; +} + +static BOOLEAN expand_substring(char *target, + const char *first, + const char *last, + char *final) +{ + int ch; + + while (first < last) { + switch (ch = *first++) { + case ESCAPE: + first = expand_tichar(first, &target, final); + break; + case '^': + ch = *first++; + if (ch == LPAREN) { + const char *s = StrChr(first, RPAREN); + char *was = target; + + if (s == 0) + s = first + strlen(first); + first = expand_tiname(first, (size_t) (s - first), &target, final); + if (target == was) + return FALSE; + if (*first) + first++; + } else if (ch == '?') { /* ASCII delete? */ + *target++ = 127; + } else if ((ch & 0x3f) < 0x20) { /* ASCII control char? */ + *target++ = (char) (ch & 0x1f); + } else { + *target++ = '^'; + first--; /* not legal... */ + } + break; + case 0: /* convert nulls for terminfo */ + ch = 0200; + /* FALLTHRU */ + default: + *target++ = (char) ch; + break; + } + } + *target = '\0'; + return TRUE; +} +#endif + +static void unescaped_char(const char *parse, int *keysym) +{ + size_t len = strlen(parse); + char buf[BUFSIZ]; + + if (len >= 3) { + (void) expand_substring(buf, + parse + 1, + parse + len - 1, + buf + sizeof(buf) - 1); + if (strlen(buf) == 1) + *keysym = *buf; + } +} + +static BOOLEAN unescape_string(char *source, char *target, char *final) +{ + BOOLEAN ok = FALSE; + + if (*source == SQUOTE) { + int keysym = -1; + + unescaped_char(source, &keysym); + if (keysym >= 0) { + target[0] = (char) keysym; + target[1] = '\0'; + ok = TRUE; + } + } else if (*source == DQUOTE) { + if (expand_substring(target, source + 1, source + strlen(source) - 1, final)) + ok = TRUE; + (void) final; + } + return ok; +} + +static Keysym_String_List *lookupKeysymByName(const char *name) +{ + Keysym_String_List *k; + Keysym_String_List *result = 0; + + k = Keysym_Strings; + while (k->string != NULL) { + if (0 == strcasecomp(k->string, name)) { + result = k; + break; + } + k++; + } + return result; +} + +int map_string_to_keysym(const char *str, int *keysym, int internal) +{ + int modifier = 0; + + *keysym = -1; + + if (strncasecomp(str, "LAC:", 4) == 0) { + char *other = StrChr(str + 4, ':'); + + if (other) { + int othersym = lecname_to_lec(other + 1); + char buf[BUFSIZ]; + + if (othersym >= 0 && other - str - 4 < BUFSIZ) { + LYStrNCpy(buf, str + 4, (other - str - 4)); + *keysym = lacname_to_lac(buf); + if (*keysym >= 0) { + *keysym = LACLEC_TO_LKC0(*keysym, othersym); + return (*keysym); + } + } + } + *keysym = lacname_to_lac(str + 4); + if (*keysym >= 0) { + *keysym = LAC_TO_LKC0(*keysym); + return (*keysym); + } + } else if (strncasecomp(str, "Meta-", 5) == 0) { + str += 5; + modifier = LKC_MOD2; + if (*str) { + size_t len = strlen(str); + + if (len == 1) { + return (*keysym = (UCH(str[0])) | modifier); + } else if (len == 2 && str[0] == '^' && + (isalpha(UCH(str[1])) || + (TOASCII(str[1]) >= '@' && TOASCII(str[1]) <= '_'))) { + return (*keysym = FROMASCII(UCH(str[1] & 0x1f)) | modifier); + } else if (len == 2 && str[0] == '^' && + str[1] == '?') { + return (*keysym = CH_DEL | modifier); + } + if (*str == '^' || *str == '\\') { + char buf[BUFSIZ]; + + (void) expand_substring(buf, + str, + str + HTMIN(len, 28), + buf + sizeof(buf) - 1); + if (strlen(buf) <= 1) + return (*keysym = (UCH(buf[0])) | modifier); + } + } + } else if (*str == SQUOTE) { + unescaped_char(str, keysym); + } else if (isdigit(UCH(*str))) { + char *tmp; + long value = strtol(str, &tmp, 0); + + if (!isalnum(UCH(*tmp))) { + *keysym = (int) value; +#ifndef USE_SLANG + if (*keysym > 255) + *keysym |= LKC_ISLKC; /* caller should remove this flag - kw */ +#endif + } + } else { + Keysym_String_List *k = lookupKeysymByName(str); + + if (k != 0) { + *keysym = (internal + ? k->internal + : k->value); + } + } + + if (*keysym >= 0) + *keysym |= modifier; + return (*keysym); +} + +LYExtraKeys LYnameToExtraKeys(const char *name) +{ + Keysym_String_List *k = lookupKeysymByName(name); + LYExtraKeys result = UNKNOWN_KEY; + + if (k != 0) + result = k->internal; + return result; +} + +const char *LYextraKeysToName(LYExtraKeys code) +{ + Keysym_String_List *k; + const char *result = 0; + + k = Keysym_Strings; + while (k->string != NULL) { + if (k->internal == code) { + result = k->string; + break; + } + k++; + } + return result; +} + +/* + * Starting at a nonblank character, skip over a token, counting quoted and + * escaped characters. + */ +static char *skip_keysym(char *parse) +{ + int quoted = 0; + int escaped = 0; + + while (*parse) { + if (escaped) { + escaped = 0; + } else if (quoted) { + if (*parse == ESCAPE) { + escaped = 1; + } else if (*parse == quoted) { + quoted = 0; + } + } else if (*parse == ESCAPE) { + escaped = 1; + } else if (*parse == DQUOTE || *parse == SQUOTE) { + quoted = *parse; + } else if (isspace(UCH(*parse))) { + break; + } + parse++; + } + return (quoted || escaped) ? 0 : parse; +} + +/* + * The first token is the string to define, the second is the name (of the + * keysym) to define it to. + */ +#define MY_TRACE(p) CTRACE2(TRACE_CFG, p) + +static int setkey_cmd(char *parse) +{ + char *s, *t; + int keysym; + char buf[BUFSIZ]; + + MY_TRACE((tfp, "KEYMAP(PA): in=%s", parse)); /* \n-terminated */ + if ((s = skip_keysym(parse)) != 0) { + if (isspace(UCH(*s))) { + *s++ = '\0'; + s = LYSkipBlanks(s); + if ((t = skip_keysym(s)) == 0) { + MY_TRACE((tfp, "KEYMAP(SKIP) no key expansion found\n")); + return -1; + } + if (t != s) + *t = '\0'; + if (map_string_to_keysym(s, &keysym, FALSE) >= 0) { + if (!unescape_string(parse, buf, buf + sizeof(buf) - 1)) { + MY_TRACE((tfp, "KEYMAP(SKIP) could unescape key\n")); + return 0; /* Trace the failure and continue. */ + } + if (LYTraceLogFP == 0) { + MY_TRACE((tfp, "KEYMAP(DEF) keysym=%#x\n", + (unsigned) keysym)); + } else { + MY_TRACE((tfp, "KEYMAP(DEF) keysym=%#x, seq='%s'\n", + (unsigned) keysym, buf)); + } + return define_key(buf, keysym); + } else { + MY_TRACE((tfp, "KEYMAP(SKIP) could not map to keysym\n")); + } + } else { + MY_TRACE((tfp, "KEYMAP(SKIP) junk after key description: '%s'\n", s)); + } + } else { + MY_TRACE((tfp, "KEYMAP(SKIP) no key description\n")); + } + return -1; +} +#undef MY_TRACE + +static int unsetkey_cmd(char *parse) +{ + char *s = skip_keysym(parse); + + if (s != parse) { + *s = '\0'; +#ifdef NCURSES_VERSION + /* + * This won't work with Slang. Remove the definition for the given + * keysym. + */ + { + int keysym; + + if (map_string_to_keysym(parse, &keysym, FALSE) >= 0) + define_key((char *) 0, keysym); + } +#endif +#ifdef USE_SLANG + /* Slang implements this, for undefining the string which is associated + * with a keysym (the reverse of what we normally want, but may + * occasionally find useful). + */ + SLang_undefine_key(parse, Keymap_List); + if (SLang_get_error()) + return -1; +#endif + } + return 0; +} + +#ifdef FNAMES_8_3 +#define FNAME_LYNX_KEYMAPS "_lynxkey.map" +#else +#define FNAME_LYNX_KEYMAPS ".lynx-keymaps" +#endif /* FNAMES_8_3 */ + +static int read_keymap_file(void) +{ + /* *INDENT-OFF* */ + static struct { + const char *name; + int (*func) (char *s); + } table[] = { + { "setkey", setkey_cmd }, + { "unsetkey", unsetkey_cmd }, + }; + /* *INDENT-ON* */ + + char *line = NULL; + FILE *fp; + char file[LY_MAXPATH]; + int linenum; + size_t n; + + LYAddPathToHome(file, sizeof(file), FNAME_LYNX_KEYMAPS); + + if ((fp = fopen(file, "r")) == 0) + return 0; + + CTRACE((tfp, "read_keymap_file %s\n", file)); + linenum = 0; + while (LYSafeGets(&line, fp) != 0) { + char *s = LYSkipBlanks(line); + + linenum++; + + if ((*s == 0) || (*s == '#')) + continue; + + for (n = 0; n < TABLESIZE(table); n++) { + size_t len = strlen(table[n].name); + + if (strlen(s) > len && !StrNCmp(s, table[n].name, len) + && (*(table[n].func)) (LYSkipBlanks(s + len)) < 0) + fprintf(stderr, FAILED_READING_KEYMAP, linenum, file); + } + } + FREE(line); + LYCloseInput(fp); + return 0; +} + +static void setup_vtXXX_keymap(void) +{ + /* *INDENT-OFF* */ + static Keysym_String_List table[] = { + INTERN_KEY( "\033[A", UPARROW_KEY, KEY_UP ), + INTERN_KEY( "\033OA", UPARROW_KEY, KEY_UP ), + INTERN_KEY( "\033[B", DNARROW_KEY, KEY_DOWN ), + INTERN_KEY( "\033OB", DNARROW_KEY, KEY_DOWN ), + INTERN_KEY( "\033[C", RTARROW_KEY, KEY_RIGHT ), + INTERN_KEY( "\033OC", RTARROW_KEY, KEY_RIGHT ), + INTERN_KEY( "\033[D", LTARROW_KEY, KEY_LEFT ), + INTERN_KEY( "\033OD", LTARROW_KEY, KEY_LEFT ), + INTERN_KEY( "\033[1~", FIND_KEY, KEY_FIND ), + INTERN_KEY( "\033[2~", INSERT_KEY, KEY_IC ), + INTERN_KEY( "\033[3~", REMOVE_KEY, KEY_DC ), + INTERN_KEY( "\033[4~", SELECT_KEY, KEY_SELECT ), + INTERN_KEY( "\033[5~", PGUP_KEY, KEY_PPAGE ), + INTERN_KEY( "\033[6~", PGDOWN_KEY, KEY_NPAGE ), + INTERN_KEY( "\033[7~", HOME_KEY, KEY_HOME), + INTERN_KEY( "\033[8~", END_KEY, KEY_END ), + INTERN_KEY( "\033[11~", F1_KEY, KEY_F(1) ), + INTERN_KEY( "\033[28~", F1_KEY, KEY_F(1) ), + INTERN_KEY( "\033OP", F1_KEY, KEY_F(1) ), + INTERN_KEY( "\033[OP", F1_KEY, KEY_F(1) ), + INTERN_KEY( "\033[29~", DO_KEY, KEY_F(16) ), +#if defined(USE_SLANG) +#if defined(__WIN32__) || defined(__MINGW32__) + INTERN_KEY( "\xE0H", UPARROW_KEY, KEY_UP ), + INTERN_KEY( "\xE0P", DNARROW_KEY, KEY_DOWN ), + INTERN_KEY( "\xE0M", RTARROW_KEY, KEY_RIGHT ), + INTERN_KEY( "\xE0K", LTARROW_KEY, KEY_LEFT ), + INTERN_KEY( "\xE0R", INSERT_KEY, KEY_IC ), + INTERN_KEY( "\xE0S", REMOVE_KEY, KEY_DC ), + INTERN_KEY( "\xE0I", PGUP_KEY, KEY_PPAGE ), + INTERN_KEY( "\xE0Q", PGDOWN_KEY, KEY_NPAGE ), + INTERN_KEY( "\xE0G", HOME_KEY, KEY_HOME), + INTERN_KEY( "\xE0O", END_KEY, KEY_END ), +#endif +#if !defined(VMS) + INTERN_KEY( "^(ku)", UPARROW_KEY, KEY_UP ), + INTERN_KEY( "^(kd)", DNARROW_KEY, KEY_DOWN ), + INTERN_KEY( "^(kr)", RTARROW_KEY, KEY_RIGHT ), + INTERN_KEY( "^(kl)", LTARROW_KEY, KEY_LEFT ), + INTERN_KEY( "^(@0)", FIND_KEY, KEY_FIND ), + INTERN_KEY( "^(kI)", INSERT_KEY, KEY_IC ), + INTERN_KEY( "^(kD)", REMOVE_KEY, KEY_DC ), + INTERN_KEY( "^(*6)", SELECT_KEY, KEY_SELECT ), + INTERN_KEY( "^(kP)", PGUP_KEY, KEY_PPAGE ), + INTERN_KEY( "^(kN)", PGDOWN_KEY, KEY_NPAGE ), + INTERN_KEY( "^(@7)", END_KEY, KEY_END ), + INTERN_KEY( "^(kh)", HOME_KEY, KEY_HOME), + INTERN_KEY( "^(k1)", F1_KEY, KEY_F(1) ), + INTERN_KEY( "^(k2)", F2_KEY, KEY_F(2) ), + INTERN_KEY( "^(k3)", F3_KEY, KEY_F(3) ), + INTERN_KEY( "^(k4)", F4_KEY, KEY_F(4) ), + INTERN_KEY( "^(k5)", F5_KEY, KEY_F(5) ), + INTERN_KEY( "^(k6)", F6_KEY, KEY_F(6) ), + INTERN_KEY( "^(k7)", F7_KEY, KEY_F(7) ), + INTERN_KEY( "^(k8)", F8_KEY, KEY_F(8) ), + INTERN_KEY( "^(k9)", F9_KEY, KEY_F(9) ), + INTERN_KEY( "^(k;)", F10_KEY, KEY_F(10) ), + INTERN_KEY( "^(F1)", F11_KEY, KEY_F(11) ), + INTERN_KEY( "^(F2)", F12_KEY, KEY_F(12) ), + INTERN_KEY( "^(F6)", DO_KEY, KEY_F(16) ), +#endif /* !VMS */ +#endif /* SLANG */ + }; + /* *INDENT-ON* */ + + size_t n; + + for (n = 0; n < TABLESIZE(table); n++) + define_key(table[n].string, table[n].value); +} + +int lynx_initialize_keymaps(void) +{ +#ifdef USE_SLANG + int i; + char keybuf[2]; + + /* The escape sequences may contain embedded termcap strings. Make + * sure the library is initialized for that. + */ + SLtt_get_terminfo(); + + if (NULL == (Keymap_List = SLang_create_keymap("Lynx", NULL))) + return -1; + + keybuf[1] = 0; + for (i = 1; i < 256; i++) { + keybuf[0] = (char) i; + define_key(keybuf, i); + } + + setup_vtXXX_keymap(); + define_key("\033[M", MOUSE_KEYSYM); + + if (SLang_get_error()) + SLang_exit_error("Unable to initialize keymaps"); +#else + setup_vtXXX_keymap(); +#endif + return read_keymap_file(); +} + +#endif /* USE_KEYMAPS */ + +#if defined(USE_MOUSE) && (defined(NCURSES)) +static int LYmouse_menu(int x, int y, int atlink, int code) +{ +#define ENT_ONLY_DOC 1 +#define ENT_ONLY_LINK 2 + /* *INDENT-OFF* */ + static const struct { + const char *txt; + int action; + unsigned int flag; + } possible_entries[] = { + {"Quit", LYK_ABORT, ENT_ONLY_DOC}, + {"Home page", LYK_MAIN_MENU, ENT_ONLY_DOC}, + {"Previous document", LYK_PREV_DOC, ENT_ONLY_DOC}, + {"Beginning of document", LYK_HOME, ENT_ONLY_DOC}, + {"Page up", LYK_PREV_PAGE, ENT_ONLY_DOC}, + {"Half page up", LYK_UP_HALF, ENT_ONLY_DOC}, + {"Two lines up", LYK_UP_TWO, ENT_ONLY_DOC}, + {"History", LYK_HISTORY, ENT_ONLY_DOC}, + {"Help", LYK_HELP, 0}, + {"Do nothing (refresh)", LYK_REFRESH, 0}, + {"Load again", LYK_RELOAD, ENT_ONLY_DOC}, + {"Edit Doc URL and load", LYK_ECGOTO, ENT_ONLY_DOC}, + {"Edit Link URL and load", LYK_ELGOTO, ENT_ONLY_LINK}, + {"Show info", LYK_INFO, 0}, + {"Search", LYK_WHEREIS, ENT_ONLY_DOC}, + {"Print", LYK_PRINT, ENT_ONLY_DOC}, + {"Two lines down", LYK_DOWN_TWO, ENT_ONLY_DOC}, + {"Half page down", LYK_DOWN_HALF, ENT_ONLY_DOC}, + {"Page down", LYK_NEXT_PAGE, ENT_ONLY_DOC}, + {"End of document", LYK_END, ENT_ONLY_DOC}, + {"Bookmarks", LYK_VIEW_BOOKMARK, ENT_ONLY_DOC}, + {"Cookie jar", LYK_COOKIE_JAR, ENT_ONLY_DOC}, +#ifdef USE_CACHEJAR + {"Cache jar", LYK_CACHE_JAR, ENT_ONLY_DOC}, +#endif + {"Search index", LYK_INDEX_SEARCH, ENT_ONLY_DOC}, + {"Set Options", LYK_OPTIONS, ENT_ONLY_DOC}, + {"Activate this link", LYK_MOUSE_SUBMIT, ENT_ONLY_LINK}, + {"Download", LYK_DOWNLOAD, ENT_ONLY_LINK} + }; + /* *INDENT-ON* */ + +#define TOTAL_MENUENTRIES TABLESIZE(possible_entries) + const char *choices[TOTAL_MENUENTRIES + 1]; + int actions[TOTAL_MENUENTRIES]; + + int c, c1, retlac; + unsigned filter_out = (unsigned) (atlink ? ENT_ONLY_DOC : ENT_ONLY_LINK); + + c = c1 = 0; + while (c < (int) TOTAL_MENUENTRIES) { + if (!(possible_entries[c].flag & filter_out)) { + choices[c1] = possible_entries[c].txt; + actions[c1++] = possible_entries[c].action; + } + c++; + } + choices[c1] = NULL; + + /* Somehow the mouse is over the number instead of being over the + name, so we decrease x. */ + c = LYChoosePopup((atlink ? 2 : 10) - 1, y, (x > 5 ? x - 5 : 1), + choices, c1, FALSE, TRUE); + + /* + * LYhandlePopupList() wasn't really meant to be used outside of old-style + * Options menu processing. One result of mis-using it here is that we + * have to deal with side-effects regarding SIGINT signal handler and the + * term_options global variable. - kw + */ + if (term_options) { + retlac = LYK_DO_NOTHING; + term_options = FALSE; + } else { + retlac = actions[c]; + } + + if (code == FOR_INPUT && mouse_link == -1) { + switch (retlac) { + case LYK_ABORT: + retlac = LYK_QUIT; /* a bit softer... */ + /* fall through */ + case LYK_MAIN_MENU: + case LYK_PREV_DOC: + case LYK_HOME: + case LYK_PREV_PAGE: + case LYK_UP_HALF: + case LYK_UP_TWO: + case LYK_HISTORY: + case LYK_HELP: +/* case LYK_REFRESH:*/ + case LYK_RELOAD: + case LYK_ECGOTO: + case LYK_INFO: + case LYK_WHEREIS: + case LYK_PRINT: + case LYK_DOWN_TWO: + case LYK_DOWN_HALF: + case LYK_NEXT_PAGE: + case LYK_END: + case LYK_VIEW_BOOKMARK: + case LYK_COOKIE_JAR: +#ifdef USE_CACHEJAR + case LYK_CACHE_JAR: +#endif + case LYK_INDEX_SEARCH: + case LYK_OPTIONS: + mouse_link = -3; /* so LYgetch_for() passes it on - kw */ + } + } + if (retlac == LYK_DO_NOTHING || + retlac == LYK_REFRESH) { + mouse_link = -1; /* mainloop should not change cur link - kw */ + } + if (code == FOR_INPUT && retlac == LYK_DO_NOTHING) { + repaint_main_statusline(FOR_INPUT); + } + return retlac; +} +#endif /* USE_MOUSE && (NCURSES || PDCURSES) */ + +#if defined(USE_KEYMAPS) && defined(USE_SLANG) +/************************************************************************/ + +static int current_sl_modifier = 0; + +/* We cannot guarantee the type for 'GetChar', and should not use a cast. */ +static int myGetChar(void) +{ + int i = GetChar(); + + if (i == 0) /* trick to get NUL char through - kw */ + current_sl_modifier = LKC_ISLKC; + return i; +} + +static int LYgetch_for(int code) +{ + SLang_Key_Type *key; + int keysym; + + current_sl_modifier = 0; + + key = SLang_do_key(Keymap_List, myGetChar); + if ((key == NULL) || (key->type != SLKEY_F_KEYSYM)) { +#if defined(__WIN32__) || defined(__MINGW32__) + if ((key == NULL) && (current_sl_modifier == LKC_ISLKC)) { + key = SLang_do_key(Keymap_List, myGetChar); + keysym = key->f.keysym; + switch (keysym) { + case 'H': + keysym = UPARROW_KEY; + break; + case 'P': + keysym = DNARROW_KEY; + break; + case 'M': + keysym = RTARROW_KEY; + break; + case 'K': + keysym = LTARROW_KEY; + break; + case 'R': + keysym = INSERT_KEY; + break; + case 'S': + keysym = REMOVE_KEY; + break; + case 'I': + keysym = PGUP_KEY; + break; + case 'Q': + keysym = PGDOWN_KEY; + break; + case 'G': + keysym = HOME_KEY; + break; + case 'O': + keysym = END_KEY; + break; + case ';': + keysym = F1_KEY; + break; + } + return (keysym); + } +#endif + return (current_sl_modifier ? 0 : DO_NOTHING); + } else { + keysym = (int) key->f.keysym; + +#if defined (USE_MOUSE) + if (keysym == MOUSE_KEYSYM) + return sl_read_mouse_event(code); +#endif + + if (keysym < 0) { + return 0; + + } else if (keysym & (LKC_ISLECLAC | LKC_ISLAC)) { + return (keysym); + } else { + current_sl_modifier = 0; + if (LKC_HAS_ESC_MOD(keysym)) { + current_sl_modifier = LKC_MOD2; + keysym &= LKC_MASK; + } + + if (keysym + 1 >= KEYMAP_SIZE) { + return 0; + } else { + return (keysym | current_sl_modifier); + } + } + } +} + +/************************************************************************/ +#else /* NOT defined(USE_KEYMAPS) && defined(USE_SLANG) */ + +/* + * LYgetch() translates some escape sequences and may fake noecho. + */ +#define found_CSI(first,second) ((second) == '[' || (first) == 155) +#define found_TLD(value) ((value) == '~') + +static int LYgetch_for(int code) +{ + int a, b, c, d = -1; + int current_modifier = 0; + BOOLEAN done_esc = FALSE; + + (void) code; + + have_levent = 0; + + re_read: +#if !defined(UCX) || !defined(VAXC) /* errno not modifiable ? */ + if (errno == EINTR) + set_errno(0); /* reset - kw */ +#endif /* UCX && VAXC */ +#ifndef USE_SLANG + clearerr(stdin); /* needed here for ultrix and SOCKETSHR, but why? - FM */ +#endif /* !USE_SLANG */ +#if !defined(USE_SLANG) || defined(VMS) || defined(DJGPP_KEYHANDLER) + c = GetChar(); + lynx_nl2crlf(FALSE); +#else + if (LYCursesON) { + c = GetChar(); + lynx_nl2crlf(FALSE); + } else { + c = getchar(); + if (c == EOF && errno == EINTR) /* Ctrl-Z causes EINTR in getchar() */ + clearerr(stdin); + if (feof(stdin) || ferror(stdin) || c == EOF) { +#ifdef IGNORE_CTRL_C + if (sigint) + sigint = FALSE; +#endif /* IGNORE_CTRL_C */ + CTRACE((tfp, "GETCH: Translate ^C to ^G.\n")); + return (LYCharINTERRUPT2); /* use ^G to cancel whatever called us. */ + } + } +#endif /* !USE_SLANG || VMS */ + + CTRACE((tfp, "GETCH%d: Got %#x.\n", code, (unsigned) c)); + if (LYNoZapKey > 1 && errno != EINTR && + (c == EOF +#ifdef USE_SLANG + || (c == 0xFFFF) +#endif + )) { + + CTRACE((tfp, + "nozap: Got EOF, curses %s, stdin is %p, LYNoZapKey reduced from %d to 0.\n", + LYCursesON ? "on" : "off", (void *) stdin, LYNoZapKey)); + LYNoZapKey = 0; /* 2 -> 0 */ + if (LYReopenInput() > 0) { + if (LYCursesON) { + stop_curses(); + start_curses(); + LYrefresh(); + } + goto re_read; + } + } +#ifdef USE_GETCHAR + if (c == EOF && errno == EINTR) /* Ctrl-Z causes EINTR in getchar() */ + goto re_read; +#else + if (c == EOF && errno == EINTR) { + +#if defined(HAVE_SIZECHANGE) || defined(USE_SLANG) + CTRACE((tfp, "Got EOF with EINTR, recent_sizechange so far is %d\n", + recent_sizechange)); + if (!recent_sizechange) { /* not yet detected by ourselves */ + size_change(0); + CTRACE((tfp, "Now recent_sizechange is %d\n", recent_sizechange)); + } +#else /* HAVE_SIZECHANGE || USE_SLANG */ + CTRACE((tfp, "Got EOF with EINTR, recent_sizechange is %d\n", + recent_sizechange)); +#endif /* HAVE_SIZECHANGE || USE_SLANG */ +#if !defined(UCX) || !defined(VAXC) /* errno not modifiable ? */ + set_errno(0); /* reset - kw */ +#endif /* UCX && VAXC */ + return (DO_NOTHING); + } +#endif /* USE_GETCHAR */ + +#ifdef USE_SLANG + if (c == 0xFFFF && LYCursesON) { +#ifdef IGNORE_CTRL_C + if (sigint) { + sigint = FALSE; + goto re_read; + } +#endif /* IGNORE_CTRL_C */ + return (LYCharINTERRUPT2); /* use ^G to cancel whatever called us. */ + } +#else /* not USE_SLANG: */ + if (feof(stdin) || ferror(stdin) || c == EOF) { + if (recent_sizechange) + return (LYCharINTERRUPT2); /* use ^G to cancel whatever called us. */ +#ifdef IGNORE_CTRL_C + if (sigint) { + sigint = FALSE; + /* clearerr(stdin); don't need here if stays above - FM */ + goto re_read; + } +#endif /* IGNORE_CTRL_C */ +#if !defined(USE_GETCHAR) && !defined(VMS) && !defined(NCURSES) + if (c == ERR && errno == EINTR) /* may have been handled signal - kw */ + goto re_read; +#endif /* USE_GETCHAR */ + + cleanup(); + exit_immediately(EXIT_SUCCESS); + } +#endif /* USE_SLANG */ + + if (!escape_bound + && (c == CH_ESC || (csi_is_csi && c == UCH(CH_ESC_PAR)))) { + /* handle escape sequence S/390 -- gil -- 2024 */ + done_esc = TRUE; /* Flag: we did it, not keypad() */ + b = GetChar(); + + if (b == '[' || b == 'O') { + a = GetChar(); + } else { + a = b; + } + + switch (a) { + case 'A': + c = UPARROW_KEY; + break; + case 'B': + c = DNARROW_KEY; + break; + case 'C': + c = RTARROW_KEY; + break; + case 'D': + c = LTARROW_KEY; + break; + case 'q': /* vt100 application keypad 1 */ + c = END_KEY; + break; + case 'r': /* vt100 application keypad 2 */ + c = DNARROW_KEY; + break; + case 's': /* vt100 application keypad 3 */ + c = PGDOWN_KEY; + break; + case 't': /* vt100 application keypad 4 */ + c = LTARROW_KEY; + break; + case 'v': /* vt100 application keypad 6 */ + c = RTARROW_KEY; + break; + case 'w': /* vt100 application keypad 7 */ + c = HOME_KEY; + break; + case 'x': /* vt100 application keypad 8 */ + c = UPARROW_KEY; + break; + case 'y': /* vt100 application keypad 9 */ + c = PGUP_KEY; + break; + case 'M': +#if defined(USE_SLANG) && defined(USE_MOUSE) + if (found_CSI(c, b)) { + c = sl_read_mouse_event(code); + } else +#endif + c = '\n'; /* keypad enter on pc ncsa telnet */ + break; + + case 'm': +#ifdef VMS + if (b != 'O') +#endif /* VMS */ + c = '-'; /* keypad on pc ncsa telnet */ + break; + case 'k': + if (b == 'O') + c = '+'; /* keypad + on my xterminal :) */ + else + done_esc = FALSE; /* we have another look below - kw */ + break; + case 'l': +#ifdef VMS + if (b != 'O') +#endif /* VMS */ + c = '+'; /* keypad on pc ncsa telnet */ + break; + case 'P': +#ifdef VMS + if (b != 'O') +#endif /* VMS */ + c = F1_KEY; + break; + case 'u': +#ifdef VMS + if (b != 'O') +#endif /* VMS */ + c = F1_KEY; /* macintosh help button */ + break; + case 'p': +#ifdef VMS + if (b == 'O') +#endif /* VMS */ + c = '0'; /* keypad 0 */ + break; + case '1': /* VTxxx Find */ + if (found_CSI(c, b) && found_TLD(d = GetChar())) + c = FIND_KEY; + else + done_esc = FALSE; /* we have another look below - kw */ + break; + case '2': + if (found_CSI(c, b)) { + if (found_TLD(d = GetChar())) /* VTxxx Insert */ + c = INSERT_KEY; + else if ((d == '8' || + d == '9') && + found_TLD(GetChar())) { + if (d == '8') /* VTxxx Help */ + c = F1_KEY; + else if (d == '9') /* VTxxx Do */ + c = DO_KEY; + d = -1; + } + } else + done_esc = FALSE; /* we have another look below - kw */ + break; + case '3': /** VTxxx Delete **/ + if (found_CSI(c, b) && found_TLD(d = GetChar())) + c = REMOVE_KEY; + else + done_esc = FALSE; /* we have another look below - kw */ + break; + case '4': /** VTxxx Select **/ + if (found_CSI(c, b) && found_TLD(d = GetChar())) + c = SELECT_KEY; + else + done_esc = FALSE; /* we have another look below - kw */ + break; + case '5': /** VTxxx PrevScreen **/ + if (found_CSI(c, b) && found_TLD(d = GetChar())) + c = PGUP_KEY; + else + done_esc = FALSE; /* we have another look below - kw */ + break; + case '6': /** VTxxx NextScreen **/ + if (found_CSI(c, b) && found_TLD(d = GetChar())) + c = PGDOWN_KEY; + else + done_esc = FALSE; /* we have another look below - kw */ + break; + case '[': /** Linux F1-F5: ^[[[A etc. **/ + if (found_CSI(c, b)) { + if ((d = GetChar()) == 'A') + c = F1_KEY; + break; + } + /* FALLTHRU */ + default: + if (c == CH_ESC && a == b && !found_CSI(c, b)) { + current_modifier = LKC_MOD2; + c = a; + /* We're not yet done if ESC + curses-keysym: */ + done_esc = (BOOL) ((a & ~0xFF) == 0); + break; + } + CTRACE((tfp, "Unknown key sequence: %d:%d:%d\n", c, b, a)); + CTRACE_SLEEP(MessageSecs); + break; + } + if (isdigit(a) && found_CSI(c, b) && d != -1 && !found_TLD(d)) + d = GetChar(); + if (!done_esc && (a & ~0xFF) == 0) { + if (a == b && !found_CSI(c, b) && c == CH_ESC) { + current_modifier = LKC_MOD2; + c = a; + done_esc = TRUE; + } else { + done_esc = TRUE; + } + } + } +#ifdef USE_KEYMAPS + /* Extract a single code if two are merged: */ + if (c >= 0 && (c & LKC_ISLECLAC)) { + if (!(code == FOR_INPUT || code == FOR_PROMPT)) + c = LKC2_TO_LKC(c); + } else if (c >= 0 && (c & LKC_ISLKC)) { + c &= ~LKC_ISLKC; + done_esc = TRUE; /* already a lynxkeycode, skip keypad switches - kw */ + } + if (c >= 0 && LKC_HAS_ESC_MOD(c)) { + current_modifier = LKC_MOD2; + c &= LKC_MASK; + } + if (c >= 0 && (c & (LKC_ISLECLAC | LKC_ISLAC))) { + done_esc = TRUE; /* already a lynxactioncode, skip keypad switches - iz */ + } +#endif + if (done_esc) { + /* don't do keypad() switches below, we already got it - kw */ + } else { +#ifdef HAVE_KEYPAD + /* + * Convert keypad() mode keys into Lynx defined keys. + */ + switch (c) { + case KEY_DOWN: /* The four arrow keys ... */ + c = DNARROW_KEY; + break; + case KEY_UP: + c = UPARROW_KEY; + break; + case KEY_LEFT: + c = LTARROW_KEY; + break; + case KEY_RIGHT: /* ... */ + c = RTARROW_KEY; + break; +#if defined(PDCURSES) /* for NEC PC-9800 1998/08/30 (Sun) 21:50:35 */ + case KEY_C2: + c = DNARROW_KEY; + break; + case KEY_A2: + c = UPARROW_KEY; + break; + case KEY_B1: + c = LTARROW_KEY; + break; + case KEY_B3: + c = RTARROW_KEY; + break; + case PAD0: /* PC-9800 Ins */ + c = INSERT_KEY; + break; + case PADSTOP: /* PC-9800 DEL */ + c = REMOVE_KEY; + break; +#endif /* PDCURSES */ + case KEY_HOME: /* Home key (upward+left arrow) */ + c = HOME_KEY; + break; + case KEY_CLEAR: /* Clear screen */ + c = 18; /* CTRL-R */ + break; + case KEY_NPAGE: /* Next page */ + c = PGDOWN_KEY; + break; + case KEY_PPAGE: /* Previous page */ + c = PGUP_KEY; + break; + case KEY_LL: /* home down or bottom (lower left) */ + c = END_KEY; + break; +#if defined(KEY_A1) && defined(KEY_C3) + /* The keypad is arranged like this: */ + /* a1 up a3 */ + /* left b2 right */ + /* c1 down c3 */ + case KEY_A1: /* upper left of keypad */ + c = HOME_KEY; + break; + case KEY_A3: /* upper right of keypad */ + c = PGUP_KEY; + break; + case KEY_B2: /* center of keypad */ + c = DO_NOTHING; + break; + case KEY_C1: /* lower left of keypad */ + c = END_KEY; + break; + case KEY_C3: /* lower right of keypad */ + c = PGDOWN_KEY; + break; +#endif /* defined(KEY_A1) && defined(KEY_C3) */ +#ifdef KEY_ENTER + case KEY_ENTER: /* enter/return */ + c = '\n'; + break; +#endif /* KEY_ENTER */ +#ifdef PADENTER /* PDCURSES */ + case PADENTER: + c = '\n'; + break; +#endif /* PADENTER */ +#ifdef KEY_END + case KEY_END: /* end key 001 */ + c = END_KEY; + break; +#endif /* KEY_END */ +#ifdef KEY_HELP + case KEY_HELP: /* help key 001 */ + c = F1_KEY; + break; +#endif /* KEY_HELP */ +#ifdef KEY_BACKSPACE + case KEY_BACKSPACE: + c = CH_DEL; /* backspace key (delete, not Ctrl-H) S/390 -- gil -- 2041 */ + break; +#endif /* KEY_BACKSPACE */ + case KEY_F(1): + c = F1_KEY; /* VTxxx Help */ + break; +#if defined(KEY_F) && !defined(__DJGPP__) && !defined(_WINDOWS) + case KEY_F(16): + c = DO_KEY; /* VTxxx Do */ + break; +#endif /* KEY_F */ +#ifdef KEY_REDO + case KEY_REDO: /* VTxxx Do */ + c = DO_KEY; + break; +#endif /* KEY_REDO */ +#ifdef KEY_FIND + case KEY_FIND: + c = FIND_KEY; /* VTxxx Find */ + break; +#endif /* KEY_FIND */ +#ifdef KEY_SELECT + case KEY_SELECT: + c = SELECT_KEY; /* VTxxx Select */ + break; +#endif /* KEY_SELECT */ +#ifdef KEY_IC + case KEY_IC: + c = INSERT_KEY; /* VTxxx Insert */ + break; +#endif /* KEY_IC */ +#ifdef KEY_DC + case KEY_DC: + c = REMOVE_KEY; /* VTxxx Remove */ + break; +#endif /* KEY_DC */ +#ifdef KEY_BTAB + case KEY_BTAB: + c = BACKTAB_KEY; /* Back tab, often Shift-Tab */ + break; +#endif /* KEY_BTAB */ +#ifdef KEY_RESIZE + case KEY_RESIZE: /* size change detected by ncurses */ +#if defined(HAVE_SIZECHANGE) || defined(USE_SLANG) + /* Make call to detect new size, if that may be implemented. + * The call may set recent_sizechange (except for USE_SLANG), + * which will tell mainloop() to refresh. - kw + */ + CTRACE((tfp, "Got KEY_RESIZE, recent_sizechange so far is %d\n", + recent_sizechange)); + size_change(0); + CTRACE((tfp, "Now recent_sizechange is %d\n", recent_sizechange)); +#else /* HAVE_SIZECHANGE || USE_SLANG */ + CTRACE((tfp, "Got KEY_RESIZE, recent_sizechange is %d\n", + recent_sizechange)); +#endif /* HAVE_SIZECHANGE || USE_SLANG */ + if (!recent_sizechange) { +#if defined(NCURSES) + /* + * Work-around for scenario (Linux libc5) where we got a + * recent sizechange before reading KEY_RESIZE. If we do + * not reset the flag, we'll next get an EOF read, which + * causes Lynx to exit. + */ + recent_sizechange = TRUE; +#endif + /* + * May be just the delayed effect of mainloop()'s call to + * resizeterm(). Pretend we haven't read anything yet, don't + * return. - kw + */ + goto re_read; + } + /* + * Yep, we agree there was a change. Return now so that the caller + * can react to it. - kw + */ + c = DO_NOTHING; + break; +#endif /* KEY_RESIZE */ + +/* The following maps PDCurses keys away from lynx reserved values */ +#if (defined(_WINDOWS) || defined(__DJGPP__)) && !defined(USE_SLANG) + case KEY_F(2): + c = 0x213; + break; + case KEY_F(3): + c = 0x214; + break; + case KEY_F(4): + c = 0x215; + break; + case KEY_F(5): + c = 0x216; + break; + case KEY_F(6): + c = 0x217; + break; + case KEY_F(7): + c = 0x218; + break; +#endif /* PDCurses */ + +#if defined(USE_MOUSE) +/********************************************************************/ + +#if defined(NCURSES) || defined(PDCURSES) + case KEY_MOUSE: + CTRACE((tfp, "KEY_MOUSE\n")); + if (code == FOR_CHOICE) { + c = MOUSE_KEY; /* Will be processed by the caller */ + } +#if defined(NCURSES) + else if (code == FOR_SINGLEKEY) { + MEVENT event; + + getmouse(&event); /* Completely ignore event - kw */ + c = DO_NOTHING; + } +#endif + else { +#if defined(NCURSES) + MEVENT event; + int err; + int lac = LYK_UNKNOWN; + + c = -1; + mouse_link = -1; + err = getmouse(&event); + if (err != OK) { + CTRACE((tfp, "Mouse error: no event available!\n")); + return (code == FOR_PANEL ? 0 : DO_NOTHING); + } + levent = event; /* Allow setting pos in entry fields */ + if (event.bstate & BUTTON1_CLICKED) { + c = set_clicked_link(event.x, event.y, code, 1); + } else if (event.bstate & BUTTON1_DOUBLE_CLICKED) { + c = set_clicked_link(event.x, event.y, code, 2); + if (c == LAC_TO_LKC0(LYK_MOUSE_SUBMIT) && + code == FOR_INPUT) + lac = LYK_MOUSE_SUBMIT; + } else if (event.bstate & BUTTON3_CLICKED) { + c = LAC_TO_LKC0(LYK_PREV_DOC); + } else if (code == FOR_PROMPT + /* Cannot ignore: see LYCurses.c */ + || (event.bstate & + (BUTTON1_PRESSED | BUTTON1_RELEASED + | BUTTON2_PRESSED | BUTTON2_RELEASED + | BUTTON3_PRESSED | BUTTON3_RELEASED))) { + /* Completely ignore - don't return anything, to + avoid canceling the prompt - kw */ + goto re_read; + } else if (event.bstate & BUTTON2_CLICKED) { + int atlink; + + c = set_clicked_link(event.x, event.y, code, 1); + atlink = (c == LAC_TO_LKC0(LYK_ACTIVATE)); + if (!atlink) + mouse_link = -1; /* Forget about approx stuff. */ + + lac = LYmouse_menu(event.x, event.y, atlink, code); + if (lac == LYK_MOUSE_SUBMIT) { + if (mouse_link == -1) + lac = LYK_ACTIVATE; +#ifdef TEXTFIELDS_MAY_NEED_ACTIVATION + else if (mouse_link >= 0 && + textfields_need_activation && + links[mouse_link].type == WWW_FORM_LINK_TYPE && + F_TEXTLIKE(links[mouse_link].l_form->type)) + lac = LYK_ACTIVATE; +#endif + } + if (lac == LYK_ACTIVATE && mouse_link == -1) { + HTAlert(gettext("No link chosen")); + lac = LYK_REFRESH; + } + c = LAC_TO_LKC(lac); + } +#if NCURSES_MOUSE_VERSION > 1 + else if (event.bstate & BUTTON4_PRESSED) { + c = LAC_TO_LKC(LYK_UP_HALF); + } else if (event.bstate & BUTTON5_PRESSED) { + c = LAC_TO_LKC(LYK_DOWN_HALF); + } +#endif + if (code == FOR_INPUT && mouse_link == -1 && + lac != LYK_REFRESH && + lac != LYK_MOUSE_SUBMIT) { + ungetmouse(&event); /* Caller will process this. */ + wgetch(LYwin); /* ungetmouse puts KEY_MOUSE back */ + c = MOUSE_KEY; + } +#else /* pdcurses version */ + +#define H_CMD_AREA 6 +#define HIST_CMD_2 12 +#define V_CMD_AREA 1 + + int left = H_CMD_AREA; + int right = (LYcolLimit - H_CMD_AREA - 1); + + /* yes, I am assuming that my screen will be a certain width. */ + + int tick_count; + char *p = NULL; + char mouse_info[128]; + static int old_click = 0; /* [m Sec] */ + + c = -1; + mouse_link = -1; + + if (!system_is_NT) { + tick_count = GetTickCount(); + + /* Guard Mouse button miss click */ + if ((tick_count - old_click) < 700) { + c = DO_NOTHING; + break; + } else { + old_click = tick_count; + } + } + request_mouse_pos(); + + if (BUTTON_STATUS(1) & BUTTON_PRESSED) { + if (MOUSE_Y_POS > (LYlines - V_CMD_AREA - 1)) { + /* Screen BOTTOM */ + if (MOUSE_X_POS < left) { + c = LTARROW_KEY; + p = "<-"; + } else if (MOUSE_X_POS < HIST_CMD_2) { + c = RTARROW_KEY; + p = "->"; + } else if (MOUSE_X_POS > right) { + c = 'z'; + p = "Cancel"; + } else { + c = PGDOWN_KEY; + p = "PGDOWN"; + } + } else if (MOUSE_Y_POS < V_CMD_AREA) { + /* Screen TOP */ + if (MOUSE_X_POS < left) { + c = LTARROW_KEY; + p = "<-"; + } else if (MOUSE_X_POS < HIST_CMD_2) { + c = RTARROW_KEY; + p = "->"; + } else if (MOUSE_X_POS > right) { + c = 'z'; + p = "Cancel"; + } else { + c = PGUP_KEY; + p = "PGUP"; + } + } else { + c = set_clicked_link(MOUSE_X_POS, + MOUSE_Y_POS, + FOR_PANEL, 1); + } + } + if (p && c != -1) { + sprintf(mouse_info, "Mouse = 0x%x, [%s]", c, p); + SetConsoleTitle(mouse_info); + } +#endif /* !(WIN_EX) */ + if ((c + 1) >= KEYMAP_SIZE && (c & LKC_ISLAC)) + return (c); + } + break; +#endif /* NCURSES || PDCURSES */ + +/********************************************************************/ +#endif /* USE_MOUSE */ + + } +#endif /* HAVE_KEYPAD */ +#ifdef DJGPP_KEYHANDLER + switch (c) { + case K_Down: /* The four arrow keys ... */ + case K_EDown: + c = DNARROW_KEY; + break; + case K_Up: + case K_EUp: + c = UPARROW_KEY; + break; + case K_Left: + case K_ELeft: + c = LTARROW_KEY; + break; + case K_Right: /* ... */ + case K_ERight: + c = RTARROW_KEY; + break; + case K_Home: /* Home key (upward+left arrow) */ + case K_EHome: + c = HOME_KEY; + break; + case K_PageDown: /* Next page */ + case K_EPageDown: + c = PGDOWN_KEY; + break; + case K_PageUp: /* Previous page */ + case K_EPageUp: + c = PGUP_KEY; + break; + case K_End: /* home down or bottom (lower left) */ + case K_EEnd: + c = END_KEY; + break; + case K_F1: /* F1 key */ + c = F1_KEY; + break; + case K_Insert: /* Insert key */ + case K_EInsert: + c = INSERT_KEY; + break; + case K_Delete: /* Delete key */ + case K_EDelete: + c = REMOVE_KEY; + break; + case K_Alt_Escape: /* Alt-Escape */ + c = 0x1a7; + break; + case K_Control_At: /* CTRL-@ */ + c = 0x1a8; + break; + case K_Alt_Backspace: /* Alt-Backspace */ + c = 0x1a9; + break; + case K_BackTab: /* BackTab */ + c = BACKTAB_KEY; + break; + } +#endif /* DGJPP_KEYHANDLER */ +#if defined(USE_SLANG) && (defined(__DJGPP__) || defined(__CYGWIN__)) && !defined(DJGPP_KEYHANDLER) && !defined(USE_KEYMAPS) + switch (c) { + case SL_KEY_DOWN: /* The four arrow keys ... */ + c = DNARROW_KEY; + break; + case SL_KEY_UP: + c = UPARROW_KEY; + break; + case SL_KEY_LEFT: + c = LTARROW_KEY; + break; + case SL_KEY_RIGHT: /* ... */ + c = RTARROW_KEY; + break; + case SL_KEY_HOME: /* Home key (upward+left arrow) */ + case SL_KEY_A1: /* upper left of keypad */ + c = HOME_KEY; + break; + case SL_KEY_NPAGE: /* Next page */ + case SL_KEY_C3: /* lower right of keypad */ + c = PGDOWN_KEY; + break; + case SL_KEY_PPAGE: /* Previous page */ + case SL_KEY_A3: /* upper right of keypad */ + c = PGUP_KEY; + break; + case SL_KEY_END: /* home down or bottom (lower left) */ + case SL_KEY_C1: /* lower left of keypad */ + c = END_KEY; + break; + case SL_KEY_F(1): /* F1 key */ + c = F1_KEY; + break; + case SL_KEY_IC: /* Insert key */ + c = INSERT_KEY; + break; + case SL_KEY_DELETE: /* Delete key */ + c = REMOVE_KEY; + break; + } +#endif /* USE_SLANG && __DJGPP__ && !DJGPP_KEYHANDLER && !USE_KEYMAPS */ + } + + if (c & (LKC_ISLAC | LKC_ISLECLAC)) { + return (c); + } else if ((c + 1) >= KEYMAP_SIZE) { + /* + * Don't return raw values for KEYPAD symbols which we may have missed + * in the switch above if they are obviously invalid when used as an + * index into (e.g.) keypad[]. - KW + */ + return (0); + } else { + return (c | current_modifier); + } +} + +/************************************************************************/ +#endif /* NOT defined(USE_KEYMAPS) && defined(USE_SLANG) */ + +int LYgetch(void) +{ + return LYReadCmdKey(FOR_PANEL); +} + +/* + * Read a single keystroke, allows mouse-selection. + */ +int LYgetch_choice(void) +{ + int ch = LYReadCmdKey(FOR_CHOICE); + + if (ch == LYCharINTERRUPT1) + ch = LYCharINTERRUPT2; /* treat ^C the same as ^G */ + return ch; +} + +/* + * Read a single keystroke, allows mouse events. + */ +int LYgetch_input(void) +{ + int ch = LYReadCmdKey(FOR_INPUT); + + if (ch == LYCharINTERRUPT1) + ch = LYCharINTERRUPT2; /* treat ^C the same as ^G */ + return ch; +} + +/* + * Read a single keystroke, ignoring case by translating it to uppercase. + * Ignore mouse events, if any. + */ +int LYgetch_single(void) +{ + int ch = LYReadCmdKey(FOR_SINGLEKEY); + + if (ch == LYCharINTERRUPT1) + ch = LYCharINTERRUPT2; /* treat ^C the same as ^G */ + else if (ch > 0 && ch < 256) + ch = TOUPPER(ch); /* will ignore case of result */ + return ch; +} + +/* + * Convert a null-terminated string to lowercase + */ +void LYLowerCase(char *arg_buffer) +{ + register unsigned char *buffer = (unsigned char *) arg_buffer; + size_t i; + + for (i = 0; buffer[i]; i++) { +#ifdef SUPPORT_MULTIBYTE_EDIT /* 1998/11/23 (Mon) 17:04:55 */ + if ((buffer[i] & 0x80) != 0 + && buffer[i + 1] != 0) { + if ((kanji_code == SJIS) && IS_SJIS_X0201KANA(UCH((buffer[i])))) { + continue; + } + i++; + } else { + buffer[i] = UCH(TOLOWER(buffer[i])); + } +#else + buffer[i] = TOLOWER(buffer[i]); +#endif + } +} + +/* + * Convert a null-terminated string to uppercase + */ +void LYUpperCase(char *arg_buffer) +{ + register unsigned char *buffer = (unsigned char *) arg_buffer; + size_t i; + + for (i = 0; buffer[i]; i++) { +#ifdef SUPPORT_MULTIBYTE_EDIT /* 1998/11/23 (Mon) 17:05:10 */ + if ((buffer[i] & 0x80) != 0 + && buffer[i + 1] != 0) { + if ((kanji_code == SJIS) && IS_SJIS_X0201KANA(UCH((buffer[i])))) { + continue; + } + i++; + } else { + buffer[i] = UCH(TOUPPER(buffer[i])); + } +#else + buffer[i] = UCH(TOUPPER(buffer[i])); +#endif + } +} + +/* + * Remove newlines from a string, returning true if we removed any. + */ +BOOLEAN LYRemoveNewlines(char *buffer) +{ + BOOLEAN result = FALSE; + + if (buffer != 0) { + register char *buf = buffer; + + for (; *buf && *buf != '\n' && *buf != '\r'; buf++) ; + if (*buf) { + /* runs very seldom */ + char *old = buf; + + for (; *old; old++) { + if (*old != '\n' && *old != '\r') + *buf++ = *old; + } + *buf = '\0'; + result = TRUE; + } + } + return result; +} + +/* + * Remove leading/trailing whitespace from a string, reduce runs of embedded + * whitespace to single blanks. + */ +char *LYReduceBlanks(char *buffer) +{ + if (non_empty(buffer)) { + LYTrimLeading(buffer); + LYTrimTrailing(buffer); + convert_to_spaces(buffer, TRUE); + } + return buffer; +} + +/* + * Remove ALL whitespace from a string (including embedded blanks), and returns + * a pointer to the end of the trimmed string. + */ +char *LYRemoveBlanks(char *buffer) +{ + char *result = NULL; + + if (buffer != 0) { + register char *buf = buffer; + + for (; *buf && !isspace(UCH(*buf)); buf++) ; + if (*buf) { + /* runs very seldom */ + char *old = buf; + + for (; *old; old++) { + if (!isspace(UCH(*old))) + *buf++ = *old; + } + *buf = '\0'; + } + result = buf; + } + return result; +} + +/* + * Skip whitespace + */ +char *LYSkipBlanks(char *buffer) +{ + if (buffer != NULL) { + while (isspace(UCH((*buffer)))) + buffer++; + } + return buffer; +} + +/* + * Skip non-whitespace + */ +char *LYSkipNonBlanks(char *buffer) +{ + if (buffer != NULL) { + while (*buffer != 0 && !isspace(UCH((*buffer)))) + buffer++; + } + return buffer; +} + +/* + * Skip const whitespace + */ +const char *LYSkipCBlanks(const char *buffer) +{ + while (isspace(UCH((*buffer)))) + buffer++; + return buffer; +} + +/* + * Skip const non-whitespace + */ +const char *LYSkipCNonBlanks(const char *buffer) +{ + while (*buffer != 0 && !isspace(UCH((*buffer)))) + buffer++; + return buffer; +} + +/* + * Trim leading blanks from a string + */ +void LYTrimLeading(char *buffer) +{ + char *skipped = LYSkipBlanks(buffer); + + while ((*buffer++ = *skipped++) != 0) ; +} + +/* + * Trim trailing newline(s) from a string + */ +char *LYTrimNewline(char *buffer) +{ + size_t i = strlen(buffer); + + while (i != 0 && (buffer[i - 1] == '\n' || buffer[i - 1] == '\r')) + buffer[--i] = 0; + return buffer; +} + +/* + * Trim trailing blanks from a string + */ +void LYTrimTrailing(char *buffer) +{ + size_t i = strlen(buffer); + + while (i != 0 && isspace(UCH(buffer[i - 1]))) + buffer[--i] = 0; +} + +/* 1997/11/10 (Mon) 14:26:10, originally string_short() in LYExterns.c, but + * moved here because LYExterns is not always configured. + */ +char *LYElideString(char *str, + int cut_pos) +{ + char buff[MAX_LINE], *s, *d; + static char s_str[MAX_LINE]; + int len; + + LYStrNCpy(buff, str, sizeof(buff) - 1); + len = (int) strlen(buff); + if (len > (LYcolLimit - 9)) { + buff[cut_pos] = '.'; + buff[cut_pos + 1] = '.'; + for (s = (buff + len) - (LYcolLimit - 9) + cut_pos + 1, + d = (buff + cut_pos) + 2; + s >= buff && + d >= buff && + d < buff + LYcols && + (*d++ = *s++) != 0;) ; + buff[LYcols] = 0; + } + strcpy(s_str, buff); + return (s_str); +} + +/* + * Trim a startfile, returning true if it looks like one of the Lynx tags. + */ +BOOLEAN LYTrimStartfile(char *buffer) +{ + BOOLEAN result = FALSE; + + LYTrimHead(buffer); + if (isLYNXEXEC(buffer) || + isLYNXPROG(buffer)) { + /* + * The original implementations of these schemes expected white space + * without hex escaping, and did not check for hex escaping, so we'll + * continue to support that, until that code is redone in conformance + * with SGML principles. - FM + */ + HTUnEscapeSome(buffer, " \r\n\t"); + convert_to_spaces(buffer, TRUE); + result = TRUE; + } + return result; +} + +/* + * Escape unsafe characters in startfile, except for lynx internal URLs. + */ +void LYEscapeStartfile(char **buffer) +{ + if (!LYTrimStartfile(*buffer)) { + char *escaped = HTEscapeUnsafe(*buffer); + + StrAllocCopy(*buffer, escaped); + FREE(escaped); + } +} + +/* + * Trim all blanks from startfile, except for lynx internal URLs. + */ +void LYTrimAllStartfile(char *buffer) +{ + if (!LYTrimStartfile(buffer)) { + LYRemoveBlanks(buffer); + } +} + +/* + * Display the current value of the string and allow the user to edit it. + */ + +/* + * Shorthand to get rid of the "edit->suchandsos". + */ +#define IsDirty edit->efIsDirty +#define IsHidden edit->efIsMasked +#define StartX edit->efStartX +#define StartY edit->efStartY +#define Buffer edit->efBuffer +#define EditAt edit->efEditAt /* current editing position (bytes) */ +#define BufInUse edit->efBufInUse /* length (bytes) */ +#define BufAlloc edit->efBufAlloc +#define BufLimit edit->efBufLimit +#define DpyWidth edit->efWidth +#define DpyStart edit->efDpyStart /* display-start (columns) */ +#define PanMargin edit->efPanMargin +#define IsPanned edit->efIsPanned +#define PadChar edit->efPadChar +#ifdef ENHANCED_LINEEDIT +#define EditMark edit->efEditMark +#endif +#define InputMods edit->efInputMods +#define Offs2Col edit->efOffs2Col + +#define enableEditMark() \ + if (EditMark < 0) \ + EditMark = -(1 + EditMark) + +#define disableEditMark() \ + if (EditMark >= 0) \ + EditMark = -(1 + EditMark) + +#ifdef ENHANCED_LINEEDIT +static bstring *killbuffer; +#endif + +static void updateMargin(FieldEditor * edit) +{ + if ((int) BufAlloc > DpyWidth) { /* Need panning? */ + if (DpyWidth > 4) + IsPanned = TRUE; + + /* + * Figure out margins. If too big, we do a lot of unnecessary + * scrolling. If too small, user doesn't have sufficient look-ahead. + * Let's say 25% for each margin, upper bound is 10 columns. + */ + PanMargin = DpyWidth / 4; + if (PanMargin > 10) + PanMargin = 10; + } +} + +/* + * Before using an array position, make sure that the array is long enough. + * Reallocate if needed. + */ +static void ExtendEditor(FieldEditor * edit, int position) +{ + size_t need = (size_t) (++position); + + if (need >= BufAlloc && (BufLimit == 0 || need < BufLimit)) { + CTRACE((tfp, "ExtendEditor from %lu to %lu\n", + (unsigned long) BufAlloc, + (unsigned long) need)); + Buffer = typeRealloc(char, Buffer, need); + Offs2Col = typeRealloc(int, Offs2Col, need + 1); + + BufAlloc = need; + updateMargin(edit); + } +} + +void LYFinishEdit(FieldEditor * edit) +{ + CTRACE((tfp, "LYFinishEdit:%s\n", NonNull(Buffer))); + + FREE(Buffer); + FREE(Offs2Col); +} + +void LYSetupEdit(FieldEditor * edit, char *old_value, unsigned buffer_limit, int display_limit) +{ + CTRACE((tfp, "LYSetupEdit buffer %lu, display %d:%s\n", + (unsigned long) buffer_limit, + display_limit, + old_value)); + + BufLimit = buffer_limit; + if (buffer_limit == 0) + buffer_limit = (unsigned) strlen(old_value) + 1; + + /* + * Initialize edit record + */ + LYGetYX(StartY, StartX); + PadChar = ' '; + IsDirty = TRUE; + IsPanned = FALSE; + InputMods = 0; + + BufAlloc = buffer_limit; + DpyWidth = display_limit; + PanMargin = 0; + EditAt = (int) strlen(old_value); +#ifdef ENHANCED_LINEEDIT + EditMark = -1; /* pos=0, but do not show it yet */ +#endif + DpyStart = 0; + + updateMargin(edit); + + BufInUse = strlen(old_value); + Buffer = typecallocn(char, BufAlloc + 1); + + if (Buffer == 0) + outofmem(__FILE__, "LYSetupEdit"); + + LYStrNCpy(Buffer, old_value, buffer_limit); + Offs2Col = typecallocn(int, BufAlloc + 1); + + if (Offs2Col == 0) + outofmem(__FILE__, "LYSetupEdit"); +} + +#ifdef SUPPORT_MULTIBYTE_EDIT + +/* + * MBCS positioning routines below are specific to SUPPORT_MULTIBYTE_EDIT code. + * Currently they handle UTF-8 and (hopefully) CJK. + * Current encoding is recognized using defines below. + * + * LYmbcs* functions don't look very convenient to use here... + * Do we really need utf_flag as an argument? + * + * It is set (see IS_UTF8_TTY) for every invocation out there, and they use + * HTCJK flag internally anyway. Something like LYmbcsstrnlen == mbcs_glyphs + * would be useful to work with string slices -Sergej Kvachonok + */ + +#define IS_UTF8_EXTRA(x) (((unsigned char)(x) & 0300) == 0200) + +/* + * Counts glyphs in a multibyte (sub)string s of length len. + */ +static int mbcs_glyphs(char *s, int len) +{ + int glyphs = 0; + int i; + + if (IS_UTF8_TTY) { + for (i = 0; s[i] && i < len; i++) + if (!IS_UTF8_EXTRA(s[i])) + glyphs++; + } else if (IS_CJK_TTY) { + for (i = 0; s[i] && i < len; i++, glyphs++) + if (is8bits(s[i])) + i++; + } else { + glyphs = len; + } + return glyphs; +} + +/* + * Check if there are no continuation bytes in the multibyte (sub)string of + * length len. + */ +static int mbcs_valid(char *s, int len, int limit) +{ + int i; + int result = FALSE; + + if (IS_UTF8_TTY) { + for (i = 0; s[i] && i < limit; i++) { + if (!IS_UTF8_EXTRA(s[i])) { + if ((i + 1) == len) { + result = TRUE; + break; + } + } + } + } else if (IS_CJK_TTY) { + for (i = 0; s[i] && i < limit; i++) { + if (!is8bits(s[i])) { + if ((i + 1) == len) { + result = TRUE; + break; + } + } + } + } else { + result = TRUE; + } + return result; +} + +/* + * Calculates offset in bytes of a glyph at cell position pos. + */ +static int mbcs_skip(char *s, int pos) +{ + int p, i; + + if (IS_UTF8_TTY) { + for (i = 0, p = 0; s[i]; i++) { + if (!IS_UTF8_EXTRA(s[i])) + p++; + if (p > pos) + break; + } + } else if (IS_CJK_TTY) { + for (p = i = 0; s[i] && p < pos; p++, i++) + if (is8bits(s[i])) + i++; + } else { + i = pos; + } + + return i; +} + +/* + * Given a string that would display (at least) the given number of cells, + * determine the number of multibyte characters that comprised those cells. + */ +static int cell2char(char *s, int cells) +{ + int result = 0; + int len = (int) strlen(s); + int pos; + int have; + + CTRACE_EDIT((tfp, "cell2char(%d) %d:%s\n", cells, len, s)); + if (len != 0) { + int best = -1; + + for (pos = 0; pos <= len; ++pos) { + have = LYstrExtent2(s, pos); + CTRACE_EDIT((tfp, " %2d:%2d:%.*s\n", pos, have, pos, s)); + if (have >= cells) { + if (cells <= 0) + break; + /* the best solution is the one with the most bytes */ + best = pos; + if (mbcs_valid(s, pos, len)) + break; + } + } + if (best >= 0) + pos = best; + if (pos > len) + pos = len; + } else { + pos = 0; + } + result = mbcs_glyphs(s, pos); + CTRACE_EDIT((tfp, "->%d\n", result)); + return result; +} + +#endif /* SUPPORT_MULTIBYTE_EDIT */ + +#ifdef EXP_KEYBOARD_LAYOUT +static int map_active = 0; + +#else +#define map_active 0 +#endif + +int LYEditInsert(FieldEditor * edit, unsigned const char *s, + int len, + int map GCC_UNUSED, + int maxMessage) +{ + int length = (int) strlen(Buffer); + int remains = (int) BufAlloc - (length + len); + int edited = 0, overflow = 0; + + /* + * ch is (presumably) printable character. + */ + if (remains < 0) { + overflow = 1; + len = 0; + if ((int) BufAlloc > length) /* Insert as much as we can */ + len = (int) BufAlloc - length; + else + goto finish; + } + ExtendEditor(edit, length + len); + Buffer[length + len] = '\0'; + for (; length >= EditAt; length--) /* Make room */ + Buffer[length + len] = Buffer[length]; +#ifdef EXP_KEYBOARD_LAYOUT + if (map < 0) + map = map_active; + if (map && IS_UTF8_TTY) { + int off = EditAt; + unsigned const char *e = s + len; + char *tail = 0; + + while (s < e) { + char utfbuf[8]; + int l = 1; + + utfbuf[0] = (char) *s; + if (*s < 128 && LYKbLayouts[current_layout][*s]) { + UCode_t ucode = LYKbLayouts[current_layout][*s]; + + if (ucode > 127) { + if (UCConvertUniToUtf8(ucode, utfbuf)) { + l = (int) strlen(utfbuf); + remains -= l - 1; + if (remains < 0) { + if (tail) + strcpy(Buffer + off, tail); + FREE(tail); + len = off; + overflow = 1; + goto finish; + } + if (l > 1 && !tail) + StrAllocCopy(tail, Buffer + EditAt + len); + } else + utfbuf[0] = '?'; + } else + utfbuf[0] = (char) ucode; + } + if ((size_t) (off + l) <= BufAlloc) { + memcpy(Buffer + off, utfbuf, (size_t) l); + edited = 1; + off += l; + } + s++; + } + if (tail) + strcpy(Buffer + off, tail); + len = off - EditAt; + FREE(tail); + } else if (map) { + unsigned const char *e = s + len; + unsigned char *t = (unsigned char *) Buffer + EditAt; + + while (s < e) { + int ch; + + if (*s < 128 && LYKbLayouts[current_layout][*s]) { + ch = UCTransUniChar((UCode_t) LYKbLayouts[current_layout][*s], + current_char_set); + if (ch < 0) + ch = '?'; + } else + ch = *s; + *t = UCH(ch); + t++, s++; + } + edited = 1; + } else +#endif /* defined EXP_KEYBOARD_LAYOUT */ + { + StrNCpy(Buffer + EditAt, (const char *) s, len); + edited = 1; + } + + finish: + EditAt += len; + BufInUse += (size_t) len; + if (edited) + IsDirty = TRUE; + if (overflow && maxMessage) + _statusline(MAXLEN_REACHED_DEL_OR_MOV); +#ifdef ENHANCED_LINEEDIT + if (EditMark > EditAt) + EditMark += len; + else if (EditMark < -(1 + EditAt)) + EditMark -= len; + disableEditMark(); +#endif + return edited; +} + +/* + * Do one edit-operation, given the input 'ch' and working buffer 'edit'. + * + * If the input is processed, returns zero. + * If the action should be performed outside of line-editing mode, return -ch. + * Otherwise, e.g., returns 'ch'. + */ +int LYDoEdit(FieldEditor * edit, int ch, + int action, + int maxMessage) +{ + int i; + int length; + unsigned char uch; + int offset; + + if ((int) BufAlloc <= 0) + return (0); /* Be defensive */ + + BufInUse = strlen(&Buffer[0]); + length = (int) BufInUse; + + switch (action) { +#ifdef EXP_KEYBOARD_LAYOUT + case LYE_SWMAP: + /* + * Turn input character mapping on or off. + */ + map_active = ~map_active; + break; +#endif +#ifndef CJK_EX + case LYE_AIX: + /* + * Handle CJK characters, or as a valid character in the current + * display character set. Otherwise, we treat this as LYE_ENTER. + */ + if (!IS_CJK_TTY && LYlowest_eightbit[current_char_set] > 0x97) + return (ch); +#endif + /* FALLTHRU */ + case LYE_CHAR: + uch = UCH(ch); + LYEditInsert(edit, &uch, 1, map_active, maxMessage); + return 0; /* All changes already registered */ + + case LYE_C1CHAR: + /* + * ch is the second part (in most cases, a capital letter) of a 7-bit + * replacement for a character in the 8-bit C1 control range. + * + * This is meant to undo transformations like 0x81 -> 0x1b 0x41 (ESC A) + * etc., done by slang on Unix and possibly some comm programs. It's + * an imperfect workaround that doesn't work for all such characters. + */ + ch &= 0xFF; + if (ch + 64 >= LYlowest_eightbit[current_char_set]) + ch += 64; + + if (EditAt <= ((int) BufAlloc) && BufInUse < BufAlloc) { +#ifdef ENHANCED_LINEEDIT + if (EditMark > EditAt) + EditMark++; + else if (EditMark < -(1 + EditAt)) + EditMark--; + disableEditMark(); +#endif + ExtendEditor(edit, length + 1); + for (i = length; i >= EditAt; i--) /* Make room */ + Buffer[i + 1] = Buffer[i]; + Buffer[length + 1] = '\0'; + Buffer[EditAt] = (char) ch; + EditAt++; + } else { + if (maxMessage) { + _statusline(MAXLEN_REACHED_DEL_OR_MOV); + } + return (ch); + } + break; + + case LYE_BACKW: /* go backward one word */ + while (EditAt && !IsWordChar(Buffer[EditAt - 1])) + EditAt--; + while (EditAt && IsWordChar(UCH(Buffer[EditAt - 1]))) + EditAt--; + break; + + case LYE_FORWW: /* go forward one word */ + while (IsWordChar(UCH(Buffer[EditAt]))) + EditAt++; + while (!IsWordChar(Buffer[EditAt]) && Buffer[EditAt]) + EditAt++; + break; + + case LYE_ERASE: /* erase the line */ + Buffer[0] = '\0'; +#ifdef ENHANCED_LINEEDIT + EditMark = -1; /* Do not show the mark */ +#endif + /* FALLTHRU */ + + case LYE_BOL: /* go to beginning of line */ + EditAt = 0; + break; + + case LYE_EOL: /* go to end of line */ + EditAt = length; + break; + + case LYE_DELNW: /* delete next word */ + offset = EditAt; + LYDoEdit(edit, 0, LYE_FORWW, FALSE); + offset = EditAt - offset; + EditAt -= offset; + + goto shrink; /* right below */ + + case LYE_DELPW: /* delete previous word */ + offset = EditAt; + LYDoEdit(edit, 0, LYE_BACKW, FALSE); + offset -= EditAt; + + shrink: + for (i = EditAt; i < length - offset + 1; i++) + Buffer[i] = Buffer[i + offset]; +#ifdef ENHANCED_LINEEDIT + disableEditMark(); + if (EditMark <= -(1 + EditAt + offset)) + EditMark += offset; /* Shift it */ + if (-(1 + EditAt + offset) < EditMark && EditMark < -(1 + EditAt)) + EditMark = -(1 + EditAt); /* Set to the current position */ +#endif + + break; + + case LYE_DELBL: /* delete from cursor to beginning of line */ + for (i = EditAt; i < length + 1; i++) + Buffer[i - EditAt] = Buffer[i]; + +#ifdef ENHANCED_LINEEDIT + disableEditMark(); + if (EditMark <= -(1 + EditAt)) + EditMark += EditAt; /* Shift it */ + else + EditMark = -1; /* Reset it */ +#endif + EditAt = 0; + break; + + case LYE_DELEL: /* delete from cursor to end of line */ + Buffer[EditAt] = '\0'; +#ifdef ENHANCED_LINEEDIT + disableEditMark(); + if (EditMark <= -(1 + EditAt)) + EditMark = -1; /* Reset it */ +#endif + break; + + case LYE_DELN: /* delete next character */ + if (EditAt >= length) + break; +#ifndef SUPPORT_MULTIBYTE_EDIT + EditAt++; +#else + EditAt += mbcs_skip(Buffer + EditAt, 1); +#endif + /* FALLTHRU */ + + case LYE_DELP: /* delete previous character */ + if (length == 0 || EditAt == 0) + break; + +#ifndef SUPPORT_MULTIBYTE_EDIT +#ifdef ENHANCED_LINEEDIT + disableEditMark(); + if (EditMark <= -(1 + EditAt)) + EditMark++; +#endif + EditAt--; + for (i = EditAt; i < length; i++) + Buffer[i] = Buffer[i + 1]; +#else /* SUPPORT_MULTIBYTE_EDIT */ + offset = EditAt - mbcs_skip(Buffer, mbcs_glyphs(Buffer, EditAt) - 1); + EditAt -= offset; + for (i = EditAt; i < length - offset + 1; i++) + Buffer[i] = Buffer[i + offset]; + +#ifdef ENHANCED_LINEEDIT + disableEditMark(); + if (EditMark <= -(1 + EditAt)) + EditMark += offset; /* Shift it */ +#endif + +#endif /* SUPPORT_MULTIBYTE_EDIT */ + break; + + case LYE_FORW_RL: + case LYE_FORW: /* move cursor forward */ +#ifndef SUPPORT_MULTIBYTE_EDIT + if (EditAt < length) + EditAt++; +#else + if (EditAt < length) + EditAt += mbcs_skip(Buffer + EditAt, 1); +#endif + else if (action == LYE_FORW_RL) + return -ch; + break; + + case LYE_BACK_LL: + case LYE_BACK: /* move cursor backward */ +#ifndef SUPPORT_MULTIBYTE_EDIT + if (EditAt > 0) + EditAt--; +#else + if (EditAt > 0) + EditAt = mbcs_skip(Buffer, mbcs_glyphs(Buffer, EditAt) - 1); +#endif + else if (action == LYE_BACK_LL) + return -ch; + break; + +#ifdef ENHANCED_LINEEDIT + case LYE_TPOS: + /* + * Transpose characters - bash or ksh(emacs not gmacs) style + */ + +#ifdef SUPPORT_MULTIBYTE_EDIT + if (IS_UTF8_TTY || IS_CJK_TTY) + break; /* Can't help it now */ +#endif + + if (length <= 1 || EditAt == 0) + return (ch); + if (EditAt == length) + EditAt--; + enableEditMark(); + if (EditMark == EditAt || EditMark == EditAt + 1) + EditMark = EditAt - 1; + disableEditMark(); + if (Buffer[EditAt - 1] == Buffer[EditAt]) { + EditAt++; + break; + } + i = Buffer[EditAt - 1]; + Buffer[EditAt - 1] = Buffer[EditAt]; + Buffer[EditAt++] = (char) i; + break; + + case LYE_SETMARK: /* Emacs-like set-mark-command */ + EditMark = EditAt; + return (0); + + case LYE_XPMARK: /* Emacs-like exchange-point-and-mark */ + enableEditMark(); + if (EditMark == EditAt) + return (0); + i = EditAt; + EditAt = EditMark; + EditMark = i; + break; + + case LYE_KILLREG: /* Emacs-like kill-region */ + enableEditMark(); + if (EditMark == EditAt) { + BStrFree(killbuffer); + return (0); + } + if (EditMark > EditAt) + LYDoEdit(edit, 0, LYE_XPMARK, FALSE); + { + int reglen = EditAt - EditMark; + + BStrCopy1(killbuffer, Buffer + EditMark, reglen); + for (i = EditMark; Buffer[i + reglen]; i++) + Buffer[i] = Buffer[i + reglen]; + Buffer[i] = Buffer[i + reglen]; /* terminate */ + EditAt = EditMark; + } + disableEditMark(); + break; + + case LYE_YANK: /* Emacs-like yank */ + if (!killbuffer) { + EditMark = -(1 + EditAt); + return (0); + } else { + int yanklen = killbuffer->len; + + if ((EditAt + yanklen) <= (int) BufAlloc && + BufInUse + (size_t) yanklen <= BufAlloc) { + + ExtendEditor(edit, EditAt + yanklen); + + EditMark = -(1 + EditAt); + + for (i = length; i >= EditAt; i--) /* Make room */ + Buffer[i + yanklen] = Buffer[i]; + for (i = 0; i < yanklen; i++) + Buffer[EditAt++] = killbuffer->str[i]; + + } else if (maxMessage) { + _statusline(MAXLEN_REACHED_DEL_OR_MOV); + } + } + break; + +#endif /* ENHANCED_LINEEDIT */ + + case LYE_UPPER: + LYUpperCase(Buffer); + break; + + case LYE_LOWER: + LYLowerCase(Buffer); + break; + + default: + return (ch); + } + IsDirty = TRUE; + BufInUse = strlen(&Buffer[0]); + return (0); +} + +/* + * This function prompts for a choice or page number. + * If a 'g' or 'p' suffix is included, that will be + * loaded into c. Otherwise, c is zeroed. - FM & LE + */ +int get_popup_number(const char *msg, + int *c, + int *rel) +{ + bstring *temp = NULL; + int result = 0; + + /* + * Load the c argument into the prompt buffer. + */ + BStrCopy0(temp, "?"); + temp->str[0] = (char) *c; + + _statusline(msg); + + /* + * Get the number, possibly with a suffix, from the user. + */ + if (LYgetBString(&temp, FALSE, 0, NORECALL) < 0 || isBEmpty(temp)) { + HTInfoMsg(CANCELLED); + *c = '\0'; + *rel = '\0'; + } else { + char *p = temp->str; + + *rel = '\0'; + result = atoi(p); + while (isdigit(UCH(*p))) + ++p; + switch (*p) { + case '+': + case '-': + /* 123+ or 123- */ + *rel = *p++; + *c = *p; + break; + default: + *c = *p++; + *rel = *p; + break; + case 0: + break; + } + + /* + * If we had a 'g' or 'p' suffix, load it into c. Otherwise, zero c. Then + * return the number. + */ + if (*p == 'g' || *p == 'G') { + *c = 'g'; + } else if (*p == 'p' || *p == 'P') { + *c = 'p'; + } else { + *c = '\0'; + } + if (*rel != '+' && *rel != '-') + *rel = 0; + } + BStrFree(temp); + return result; +} + +#ifdef USE_COLOR_STYLE +# define TmpStyleOn(s) curses_style((s), STACK_ON) +# define TmpStyleOff(s) curses_style((s), STACK_OFF) +#else +# define TmpStyleOn(s) +# define TmpStyleOff(s) +#endif /* defined USE_COLOR_STYLE */ + +static void remember_column(FieldEditor * edit, int offset) +{ + int y0, x0; + +#if defined(USE_SLANG) + y0 = 0; + x0 = SLsmg_get_column(); +#elif defined(USE_CURSES_PADS) + getyx(LYwin, y0, x0); +#else + getyx(stdscr, y0, x0); +#endif + Offs2Col[offset] = x0; + + (void) y0; + (void) x0; +} + +static void fill_edited_line(int prompting GCC_UNUSED, int length, int ch) +{ + int i; + + TmpStyleOn(prompting ? s_prompt_edit_pad : s_aedit_pad); + + for (i = 0; i < length; i++) { + LYaddch(UCH(ch)); + } + + TmpStyleOff(prompting ? s_prompt_edit_pad : s_aedit_pad); +} + +/* + * Multibyte string display subroutine. + * FieldEditor fields retain their values as byte offsets. + * All external logic still works fine with byte values. + */ +void LYRefreshEdit(FieldEditor * edit) +{ + /* bytes and characters are not the same thing */ +#if defined(DEBUG_EDIT) + int all_bytes; +#endif + int pos_bytes = EditAt; + int dpy_bytes; + int lft_bytes; /* base of string which is displayed */ + + /* cells refer to display-columns on the screen */ + int all_cells; /* total of display-cells in Buffer */ + int dpy_cells; /* number of cells which are displayed */ + int lft_cells; /* number of cells before display (on left) */ + int pos_cells; /* number of display-cells up to EditAt */ + +#if defined(SUPPORT_MULTIBYTE_EDIT) + int dpy_chars; + int lft_chars; + +#if defined(DEBUG_EDIT) + int all_chars; + int pos_chars; +#endif +#endif + + /* other data */ + int i; + int padsize; + char *str; + int lft_shift = 0; + int rgt_shift = 0; + +#ifdef USE_COLOR_STYLE + int estyle; +#endif + int prompting = 0; + + (void) pos_bytes; + + /* + * If we've made no changes, or if there is nothing to display, just leave. + */ + if (!IsDirty || (DpyWidth == 0)) + return; + + CTRACE((tfp, "LYRefreshEdit:%s\n", Buffer)); + + IsDirty = FALSE; + + BufInUse = strlen(&Buffer[0]); + + all_cells = LYstrCells(Buffer); + pos_cells = LYstrExtent2(Buffer, EditAt); + +#if defined(SUPPORT_MULTIBYTE_EDIT) && defined(DEBUG_EDIT) + all_bytes = (int) BufInUse; + lft_chars = mbcs_glyphs(Buffer, DpyStart); + pos_chars = mbcs_glyphs(Buffer, EditAt); + all_chars = mbcs_glyphs(Buffer, all_bytes); +#endif + + /* + * Now we have: + * .--DpyWidth--. + * +---------+=============+-----------+ + * | |M M| | (M=PanMargin) + * +---------+=============+-----------+ + * 0 DpyStart BufInUse + * + * Insertion point can be anywhere between 0 and stringlength. Calculate + * a new display starting point. + * + * First, make Lynx scroll several columns at a time as needed when + * extending the string. Doing this helps with lowspeed connections. + */ + + lft_bytes = DpyStart; + lft_cells = LYstrExtent2(Buffer, DpyStart); + + if ((lft_cells + DpyWidth) <= all_cells) { + if (pos_cells >= (lft_cells + DpyWidth) - PanMargin) { + lft_cells = (pos_cells - DpyWidth) + PanMargin; +#ifdef SUPPORT_MULTIBYTE_EDIT + lft_chars = cell2char(Buffer, lft_cells); + lft_bytes = mbcs_skip(Buffer, lft_chars); +#else + lft_bytes = lft_cells; +#endif /* SUPPORT_MULTIBYTE_EDIT */ + } + } + + if (pos_cells < lft_cells + PanMargin) { + lft_cells = pos_cells - PanMargin; + if (lft_cells < 0) + lft_cells = 0; +#ifdef SUPPORT_MULTIBYTE_EDIT + lft_chars = cell2char(Buffer, lft_cells); + lft_bytes = mbcs_skip(Buffer, lft_chars); +#else + lft_bytes = lft_cells; +#endif /* SUPPORT_MULTIBYTE_EDIT */ + } + + LYmove(StartY, StartX); + + /* + * Draw the left scrolling-indicator now, to avoid the complication of + * overwriting part of a multicolumn character which may lie in the first + * position. + */ + if (IsPanned && lft_cells) { + CTRACE_EDIT((tfp, "Draw left scroll-indicator\n")); + TmpStyleOn(prompting ? s_prompt_edit_arr : s_aedit_arr); + LYmove(StartY, StartX); + LYaddch(ACS_LARROW); + TmpStyleOff(prompting ? s_prompt_edit_arr : s_aedit_arr); + lft_shift = 1; + } + + str = &Buffer[lft_bytes]; + DpyStart = lft_bytes; + + dpy_cells = all_cells - lft_cells; + CTRACE_EDIT((tfp, "Comparing dpy_cells %d > (%d - %d)\n", + dpy_cells, DpyWidth, lft_shift)); + if (dpy_cells > (DpyWidth - lft_shift)) { + rgt_shift = 1; + dpy_cells = (DpyWidth - lft_shift - rgt_shift); + } + for (;;) { +#ifdef SUPPORT_MULTIBYTE_EDIT + dpy_chars = cell2char(str, dpy_cells); + dpy_bytes = mbcs_skip(str, dpy_chars); +#else + dpy_bytes = dpy_cells; +#endif /* SUPPORT_MULTIBYTE_EDIT */ + /* + * The last character on the display may be multicolumn, and if we take + * away a single cell for the right scroll-indicator, that would force + * us to display fewer characters. Check for that, and recompute. + */ + if (rgt_shift && *str) { + int old_cells = dpy_cells; + + dpy_cells = LYstrExtent2(str, dpy_bytes); + if (dpy_cells > old_cells) + dpy_cells = old_cells - 1; + + CTRACE_EDIT((tfp, "Comparing cells %d vs %d\n", dpy_cells, old_cells)); + if (dpy_cells < old_cells) { + CTRACE_EDIT((tfp, "Recomputing...\n")); + continue; + } + } + break; + } + + CTRACE_EDIT((tfp, "BYTES left %2d pos %2d dpy %2d all %2d\n", + lft_bytes, pos_bytes, dpy_bytes, all_bytes)); + CTRACE_EDIT((tfp, "CELLS left %2d pos %2d dpy %2d all %2d\n", + lft_cells, pos_cells, dpy_cells, all_cells)); + CTRACE_EDIT((tfp, "CHARS left %2d pos %2d dpy %2d all %2d\n", + lft_chars, pos_chars, dpy_chars, all_chars)); + +#ifdef USE_COLOR_STYLE + /* + * If this is the last screen line, set attributes to normal, should only + * be needed for color styles. The curses function may be used directly to + * avoid complications. - kw + */ + if (StartY == (LYlines - 1)) + prompting = 1; + if (prompting) { + estyle = s_prompt_edit; + } else { + estyle = s_aedit; + } + CTRACE2(TRACE_STYLE, + (tfp, "STYLE.getstr: switching to <edit.%s>.\n", + prompting ? "prompt" : "active")); + if (estyle != NOSTYLE) { + curses_style(estyle, STACK_ON); + } else { + (void) wattrset(LYwin, A_NORMAL); /* need to do something about colors? */ + } +#endif + if (IsHidden) { + BOOL utf_flag = IS_UTF8_TTY; + int cell = 0; + + fill_edited_line(0, dpy_cells, '*'); + + i = 0; + do { + const char *last = str + i; + const char *next = LYmbcs_skip_glyphs(last, 1, utf_flag); + int j = (int) (next - str); + + while (i < j) { + Offs2Col[i++] = cell + StartX; + } + cell += LYstrExtent2(last, (int) (next - last)); + } while (i < dpy_bytes); + Offs2Col[i] = cell + StartX; + } else { +#if defined(ENHANCED_LINEEDIT) && defined(USE_COLOR_STYLE) + if (EditMark >= 0 && DpyStart > EditMark) + TmpStyleOn(prompting ? s_prompt_sel : s_aedit_sel); +#endif + remember_column(edit, 0); + for (i = 0; i < dpy_bytes; i++) { +#if defined(ENHANCED_LINEEDIT) && defined(USE_COLOR_STYLE) + if (EditMark >= 0 && ((DpyStart + i == EditMark && EditAt > EditMark) + || (DpyStart + i == EditAt && EditAt < EditMark))) + TmpStyleOn(prompting ? s_prompt_sel : s_aedit_sel); + if (EditMark >= 0 && ((DpyStart + i == EditMark && EditAt < EditMark) + || (DpyStart + i == EditAt && EditAt > EditMark))) + TmpStyleOff(prompting ? s_prompt_sel : s_aedit_sel); +#endif + if (str[i] == 1 || str[i] == 2 || + (UCH(str[i]) == 160 && + !(HTPassHighCtrlRaw || IS_CJK_TTY || + (LYCharSet_UC[current_char_set].enc != UCT_ENC_8859 && + !(LYCharSet_UC[current_char_set].like8859 + & UCT_R_8859SPECL))))) { + LYaddch(' '); + } else if (str[i] == '\t') { + int col = Offs2Col[i] - StartX; + + /* + * Like LYwaddnstr(), expand tabs from the beginning of the + * field. + */ + while (++col % 8) + LYaddch(' '); + LYaddch(' '); + } else { + LYaddch(UCH(str[i])); + } + remember_column(edit, i + 1); + } +#if defined(ENHANCED_LINEEDIT) && defined(USE_COLOR_STYLE) + if (EditMark >= 0 && + ((DpyStart + dpy_bytes <= EditMark && DpyStart + dpy_bytes > EditAt) + || (DpyStart + dpy_bytes > EditMark + && DpyStart + dpy_bytes <= EditAt))) { + TmpStyleOff(prompting ? s_prompt_sel : s_aedit_sel); + } +#endif + } + + /* + * Erase rest of input area. + */ + padsize = DpyWidth - (Offs2Col[dpy_bytes] - StartX); + fill_edited_line(prompting, padsize, PadChar); + + /* + * Scrolling indicators. + */ + if (IsPanned && dpy_bytes && rgt_shift) { + CTRACE((tfp, "Draw right-scroller offset (%d + %d)\n", + dpy_cells, lft_shift)); + TmpStyleOn(prompting ? s_prompt_edit_arr : s_aedit_arr); + LYmove(StartY, StartX + dpy_cells + lft_shift); + LYaddch(ACS_RARROW); + TmpStyleOff(prompting ? s_prompt_edit_arr : s_aedit_arr); + } + + /* + * Finally, move the cursor to the point where the next edit will occur. + */ + LYmove(StartY, Offs2Col[EditAt - DpyStart]); + +#ifdef USE_COLOR_STYLE + if (estyle != NOSTYLE) + curses_style(estyle, STACK_OFF); +#endif + LYrefresh(); +} + +static void reinsertEdit(FieldEditor * edit, char *result) +{ + if (result != 0) { + LYDoEdit(edit, '\0', LYE_ERASE, FALSE); + while (*result != '\0') { + LYLineEdit(edit, (int) (*result), FALSE); + result++; + } + } +} + +static int caselessCmpList(const void *a, + const void *b) +{ + return strcasecomp(*(STRING2PTR) a, *(STRING2PTR) b); +} + +static int normalCmpList(const void *a, + const void *b) +{ + return strcmp(*(STRING2PTR) a, *(STRING2PTR) b); +} + +static char **sortedList(HTList *list, int ignorecase) +{ + size_t count = (unsigned) HTList_count(list); + size_t j = 0; + size_t k, jk; + char **result = typecallocn(char *, count + 1); + + if (result == 0) + outofmem(__FILE__, "sortedList"); + + while (!HTList_isEmpty(list)) + result[j++] = (char *) HTList_nextObject(list); + + if (count > 1) { + qsort((char *) result, count, sizeof(*result), + ignorecase ? caselessCmpList : normalCmpList); + + /* remove duplicate entries from the sorted index */ + for (j = 0; result[j] != 0; j++) { + k = j; + while (result[k] != 0 + && !strcmp(result[j], result[k])) { + k++; + } + k--; + if (j != k) { + for (jk = j;; jk++) { + result[jk] = result[jk + k - j]; + if (result[jk] == 0) + break; + } + } + } + } + + return result; +} + +int LYarrayLength(STRING2PTR list) +{ + int result = 0; + + while (*list++ != 0) + result++; + return result; +} + +int LYarrayWidth(STRING2PTR list) +{ + int result = 0; + int check; + + while (*list != 0) { + check = (int) strlen(*list++); + if (check > result) + result = check; + } + return result; +} + +static void FormatChoiceNum(char *target, + int num_choices, + int choice, + const char *value) +{ + if (num_choices >= 0) { + int digits = (num_choices > 9) ? 2 : 1; + + sprintf(target, "%*d: %.*s", + digits, (choice + 1), + MAX_LINE - 9 - digits, value); + } else { + LYStrNCpy(target, value, MAX_LINE - 1); + } +} + +static unsigned options_width(STRING2PTR list) +{ + unsigned width = 0; + int count = 0; + + while (list[count] != 0) { + unsigned ncells = (unsigned) LYstrCells(list[count]); + + if (ncells > width) { + width = ncells; + } + count++; + } + return width; +} + +static void draw_option(WINDOW * win, int entry, + int width, + int reversed, + int num_choices, + int number, + const char *value) +{ + char Cnum[MAX_LINE]; + + (void) width; + + FormatChoiceNum(Cnum, num_choices, number, ""); +#ifdef USE_SLANG + SLsmg_gotorc(win->top_y + entry, (win->left_x + 2)); + LYaddstr(Cnum); + if (reversed) + SLsmg_set_color(2); + SLsmg_write_nstring((SLFUTURE_CONST char *) value, (unsigned) win->width); + if (reversed) + SLsmg_set_color(0); +#else + wmove(win, entry, 1); + LynxWChangeStyle(win, s_menu_entry, STACK_ON); + waddch(win, ' '); + LynxWChangeStyle(win, s_menu_entry, STACK_OFF); + LynxWChangeStyle(win, s_menu_number, STACK_ON); + waddstr(win, Cnum); + LynxWChangeStyle(win, s_menu_number, STACK_OFF); +#ifdef USE_COLOR_STYLE + LynxWChangeStyle(win, reversed ? s_menu_active : s_menu_entry, STACK_ON); +#else + if (reversed) + wstart_reverse(win); +#endif + LYpaddstr(win, width, value); +#ifdef USE_COLOR_STYLE + LynxWChangeStyle(win, reversed ? s_menu_active : s_menu_entry, STACK_OFF); +#else + if (reversed) + wstop_reverse(win); +#endif + LynxWChangeStyle(win, s_menu_entry, STACK_ON); + waddch(win, ' '); + LynxWChangeStyle(win, s_menu_entry, STACK_OFF); +#endif /* USE_SLANG */ +} + +static void show_popup_status(int cur_choice, + STRING2PTR choices, + int disabled, + int for_mouse) +{ + if (disabled) { + _statusline(CHOICE_LIST_UNM_MSG); + } else if (!for_mouse) { + if (fields_are_named()) { + char *status_msg = NULL; + + HTSprintf0(&status_msg, CHOICE_LIST_ADV_MSG, choices[cur_choice]); + _statusline(status_msg); + FREE(status_msg); + } else { + _statusline(CHOICE_LIST_MESSAGE); + } +#if defined(USE_MOUSE) && (defined(NCURSES) || defined(PDCURSES)) + } else { + _statusline(MOUSE_CHOICE_MESSAGE); +#endif + } +} + +#define SHOW_POPUP_STATUS() show_popup_status(cur_choice, choices, disabled, for_mouse) + +/* + * This function offers the choices for values of an option via a popup window + * which functions like that for selection of options in a form. - FM + * + * Also used for mouse popups with ncurses; this is indicated by for_mouse. + */ +int LYhandlePopupList(int cur_choice, + int ly, + int lx, + STRING2PTR choices, + int width, + int i_length, + int disabled, + int for_mouse) +{ + BOOLEAN numbered = (BOOLEAN) (keypad_mode != NUMBERS_AS_ARROWS); + int c = 0, cmd = 0, i = 0, j = 0, rel = 0; + int orig_choice; + WINDOW *form_window; + int num_choices = 0; + int max_choices = 0; + int top, bottom, length = -1; + int window_offset = 0; + int lines_to_show; + char Cnum[64]; + int Lnum; + int npages; + static bstring *prev_target = NULL; /* Search string buffer */ + static bstring *next_target = NULL; /* Next search buffer */ + static BOOL first = TRUE; + char *cp; + int ch = 0; + RecallType recall; + int QueryTotal; + int QueryNum; + BOOLEAN FirstRecall = TRUE; + BOOLEAN ReDraw = FALSE; + int number; + char buffer[MAX_LINE]; + STRING2PTR Cptr = NULL; + +#define CAN_SCROLL_DOWN 1 +#define CAN_SCROLL_UP 2 +#define CAN_SCROLL 4 + int can_scroll = 0, can_scroll_was = 0; + + orig_choice = cur_choice; + if (cur_choice < 0) + cur_choice = 0; + + /* + * Initialize the search string buffer. - FM + */ + if (first) { + BStrCopy0(next_target, ""); + first = FALSE; + } + BStrCopy0(prev_target, ""); + QueryTotal = (search_queries ? HTList_count(search_queries) : 0); + recall = ((QueryTotal >= 1) ? RECALL_URL : NORECALL); + QueryNum = QueryTotal; + + /* + * Count the number of choices to be displayed, where num_choices ranges + * from 0 to n, and set width to the longest choice string length. Also + * set Lnum to the length for the highest choice number, then decrement + * num_choices so as to be zero-based. The window width will be based on + * the sum of width and Lnum. - FM + */ + num_choices = LYarrayLength(choices) - 1; + if (width <= 0) + width = (int) options_width(choices); + if (numbered) { + sprintf(Cnum, "%d: ", num_choices); + Lnum = (int) strlen(Cnum); + max_choices = num_choices; + } else { + Lnum = 0; + max_choices = -1; + } + + /* + * Let's assume for the sake of sanity that ly is the number corresponding + * to the line the choice is on. + * + * Let's also assume that cur_choice is the number of the item that should + * be initially selected, as 0 being the first item. + * + * So what we have, is the top equal to the current screen line subtracting + * the cur_choice + 1 (the one must be for the top line we will draw in a + * box). If the top goes under 0, consider it 0. + */ + top = ly - (cur_choice + 1); + if (top < 0) + top = 0; + + /* + * Check and see if we need to put the i_length parameter up to the number + * of real choices. + */ + if (i_length < 1) { + i_length = num_choices; + } else { + /* + * Otherwise, it is really one number too high. + */ + i_length--; + } + + /* + * The bottom is the value of the top plus the number of options to view + * plus 3 (one for the top line, one for the bottom line, and one to offset + * the 0 counted in the num_choices). + */ + bottom = top + i_length + 3; + + /* + * Set lines_to_show based on the user_mode global. + */ + if (user_mode == NOVICE_MODE) + lines_to_show = LYlines - 4; + else + lines_to_show = LYlines - 2; + + if (for_mouse && user_mode == NOVICE_MODE && lines_to_show > 2) + lines_to_show--; + + /* + * Hmm... If the bottom goes beyond the number of lines available, + */ + if (bottom > lines_to_show) { + /* + * Position the window at the top if we have more choices than will fit + * in the window. + */ + if ((i_length + 3) > lines_to_show) { + top = 0; + bottom = (top + (i_length + 3)); + if (bottom > lines_to_show) + bottom = (lines_to_show + 1); + } else { + /* + * Try to position the window so that the selected choice will + * appear where the selection box currently is positioned. It + * could end up too high, at this point, but we'll move it down + * latter, if that has happened. + */ + top = (lines_to_show + 1) - (i_length + 3); + bottom = (lines_to_show + 1); + } + } + + /* + * This is really fun, when the length is 4, it means 0 to 4, or 5. + */ + length = (bottom - top) - 2; + if (length <= num_choices) + can_scroll = CAN_SCROLL; + + /* + * Move the window down if it's too high. + */ + if (bottom < ly + 2) { + bottom = ly + 2; + if (bottom > lines_to_show + 1) + bottom = lines_to_show + 1; + top = bottom - length - 2; + } + + if (for_mouse) { + int check = (Lnum + (int) width + 4); + int limit = LYcols; + + /* shift horizontally to lie within screen width, if possible */ + if (check < limit) { + if (lx - 1 + check > limit) + lx = limit + 1 - check; + else if (lx <= 0) + lx = 1; + } + } + + /* + * Set up the overall window, including the boxing characters ('*'), if it + * all fits. Otherwise, set up the widest window possible. - FM + */ + width += Lnum; + bottom -= top; + + if (num_choices <= 0 + || cur_choice > num_choices + || (form_window = LYstartPopup(&top, + &lx, + &bottom, + &width)) == 0) + return (orig_choice); + + width -= Lnum; + bottom += top; + + SHOW_POPUP_STATUS(); + + /* + * Set up the window_offset for choices. + * cur_choice ranges from 0...n + * length ranges from 0...m + */ + if (cur_choice >= length) { + window_offset = cur_choice - length + 1; + } + + /* + * Compute the number of popup window pages. - FM + */ + npages = ((num_choices + 1) > length) ? + (((num_choices + 1) + (length - 1)) / (length)) + : 1; + /* + * OH! I LOVE GOTOs! hack hack hack + */ + redraw: + + /* + * Display the boxed choices. + */ + for (i = 0; i <= num_choices; i++) { + if (i >= window_offset && i - window_offset < length) { + draw_option(form_window, ((i + 1) - window_offset), width, FALSE, + max_choices, i, choices[i]); + } + } + LYbox(form_window, !numbered); + Cptr = NULL; + + /* + * Loop on user input. + */ + while (cmd != LYK_ACTIVATE) { + int row = ((i + 1) - window_offset); + + /* Show scroll indicators. */ + if (can_scroll) { + can_scroll = ((window_offset ? CAN_SCROLL_UP : 0) + | (num_choices - window_offset >= length + ? CAN_SCROLL_DOWN : 0)); + if (~can_scroll & can_scroll_was) { /* Need to redraw */ + LYbox(form_window, !numbered); + can_scroll_was = 0; + } + if (can_scroll & ~can_scroll_was & CAN_SCROLL_UP) { + wmove(form_window, 1, Lnum + width + 3); + LynxWChangeStyle(form_window, s_menu_sb, STACK_ON); + waddch(form_window, ACS_UARROW); + LynxWChangeStyle(form_window, s_menu_sb, STACK_OFF); + } + if (can_scroll & ~can_scroll_was & CAN_SCROLL_DOWN) { + wmove(form_window, length, Lnum + width + 3); + LynxWChangeStyle(form_window, s_menu_sb, STACK_ON); + waddch(form_window, ACS_DARROW); + LynxWChangeStyle(form_window, s_menu_sb, STACK_OFF); + } + } + + /* + * Unreverse cur choice. + */ + if (Cptr != NULL) { + draw_option(form_window, row, width, FALSE, + max_choices, i, Cptr[i]); + } + Cptr = choices; + i = cur_choice; + row = ((cur_choice + 1) - window_offset); + draw_option(form_window, row, width, TRUE, + max_choices, cur_choice, Cptr[cur_choice]); + LYstowCursor(form_window, row, 1); + + c = LYgetch_choice(); + if (term_options || LYCharIsINTERRUPT(c)) { /* Control-C or Control-G */ + cmd = LYK_QUIT; +#ifndef USE_SLANG + } else if (c == MOUSE_KEY) { + if ((cmd = fancy_mouse(form_window, row, &cur_choice)) < 0) + goto redraw; + if (cmd == LYK_ACTIVATE) + break; +#endif + } else { + cmd = LKC_TO_LAC(keymap, c); + } +#ifdef VMS + if (HadVMSInterrupt) { + HadVMSInterrupt = FALSE; + cmd = LYK_QUIT; + } +#endif /* VMS */ + + switch (cmd) { + case LYK_F_LINK_NUM: + c = '\0'; + /* FALLTHRU */ + case LYK_1: /* FALLTHRU */ + case LYK_2: /* FALLTHRU */ + case LYK_3: /* FALLTHRU */ + case LYK_4: /* FALLTHRU */ + case LYK_5: /* FALLTHRU */ + case LYK_6: /* FALLTHRU */ + case LYK_7: /* FALLTHRU */ + case LYK_8: /* FALLTHRU */ + case LYK_9: + /* + * Get a number from the user, possibly with a 'g' or 'p' suffix + * (which will be loaded into c). - FM & LE + */ + number = get_popup_number(SELECT_OPTION_NUMBER, &c, &rel); + + /* handle + or - suffix */ + CTRACE((tfp, "got popup option number %d, ", number)); + CTRACE((tfp, "rel='%c', c='%c', cur_choice=%d\n", + rel, c, cur_choice)); + if (c == 'p') { + int curpage = ((cur_choice + 1) > length) ? + (((cur_choice + 1) + (length - 1)) / (length)) + : 1; + + CTRACE((tfp, " curpage=%d\n", curpage)); + if (rel == '+') + number = curpage + number; + else if (rel == '-') + number = curpage - number; + } else if (rel == '+') { + number = cur_choice + number + 1; + } else if (rel == '-') { + number = cur_choice - number + 1; + } + if (rel) + CTRACE((tfp, "new number=%d\n", number)); + /* + * Check for a 'p' suffix. - FM + */ + if (c == 'p') { + /* + * Treat 1 or less as the first page. - FM + */ + if (number <= 1) { + if (window_offset == 0) { + HTUserMsg(ALREADY_AT_OPTION_BEGIN); + SHOW_POPUP_STATUS(); + break; + } + window_offset = 0; + cur_choice = 0; + SHOW_POPUP_STATUS(); + goto redraw; + } + + /* + * Treat a number equal to or greater than the number of pages + * as the last page. - FM + */ + if (number >= npages) { + if (window_offset >= ((num_choices - length) + 1)) { + HTUserMsg(ALREADY_AT_OPTION_END); + SHOW_POPUP_STATUS(); + break; + } + window_offset = ((npages - 1) * length); + if (window_offset > (num_choices - length)) { + window_offset = (num_choices - length + 1); + } + if (cur_choice < window_offset) + cur_choice = window_offset; + SHOW_POPUP_STATUS(); + goto redraw; + } + + /* + * We want an intermediate page. - FM + */ + if (((number - 1) * length) == window_offset) { + char *msg = 0; + + HTSprintf0(&msg, ALREADY_AT_OPTION_PAGE, number); + HTUserMsg(msg); + FREE(msg); + SHOW_POPUP_STATUS(); + break; + } + cur_choice = window_offset = ((number - 1) * length); + SHOW_POPUP_STATUS(); + goto redraw; + + } + + /* + * Check for a positive number, which signifies that a choice + * should be sought. - FM + */ + if (number > 0) { + /* + * Decrement the number so as to correspond with our cur_choice + * values. - FM + */ + number--; + + /* + * If the number is in range and had no legal suffix, select + * the indicated choice. - FM + */ + if (number <= num_choices && c == '\0') { + cur_choice = number; + cmd = LYK_ACTIVATE; + break; + } + + /* + * Verify that we had a 'g' suffix, and act on the number. - + * FM + */ + if (c == 'g') { + if (cur_choice == number) { + /* + * The choice already is current. - FM + */ + char *msg = 0; + + HTSprintf0(&msg, OPTION_ALREADY_CURRENT, (number + 1)); + HTUserMsg(msg); + FREE(msg); + SHOW_POPUP_STATUS(); + break; + } + + if (number <= num_choices) { + /* + * The number is in range and had a 'g' suffix, so make + * it the current option, scrolling if needed. - FM + */ + j = (number - cur_choice); + cur_choice = number; + if ((j > 0) && + (cur_choice - window_offset) >= length) { + window_offset += j; + if (window_offset > (num_choices - length + 1)) + window_offset = (num_choices - length + 1); + } else if ((cur_choice - window_offset) < 0) { + window_offset -= abs(j); + if (window_offset < 0) + window_offset = 0; + } + SHOW_POPUP_STATUS(); + goto redraw; + } + + /* + * Not in range. - FM + */ + HTUserMsg(BAD_OPTION_NUM_ENTERED); + } + } + + /* + * Restore the popup statusline. - FM + */ + SHOW_POPUP_STATUS(); + break; + + case LYK_PREV_LINK: + case LYK_LPOS_PREV_LINK: + case LYK_FASTBACKW_LINK: + case LYK_UP_LINK: + + if (cur_choice > 0) + cur_choice--; + + /* + * Scroll the window up if necessary. + */ + if ((cur_choice - window_offset) < 0) { + window_offset--; + goto redraw; + } + break; + + case LYK_NEXT_LINK: + case LYK_LPOS_NEXT_LINK: + case LYK_FASTFORW_LINK: + case LYK_DOWN_LINK: + if (cur_choice < num_choices) + cur_choice++; + + /* + * Scroll the window down if necessary + */ + if ((cur_choice - window_offset) >= length) { + window_offset++; + goto redraw; + } + break; + + case LYK_NEXT_PAGE: + /* + * Okay, are we on the last page of the list? If not then, + */ + if (window_offset != (num_choices - length + 1)) { + /* + * Modify the current choice to not be a coordinate in the + * list, but a coordinate on the item selected in the window. + */ + cur_choice -= window_offset; + + /* + * Page down the proper length for the list. If simply to far, + * back up. + */ + window_offset += length; + if (window_offset > (num_choices - length)) { + window_offset = (num_choices - length + 1); + } + + /* + * Readjust the current selection to be a list coordinate + * rather than window. Redraw this thing. + */ + cur_choice += window_offset; + goto redraw; + } else if (cur_choice < num_choices) { + /* + * Already on last page of the list so just redraw it with the + * last item selected. + */ + cur_choice = num_choices; + } + break; + + case LYK_PREV_PAGE: + /* + * Are we on the first page of the list? If not then, + */ + if (window_offset != 0) { + /* + * Modify the current selection to not be a list coordinate, + * but a window coordinate. + */ + cur_choice -= window_offset; + + /* + * Page up the proper length. If too far, back up. + */ + window_offset -= length; + if (window_offset < 0) { + window_offset = 0; + } + + /* + * Readjust the current choice. + */ + cur_choice += window_offset; + goto redraw; + } else if (cur_choice > 0) { + /* + * Already on the first page so just back up to the first item. + */ + cur_choice = 0; + } + break; + + case LYK_HOME: + cur_choice = 0; + if (window_offset > 0) { + window_offset = 0; + goto redraw; + } + break; + + case LYK_END: + cur_choice = num_choices; + if (window_offset != (num_choices - length + 1)) { + window_offset = (num_choices - length + 1); + goto redraw; + } + break; + + case LYK_DOWN_TWO: + cur_choice += 2; + if (cur_choice > num_choices) + cur_choice = num_choices; + + /* + * Scroll the window down if necessary. + */ + if ((cur_choice - window_offset) >= length) { + window_offset += 2; + if (window_offset > (num_choices - length + 1)) + window_offset = (num_choices - length + 1); + goto redraw; + } + break; + + case LYK_UP_TWO: + cur_choice -= 2; + if (cur_choice < 0) + cur_choice = 0; + + /* + * Scroll the window up if necessary. + */ + if ((cur_choice - window_offset) < 0) { + window_offset -= 2; + if (window_offset < 0) + window_offset = 0; + goto redraw; + } + break; + + case LYK_DOWN_HALF: + cur_choice += (length / 2); + if (cur_choice > num_choices) + cur_choice = num_choices; + + /* + * Scroll the window down if necessary. + */ + if ((cur_choice - window_offset) >= length) { + window_offset += (length / 2); + if (window_offset > (num_choices - length + 1)) + window_offset = (num_choices - length + 1); + goto redraw; + } + break; + + case LYK_UP_HALF: + cur_choice -= (length / 2); + if (cur_choice < 0) + cur_choice = 0; + + /* + * Scroll the window up if necessary. + */ + if ((cur_choice - window_offset) < 0) { + window_offset -= (length / 2); + if (window_offset < 0) + window_offset = 0; + goto redraw; + } + break; + + case LYK_REFRESH: + lynx_force_repaint(); + LYrefresh(); + break; + + case LYK_NEXT: + if (recall && isBEmpty(next_target)) { + /* + * We got a 'n'ext command with no prior query specified within + * the popup window. See if one was entered when the popup was + * retracted, and if so, assume that's what's wanted. Note + * that it will become the default within popups, unless + * another is entered within a popup. If the within popup + * default is to be changed at that point, use WHEREIS ('/') + * and enter it, or the up- or down-arrow keys to seek any of + * the previously entered queries, regardless of whether they + * were entered within or outside of a popup window. - FM + */ + if ((cp = (char *) HTList_objectAt(search_queries, + 0)) != NULL) { + BStrCopy0(next_target, cp); + QueryNum = 0; + FirstRecall = FALSE; + } + } + BStrCopy(prev_target, next_target); + /* FALLTHRU */ + case LYK_WHEREIS: + if (isBEmpty(prev_target)) { + _statusline(ENTER_WHEREIS_QUERY); + if ((ch = LYgetBString(&prev_target, FALSE, 0, recall)) < 0) { + /* + * User cancelled the search via ^G. - FM + */ + HTInfoMsg(CANCELLED); + goto restore_popup_statusline; + } + } + + check_recall: + if (isBEmpty(prev_target) && + !(recall && (ch == UPARROW_KEY || ch == DNARROW_KEY))) { + /* + * No entry. Simply break. - FM + */ + HTInfoMsg(CANCELLED); + goto restore_popup_statusline; + } + + if (recall && ch == UPARROW_KEY) { + if (FirstRecall) { + /* + * Use the current string or last query in the list. - FM + */ + FirstRecall = FALSE; + if (!isBEmpty(next_target)) { + for (QueryNum = (QueryTotal - 1); + QueryNum > 0; QueryNum--) { + if ((cp = (char *) HTList_objectAt(search_queries, + QueryNum)) + != NULL && + !strcmp(next_target->str, cp)) { + break; + } + } + } else { + QueryNum = 0; + } + } else { + /* + * Go back to the previous query in the list. - FM + */ + QueryNum++; + } + if (QueryNum >= QueryTotal) { + /* + * Roll around to the last query in the list. - FM + */ + QueryNum = 0; + } + if ((cp = (char *) HTList_objectAt(search_queries, + QueryNum)) != NULL) { + BStrCopy0(prev_target, cp); + if (!isBEmpty(next_target) && + !strcmp(next_target->str, prev_target->str)) { + _statusline(EDIT_CURRENT_QUERY); + } else if ((!isBEmpty(next_target) && QueryTotal == 2) || + (isBEmpty(next_target) && QueryTotal == 1)) { + _statusline(EDIT_THE_PREV_QUERY); + } else { + _statusline(EDIT_A_PREV_QUERY); + } + if ((ch = LYgetBString(&prev_target, + FALSE, 0, recall)) < 0) { + /* + * User cancelled the search via ^G. - FM + */ + HTInfoMsg(CANCELLED); + goto restore_popup_statusline; + } + goto check_recall; + } + } else if (recall && ch == DNARROW_KEY) { + if (FirstRecall) { + /* + * Use the current string or first query in the list. - FM + */ + FirstRecall = FALSE; + if (!isBEmpty(next_target)) { + for (QueryNum = 0; + QueryNum < (QueryTotal - 1); QueryNum++) { + if ((cp = (char *) HTList_objectAt(search_queries, + QueryNum)) + != NULL && + !strcmp(next_target->str, cp)) { + break; + } + } + } else { + QueryNum = (QueryTotal - 1); + } + } else { + /* + * Advance to the next query in the list. - FM + */ + QueryNum--; + } + if (QueryNum < 0) { + /* + * Roll around to the first query in the list. - FM + */ + QueryNum = (QueryTotal - 1); + } + if ((cp = (char *) HTList_objectAt(search_queries, + QueryNum)) != NULL) { + BStrCopy0(prev_target, cp); + if (isBEmpty(next_target) && + !strcmp(next_target->str, prev_target->str)) { + _statusline(EDIT_CURRENT_QUERY); + } else if ((!isBEmpty(next_target) && QueryTotal == 2) || + (isBEmpty(next_target) && QueryTotal == 1)) { + _statusline(EDIT_THE_PREV_QUERY); + } else { + _statusline(EDIT_A_PREV_QUERY); + } + if ((ch = LYgetBString(&prev_target, + FALSE, 0, recall)) < 0) { + /* + * User cancelled the search via ^G. - FM + */ + HTInfoMsg(CANCELLED); + goto restore_popup_statusline; + } + goto check_recall; + } + } + /* + * Replace the search string buffer with the new target. - FM + */ + BStrCopy(next_target, prev_target); + HTAddSearchQuery(next_target->str); + + /* + * Start search at the next choice. - FM + */ + for (j = 1; Cptr[i + j] != NULL; j++) { + FormatChoiceNum(buffer, max_choices, (i + j), Cptr[i + j]); + if (LYcase_sensitive) { + if (strstr(buffer, next_target->str) != NULL) + break; + } else { + if (LYstrstr(buffer, next_target->str) != NULL) + break; + } + } + if (Cptr[i + j] != NULL) { + /* + * We have a hit, so make that choice the current. - FM + */ + cur_choice += j; + /* + * Scroll the window down if necessary. + */ + if ((cur_choice - window_offset) >= length) { + window_offset += j; + if (window_offset > (num_choices - length + 1)) + window_offset = (num_choices - length + 1); + ReDraw = TRUE; + } + goto restore_popup_statusline; + } + + /* + * If we started at the beginning, it can't be present. - FM + */ + if (cur_choice == 0) { + HTUserMsg2(STRING_NOT_FOUND, next_target->str); + goto restore_popup_statusline; + } + + /* + * Search from the beginning to the current choice. - FM + */ + for (j = 0; j < cur_choice; j++) { + FormatChoiceNum(buffer, max_choices, (j + 1), Cptr[j]); + if (LYcase_sensitive) { + if (strstr(buffer, next_target->str) != NULL) + break; + } else { + if (LYstrstr(buffer, next_target->str) != NULL) + break; + } + } + if (j < cur_choice) { + /* + * We have a hit, so make that choice the current. - FM + */ + j = (cur_choice - j); + cur_choice -= j; + /* + * Scroll the window up if necessary. + */ + if ((cur_choice - window_offset) < 0) { + window_offset -= j; + if (window_offset < 0) + window_offset = 0; + ReDraw = TRUE; + } + goto restore_popup_statusline; + } + + /* + * Didn't find it in the preceding choices either. - FM + */ + HTUserMsg2(STRING_NOT_FOUND, next_target->str); + + restore_popup_statusline: + /* + * Restore the popup statusline and reset the search variables. - + * FM + */ + SHOW_POPUP_STATUS(); + BStrCopy0(prev_target, ""); + QueryTotal = (search_queries ? HTList_count(search_queries) + : 0); + recall = ((QueryTotal >= 1) ? RECALL_URL : NORECALL); + QueryNum = QueryTotal; + if (ReDraw == TRUE) { + ReDraw = FALSE; + goto redraw; + } + break; + + case LYK_QUIT: + case LYK_ABORT: + case LYK_PREV_DOC: + case LYK_INTERRUPT: + cur_choice = orig_choice; + cmd = LYK_ACTIVATE; /* to exit */ + break; + } + } + LYstopPopup(); + + return (disabled ? orig_choice : cur_choice); +} + +/* + * Allow the user to edit a string. + */ +int LYgetBString(bstring **inputline, + int hidden, + unsigned max_cols, + RecallType recall) +{ + int x, y; + int ch; + int xlec = -2; + int last_xlec = -1; + int last_xlkc = -1; + FieldEditor MyEdit, *edit = &MyEdit; + +#ifdef SUPPORT_MULTIBYTE_EDIT + BOOL refresh_mb = TRUE; +#endif /* SUPPORT_MULTIBYTE_EDIT */ + BOOL done = FALSE; + int result = -1; + + CTRACE((tfp, "called LYgetBString hidden %d, recall %d\n", hidden, (int) recall)); + + LYGetYX(y, x); /* Use screen from cursor position to eol */ + + (void) y; + (void) x; + + if (*inputline == NULL) /* caller may not have initialized this */ + BStrCopy0(*inputline, ""); + + LYSetupEdit(edit, (*inputline)->str, max_cols, LYcolLimit - x); + IsHidden = (BOOL) hidden; +#ifdef FEPCTRL + fep_on(); +#endif + + while (!done) { + beginning: +#ifndef SUPPORT_MULTIBYTE_EDIT + LYRefreshEdit(edit); +#else /* SUPPORT_MULTIBYTE_EDIT */ + if (refresh_mb) + LYRefreshEdit(edit); +#endif /* SUPPORT_MULTIBYTE_EDIT */ + ch = LYReadCmdKey(FOR_PROMPT); +#ifdef SUPPORT_MULTIBYTE_EDIT +#ifdef CJK_EX /* for SJIS code */ + if (!refresh_mb + && (EditBinding(ch) != LYE_CHAR)) + goto beginning; +#else + if (!refresh_mb + && (EditBinding(ch) != LYE_CHAR) + && (EditBinding(ch) != LYE_AIX)) + goto beginning; +#endif +#endif /* SUPPORT_MULTIBYTE_EDIT */ + + if (term_letter || term_options +#ifdef VMS + || HadVMSInterrupt +#endif /* VMS */ +#ifndef DISABLE_NEWS + || term_message +#endif + ) { +#ifdef VMS + HadVMSInterrupt = FALSE; +#endif /* VMS */ + ch = LYCharINTERRUPT2; + } + + if (recall != NORECALL && (ch == UPARROW_KEY || ch == DNARROW_KEY)) { + BStrCopy0(*inputline, Buffer); + LYAddToCloset(recall, Buffer); + CTRACE((tfp, "LYgetstr(%s) recall\n", (*inputline)->str)); +#ifdef FEPCTRL + fep_off(); +#endif + LYFinishEdit(edit); + result = ch; + done = TRUE; + continue; + } + ch |= InputMods; + InputMods = 0; + if (last_xlkc != -1) { + if (ch == last_xlkc) + ch |= LKC_MOD3; + last_xlkc = -1; /* consumed */ + } +#ifndef WIN_EX + if (LKC_TO_LAC(keymap, ch) == LYK_REFRESH) + goto beginning; +#endif + last_xlec = xlec; + xlec = EditBinding(ch); + if ((xlec & LYE_DF) && !(xlec & LYE_FORM_LAC)) { + last_xlkc = ch; + xlec &= ~LYE_DF; + } else { + last_xlkc = -1; + } + switch (xlec) { + case LYE_SETM1: + InputMods |= LKC_MOD1; + break; + case LYE_SETM2: + InputMods |= LKC_MOD2; + break; + case LYE_TAB: + if (xlec == last_xlec && recall != NORECALL) { + HTList *list = whichRecall(recall); + + if (!HTList_isEmpty(list)) { + char **data = sortedList(list, (BOOL) (recall == RECALL_CMD)); + int old_y, old_x; + int cur_choice = 0; + int num_options = LYarrayLength((STRING2PTR) data); + + while (cur_choice < num_options + && strcasecomp(data[cur_choice], Buffer) < 0) + cur_choice++; + + LYGetYX(old_y, old_x); + cur_choice = LYhandlePopupList(cur_choice, + 0, + old_x, + (STRING2PTR) data, + -1, + -1, + FALSE, + FALSE); + if (cur_choice >= 0) { + if (recall == RECALL_CMD) + _statusline(": "); + reinsertEdit(edit, data[cur_choice]); + } + LYmove(old_y, old_x); + FREE(data); + } + } else { + reinsertEdit(edit, LYFindInCloset(recall, Buffer)); + } + break; + +#ifndef CJK_EX + case LYE_AIX: + /* + * Handle CJK characters, or as a valid character in the current + * display character set. Otherwise, we treat this as LYE_ENTER. + */ + if (ch != '\t' && + (IS_CJK_TTY || + LYlowest_eightbit[current_char_set] <= 0x97)) { + LYLineEdit(edit, ch, FALSE); + break; + } +#endif + /* FALLTHRU */ + case LYE_ENTER: + BStrCopy0(*inputline, Buffer); + if (!hidden) + LYAddToCloset(recall, Buffer); + CTRACE((tfp, "LYgetstr(%s) LYE_ENTER\n", (*inputline)->str)); +#ifdef FEPCTRL + fep_off(); +#endif + LYFinishEdit(edit); + result = ch; + done = TRUE; + continue; + +#ifdef CAN_CUT_AND_PASTE + case LYE_PASTE: + { + unsigned char *s = (unsigned char *) get_clip_grab(), *e; + size_t len; + + if (!s) + break; + len = strlen((const char *) s); + e = s + len; + + if (len != 0) { + unsigned char *e1 = s; + + while (e1 < e) { + if (*e1 < ' ') { /* Stop here? */ + if (e1 > s) + LYEditInsert(edit, s, (int) (e1 - s), + map_active, TRUE); + s = e1; + if (*e1 == '\t') { /* Replace by space */ + LYEditInsert(edit, + (unsigned const char *) " ", + 1, + map_active, + TRUE); + s = ++e1; + } else { + break; + } + } else { + ++e1; + } + } + if (e1 > s) { + LYEditInsert(edit, s, (int) (e1 - s), map_active, TRUE); + } + } + get_clip_release(); + break; + } +#endif + + case LYE_ABORT: + CTRACE((tfp, "LYgetstr LYE_ABORT\n")); +#ifdef FEPCTRL + fep_off(); +#endif + LYFinishEdit(edit); + BStrCopy0(*inputline, ""); + done = TRUE; + continue; + + case LYE_STOP: + CTRACE((tfp, "LYgetstr LYE_STOP\n")); +#ifdef TEXTFIELDS_MAY_NEED_ACTIVATION + textfields_need_activation = TRUE; + LYFinishEdit(edit); + BStrCopy0(*inputline, ""); + done = TRUE; + continue; +#else +#ifdef ENHANCED_LINEEDIT + disableEditMark(); +#endif + break; +#endif + + case LYE_LKCMD: + /* + * Used only in form_getstr() for invoking the LYK_F_LINK_NUM + * prompt when in form text fields. - FM + */ + break; + + case LYE_FORM_PASS: + /* + * Used in form_getstr() to end line editing and pass on the input + * char/lynxkeycode. Here it is just ignored. - kw + */ + break; + + default: + if (xlec & LYE_FORM_LAC) { + /* + * Used in form_getstr() to end line editing and pass on the + * lynxkeycode already containing a lynxactioncode. Here it is + * just ignored. - kw + */ + break; + } +#ifndef SUPPORT_MULTIBYTE_EDIT + LYLineEdit(edit, ch, FALSE); +#else /* SUPPORT_MULTIBYTE_EDIT */ + if (LYLineEdit(edit, ch, FALSE) == 0) { + if (refresh_mb && IS_CJK_TTY && (0x81 <= ch) && (ch <= 0xfe)) + refresh_mb = FALSE; + else + refresh_mb = TRUE; + } else { + if (!refresh_mb) { + LYDoEdit(edit, 0, LYE_DELP, FALSE); + } + } +#endif /* SUPPORT_MULTIBYTE_EDIT */ + } + } + return result; +} + +/* + * Use this for fixed-buffer edits which have not been converted to use + * LYgetBString(). + */ +int LYgetstr(char *inputline, /* fixed-size buffer for input/output */ + int hidden, /* true to suppress from command-history */ + unsigned bufsize, /* sizeof(inputline) */ + RecallType recall) /* type of command-history */ +{ + int ch; + bstring *my_bstring = NULL; + + BStrCopy0(my_bstring, inputline); + if (my_bstring != 0) { + ch = LYgetBString(&my_bstring, hidden, bufsize, recall); + if (ch >= 0 && my_bstring != 0) + LYStrNCpy(inputline, my_bstring->str, bufsize); + BStrFree(my_bstring); + } else { + ch = -1; + } + return ch; +} + +const char *LYLineeditHelpURL(void) +{ + static int lasthelp_lineedit = -1; + static char helpbuf[LY_MAXPATH] = "\0"; + static char *phelp = &helpbuf[0]; + const char *result = NULL; + + if (lasthelp_lineedit == current_lineedit) { + result = helpbuf; + } else { + const char *source = LYLineeditHelpURLs[current_lineedit]; + size_t available; + + if (lasthelp_lineedit == -1) { + LYStrNCpy(helpbuf, helpfilepath, sizeof(helpbuf) - 1); + phelp += strlen(helpbuf); + } + available = (sizeof(helpbuf) - (size_t) (phelp - helpbuf)); + if (non_empty(source) && + (strlen(source) <= available)) { + LYStrNCpy(phelp, source, available); + lasthelp_lineedit = current_lineedit; + result = helpbuf; + } + } + return result; +} + +/* + * Wrapper for sscanf to ensure that lynx can "always" read a POSIX float. + * In some locales, the decimal point changes. + */ +int LYscanFloat2(const char **source, float *result) +{ + int count = 0; + char *temp; + const char *src = *source; + + src = LYSkipCBlanks(src); + *result = 0.0; + if (StrChr(src, '.') != 0) { + long frc_part = 0; + float scale = 1.0; + + if (*src != '.') { + temp = NULL; + frc_part = strtol(src, &temp, 10); + *result = (float) frc_part; + src = temp; + } + if (src != 0 && *src == '.') { + ++src; + if (isdigit(UCH(*src))) { + temp = NULL; + frc_part = strtol(src, &temp, 10); + if (temp != 0) { + int digits = (int) (temp - src); + + while (digits-- > 0) + scale *= (float) 10.0; + *result += ((float) frc_part / scale); + } + src = temp; + } + } + if (src != 0 && *src != '\0' && StrChr(" \t+", *src) == 0) { + char *extra = (char *) malloc(2 + strlen(src)); + + if (extra != 0) { + extra[0] = '1'; + strcpy(extra + 1, src); + if (sscanf(extra, "%f", &scale) == 1) { + *result *= scale; + } + FREE(extra); + src = LYSkipCNonBlanks(src); + } else { + src = 0; + } + } + if (src != 0) + count = 1; + } else { + count = sscanf(src, "%f", result); + src = LYSkipCNonBlanks(src); + } + CTRACE2(TRACE_CFG, + (tfp, "LYscanFloat \"%s\" -> %f (%s)\n", + *source, *result, + count ? "ok" : "error")); + *source = src; + return count; +} + +int LYscanFloat(const char *source, float *result) +{ + const char *temp = source; + + return LYscanFloat2(&temp, result); +} + +/* + * A replacement for 'strsep()' + */ +char *LYstrsep(char **stringp, + const char *delim) +{ + char *marker; + char *result = 0; + + if (non_empty(stringp)) { + result = *stringp; /* will return the old value */ + marker = strpbrk(*stringp, delim); + if (marker) { + *marker = '\0'; /* terminate the substring */ + *stringp = ++marker; /* point to the next substring */ + } else { + *stringp = 0; /* this was the last */ + } + } + return result; +} + +/* + * LYstrstr finds the first occurrence of the string pointed to by needle + * in the string pointed to by haystack. + * + * It returns NULL if the string is not found. + * + * It is a case insensitive search. + */ +char *LYstrstr(char *haystack, + const char *needle) +{ + int len = (int) strlen(needle); + char *result = NULL; + + for (; *haystack != '\0'; haystack++) { + if (0 == UPPER8(*haystack, *needle)) { + if (0 == strncasecomp8(haystack + 1, needle + 1, len - 1)) { + result = haystack; + break; + } + } + } + + return (result); +} + +#define SkipSpecialChars(p) \ + while (IsSpecialAttrChar(*p) && *p != '\0') \ + p++ + +/* + * LYno_attr_char_case_strstr finds the first occurrence of the + * string pointed to by needle in the string pointed to by haystack. + * + * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack. + * + * It is a case insensitive search. + */ +const char *LYno_attr_char_case_strstr(const char *haystack, + const char *needle) +{ + const char *refptr, *tstptr; + const char *result = NULL; + + if (haystack != NULL && needle != NULL) { + + SkipSpecialChars(haystack); + + for (; *haystack != '\0' && (result == NULL); haystack++) { + if (0 == UPPER8(*haystack, *needle)) { + refptr = haystack + 1; + tstptr = needle + 1; + + if (*tstptr == '\0') { + result = haystack; + break; + } + + while (1) { + if (!IsSpecialAttrChar(*refptr)) { + if (0 != UPPER8(*refptr, *tstptr)) + break; + refptr++; + tstptr++; + } else { + refptr++; + } + if (*tstptr == '\0') { + result = haystack; + break; + } + if (*refptr == '\0') + break; + } + } + } + } + + return (result); +} + +/* + * LYno_attr_char_strstr finds the first occurrence of the + * string pointed to by needle in the string pointed to by haystack. + * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack. + * + * It is a case sensitive search. + */ +const char *LYno_attr_char_strstr(const char *haystack, + const char *needle) +{ + const char *refptr, *tstptr; + const char *result = NULL; + + if (haystack != NULL && needle != NULL) { + + SkipSpecialChars(haystack); + + for (; *haystack != '\0' && (result == NULL); haystack++) { + if ((*haystack) == (*needle)) { + refptr = haystack + 1; + tstptr = needle + 1; + + if (*tstptr == '\0') { + result = haystack; + break; + } + + while (1) { + if (!IsSpecialAttrChar(*refptr)) { + if ((*refptr) != (*tstptr)) + break; + refptr++; + tstptr++; + } else { + refptr++; + } + if (*tstptr == '\0') { + result = haystack; + break; + } else if (*refptr == '\0') { + break; + } + } + } + } + } + + return (result); +} + +/* + * LYno_attr_mbcs_case_strstr finds the first occurrence of the string pointed + * to by needle in the string pointed to by haystack. It takes account of + * MultiByte Character Sequences (UTF8). The physical lengths of the displayed + * string up to the start and end (= next position after) of the target string + * are returned in *nstartp and *nendp if the search is successful. + * + * These lengths count glyph cells if count_gcells is set. (Full-width + * characters in CJK mode count as two.) Normally that's what we want. They + * count actual glyphs if count_gcells is unset. (Full-width characters in CJK + * mode count as one.) + * + * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack. + * + * It assumes UTF8 if utf_flag is set. + * + * It is a case insensitive search. + */ +const char *LYno_attr_mbcs_case_strstr(const char *haystack, + const char *needle, + int utf_flag, + int count_gcells, + int *nstartp, + int *nendp) +{ + const char *refptr; + const char *tstptr; + int len = 0; + int offset; + const char *result = NULL; + + if (haystack != NULL && needle != NULL) { + + SkipSpecialChars(haystack); + + for (; *haystack != '\0' && (result == NULL); haystack++) { + if ((!utf_flag && IS_CJK_TTY && is8bits(*haystack) && + *haystack == *needle && + IsNormalChar(*(haystack + 1))) || + (0 == UPPER8(*haystack, *needle))) { + int tarlen = 0; + + offset = len; + len++; + + refptr = (haystack + 1); + tstptr = (needle + 1); + + if (*tstptr == '\0') { + if (nstartp) + *nstartp = offset; + if (nendp) + *nendp = len; + result = haystack; + break; + } + if (!utf_flag && IS_CJK_TTY && is8bits(*haystack) && + *haystack == *needle && + IsNormalChar(*refptr)) { + /* handle a CJK multibyte string */ + if (*refptr == *tstptr) { + refptr++; + tstptr++; + if (count_gcells) + tarlen++; + if (*tstptr == '\0') { + if (nstartp) + *nstartp = offset; + if (nendp) + *nendp = len + tarlen; + result = haystack; + break; + } + } else { + /* not a match */ + haystack++; + if (count_gcells) + len++; + continue; + } + } + /* compare the remainder of the string */ + while (1) { + if (!IsSpecialAttrChar(*refptr)) { + if (!utf_flag && IS_CJK_TTY && is8bits(*refptr)) { + if (*refptr == *tstptr && + *(refptr + 1) == *(tstptr + 1) && + !IsSpecialAttrChar(*(refptr + 1))) { + refptr++; + tstptr++; + if (count_gcells) + tarlen++; + } else { + break; + } + } else if (0 != UPPER8(*refptr, *tstptr)) { + break; + } + + if (!IS_UTF_EXTRA(*tstptr)) { + tarlen++; + } + refptr++; + tstptr++; + + } else { + refptr++; + } + + if (*tstptr == '\0') { + if (nstartp) + *nstartp = offset; + if (nendp) + *nendp = len + tarlen; + result = haystack; + break; + } + if (*refptr == '\0') + break; + } + } else if (!(IS_UTF_EXTRA(*haystack) || + IsSpecialAttrChar(*haystack))) { + if (!utf_flag && IS_CJK_TTY && is8bits(*haystack) && + IsNormalChar(*(haystack + 1))) { + haystack++; + if (count_gcells) + len++; + } + len++; + } + } + } + + return (result); +} + +/* + * LYno_attr_mbcs_strstr finds the first occurrence of the string pointed + * to by needle in the string pointed to by haystack. + * + * It takes account of CJK and MultiByte Character Sequences (UTF8). The + * physical lengths of the displayed string up to the start and end (= next + * position after) the target string are returned in *nstartp and *nendp if the + * search is successful. + * + * These lengths count glyph cells if count_gcells is set. (Full-width + * characters in CJK mode count as two.) Normally that's what we want. They + * count actual glyphs if count_gcells is unset. (Full-width characters in CJK + * mode count as one.) + * + * It ignores special characters, e.g., LY_UNDERLINE_START_CHAR in haystack. + * + * It assumes UTF8 if utf_flag is set. + * + * It is a case sensitive search. + */ +const char *LYno_attr_mbcs_strstr(const char *haystack, + const char *needle, + int utf_flag, + int count_gcells, + int *nstartp, + int *nendp) +{ + const char *refptr; + const char *tstptr; + int len = 0; + int offset; + const char *result = NULL; + + if (haystack != NULL && needle != NULL) { + + SkipSpecialChars(haystack); + + for (; *haystack != '\0' && (result == NULL); haystack++) { + if ((*haystack) == (*needle)) { + int tarlen = 0; + + offset = len; + len++; + + refptr = (haystack + 1); + tstptr = (needle + 1); + + if (*tstptr == '\0') { + if (nstartp) + *nstartp = offset; + if (nendp) + *nendp = len; + result = haystack; + break; + } else if (!utf_flag && + IS_CJK_TTY && + is8bits(*haystack) && + IsNormalChar(*refptr)) { + /* handle a CJK multibyte string */ + if (*refptr == *tstptr) { + /* found match */ + refptr++; + tstptr++; + if (count_gcells) + tarlen++; + if (*tstptr == '\0') { + if (nstartp) + *nstartp = offset; + if (nendp) + *nendp = len + tarlen; + result = haystack; + break; + } + } else { + /* not a match - restart comparison */ + haystack++; + if (count_gcells) + len++; + continue; + } + } + /* compare the remainder of the string */ + while (1) { + if (!IsSpecialAttrChar(*refptr)) { + if (!utf_flag && IS_CJK_TTY && is8bits(*refptr)) { + if (*refptr == *tstptr && + *(refptr + 1) == *(tstptr + 1) && + !IsSpecialAttrChar(*(refptr + 1))) { + refptr++; + tstptr++; + if (count_gcells) + tarlen++; + } else { + break; + } + } else if ((*refptr) != (*tstptr)) { + break; + } + + if (!IS_UTF_EXTRA(*tstptr)) { + tarlen++; + } + refptr++; + tstptr++; + } else { + refptr++; + } + + if (*tstptr == '\0') { + if (nstartp) + *nstartp = offset; + if (nendp) + *nendp = len + tarlen; + result = haystack; + break; + } + if (*refptr == '\0') + break; + } + } else if (!(IS_UTF_EXTRA(*haystack) || + IsSpecialAttrChar(*haystack))) { + if (!utf_flag && IS_CJK_TTY && is8bits(*haystack) && + IsNormalChar(*(haystack + 1))) { + haystack++; + if (count_gcells) + len++; + } + len++; + } + } + } + return (result); +} + +/* + * Allocate and return a copy of a string. + * see StrAllocCopy + */ +char *SNACopy(char **target, + const char *source, + size_t n) +{ + FREE(*target); + if (source) { + *target = typeMallocn(char, n + 1); + + if (*target == NULL) { + CTRACE((tfp, "Tried to malloc %lu bytes\n", (unsigned long) n)); + outofmem(__FILE__, "SNACopy"); + } + LYStrNCpy(*target, source, n); + } + return *target; +} + +/* + * Combine string allocation and concatenation. + * see StrAllocCat + */ +char *SNACat(char **target, + const char *source, + size_t n) +{ + if (non_empty(source)) { + if (*target) { + size_t length = strlen(*target); + + *target = typeRealloc(char, *target, length + n + 1); + + if (*target == NULL) + outofmem(__FILE__, "SNACat"); + LYStrNCpy(*target + length, source, n); + } else { + *target = typeMallocn(char, n + 1); + + if (*target == NULL) + outofmem(__FILE__, "SNACat"); + MemCpy(*target, source, n); + (*target)[n] = '\0'; /* terminate */ + } + } + return *target; +} + +#include <caselower.h> + +/* + * Returns lowercase equivalent for unicode, + * transparent output if no equivalent found. + */ +static long UniToLowerCase(long upper) +{ + size_t i, high, low; + long diff = 0; + long result = upper; + + if (upper > 0) { + /* + * Try unicode_to_lower_case[]. + */ + low = 0; + high = TABLESIZE(unicode_to_lower_case); + while (low < high) { + /* + * Binary search. + */ + i = (low + (high - low) / 2); + diff = (unicode_to_lower_case[i].upper - upper); + if (diff < 0) { + low = i + 1; + } else if (diff > 0) { + high = i; + } else if (diff == 0) { + result = unicode_to_lower_case[i].lower; + break; + } + } + } + + return result; +} + +/* + * UPPER8 ? + * it was "TOUPPER(a) - TOUPPER(b)" in its previous life... + * + * It was realized that case-insensitive user search + * got information about upper/lower mapping from TOUPPER + * (precisely from "(TOUPPER(a) - TOUPPER(b))==0") + * and depends on locale in its 8bit mapping. - + * Usually fails with DOS/WINDOWS display charsets + * as well as on non-UNIX systems. + * + * So use unicode case mapping. + */ +int UPPER8(int ch1, int ch2) +{ + int result = 0; + + if (ch1 == ch2) { + result = 0; + } else if (!ch2) { + result = UCH(ch1); + } else if (!ch1) { + result = -UCH(ch2); + } else if (UCH(TOASCII(ch1)) < 128 && UCH(TOASCII(ch2)) < 128) { + /* case-insensitive match for us-ascii */ + result = (TOUPPER(ch1) - TOUPPER(ch2)); + } else if (UCH(TOASCII(ch1)) > 127 && + UCH(TOASCII(ch2)) > 127) { + /* case-insensitive match for upper half */ + if (DisplayCharsetMatchLocale) { + result = (TOUPPER(ch1) - TOUPPER(ch2)); /* old-style */ + } else { + long uni_ch2 = UCTransToUni((char) ch2, current_char_set); + long uni_ch1; + + if (uni_ch2 < 0) { + result = UCH(ch1); + } else { + uni_ch1 = UCTransToUni((char) ch1, current_char_set); + result = (int) (UniToLowerCase(uni_ch1) - UniToLowerCase(uni_ch2)); + } + } + } else { + result = -10; /* mismatch */ + } + + return result; +} + +/* + * Replaces 'fgets()' calls into a fixed-size buffer with reads into a buffer + * that is allocated. When an EOF or error is found, the buffer is freed + * automatically. + */ +char *LYSafeGets(char **target, + FILE *fp) +{ + char buffer[BUFSIZ]; + char *result = 0; + + if (target != 0) + result = *target; + if (result != 0) + *result = 0; + + while (fgets(buffer, (int) sizeof(buffer), fp) != NULL) { + if (*buffer) + result = StrAllocCat(result, buffer); + if (StrChr(buffer, '\n') != 0) + break; + } + if (ferror(fp)) { + FREE(result); + } else if (feof(fp) && result && *result == '\0') { + /* + * If the file ends in the middle of a line, return the partial line; + * if another call is made after this, it will return NULL. - kw + */ + FREE(result); + } + if (target != 0) + *target = result; + return result; +} + +#ifdef USE_CMD_LOGGING +static FILE *cmd_logfile; +static FILE *cmd_script; + +void LYOpenCmdLogfile(int argc, + char **argv) +{ + int n; + + if (non_empty(lynx_cmd_logfile)) { + cmd_logfile = LYNewTxtFile(lynx_cmd_logfile); + if (cmd_logfile != 0) { + fprintf(cmd_logfile, "# Command logfile created by %s %s (%s)\n", + LYNX_NAME, LYNX_VERSION, LYVersionDate()); + for (n = 0; n < argc; n++) { + fprintf(cmd_logfile, "# Arg%d = %s\n", n, argv[n]); + } + } + } +} + +BOOL LYHaveCmdScript(void) +{ + return (BOOL) (cmd_script != 0); +} + +void LYOpenCmdScript(void) +{ + if (non_empty(lynx_cmd_script)) { + cmd_script = fopen(lynx_cmd_script, TXT_R); + CTRACE((tfp, "LYOpenCmdScript(%s) %s\n", + lynx_cmd_script, + cmd_script != 0 ? "SUCCESS" : "FAIL")); + } +} + +int LYReadCmdKey(int mode) +{ + int ch = -1; + + if (cmd_script != 0) { + char *buffer = 0; + char *src; + char *tmp; + + while ((ch < 0) && LYSafeGets(&buffer, cmd_script) != 0) { + LYTrimTrailing(buffer); + src = LYSkipBlanks(buffer); + tmp = LYSkipNonBlanks(src); + switch ((unsigned) (tmp - src)) { + case 4: + if (!strncasecomp(src, "exit", 4)) + exit_immediately(EXIT_SUCCESS); + break; + case 3: + if (!strncasecomp(src, "key", 3)) { + ch = LYStringToKeycode(LYSkipBlanks(tmp)); + } else if (!strncasecomp(src, "set", 3)) { + src = LYSkipBlanks(tmp); + tmp = src; + while (*tmp != '\0') { + if (isspace(UCH(*tmp)) || *tmp == '=') + break; + ++tmp; + } + if (*tmp != '\0') { + *tmp++ = '\0'; + tmp = LYSkipBlanks(tmp); + } + if (LYSetConfigValue(src, tmp)) { + CTRACE((tfp, "LYSetConfigValue(%s, %s)\n", src, tmp)); + } else if (LYsetRcValue(src, tmp)) { + CTRACE((tfp, "LYsetRcValue(%s, %s)\n", src, tmp)); + } else { + CTRACE((tfp, "?? set ignored %s\n", src)); + } + } + break; + } + } + if (feof(cmd_script)) { + fclose(cmd_script); + cmd_script = 0; + } + if (ch >= 0) { + LYSleepReplay(); + LYrefresh(); + } + FREE(buffer); + } else { + ch = LYgetch_for(mode); + } + CTRACE((tfp, "LYReadCmdKey(%d) ->%s (%#x)\n", + mode, LYKeycodeToString(ch, TRUE), (unsigned) ch)); + LYWriteCmdKey(ch); + return ch; +} + +/* + * Write a LYKeymapCode 'ch' to the logfile. + */ +void LYWriteCmdKey(int ch) +{ + if (cmd_logfile != 0) { + fprintf(cmd_logfile, "key %s\n", LYKeycodeToString(ch, FALSE)); + } +} + +void LYCloseCmdLogfile(void) +{ + if (cmd_logfile != 0) { + LYCloseOutput(cmd_logfile); + cmd_logfile = 0; + } + if (cmd_script != 0) { + LYCloseInput(cmd_script); + cmd_script = 0; + } + FREE(lynx_cmd_logfile); + FREE(lynx_cmd_script); +} +#endif /* USE_CMD_LOGGING */ |