git.chise.org Git - chise/xemacs-chise.git.1/blob - src/gpmevent.c

   1 /* William Perry 1997 */
   2
   3 #include <config.h>
   4 #include "lisp.h"
   5 #include "console.h"
   6 #include "console-tty.h"
   7 #include "device.h"
   8 #include "events.h"
   9 #include "events-mod.h"
  10 #include "sysdep.h"
  11
  12 #ifdef HAVE_GPM
  13 #include "gpmevent.h"
  14 #include <gpm.h>
  15
  16 #if (!defined(__linux__))       /* possible under xterm */
  17 #define KG_SHIFT        0
  18 #define KG_CTRL         2
  19 #define KG_ALT          3
  20 #else
  21 #include <linux/keyboard.h>
  22 #endif
  23
  24 int
  25 handle_gpm_read (struct Lisp_Event *event, struct console *con, int fd)
  26 {
  27   Gpm_Event ev;
  28   int modifiers = 0;
  29   int type = -1;
  30   int button = 1;
  31
  32   if (!Gpm_GetEvent(&ev))
  33     return 0;
  34
  35   event->timestamp = 0;
  36   event->channel   = CONSOLE_SELECTED_FRAME (con);
  37
  38   /* Whow, wouldn't named defines be NICE!?!?! */
  39   modifiers = 0;
  40
  41   if (ev.modifiers & 1)   modifiers |= MOD_SHIFT;
  42   if (ev.modifiers & 2)   modifiers |= MOD_META;
  43   if (ev.modifiers & 4)   modifiers |= MOD_CONTROL;
  44   if (ev.modifiers & 8)   modifiers |= MOD_META;
  45
  46   if (ev.type & GPM_DOWN)
  47     type = GPM_DOWN;
  48   else if (ev.type & GPM_UP)
  49     type = GPM_UP;
  50   else if (ev.type & GPM_MOVE) {
  51     type = GPM_MOVE;
  52     GPM_DRAWPOINTER(&ev);
  53   }
  54
  55   if (ev.buttons & GPM_B_LEFT)
  56     button = 1;
  57   else if (ev.buttons & GPM_B_MIDDLE)
  58     button = 2;
  59   else if (ev.buttons & GPM_B_RIGHT)
  60     button = 3;
  61
  62   switch (type) {
  63   case GPM_DOWN:
  64   case GPM_UP:
  65     event->event_type =
  66       type == GPM_DOWN ? button_press_event : button_release_event;
  67     event->event.button.x         = ev.x;
  68     event->event.button.y         = ev.y;
  69     event->event.button.button    = button;
  70     event->event.button.modifiers = modifiers;
  71     break;
  72   case GPM_MOVE:
  73     event->event_type             = pointer_motion_event;
  74     event->event.motion.x         = ev.x;
  75     event->event.motion.y         = ev.y;
  76     event->event.motion.modifiers = modifiers;
  77   default:
  78     return 0;
  79   }
  80   return 1;
  81 }
  82
  83 void
  84 connect_to_gpm (struct console *con)
  85 {
  86   /* Only do this if we are running after dumping and really interactive */
  87   if (!noninteractive && initialized) {
  88     /* We really only want to do this on a TTY */
  89     CONSOLE_TTY_MOUSE_FD (con) = -1;
  90     if (EQ (CONSOLE_TYPE (con), Qtty)) {
  91       Gpm_Connect conn;
  92       int rval;
  93
  94       conn.eventMask = GPM_DOWN|GPM_UP|GPM_MOVE;
  95       conn.defaultMask = GPM_MOVE;
  96       conn.minMod = 0;
  97       conn.maxMod = ((1<<KG_SHIFT)|(1<<KG_ALT)|(1<<KG_CTRL));
  98
  99       rval = Gpm_Open (&conn, 0);
 100       switch (rval) {
 101       case -1: /* General failure */
 102         break;
 103       case -2: /* We are running under an XTerm */
 104         Gpm_Close();
 105         break;
 106       default:
 107         set_descriptor_non_blocking (gpm_fd);
 108         CONSOLE_TTY_MOUSE_FD (con) = gpm_fd;
 109       }
 110     }
 111   }
 112 }
 113
 114 #endif