mirror of
https://github.com/rkd77/elinks.git
synced 2024-11-04 08:17:17 -05:00
206 lines
5.3 KiB
C
206 lines
5.3 KiB
C
/* Support for mouse interface */
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
/* TODO: cleanup includes */
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#ifdef HAVE_TERMIOS_H
|
|
#include <termios.h>
|
|
#endif
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif
|
|
#ifdef __hpux__
|
|
#include <limits.h>
|
|
#define HPUX_PIPE (len > PIPE_BUF || errno != EAGAIN)
|
|
#else
|
|
#define HPUX_PIPE 1
|
|
#endif
|
|
|
|
#include "elinks.h"
|
|
|
|
#include "config/options.h"
|
|
#include "intl/gettext/libintl.h"
|
|
#include "main/select.h"
|
|
#include "main/timer.h"
|
|
#include "osdep/ascii.h"
|
|
#include "osdep/osdep.h"
|
|
#include "terminal/hardio.h"
|
|
#include "terminal/itrm.h"
|
|
#include "terminal/kbd.h"
|
|
#include "terminal/mouse.h"
|
|
#include "terminal/terminal.h"
|
|
#include "util/error.h"
|
|
#include "util/memory.h"
|
|
#include "util/string.h"
|
|
#include "util/time.h"
|
|
|
|
extern struct itrm *ditrm;
|
|
|
|
#define write_sequence(fd, seq) \
|
|
hard_write(fd, seq, sizeof(seq) - 1)
|
|
|
|
|
|
#define INIT_TWIN_MOUSE_SEQ "\033[?9h" /* Send MIT Mouse Row & Column on Button Press */
|
|
#define INIT_XWIN_MOUSE_SEQ "\033[?1000h" /* Send Mouse X & Y on button press and release */
|
|
|
|
void
|
|
send_mouse_init_sequence(int h)
|
|
{
|
|
write_sequence(h, INIT_TWIN_MOUSE_SEQ);
|
|
write_sequence(h, INIT_XWIN_MOUSE_SEQ);
|
|
}
|
|
|
|
#define DONE_TWIN_MOUSE_SEQ "\033[?9l" /* Don't Send MIT Mouse Row & Column on Button Press */
|
|
#define DONE_XWIN_MOUSE_SEQ "\033[?1000l" /* Don't Send Mouse X & Y on button press and release */
|
|
|
|
void
|
|
send_mouse_done_sequence(int h)
|
|
{
|
|
/* This is a hack to make xterm + alternate screen working,
|
|
* if we send only DONE_XWIN_MOUSE_SEQ, mouse is not totally
|
|
* released it seems, in rxvt and xterm... --Zas */
|
|
write_sequence(h, DONE_TWIN_MOUSE_SEQ);
|
|
write_sequence(h, DONE_XWIN_MOUSE_SEQ);
|
|
}
|
|
|
|
static int mouse_enabled;
|
|
|
|
void
|
|
disable_mouse(void)
|
|
{
|
|
int h = get_output_handle(); /* XXX: Is this all right? -- Miciah */
|
|
|
|
unhandle_mouse(ditrm->mouse_h);
|
|
if (is_xterm()) send_mouse_done_sequence(h);
|
|
|
|
mouse_enabled = 0;
|
|
}
|
|
|
|
void
|
|
enable_mouse(void)
|
|
{
|
|
int h = get_output_handle(); /* XXX: Is this all right? -- Miciah */
|
|
|
|
if (is_xterm()) send_mouse_init_sequence(h);
|
|
ditrm->mouse_h = handle_mouse(0, (void (*)(void *, unsigned char *, int)) itrm_queue_event, ditrm);
|
|
|
|
mouse_enabled = 1;
|
|
}
|
|
|
|
void
|
|
toggle_mouse(void)
|
|
{
|
|
if (mouse_enabled)
|
|
disable_mouse();
|
|
else
|
|
enable_mouse();
|
|
}
|
|
|
|
static int
|
|
decode_mouse_position(struct itrm *itrm, int from)
|
|
{
|
|
int position;
|
|
|
|
position = (unsigned char) (itrm->in.queue.data[from]) - ' ' - 1
|
|
+ ((int) ((unsigned char) (itrm->in.queue.data[from + 1]) - ' ' - 1) << 7);
|
|
|
|
return (position & (1 << 13)) ? 0 : position;
|
|
}
|
|
|
|
#define get_mouse_x_position(itrm, esclen) decode_mouse_position(itrm, (esclen) + 1)
|
|
#define get_mouse_y_position(itrm, esclen) decode_mouse_position(itrm, (esclen) + 3)
|
|
|
|
#define TW_BUTT_LEFT 1
|
|
#define TW_BUTT_MIDDLE 2
|
|
#define TW_BUTT_RIGHT 4
|
|
|
|
/* Returns length of the escape sequence or -1 if the caller needs to set up
|
|
* the ESC delay timer. */
|
|
int
|
|
decode_terminal_mouse_escape_sequence(struct itrm *itrm, struct term_event *ev,
|
|
int el, int v)
|
|
{
|
|
static int xterm_button = -1;
|
|
struct term_event_mouse mouse;
|
|
|
|
if (itrm->in.queue.len - el < 3)
|
|
return -1;
|
|
|
|
if (v == 5) {
|
|
if (xterm_button == -1)
|
|
xterm_button = 0;
|
|
|
|
if (itrm->in.queue.len - el < 5)
|
|
return -1;
|
|
|
|
mouse.x = get_mouse_x_position(itrm, el);
|
|
mouse.y = get_mouse_y_position(itrm, el);
|
|
|
|
switch ((itrm->in.queue.data[el] - ' ') ^ xterm_button) { /* Every event changes only one bit */
|
|
case TW_BUTT_LEFT:
|
|
mouse.button = B_LEFT | ((xterm_button & TW_BUTT_LEFT) ? B_UP : B_DOWN);
|
|
break;
|
|
case TW_BUTT_MIDDLE:
|
|
mouse.button = B_MIDDLE | ((xterm_button & TW_BUTT_MIDDLE) ? B_UP : B_DOWN);
|
|
break;
|
|
case TW_BUTT_RIGHT:
|
|
mouse.button = B_RIGHT | ((xterm_button & TW_BUTT_RIGHT) ? B_UP : B_DOWN);
|
|
break;
|
|
case 0:
|
|
mouse.button = B_DRAG;
|
|
break;
|
|
default:
|
|
mouse.button = 0; /* shut up warning */
|
|
/* default : Twin protocol error */
|
|
}
|
|
|
|
xterm_button = itrm->in.queue.data[el] - ' ';
|
|
el += 5;
|
|
|
|
} else {
|
|
/* See terminal/mouse.h about details of the mouse reporting
|
|
* protocol and {struct term_event_mouse->button} bitmask
|
|
* structure. */
|
|
mouse.x = itrm->in.queue.data[el+1] - ' ' - 1;
|
|
mouse.y = itrm->in.queue.data[el+2] - ' ' - 1;
|
|
|
|
/* There are rumours arising from remnants of code dating to
|
|
* the ancient Mikulas' times that bit 4 indicated B_DRAG.
|
|
* However, I didn't find on what terminal it should be ever
|
|
* supposed to work and it conflicts with wheels. So I removed
|
|
* the last remnants of the code as well. --pasky */
|
|
|
|
mouse.button = (itrm->in.queue.data[el] & 7) | B_DOWN;
|
|
/* smartglasses1 - rxvt wheel: */
|
|
if (mouse.button == 3 && xterm_button != -1) {
|
|
mouse.button = xterm_button | B_UP;
|
|
}
|
|
/* xterm wheel: */
|
|
if ((itrm->in.queue.data[el] & 96) == 96) {
|
|
mouse.button = (itrm->in.queue.data[el] & 1) ? B_WHEEL_DOWN : B_WHEEL_UP;
|
|
}
|
|
|
|
xterm_button = -1;
|
|
/* XXX: Eterm/aterm uses rxvt-like reporting, but sends the
|
|
* release sequence for wheel. rxvt itself sends only press
|
|
* sequence. Since we can't reliably guess what we're talking
|
|
* with from $TERM, we will rather support Eterm/aterm, as in
|
|
* rxvt, at least each second wheel up move will work. */
|
|
if (mouse_action_is(&mouse, B_DOWN))
|
|
xterm_button = mouse_get_button(&mouse);
|
|
|
|
el += 3;
|
|
}
|
|
|
|
/* Postpone changing of the event type until all sanity
|
|
* checks have been done. */
|
|
set_mouse_term_event(ev, mouse.x, mouse.y, mouse.button);
|
|
|
|
return el;
|
|
}
|