First attempt at a platform-independent keyboard handler. This isn't complete
[u/mdw/putty] / terminal.c
index 005bee5..93879d6 100644 (file)
@@ -3802,8 +3802,8 @@ void term_do_paste(Terminal *term)
     get_clip(term->frontend, NULL, NULL);
 }
 
-void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
-               int shift, int ctrl, int alt)
+void term_mouse(Terminal *term, Mouse_Button braw, Mouse_Button bcooked,
+               Mouse_Action a, int x, int y, int shift, int ctrl, int alt)
 {
     pos selpoint;
     unsigned long *ldata;
@@ -3844,7 +3844,7 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
 
        if (term->ldisc) {
 
-           switch (b) {
+           switch (braw) {
              case MBT_LEFT:
                encstate = 0x20;               /* left button down */
                break;
@@ -3873,9 +3873,9 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
                term->mouse_is_down = 0;
                break;
              case MA_CLICK:
-               if (term->mouse_is_down == b)
+               if (term->mouse_is_down == braw)
                    return;
-               term->mouse_is_down = b;
+               term->mouse_is_down = braw;
                break;
              default: break;          /* placate gcc warning about enum use */
            }
@@ -3892,8 +3892,6 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
        return;
     }
 
-    b = translate_button(term->frontend, b);
-
     /*
      * Set the selection type (rectangular or normal) at the start
      * of a selection attempt, from the state of Alt.
@@ -3907,13 +3905,13 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
        term->seltype = default_seltype;
     }
 
-    if (b == MBT_SELECT && a == MA_CLICK) {
+    if (bcooked == MBT_SELECT && a == MA_CLICK) {
        deselect(term);
        term->selstate = ABOUT_TO;
        term->seltype = default_seltype;
        term->selanchor = selpoint;
        term->selmode = SM_CHAR;
-    } else if (b == MBT_SELECT && (a == MA_2CLK || a == MA_3CLK)) {
+    } else if (bcooked == MBT_SELECT && (a == MA_2CLK || a == MA_3CLK)) {
        deselect(term);
        term->selmode = (a == MA_2CLK ? SM_WORD : SM_LINE);
        term->selstate = DRAGGING;
@@ -3921,11 +3919,12 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
        term->selend = term->selstart;
        incpos(term->selend);
        sel_spread(term);
-    } else if ((b == MBT_SELECT && a == MA_DRAG) ||
-              (b == MBT_EXTEND && a != MA_RELEASE)) {
+    } else if ((bcooked == MBT_SELECT && a == MA_DRAG) ||
+              (bcooked == MBT_EXTEND && a != MA_RELEASE)) {
        if (term->selstate == ABOUT_TO && poseq(term->selanchor, selpoint))
            return;
-       if (b == MBT_EXTEND && a != MA_DRAG && term->selstate == SELECTED) {
+       if (bcooked == MBT_EXTEND && a != MA_DRAG &&
+           term->selstate == SELECTED) {
            if (term->seltype == LEXICOGRAPHIC) {
                /*
                 * For normal selection, we extend by moving
@@ -3986,7 +3985,8 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
            term->selend.y =   max(term->selanchor.y, selpoint.y);
        }
        sel_spread(term);
-    } else if ((b == MBT_SELECT || b == MBT_EXTEND) && a == MA_RELEASE) {
+    } else if ((bcooked == MBT_SELECT || bcooked == MBT_EXTEND) &&
+              a == MA_RELEASE) {
        if (term->selstate == DRAGGING) {
            /*
             * We've completed a selection. We now transfer the
@@ -3997,7 +3997,7 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
            term->selstate = SELECTED;
        } else
            term->selstate = NO_SELECTION;
-    } else if (b == MBT_PASTE
+    } else if (bcooked == MBT_PASTE
               && (a == MA_CLICK
 #if MULTICLICK_ONLY_EVENT
                   || a == MA_2CLK || a == MA_3CLK
@@ -4009,6 +4009,429 @@ void term_mouse(Terminal *term, Mouse_Button b, Mouse_Action a, int x, int y,
     term_update(term);
 }
 
+void term_key(Terminal *term, Key_Sym keysym, wchar_t *text, size_t tlen,
+             unsigned int modifiers, unsigned int flags)
+{
+    char output[10];
+    char *p = output;
+    int prependesc = FALSE;
+    int i;
+
+    fprintf(stderr, "keysym = %d, %d chars:", keysym, tlen);
+    for (i = 0; i < tlen; i++)
+       fprintf(stderr, " %04x", text[i]);
+    fprintf(stderr, "\n");
+
+    /* XXX Num Lock */
+    if ((flags & PKF_REPEAT) && term->repeat_off)
+       return;
+
+    /* Currently, Meta always just prefixes everything with ESC. */
+    if (modifiers & PKM_META)
+       prependesc = TRUE;
+    modifiers &= ~PKM_META;
+
+    /*
+     * Alt is only used for Alt+keypad, which isn't supported yet, so
+     * ignore it.
+     */
+    modifiers &= ~PKM_ALT;
+
+    /* Standard local function keys */
+    switch (modifiers & (PKM_SHIFT | PKM_CONTROL)) {
+      case PKM_SHIFT:
+       if (keysym == PK_PAGEUP)
+           /* scroll up one page */;
+       if (keysym == PK_PAGEDOWN)
+           /* scroll down on page */;
+       if (keysym == PK_INSERT)
+           term_do_paste(term);
+       break;
+      case PKM_CONTROL:
+       if (keysym == PK_PAGEUP)
+           /* scroll up one line */;
+       if (keysym == PK_PAGEDOWN)
+           /* scroll down one line */;
+       /* Control-Numlock for app-keypad mode switch */
+       if (keysym == PK_PF1)
+           term->app_keypad_keys ^= 1;
+       break;
+    }
+
+    if (modifiers & PKM_ALT) {
+       /* Alt+F4 (close) */
+       /* Alt+Return (full screen) */
+       /* Alt+Space (system menu) */
+    }
+
+    if (keysym == PK_NULL && (modifiers & PKM_CONTROL) && tlen == 1 &&
+       text[0] >= 0x20 && text[0] <= 0x7e) {
+       /* ASCII chars + Control */
+       if (text[0] >= 0x40 && text[0] <= 0x5f ||
+           text[0] >= 0x61 && text[0] <= 0x7a)
+           text[0] &= 0x1f;
+       else {
+           /*
+            * Control-2 should return ^@ (0x00), Control-6 should return
+            * ^^ (0x1E), and Control-Minus should return ^_ (0x1F). Since
+            * the DOS keyboard handling did it, and we have nothing better
+            * to do with the key combo in question, we'll also map
+            * Control-Backquote to ^\ (0x1C).
+            */
+           switch (text[0]) {
+             case ' ': text[0] = 0x00; break;
+             case '-': text[0] = 0x1f; break;
+             case '/': text[0] = 0x1f; break;
+             case '2': text[0] = 0x00; break;
+             case '3': text[0] = 0x1b; break;
+             case '4': text[0] = 0x1c; break;
+             case '5': text[0] = 0x1d; break;
+             case '6': text[0] = 0x1e; break;
+             case '7': text[0] = 0x1f; break;
+             case '8': text[0] = 0x7f; break;
+             case '`': text[0] = 0x1c; break;
+           }
+       }
+    }
+
+    /* Nethack keypad */
+    if (term->cfg.nethack_keypad) {
+       char c = 0;
+       switch (keysym) {
+         case PK_KP1: c = 'b'; break;
+         case PK_KP2: c = 'j'; break;
+         case PK_KP3: c = 'n'; break;
+         case PK_KP4: c = 'h'; break;
+         case PK_KP5: c = '.'; break;
+         case PK_KP6: c = 'l'; break;
+         case PK_KP7: c = 'y'; break;
+         case PK_KP8: c = 'k'; break;
+         case PK_KP9: c = 'u'; break;
+       }
+       if (c != 0) {
+           if (c != '.') {
+               if (modifiers & PKM_CONTROL)
+                   c &= 0x1f;
+               else if (modifiers & PKM_SHIFT)
+                   c = toupper(c);
+           }
+           *p++ = c;
+           goto done;
+       }
+    }
+
+    /* Numeric Keypad */
+    if (PK_ISKEYPAD(keysym)) {
+       int xkey = 0;
+
+       /*
+        * In VT400 mode, PFn always emits an escape sequence.  In
+        * Linux and tilde modes, this only happens in app keypad mode.
+        */
+       if (term->cfg.funky_type == FUNKY_VT400 ||
+           ((term->cfg.funky_type == FUNKY_LINUX ||
+             term->cfg.funky_type == FUNKY_TILDE) &&
+            term->app_keypad_keys && !term->cfg.no_applic_k)) {
+           switch (keysym) {
+             case PK_PF1: xkey = 'P'; break;
+             case PK_PF2: xkey = 'Q'; break;
+             case PK_PF3: xkey = 'R'; break;
+             case PK_PF4: xkey = 'S'; break;
+           }
+       }
+       if (term->app_keypad_keys && !term->cfg.no_applic_k) {
+           switch (keysym) {
+             case PK_KP0: xkey = 'p'; break;
+             case PK_KP1: xkey = 'q'; break;
+             case PK_KP2: xkey = 'r'; break;
+             case PK_KP3: xkey = 's'; break;
+             case PK_KP4: xkey = 't'; break;
+             case PK_KP5: xkey = 'u'; break;
+             case PK_KP6: xkey = 'v'; break;
+             case PK_KP7: xkey = 'w'; break;
+             case PK_KP8: xkey = 'x'; break;
+             case PK_KP9: xkey = 'y'; break;
+             case PK_KPDECIMAL: xkey = 'n'; break;
+             case PK_KPENTER: xkey = 'M'; break;
+           }
+           if (term->cfg.funky_type == FUNKY_XTERM && tlen > 0) {
+               /*
+                * xterm can't see the layout of the keypad, so it has
+                * to rely on the X keysyms returned by the keys.
+                * Hence, we look at the strings here, not the PuTTY
+                * keysyms (which describe the layout).
+                */
+               switch (text[0]) {
+                 case '+':
+                   if (modifiers & PKM_SHIFT)
+                       xkey = 'l';
+                   else
+                       xkey = 'k';
+                   break;
+                 case '/': xkey = 'o'; break;
+                 case '*': xkey = 'j'; break;
+                 case '-': xkey = 'm'; break;
+               }
+           } else {
+               /*
+                * In all other modes, we try to retain the layout of
+                * the DEC keypad in application mode.
+                */
+               switch (keysym) {
+                 case PK_KPBIGPLUS:
+                   /* This key covers the '-' and ',' keys on a VT220 */
+                   if (modifiers & PKM_SHIFT)
+                       xkey = 'm'; /* VT220 '-' */
+                   else
+                       xkey = 'l'; /* VT220 ',' */
+                   break;
+                 case PK_KPMINUS: xkey = 'm'; break;
+                 case PK_KPCOMMA: xkey = 'l'; break;
+               }
+           }
+       }
+       if (xkey) {
+           if (term->vt52_mode) {
+               if (xkey >= 'P' && xkey <= 'S')
+                   p += sprintf((char *) p, "\x1B%c", xkey);
+               else
+                   p += sprintf((char *) p, "\x1B?%c", xkey);
+           } else
+               p += sprintf((char *) p, "\x1BO%c", xkey);
+           goto done;
+       }
+       /* Not in application mode -- treat the number pad as arrow keys? */
+       if ((flags & PKF_NUMLOCK) == 0) {
+           switch (keysym) {
+             case PK_KP0: keysym = PK_INSERT; break;
+             case PK_KP1: keysym = PK_END; break;
+             case PK_KP2: keysym = PK_DOWN; break;
+             case PK_KP3: keysym = PK_PAGEDOWN; break;
+             case PK_KP4: keysym = PK_LEFT; break;
+             case PK_KP5: keysym = PK_REST; break;
+             case PK_KP6: keysym = PK_RIGHT; break;
+             case PK_KP7: keysym = PK_HOME; break;
+             case PK_KP8: keysym = PK_UP; break;
+             case PK_KP9: keysym = PK_PAGEUP; break;
+           }
+       }
+    }
+
+    /* Miscellaneous keys */
+    switch (keysym) {
+      case PK_ESCAPE:
+       *p++ = 0x1b;
+       goto done;
+      case PK_BACKSPACE:
+           if (modifiers == 0)
+               *p++ = (term->cfg.bksp_is_delete ? 0x7F : 0x08);
+           else if (modifiers == PKM_SHIFT)
+               /* We do the opposite of what is configured */
+               *p++ = (term->cfg.bksp_is_delete ? 0x08 : 0x7F);
+           else break;
+           goto done;
+      case PK_TAB:
+       if (modifiers == 0)
+           *p++ = 0x09;
+       else if (modifiers == PKM_SHIFT)
+           *p++ = 0x1B, *p++ = '[', *p++ = 'Z';
+       else break;
+       goto done;
+       /* XXX window.c has ctrl+shift+space sending 0xa0 */
+      case PK_PAUSE:
+       if (modifiers == PKM_CONTROL)
+           *p++ = 26;
+       else break;
+       goto done;
+      case PK_RETURN:
+      case PK_KPENTER: /* Odd keypad modes handled above */
+       if (modifiers == 0) {
+           *p++ = 0x0d;
+           if (term->cr_lf_return)
+               *p++ = 0x0a;
+           goto done;
+       }
+    }
+
+    /* SCO function keys and editing keys */
+    if (term->cfg.funky_type == FUNKY_SCO) {
+       if (PK_ISFKEY(keysym) && keysym <= PK_F12) {
+           static char const codes[] =
+               "MNOPQRSTUVWX" "YZabcdefghij" "klmnopqrstuv" "wxyz@[\\]^_`{";
+           int index = keysym - PK_F1;
+
+           if (modifiers & PKM_SHIFT) index += 12;
+           if (modifiers & PKM_CONTROL) index += 24;
+           p += sprintf((char *) p, "\x1B[%c", codes[index]);
+           goto done;
+       }
+       if (PK_ISEDITING(keysym)) {
+           int xkey = 0;
+
+           switch (keysym) {
+             case PK_DELETE:   *p++ = 0x7f; goto done;
+             case PK_HOME:     xkey = 'H'; break;
+             case PK_INSERT:   xkey = 'L'; break;
+             case PK_END:      xkey = 'F'; break;
+             case PK_PAGEUP:   xkey = 'I'; break;
+             case PK_PAGEDOWN: xkey = 'G'; break;
+           }
+           p += sprintf((char *) p, "\x1B[%c", xkey);
+       }
+    }
+
+    if (PK_ISEDITING(keysym) && (modifiers & PKM_SHIFT) == 0) {
+       int code;
+
+       if (term->cfg.funky_type == FUNKY_XTERM) {
+           /* Xterm shuffles these keys, apparently. */
+           switch (keysym) {
+             case PK_HOME:     keysym = PK_INSERT;   break;
+             case PK_INSERT:   keysym = PK_HOME;     break;
+             case PK_DELETE:   keysym = PK_END;      break;
+             case PK_END:      keysym = PK_PAGEUP;   break;
+             case PK_PAGEUP:   keysym = PK_DELETE;   break;
+             case PK_PAGEDOWN: keysym = PK_PAGEDOWN; break;
+           }
+       }
+
+       /* RXVT Home/End */
+       if (term->cfg.rxvt_homeend &&
+           (keysym == PK_HOME || keysym == PK_END)) {
+           p += sprintf((char *) p, keysym == PK_HOME ? "\x1B[H" : "\x1BOw");
+           goto done;
+       }
+
+       if (term->vt52_mode) {
+           int xkey;
+
+           /*
+            * A real VT52 doesn't have these, and a VT220 doesn't
+            * send anything for them in VT52 mode.
+            */
+           switch (keysym) {
+             case PK_HOME:     xkey = 'H'; break;
+             case PK_INSERT:   xkey = 'L'; break;
+             case PK_DELETE:   xkey = 'M'; break;
+             case PK_END:      xkey = 'E'; break;
+             case PK_PAGEUP:   xkey = 'I'; break;
+             case PK_PAGEDOWN: xkey = 'G'; break;
+           }
+           p += sprintf((char *) p, "\x1B%c", xkey);
+           goto done;
+       }
+
+       switch (keysym) {
+         case PK_HOME:     code = 1; break;
+         case PK_INSERT:   code = 2; break;
+         case PK_DELETE:   code = 3; break;
+         case PK_END:      code = 4; break;
+         case PK_PAGEUP:   code = 5; break;
+         case PK_PAGEDOWN: code = 6; break;
+       }
+       p += sprintf((char *) p, "\x1B[%d~", code);
+       goto done;
+    }
+
+    if (PK_ISFKEY(keysym)) {
+       /* Map Shift+F1-F10 to F11-F20 */
+       if (keysym >= PK_F1 && keysym <= PK_F10 && (modifiers & PKM_SHIFT))
+           keysym += 10;
+       if ((term->vt52_mode || term->cfg.funky_type == FUNKY_VT100P) &&
+           keysym <= PK_F14) {
+           /* XXX This overrides the XTERM/VT52 mode below */
+           int offt = 0;
+           if (keysym >= PK_F6)  offt++;
+           if (keysym >= PK_F12) offt++;
+           p += sprintf((char *) p, term->vt52_mode ? "\x1B%c" : "\x1BO%c",
+                        'P' + keysym - PK_F1 - offt);
+           goto done;
+       }
+       if (term->cfg.funky_type == FUNKY_LINUX && keysym <= PK_F5) {
+           p += sprintf((char *) p, "\x1B[[%c", 'A' + keysym - PK_F1);
+           goto done;
+       }
+       if (term->cfg.funky_type == FUNKY_XTERM && keysym <= PK_F4) {
+           if (term->vt52_mode)
+               p += sprintf((char *) p, "\x1B%c", 'P' + keysym - PK_F1);
+           else
+               p += sprintf((char *) p, "\x1BO%c", 'P' + keysym - PK_F1);
+           goto done;
+       }
+       p += sprintf((char *) p, "\x1B[%d~", 11 + keysym - PK_F1);
+       goto done;
+    }
+
+    if (PK_ISCURSOR(keysym)) {
+       int xkey;
+
+       switch (keysym) {
+         case PK_UP:    xkey = 'A'; break;
+         case PK_DOWN:  xkey = 'B'; break;
+         case PK_RIGHT: xkey = 'C'; break;
+         case PK_LEFT:  xkey = 'D'; break;
+         case PK_REST:  xkey = 'G'; break; /* centre key on number pad */
+       }
+       if (term->vt52_mode)
+           p += sprintf((char *) p, "\x1B%c", xkey);
+       else {
+           int app_flg = (term->app_cursor_keys && !term->cfg.no_applic_c);
+
+           /* Useful mapping of Ctrl-arrows */
+           if (modifiers == PKM_CONTROL)
+               app_flg = !app_flg;
+
+           if (app_flg)
+               p += sprintf((char *) p, "\x1BO%c", xkey);
+           else
+               p += sprintf((char *) p, "\x1B[%c", xkey);
+       }
+       goto done;
+    }
+
+  done:
+    if (p > output || tlen > 0) {
+       /*
+        * Interrupt an ongoing paste. I'm not sure
+        * this is sensible, but for the moment it's
+        * preferable to having to faff about buffering
+        * things.
+        */
+       term_nopaste(term);
+
+       /*
+        * We need not bother about stdin backlogs
+        * here, because in GUI PuTTY we can't do
+        * anything about it anyway; there's no means
+        * of asking Windows to hold off on KEYDOWN
+        * messages. We _have_ to buffer everything
+        * we're sent.
+        */
+       term_seen_key_event(term);
+
+       if (prependesc) {
+           fprintf(stderr, "sending ESC\n");
+           ldisc_send(term->ldisc, "\x1b", 1, 1);
+       }
+
+       if (p > output) {
+           fprintf(stderr, "sending %d bytes:", p - output);
+           for (i = 0; i < p - output; i++)
+               fprintf(stderr, " %02x", output[i]);
+           fprintf(stderr, "\n");
+
+           ldisc_send(term->ldisc, output, p - output, 1);
+       } else if (tlen > 0) {
+           fprintf(stderr, "sending %d unichars:", tlen);
+           for (i = 0; i < tlen; i++)
+               fprintf(stderr, " %04x", text[i]);
+           fprintf(stderr, "\n");
+
+           luni_send(term->ldisc, text, tlen, 1);
+       }
+    }
+}
+
 void term_nopaste(Terminal *term)
 {
     if (term->paste_len == 0)