curses 1.4.4 → 1.4.6

data/vendor/PDCurses/vt/pdckbd.c

@@ -1,394 +0,0 @@
-#include <stdio.h>
-#include <string.h>
-#include <assert.h>
-#if defined( _WIN32) || defined( DOS)
-   #include <conio.h>
-   #define USE_CONIO
-#else
-   #include <sys/select.h>
-   #include <unistd.h>
-#endif
-#include "curspriv.h"
-
-#if defined( __BORLANDC__) || defined( DOS)
-   #define WINDOWS_VERSION_OF_KBHIT kbhit
-#else
-   #define WINDOWS_VERSION_OF_KBHIT _kbhit
-#endif
-
-/* Modified from the accepted answer at
-
-https://stackoverflow.com/questions/33025599/move-the-cursor-in-a-c-program
-
-_kbhit( ) returns -1 if no key has been hit,  and the keycode if one
-has been hit.  You can just loop on it until the return value is >= 0.
-Hitting a function or arrow or similar key will cause 27 (escape) to
-be returned,  followed by cryptic codes that depend on what terminal
-emulation is in place.
-
-   Further info on VT100/ANSI control sequences is at
-
-https://www.gnu.org/software/screen/manual/html_node/Control-Sequences.html
-*/
-
-extern bool PDC_resize_occurred;
-
-static bool check_key( int *c)
-{
-    bool rval;
-#ifndef USE_CONIO
-    const int STDIN = 0;
-    struct timeval timeout;
-    fd_set rdset;
-
-    if( PDC_resize_occurred)
-       return( TRUE);
-    FD_ZERO( &rdset);
-    FD_SET( STDIN, &rdset);
-    timeout.tv_sec = 0;
-    timeout.tv_usec = 0;
-    if( select( STDIN + 1, &rdset, NULL, NULL, &timeout) > 0)
-       {
-       rval = TRUE;
-       if( c)
-          *c = getchar( );
-       }
-    else
-       rval = FALSE;
-#else
-    if( WINDOWS_VERSION_OF_KBHIT( ))
-       {
-       rval = TRUE;
-       if( c)
-          *c = _getch( );
-       }
-    else
-       rval = FALSE;
-#endif
-    return( rval);
-}
-
-bool PDC_check_key( void)
-{
-   return( check_key( NULL));
-}
-
-void PDC_flushinp( void)
-{
-   int thrown_away_char;
-
-   while( check_key( &thrown_away_char))
-      ;
-}
-
-#ifdef USE_CONIO
-static int xlate_vt_codes_for_dos( const int key1, const int key2)
-{
-   static const int tbl[] =   {
-      KEY_UP,      72,
-      KEY_DOWN,    80,
-      KEY_LEFT,    75,
-      KEY_RIGHT,   77,
-      KEY_F(11),  133,
-      KEY_F(12),  134,
-      KEY_IC,      82,
-      KEY_DC,      83,
-      KEY_PPAGE,   73,
-      KEY_NPAGE,   81,
-      KEY_HOME, 2, '[', 'H',
-      KEY_END,  2, 'O', 'F',
-
-      KEY_F(1),   59,
-      KEY_F(2),   60,
-      KEY_F(3),   61,
-      KEY_F(4),   62,
-      KEY_F(5),   63,
-      KEY_F(6),   64,
-      KEY_F(7),   65,
-      KEY_F(8),   66,
-      KEY_F(9),   67,
-      KEY_F(10),   68,
-      0, 0 };
-   int i, rval = 0;
-
-   for( i = 0; tbl[i] && !rval; i += 2)
-      if( key2 == tbl[i + 1])
-         rval = tbl[i];
-   return( rval);
-}
-
-#endif
-/* Mouse events include six bytes.  First three are
-
-ESC [ M
-
-   Next byte is 96 for mouse wheel up,  97 for down,  or (for more
-"traditional" mouse events) 32 plus :
-
-   0 for button 1
-   1 for button 2
-   2 for button 3
-   3 for release
-   4 if Shift is pressed
-   8 if Alt (Meta) is pressed
-   16 if Ctrl is pressed
-
-   Note that 'release' doesn't tell you _which_ is released.  If only
-one has been pressed (the usual case),  it's presumably the one you
-released.  If two or more buttons are pressed simultaneously,  the
-"releases" are reported in the numerical order of the buttons,  not
-the order in which they're actually released (which we don't know).
-
-   My tilt mouse reports 'tilt left' as a left button (1) and 'tilt right'
-as a middle button press.  Wheel events get shift,  alt,  ctrl added in
-(but that doesn't seem to be getting through in PDCurses... to be fixed).
-Button events only get Ctrl (though I think you might get the other events
-on some terminals).
-
-   "Correct" mouse handling will require that we detect a button-down,
-then hold off for SP->mouse_wait to see if we get a release event.  */
-
-static int xlate_vt_codes( const int *c, const int count)
-{
-   static const int tbl[] =  {
-               KEY_UP,   2, '[', 'A',
-               KEY_DOWN, 2, '[', 'B',
-               KEY_LEFT, 2, '[', 'D',
-               KEY_RIGHT,2, '[', 'C',
-               KEY_HOME, 2, 'O', 'H',
-               KEY_HOME, 2, '[', 'H',
-               KEY_END,  2, 'O', 'F',
-               KEY_END,  2, '[', 'F',
-               KEY_B2,   2, '[', 'E',
-               KEY_IC,   3, '[', '2', '~',
-               KEY_DC,   3, '[', '3', '~',
-               KEY_PPAGE, 3, '[', '5', '~',
-               KEY_NPAGE, 3, '[', '6', '~',
-
-               CTL_LEFT,  5, '[', '1', ';', '5', 'D',
-               CTL_RIGHT, 5, '[', '1', ';', '5', 'C',
-               CTL_UP,    5, '[', '1', ';', '5', 'A',
-               CTL_DOWN,  5, '[', '1', ';', '5', 'B',
-
-               ALT_PGUP, 5, '[', '5', ';', '3', '~',
-               ALT_PGDN, 5, '[', '6', ';', '3', '~',
-
-               KEY_F(1), 3, '[', '[', 'A',      /* Linux console */
-               KEY_F(2), 3, '[', '[', 'B',
-               KEY_F(3), 3, '[', '[', 'C',
-               KEY_F(4), 3, '[', '[', 'D',
-               KEY_F(5), 3, '[', '[', 'E',
-               KEY_END,  3, '[', '4', '~',
-               KEY_HOME, 3, '[', '1', '~',
-
-               KEY_F(1), 2, 'O', 'P',
-               KEY_F(1), 4, '[', '1', '1', '~',
-               KEY_F(2), 2, 'O', 'Q',
-               KEY_F(2), 4, '[', '1', '2', '~',
-               KEY_F(3), 2, 'O', 'R',
-               KEY_F(3), 4, '[', '1', '3', '~',
-               KEY_F(4), 2, 'O', 'S',
-               KEY_F(4), 4, '[', '1', '4', '~',
-               KEY_F(5), 4, '[', '1', '5', '~',
-               KEY_F(6), 4, '[', '1', '7', '~',
-               KEY_F(7), 4, '[', '1', '8', '~',
-               KEY_F(8), 4, '[', '1', '9', '~',
-               KEY_F(9), 4, '[', '2', '0', '~',
-               KEY_F(10), 4, '[', '2', '1', '~',
-               KEY_F(11), 4, '[', '2', '3', '~',
-               KEY_F(12), 4, '[', '2', '4', '~',
-               KEY_F(13), 5, '[', '1', ';', '2', 'P',      /* shift-f1 */
-               KEY_F(14), 5, '[', '1', ';', '2', 'Q',
-               KEY_F(15), 5, '[', '1', ';', '2', 'R',
-               KEY_F(16), 5, '[', '1', ';', '2', 'S',
-               KEY_F(17), 6, '[', '1', '5', ';', '2', '~',  /* shift-f5 */
-               KEY_F(18), 6, '[', '1', '7', ';', '2', '~',
-               KEY_F(19), 6, '[', '1', '8', ';', '2', '~',
-               KEY_F(20), 6, '[', '1', '9', ';', '2', '~',
-               KEY_F(21), 6, '[', '2', '0', ';', '2', '~',
-               KEY_F(22), 6, '[', '2', '1', ';', '2', '~',
-               KEY_F(23), 6, '[', '2', '3', ';', '2', '~',  /* shift-f11 */
-               KEY_F(24), 6, '[', '2', '4', ';', '2', '~',
-               27, 0,
-               0 };
-   int i, rval = -1;
-   const int *tptr;
-
-   if( count == 1)
-      {
-      if( c[0] >= 'a' && c[0] <= 'z')
-         rval = ALT_A + c[0] - 'a';
-      if( c[0] >= '0' && c[0] <= '9')
-         rval = ALT_0 + c[0] - '0';
-      }
-   else if( count == 5 && c[0] == '[' && c[1] == 'M')
-      rval = KEY_MOUSE;
-   for( tptr = tbl; rval == -1 && *tptr; tptr += 2 + tptr[1])
-      if( count == tptr[1])
-         {
-         i = 0;
-         while( tptr[i + 2] == c[i] && i < count)
-            i++;
-         if( i == count)
-            rval = tptr[0];
-         }
-   return( rval);
-}
-
-int PDC_get_key( void)
-{
-   int rval = -1;
-
-   if( PDC_resize_occurred)
-      {
-      PDC_resize_occurred = FALSE;
-      return( KEY_RESIZE);
-      }
-   if( check_key( &rval))
-      {
-      int c[13];
-
-#ifdef USE_CONIO
-      SP->key_code = (rval == 0 || rval == 224);
-      if( SP->key_code)
-         {
-         int key2;
-
-         while( !check_key( &key2))
-            ;
-         rval = xlate_vt_codes_for_dos( rval, key2);
-         return( rval);
-         }
-
-#endif
-      SP->key_code = (rval == 27);
-      if( rval == 27)
-         {
-         int count = 0;
-
-         while( count < 6 && check_key( &c[count])
-                  && (rval = xlate_vt_codes( c, count + 1)) == -1)
-            count++;
-         if( rval == KEY_MOUSE)
-            {
-            int idx = (c[2] & 3), flags = 0, i;
-            const bool release = (idx == 3);
-            static int held = 0;
-
-            if( c[2] & 4)
-               flags |= PDC_BUTTON_SHIFT;
-            if( c[2] & 8)
-               flags |= PDC_BUTTON_ALT;
-            if( c[2] & 16)
-               flags |= PDC_BUTTON_CONTROL;
-            if( (c[2] & 0x60) == 0x40)    /* mouse move */
-               {
-               int report_event = 0;
-
-               if( idx == 0 && (SP->_trap_mbe & BUTTON1_MOVED))
-                  report_event |= 1;
-               if( idx == 1 && (SP->_trap_mbe & BUTTON2_MOVED))
-                  report_event |= 2;
-               if( idx == 2 && (SP->_trap_mbe & BUTTON3_MOVED))
-                  report_event |= 4;
-               if( report_event)
-                  report_event |= PDC_MOUSE_MOVED;
-               else if( SP->_trap_mbe & REPORT_MOUSE_POSITION)
-                  report_event = PDC_MOUSE_POSITION;
-               pdc_mouse_status.changes = report_event;
-               for( i = 0; i < 3; i++)
-                  pdc_mouse_status.button[i] = (i == idx ? BUTTON_MOVED : 0);
-               idx = 3;
-               }
-            else if( idx == 3)         /* it's a release */
-               {
-               idx = 0;
-               while( idx < 3 && !((held >> idx) & 1))
-                  idx++;
-               held ^= (1 << idx);
-               }
-            if( idx < 3)
-               {
-               memset(&pdc_mouse_status, 0, sizeof(MOUSE_STATUS));
-               pdc_mouse_status.button[idx] =
-                              (release ? BUTTON_RELEASED : BUTTON_PRESSED);
-               if( (c[2] & 0x60) == 0x60)    /* actually mouse wheel event */
-                  pdc_mouse_status.changes =
-                        (idx ? PDC_MOUSE_WHEEL_DOWN : PDC_MOUSE_WHEEL_UP);
-               else     /* "normal" mouse button */
-                  pdc_mouse_status.changes = (1 << idx);
-               if( !release && !(c[2] & 64))   /* wait for a possible release */
-                  {
-                  int n_events = 0;
-
-                  while( n_events < 5)
-                     {
-                     PDC_napms( SP->mouse_wait);
-                     if( check_key( c))
-                        {
-                        count = 0;
-                        while( count < 5 && check_key( &c[count]))
-                           count++;
-                        n_events++;
-                        }
-                     else
-                        break;
-                     }
-                  if( !n_events)   /* just a click,  no release(s) */
-                     held ^= (1 << idx);
-                  else if( n_events == 1)
-                      pdc_mouse_status.button[idx] = BUTTON_CLICKED;
-                  else if( n_events <= 3)
-                      pdc_mouse_status.button[idx] = BUTTON_DOUBLE_CLICKED;
-                  else if( n_events <= 5)
-                      pdc_mouse_status.button[idx] = BUTTON_TRIPLE_CLICKED;
-                  }
-               }
-            for( i = 0; i < 3; i++)
-               pdc_mouse_status.button[i] |= flags;
-            pdc_mouse_status.x = (unsigned char)( c[3] - ' ' - 1);
-            pdc_mouse_status.y = (unsigned char)( c[4] - ' ' - 1);
-            }
-         }
-      else if( (rval & 0xc0) == 0xc0)      /* start of UTF-8 */
-         {
-         check_key( &c[0]);
-         assert( (c[0] & 0xc0) == 0x80);
-         c[0] &= 0x3f;
-         if( !(rval & 0x20))      /* two-byte : U+0080 to U+07ff */
-            rval = c[0] | ((rval & 0x1f) << 6);
-         else if( !(rval & 0x10))   /* three-byte : U+0800 - U+ffff */
-            {
-            check_key( &c[1]);
-            assert( (c[1] & 0xc0) == 0x80);
-            c[1] &= 0x3f;
-            rval = (c[1] | (c[0] << 6) | ((rval & 0xf) << 12));
-            }
-            /* Else... four-byte SMP char */
-         }
-      else if( rval == 127)
-         rval = 8;
-      }
-   return( rval);
-}
-
-int PDC_modifiers_set( void)
-{
-   return( OK);
-}
-
-int PDC_mouse_set( void)
-{
-   return(  OK);
-}
-
-void PDC_set_keyboard_binary( bool on)
-{
-   return;
-}
-
-unsigned long PDC_get_input_fd( void)
-{
-   return( 0);
-}
-