3660 lines
95 KiB
C
3660 lines
95 KiB
C
/* $XTermId: button.c,v 1.252 2006/07/23 18:37:20 tom Exp $ */
|
|
|
|
/*
|
|
* Copyright 1999-2005,2006 by Thomas E. Dickey
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
|
* copy of this software and associated documentation files (the
|
|
* "Software"), to deal in the Software without restriction, including
|
|
* without limitation the rights to use, copy, modify, merge, publish,
|
|
* distribute, sublicense, and/or sell copies of the Software, and to
|
|
* permit persons to whom the Software is furnished to do so, subject to
|
|
* the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included
|
|
* in all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
|
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
|
* IN NO EVENT SHALL THE ABOVE LISTED COPYRIGHT HOLDER(S) BE LIABLE FOR ANY
|
|
* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
|
* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
|
* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
*
|
|
* Except as contained in this notice, the name(s) of the above copyright
|
|
* holders shall not be used in advertising or otherwise to promote the
|
|
* sale, use or other dealings in this Software without prior written
|
|
* authorization.
|
|
*
|
|
*
|
|
* Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
|
|
*
|
|
* All Rights Reserved
|
|
*
|
|
* Permission to use, copy, modify, and distribute this software and its
|
|
* documentation for any purpose and without fee is hereby granted,
|
|
* provided that the above copyright notice appear in all copies and that
|
|
* both that copyright notice and this permission notice appear in
|
|
* supporting documentation, and that the name of Digital Equipment
|
|
* Corporation not be used in advertising or publicity pertaining to
|
|
* distribution of the software without specific, written prior permission.
|
|
*
|
|
*
|
|
* DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
|
* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
|
|
* DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
|
|
* ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
|
* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
|
|
* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
|
* SOFTWARE.
|
|
*/
|
|
/* $XFree86: xc/programs/xterm/button.c,v 3.88 2006/06/19 00:36:50 dickey Exp $ */
|
|
|
|
/*
|
|
button.c Handles button events in the terminal emulator.
|
|
does cut/paste operations, change modes via menu,
|
|
passes button events through to some applications.
|
|
J. Gettys.
|
|
*/
|
|
|
|
#include <xterm.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <X11/Xatom.h>
|
|
#include <X11/Xmu/Atoms.h>
|
|
#include <X11/Xmu/StdSel.h>
|
|
|
|
#include <xutf8.h>
|
|
|
|
#include <data.h>
|
|
#include <error.h>
|
|
#include <menu.h>
|
|
#include <xcharmouse.h>
|
|
#include <charclass.h>
|
|
#include <xstrings.h>
|
|
|
|
#if OPT_SELECT_REGEX
|
|
#ifdef HAVE_PCREPOSIX_H
|
|
#include <pcreposix.h>
|
|
#else /* POSIX regex.h */
|
|
#include <sys/types.h>
|
|
#include <regex.h>
|
|
#endif
|
|
#endif
|
|
|
|
#if OPT_WIDE_CHARS
|
|
#include <ctype.h>
|
|
#include <wcwidth.h>
|
|
#else
|
|
#define CharacterClass(value) \
|
|
charClass[value & ((sizeof(charClass)/sizeof(charClass[0]))-1)]
|
|
#endif
|
|
|
|
/*
|
|
* We reserve shift modifier for cut/paste operations. In principle we
|
|
* can pass through control and meta modifiers, but in practice, the
|
|
* popup menu uses control, and the window manager is likely to use meta,
|
|
* so those events are not delivered to SendMousePosition.
|
|
*/
|
|
#define OurModifiers (ShiftMask | ControlMask | Mod1Mask)
|
|
#define AllModifiers (ShiftMask | LockMask | ControlMask | Mod1Mask | \
|
|
Mod2Mask | Mod3Mask | Mod4Mask | Mod5Mask)
|
|
|
|
#define KeyModifiers (event->xbutton.state & OurModifiers)
|
|
|
|
#define KeyState(x) (((x) & (ShiftMask|ControlMask)) + (((x) & Mod1Mask) ? 2 : 0))
|
|
/* adds together the bits:
|
|
shift key -> 1
|
|
meta key -> 2
|
|
control key -> 4 */
|
|
|
|
#define Coordinate(s,c) ((c)->row * MaxCols(s) + (c)->col)
|
|
|
|
static const CELL zeroCELL =
|
|
{0, 0};
|
|
|
|
#if OPT_DEC_LOCATOR
|
|
static Bool SendLocatorPosition(XtermWidget xw, XEvent * event);
|
|
static void CheckLocatorPosition(XtermWidget xw, XEvent * event);
|
|
#endif /* OPT_DEC_LOCATOR */
|
|
|
|
/* Multi-click handling */
|
|
#if OPT_READLINE
|
|
static Time lastButtonDownTime = 0;
|
|
static int ExtendingSelection = 0;
|
|
static Time lastButton3UpTime = 0;
|
|
static Time lastButton3DoubleDownTime = 0;
|
|
static CELL lastButton3; /* At the release time */
|
|
#endif /* OPT_READLINE */
|
|
|
|
static Char *SaveText(TScreen * screen, int row, int scol, int ecol,
|
|
Char * lp, int *eol);
|
|
static int Length(TScreen * screen, int row, int scol, int ecol);
|
|
static void ComputeSelect(XtermWidget xw, CELL * startc, CELL * endc, Bool extend);
|
|
static void EditorButton(XtermWidget xw, XButtonEvent * event);
|
|
static void EndExtend(XtermWidget w, XEvent * event, String * params, Cardinal
|
|
num_params, Bool use_cursor_loc);
|
|
static void ExtendExtend(XtermWidget xw, const CELL * cell);
|
|
static void PointToCELL(TScreen * screen, int y, int x, CELL * cell);
|
|
static void ReHiliteText(XtermWidget xw, CELL * first, CELL * last);
|
|
static void SaltTextAway(XtermWidget xw, CELL * cellc, CELL * cell,
|
|
String * params, Cardinal num_params);
|
|
static void SelectSet(XtermWidget xw, XEvent * event, String * params, Cardinal num_params);
|
|
static void SelectionReceived PROTO_XT_SEL_CB_ARGS;
|
|
static void StartSelect(XtermWidget xw, const CELL * cell);
|
|
static void TrackDown(XtermWidget xw, XButtonEvent * event);
|
|
static void TrackText(XtermWidget xw, const CELL * first, const CELL * last);
|
|
static void _OwnSelection(XtermWidget xw, String * selections, Cardinal count);
|
|
static void do_select_end(XtermWidget xw, XEvent * event, String * params,
|
|
Cardinal *num_params, Bool use_cursor_loc);
|
|
|
|
Bool
|
|
SendMousePosition(XtermWidget xw, XEvent * event)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
|
|
/* If send_mouse_pos mode isn't on, we shouldn't be here */
|
|
if (screen->send_mouse_pos == MOUSE_OFF)
|
|
return False;
|
|
|
|
#if OPT_DEC_LOCATOR
|
|
if (screen->send_mouse_pos == DEC_LOCATOR) {
|
|
return (SendLocatorPosition(xw, event));
|
|
}
|
|
#endif /* OPT_DEC_LOCATOR */
|
|
|
|
/* Make sure the event is an appropriate type */
|
|
if ((screen->send_mouse_pos != BTN_EVENT_MOUSE)
|
|
&& (screen->send_mouse_pos != ANY_EVENT_MOUSE)
|
|
&& event->type != ButtonPress
|
|
&& event->type != ButtonRelease)
|
|
return False;
|
|
|
|
switch (screen->send_mouse_pos) {
|
|
case X10_MOUSE: /* X10 compatibility sequences */
|
|
|
|
if (KeyModifiers == 0) {
|
|
if (event->type == ButtonPress)
|
|
EditorButton(xw, (XButtonEvent *) event);
|
|
return True;
|
|
}
|
|
return False;
|
|
|
|
case VT200_HIGHLIGHT_MOUSE: /* DEC vt200 hilite tracking */
|
|
if (event->type == ButtonPress &&
|
|
KeyModifiers == 0 &&
|
|
event->xbutton.button == Button1) {
|
|
TrackDown(xw, (XButtonEvent *) event);
|
|
return True;
|
|
}
|
|
if (KeyModifiers == 0 || KeyModifiers == ControlMask) {
|
|
EditorButton(xw, (XButtonEvent *) event);
|
|
return True;
|
|
}
|
|
return False;
|
|
|
|
case VT200_MOUSE: /* DEC vt200 compatible */
|
|
|
|
/* xterm extension for motion reporting. June 1998 */
|
|
/* EditorButton() will distinguish between the modes */
|
|
case BTN_EVENT_MOUSE:
|
|
case ANY_EVENT_MOUSE:
|
|
if (KeyModifiers == 0 || KeyModifiers == ControlMask) {
|
|
EditorButton(xw, (XButtonEvent *) event);
|
|
return True;
|
|
}
|
|
return False;
|
|
|
|
default:
|
|
return False;
|
|
}
|
|
}
|
|
|
|
#if OPT_DEC_LOCATOR
|
|
|
|
#define LocatorCoords( row, col, x, y, oor ) \
|
|
if( screen->locator_pixels ) { \
|
|
(oor)=False; (row) = (y)+1; (col) = (x)+1; \
|
|
/* Limit to screen dimensions */ \
|
|
if ((row) < 1) (row) = 1,(oor)=True; \
|
|
else if ((row) > screen->border*2+Height(screen)) \
|
|
(row) = screen->border*2+Height(screen),(oor)=True; \
|
|
if ((col) < 1) (col) = 1,(oor)=True; \
|
|
else if ((col) > OriginX(screen)*2+Width(screen)) \
|
|
(col) = OriginX(screen)*2+Width(screen),(oor)=True; \
|
|
} else { \
|
|
(oor)=False; \
|
|
/* Compute character position of mouse pointer */ \
|
|
(row) = ((y) - screen->border) / FontHeight(screen); \
|
|
(col) = ((x) - OriginX(screen)) / FontWidth(screen); \
|
|
/* Limit to screen dimensions */ \
|
|
if ((row) < 0) (row) = 0,(oor)=True; \
|
|
else if ((row) > screen->max_row) \
|
|
(row) = screen->max_row,(oor)=True; \
|
|
if ((col) < 0) (col) = 0,(oor)=True; \
|
|
else if ((col) > screen->max_col) \
|
|
(col) = screen->max_col,(oor)=True; \
|
|
(row)++; (col)++; \
|
|
}
|
|
|
|
static Bool
|
|
SendLocatorPosition(XtermWidget xw, XEvent * event)
|
|
{
|
|
ANSI reply;
|
|
TScreen *screen = &(xw->screen);
|
|
int row, col;
|
|
Bool oor;
|
|
int button;
|
|
int state;
|
|
|
|
/* Make sure the event is an appropriate type */
|
|
if ((event->type != ButtonPress &&
|
|
event->type != ButtonRelease &&
|
|
!screen->loc_filter) ||
|
|
(KeyModifiers != 0 && KeyModifiers != ControlMask))
|
|
return (False);
|
|
|
|
if ((event->type == ButtonPress &&
|
|
!(screen->locator_events & LOC_BTNS_DN)) ||
|
|
(event->type == ButtonRelease &&
|
|
!(screen->locator_events & LOC_BTNS_UP)))
|
|
return (True);
|
|
|
|
if (event->type == MotionNotify) {
|
|
CheckLocatorPosition(xw, event);
|
|
return (True);
|
|
}
|
|
|
|
/* get button # */
|
|
button = event->xbutton.button - 1;
|
|
|
|
LocatorCoords(row, col, event->xbutton.x, event->xbutton.y, oor);
|
|
|
|
/*
|
|
* DECterm mouse:
|
|
*
|
|
* ESCAPE '[' event ; mask ; row ; column '&' 'w'
|
|
*/
|
|
memset(&reply, 0, sizeof(reply));
|
|
reply.a_type = CSI;
|
|
|
|
if (oor) {
|
|
reply.a_nparam = 1;
|
|
reply.a_param[0] = 0; /* Event - 0 = locator unavailable */
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
return (True);
|
|
}
|
|
|
|
/*
|
|
* event:
|
|
* 1 no buttons
|
|
* 2 left button down
|
|
* 3 left button up
|
|
* 4 middle button down
|
|
* 5 middle button up
|
|
* 6 right button down
|
|
* 7 right button up
|
|
* 8 M4 down
|
|
* 9 M4 up
|
|
*/
|
|
reply.a_nparam = 4;
|
|
switch (event->type) {
|
|
case ButtonPress:
|
|
reply.a_param[0] = 2 + (button << 1);
|
|
break;
|
|
case ButtonRelease:
|
|
reply.a_param[0] = 3 + (button << 1);
|
|
break;
|
|
default:
|
|
return (True);
|
|
}
|
|
/*
|
|
* mask:
|
|
* bit 7 bit 6 bit 5 bit 4 bit 3 bit 2 bit 1 bit 0
|
|
* M4 down left down middle down right down
|
|
*
|
|
* Notice that Button1 (left) and Button3 (right) are swapped in the mask.
|
|
* Also, mask should be the state after the button press/release,
|
|
* X provides the state not including the button press/release.
|
|
*/
|
|
state = (event->xbutton.state
|
|
& (Button1Mask | Button2Mask | Button3Mask | Button4Mask)) >> 8;
|
|
state ^= 1 << button; /* update mask to "after" state */
|
|
state = (state & ~(4 | 1)) | ((state & 1) ? 4 : 0) | ((state & 4) ? 1 : 0); /* swap Button1 & Button3 */
|
|
|
|
reply.a_param[1] = state;
|
|
reply.a_param[2] = row;
|
|
reply.a_param[3] = col;
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
|
|
/*
|
|
* DECterm turns the Locator off if a button is pressed while a filter rectangle
|
|
* is active. This might be a bug, but I don't know, so I'll emulate it anyways.
|
|
*/
|
|
if (screen->loc_filter) {
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
screen->loc_filter = False;
|
|
screen->locator_events = 0;
|
|
MotionOff(screen, xw);
|
|
}
|
|
|
|
return (True);
|
|
}
|
|
|
|
/*
|
|
* mask:
|
|
* bit 7 bit 6 bit 5 bit 4 bit 3 bit 2 bit 1 bit 0
|
|
* M4 down left down middle down right down
|
|
*
|
|
* Button1 (left) and Button3 (right) are swapped in the mask relative to X.
|
|
*/
|
|
#define ButtonState(state, mask) \
|
|
{ (state) = ((mask) & (Button1Mask | Button2Mask | Button3Mask | Button4Mask)) >> 8; \
|
|
/* swap Button1 & Button3 */ \
|
|
(state) = ((state) & ~(4|1)) | (((state)&1)?4:0) | (((state)&4)?1:0); \
|
|
}
|
|
|
|
void
|
|
GetLocatorPosition(XtermWidget xw)
|
|
{
|
|
ANSI reply;
|
|
TScreen *screen = &xw->screen;
|
|
Window root, child;
|
|
int rx, ry, x, y;
|
|
unsigned int mask;
|
|
int row = 0, col = 0;
|
|
Bool oor = False;
|
|
Bool ret = False;
|
|
int state;
|
|
|
|
/*
|
|
* DECterm turns the Locator off if the position is requested while a filter rectangle
|
|
* is active. This might be a bug, but I don't know, so I'll emulate it anyways.
|
|
*/
|
|
if (screen->loc_filter) {
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
screen->loc_filter = False;
|
|
screen->locator_events = 0;
|
|
MotionOff(screen, xw);
|
|
}
|
|
|
|
memset(&reply, 0, sizeof(reply));
|
|
reply.a_type = CSI;
|
|
|
|
if (screen->send_mouse_pos == DEC_LOCATOR) {
|
|
ret = XQueryPointer(screen->display, VWindow(screen), &root,
|
|
&child, &rx, &ry, &x, &y, &mask);
|
|
if (ret) {
|
|
LocatorCoords(row, col, x, y, oor);
|
|
}
|
|
}
|
|
if (ret == False || oor) {
|
|
reply.a_nparam = 1;
|
|
reply.a_param[0] = 0; /* Event - 0 = locator unavailable */
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
return;
|
|
}
|
|
|
|
ButtonState(state, mask);
|
|
|
|
reply.a_nparam = 4;
|
|
reply.a_param[0] = 1; /* Event - 1 = response to locator request */
|
|
reply.a_param[1] = state;
|
|
reply.a_param[2] = row;
|
|
reply.a_param[3] = col;
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
}
|
|
|
|
void
|
|
InitLocatorFilter(XtermWidget xw)
|
|
{
|
|
ANSI reply;
|
|
TScreen *screen = &xw->screen;
|
|
Window root, child;
|
|
int rx, ry, x, y;
|
|
unsigned int mask;
|
|
int row = 0, col = 0;
|
|
Bool oor = 0;
|
|
Bool ret;
|
|
int state;
|
|
|
|
ret = XQueryPointer(screen->display, VWindow(screen),
|
|
&root, &child, &rx, &ry, &x, &y, &mask);
|
|
if (ret) {
|
|
LocatorCoords(row, col, x, y, oor);
|
|
}
|
|
if (ret == False || oor) {
|
|
/* Locator is unavailable */
|
|
|
|
if (screen->loc_filter_top != LOC_FILTER_POS ||
|
|
screen->loc_filter_left != LOC_FILTER_POS ||
|
|
screen->loc_filter_bottom != LOC_FILTER_POS ||
|
|
screen->loc_filter_right != LOC_FILTER_POS) {
|
|
/*
|
|
* If any explicit coordinates were received,
|
|
* report immediately with no coordinates.
|
|
*/
|
|
memset(&reply, 0, sizeof(reply));
|
|
reply.a_type = CSI;
|
|
reply.a_nparam = 1;
|
|
reply.a_param[0] = 0; /* Event - 0 = locator unavailable */
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
} else {
|
|
/*
|
|
* No explicit coordinates were received, and the pointer is
|
|
* unavailable. Report when the pointer re-enters the window.
|
|
*/
|
|
screen->loc_filter = True;
|
|
MotionOn(screen, xw);
|
|
}
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Adjust rectangle coordinates:
|
|
* 1. Replace "LOC_FILTER_POS" with current coordinates
|
|
* 2. Limit coordinates to screen size
|
|
* 3. make sure top and left are less than bottom and right, resp.
|
|
*/
|
|
if (screen->locator_pixels) {
|
|
rx = OriginX(screen) * 2 + Width(screen);
|
|
ry = screen->border * 2 + Height(screen);
|
|
} else {
|
|
rx = screen->max_col;
|
|
ry = screen->max_row;
|
|
}
|
|
|
|
#define Adjust( coord, def, max ) \
|
|
if( (coord) == LOC_FILTER_POS ) (coord) = (def); \
|
|
else if ((coord) < 1) (coord) = 1; \
|
|
else if ((coord) > (max)) (coord) = (max)
|
|
|
|
Adjust(screen->loc_filter_top, row, ry);
|
|
Adjust(screen->loc_filter_left, col, rx);
|
|
Adjust(screen->loc_filter_bottom, row, ry);
|
|
Adjust(screen->loc_filter_right, col, rx);
|
|
|
|
if (screen->loc_filter_top > screen->loc_filter_bottom) {
|
|
ry = screen->loc_filter_top;
|
|
screen->loc_filter_top = screen->loc_filter_bottom;
|
|
screen->loc_filter_bottom = ry;
|
|
}
|
|
|
|
if (screen->loc_filter_left > screen->loc_filter_right) {
|
|
rx = screen->loc_filter_left;
|
|
screen->loc_filter_left = screen->loc_filter_right;
|
|
screen->loc_filter_right = rx;
|
|
}
|
|
|
|
if ((col < screen->loc_filter_left) ||
|
|
(col > screen->loc_filter_right) ||
|
|
(row < screen->loc_filter_top) ||
|
|
(row > screen->loc_filter_bottom)) {
|
|
/* Pointer is already outside the rectangle - report immediately */
|
|
ButtonState(state, mask);
|
|
|
|
memset(&reply, 0, sizeof(reply));
|
|
reply.a_type = CSI;
|
|
reply.a_nparam = 4;
|
|
reply.a_param[0] = 10; /* Event - 10 = locator outside filter */
|
|
reply.a_param[1] = state;
|
|
reply.a_param[2] = row;
|
|
reply.a_param[3] = col;
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Rectangle is set up. Allow pointer tracking
|
|
* to detect if the mouse leaves the rectangle.
|
|
*/
|
|
screen->loc_filter = True;
|
|
MotionOn(screen, xw);
|
|
}
|
|
|
|
static void
|
|
CheckLocatorPosition(XtermWidget xw, XEvent * event)
|
|
{
|
|
ANSI reply;
|
|
TScreen *screen = &(xw->screen);
|
|
int row, col;
|
|
Bool oor;
|
|
int state;
|
|
|
|
LocatorCoords(row, col, event->xbutton.x, event->xbutton.y, oor);
|
|
|
|
/*
|
|
* Send report if the pointer left the filter rectangle, if
|
|
* the pointer left the window, or if the filter rectangle
|
|
* had no coordinates and the pointer re-entered the window.
|
|
*/
|
|
if (oor || (screen->loc_filter_top == LOC_FILTER_POS) ||
|
|
(col < screen->loc_filter_left) ||
|
|
(col > screen->loc_filter_right) ||
|
|
(row < screen->loc_filter_top) ||
|
|
(row > screen->loc_filter_bottom)) {
|
|
/* Filter triggered - disable it */
|
|
screen->loc_filter = False;
|
|
MotionOff(screen, xw);
|
|
|
|
memset(&reply, 0, sizeof(reply));
|
|
reply.a_type = CSI;
|
|
if (oor) {
|
|
reply.a_nparam = 1;
|
|
reply.a_param[0] = 0; /* Event - 0 = locator unavailable */
|
|
} else {
|
|
ButtonState(state, event->xbutton.state);
|
|
|
|
reply.a_nparam = 4;
|
|
reply.a_param[0] = 10; /* Event - 10 = locator outside filter */
|
|
reply.a_param[1] = state;
|
|
reply.a_param[2] = row;
|
|
reply.a_param[3] = col;
|
|
}
|
|
|
|
reply.a_inters = '&';
|
|
reply.a_final = 'w';
|
|
unparseseq(xw, &reply);
|
|
|
|
if (screen->locator_reset) {
|
|
MotionOff(screen, xw);
|
|
screen->send_mouse_pos = MOUSE_OFF;
|
|
}
|
|
}
|
|
}
|
|
#endif /* OPT_DEC_LOCATOR */
|
|
|
|
#if OPT_READLINE
|
|
static int
|
|
isClick1_clean(TScreen * screen, XEvent * event)
|
|
{
|
|
int delta;
|
|
|
|
if (!(event->type == ButtonPress || event->type == ButtonRelease)
|
|
/* Disable on Shift-Click-1, including the application-mouse modes */
|
|
|| (KeyModifiers & ShiftMask)
|
|
|| (screen->send_mouse_pos != MOUSE_OFF) /* Kinda duplicate... */
|
|
||ExtendingSelection) /* Was moved */
|
|
return 0;
|
|
|
|
if (event->type != ButtonRelease)
|
|
return 0;
|
|
|
|
if (lastButtonDownTime == (Time) 0) {
|
|
/* first time or once in a blue moon */
|
|
delta = screen->multiClickTime + 1;
|
|
} else if (event->xbutton.time > lastButtonDownTime) {
|
|
/* most of the time */
|
|
delta = event->xbutton.time - lastButtonDownTime;
|
|
} else {
|
|
/* time has rolled over since lastButtonUpTime */
|
|
delta = (((Time) ~ 0) - lastButtonDownTime) + event->xbutton.time;
|
|
}
|
|
|
|
return delta <= screen->multiClickTime;
|
|
}
|
|
|
|
static int
|
|
isDoubleClick3(TScreen * screen, XEvent * event)
|
|
{
|
|
int delta;
|
|
|
|
if (event->type != ButtonRelease
|
|
|| (KeyModifiers & ShiftMask)
|
|
|| event->xbutton.button != Button3) {
|
|
lastButton3UpTime = 0; /* Disable the cached info */
|
|
return 0;
|
|
}
|
|
/* Process Btn3Release. */
|
|
if (lastButton3DoubleDownTime == (Time) 0) {
|
|
/* No previous click or once in a blue moon */
|
|
delta = screen->multiClickTime + 1;
|
|
} else if (event->xbutton.time > lastButton3DoubleDownTime) {
|
|
/* most of the time */
|
|
delta = event->xbutton.time - lastButton3DoubleDownTime;
|
|
} else {
|
|
/* time has rolled over since lastButton3DoubleDownTime */
|
|
delta = (((Time) ~ 0) - lastButton3DoubleDownTime) + event->xbutton.time;
|
|
}
|
|
if (delta <= screen->multiClickTime) {
|
|
/* Double click */
|
|
CELL cell;
|
|
|
|
/* Cannot check ExtendingSelection, since mouse-3 always sets it */
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &cell);
|
|
if (isSameCELL(&cell, &lastButton3)) {
|
|
lastButton3DoubleDownTime = 0; /* Disable the third click */
|
|
return 1;
|
|
}
|
|
}
|
|
/* Not a double click, memorize for future check. */
|
|
lastButton3UpTime = event->xbutton.time;
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &lastButton3);
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
CheckSecondPress3(TScreen * screen, XEvent * event)
|
|
{
|
|
int delta;
|
|
|
|
if (event->type != ButtonPress
|
|
|| (KeyModifiers & ShiftMask)
|
|
|| event->xbutton.button != Button3) {
|
|
lastButton3DoubleDownTime = 0; /* Disable the cached info */
|
|
return 0;
|
|
}
|
|
/* Process Btn3Press. */
|
|
if (lastButton3UpTime == (Time) 0) {
|
|
/* No previous click or once in a blue moon */
|
|
delta = screen->multiClickTime + 1;
|
|
} else if (event->xbutton.time > lastButton3UpTime) {
|
|
/* most of the time */
|
|
delta = event->xbutton.time - lastButton3UpTime;
|
|
} else {
|
|
/* time has rolled over since lastButton3UpTime */
|
|
delta = (((Time) ~ 0) - lastButton3UpTime) + event->xbutton.time;
|
|
}
|
|
if (delta <= screen->multiClickTime) {
|
|
CELL cell;
|
|
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &cell);
|
|
if (isSameCELL(&cell, &lastButton3)) {
|
|
/* A candidate for a double-click */
|
|
lastButton3DoubleDownTime = event->xbutton.time;
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &lastButton3);
|
|
return 1;
|
|
}
|
|
lastButton3UpTime = 0; /* Disable the info about the previous click */
|
|
}
|
|
/* Either too long, or moved, disable. */
|
|
lastButton3DoubleDownTime = 0;
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
rowOnCurrentLine(TScreen * screen,
|
|
int line,
|
|
int *deltap) /* must be XButtonEvent */
|
|
{
|
|
int l1, l2;
|
|
|
|
*deltap = 0;
|
|
if (line == screen->cur_row)
|
|
return 1;
|
|
|
|
if (line < screen->cur_row)
|
|
l1 = line, l2 = screen->cur_row;
|
|
else
|
|
l2 = line, l1 = screen->cur_row;
|
|
l1--;
|
|
while (++l1 < l2)
|
|
if (!ScrnTstWrapped(screen, l1))
|
|
return 0;
|
|
/* Everything is on one "wrapped line" now */
|
|
*deltap = line - screen->cur_row;
|
|
return 1;
|
|
}
|
|
|
|
static int
|
|
eventRow(TScreen * screen, XEvent * event) /* must be XButtonEvent */
|
|
{
|
|
return (event->xbutton.y - screen->border) / FontHeight(screen);
|
|
}
|
|
|
|
static int
|
|
eventColBetween(TScreen * screen, XEvent * event) /* must be XButtonEvent */
|
|
{
|
|
/* Correct by half a width - we are acting on a boundary, not on a cell. */
|
|
return ((event->xbutton.x - OriginX(screen) + (FontWidth(screen) - 1) / 2)
|
|
/ FontWidth(screen));
|
|
}
|
|
|
|
static int
|
|
ReadLineMovePoint(TScreen * screen, int col, int ldelta)
|
|
{
|
|
Char line[6];
|
|
unsigned count = 0;
|
|
|
|
col += ldelta * MaxCols(screen) - screen->cur_col;
|
|
if (col == 0)
|
|
return 0;
|
|
if (screen->control_eight_bits) {
|
|
line[count++] = CSI;
|
|
} else {
|
|
line[count++] = ESC;
|
|
line[count++] = '['; /* XXX maybe sometimes O is better? */
|
|
}
|
|
line[count++] = (col > 0 ? 'C' : 'D');
|
|
if (col < 0)
|
|
col = -col;
|
|
while (col--)
|
|
v_write(screen->respond, line, 3);
|
|
return 1;
|
|
}
|
|
|
|
static int
|
|
ReadLineDelete(TScreen * screen, CELL * cell1, CELL * cell2)
|
|
{
|
|
int del;
|
|
|
|
del = (cell2->col - cell1->col) + ((cell2->row - cell1->row) * MaxCols(screen));
|
|
if (del <= 0) /* Just in case... */
|
|
return 0;
|
|
while (del--)
|
|
v_write(screen->respond, (Char *) "\177", 1);
|
|
return 1;
|
|
}
|
|
#endif /* OPT_READLINE */
|
|
|
|
/* ^XM-G<line+' '><col+' '> */
|
|
void
|
|
DiredButton(Widget w,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params GCC_UNUSED, /* selections */
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &(xw->screen);
|
|
Char Line[6];
|
|
unsigned line, col;
|
|
|
|
if (event->type == ButtonPress || event->type == ButtonRelease) {
|
|
line = (event->xbutton.y - screen->border) / FontHeight(screen);
|
|
col = (event->xbutton.x - OriginX(screen)) / FontWidth(screen);
|
|
Line[0] = CONTROL('X');
|
|
Line[1] = ESC;
|
|
Line[2] = 'G';
|
|
Line[3] = ' ' + col;
|
|
Line[4] = ' ' + line;
|
|
v_write(screen->respond, Line, 5);
|
|
}
|
|
}
|
|
}
|
|
|
|
#if OPT_READLINE
|
|
void
|
|
ReadLineButton(Widget w,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params GCC_UNUSED, /* selections */
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &(xw->screen);
|
|
Char Line[6];
|
|
int line, col, ldelta = 0;
|
|
|
|
if (!(event->type == ButtonPress || event->type == ButtonRelease)
|
|
|| (screen->send_mouse_pos != MOUSE_OFF) || ExtendingSelection)
|
|
goto finish;
|
|
if (event->type == ButtonRelease) {
|
|
int delta;
|
|
|
|
if (lastButtonDownTime == (Time) 0) {
|
|
/* first time and once in a blue moon */
|
|
delta = screen->multiClickTime + 1;
|
|
} else if (event->xbutton.time > lastButtonDownTime) {
|
|
/* most of the time */
|
|
delta = event->xbutton.time - lastButtonDownTime;
|
|
} else {
|
|
/* time has rolled over since lastButtonUpTime */
|
|
delta = (((Time) ~ 0) - lastButtonDownTime) + event->xbutton.time;
|
|
}
|
|
if (delta > screen->multiClickTime)
|
|
goto finish; /* All this work for this... */
|
|
}
|
|
line = (event->xbutton.y - screen->border) / FontHeight(screen);
|
|
if (line != screen->cur_row) {
|
|
int l1, l2;
|
|
|
|
if (line < screen->cur_row)
|
|
l1 = line, l2 = screen->cur_row;
|
|
else
|
|
l2 = line, l1 = screen->cur_row;
|
|
l1--;
|
|
while (++l1 < l2)
|
|
if (!ScrnTstWrapped(screen, l1))
|
|
goto finish;
|
|
/* Everything is on one "wrapped line" now */
|
|
ldelta = line - screen->cur_row;
|
|
}
|
|
/* Correct by half a width - we are acting on a boundary, not on a cell. */
|
|
col = (event->xbutton.x - OriginX(screen) + (FontWidth(screen) - 1)
|
|
/ 2)
|
|
/ FontWidth(screen) - screen->cur_col + ldelta * MaxCols(screen);
|
|
if (col == 0)
|
|
goto finish;
|
|
Line[0] = ESC;
|
|
/* XXX: sometimes it is better to send '['? */
|
|
Line[1] = 'O';
|
|
Line[2] = (col > 0 ? 'C' : 'D');
|
|
if (col < 0)
|
|
col = -col;
|
|
while (col--)
|
|
v_write(screen->respond, Line, 3);
|
|
finish:
|
|
if (event->type == ButtonRelease)
|
|
do_select_end(xw, event, params, num_params, False);
|
|
}
|
|
}
|
|
#endif /* OPT_READLINE */
|
|
|
|
/* repeats <ESC>n or <ESC>p */
|
|
void
|
|
ViButton(Widget w,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params GCC_UNUSED, /* selections */
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &(xw->screen);
|
|
int pty = screen->respond;
|
|
Char Line[6];
|
|
int line;
|
|
|
|
if (event->type == ButtonPress || event->type == ButtonRelease) {
|
|
|
|
line = screen->cur_row -
|
|
((event->xbutton.y - screen->border) / FontHeight(screen));
|
|
if (line != 0) {
|
|
Line[0] = ESC; /* force an exit from insert-mode */
|
|
v_write(pty, Line, 1);
|
|
|
|
if (line < 0) {
|
|
line = -line;
|
|
Line[0] = CONTROL('n');
|
|
} else {
|
|
Line[0] = CONTROL('p');
|
|
}
|
|
while (--line >= 0)
|
|
v_write(pty, Line, 1);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* This function handles button-motion events
|
|
*/
|
|
/*ARGSUSED*/
|
|
void
|
|
HandleSelectExtend(Widget w,
|
|
XEvent * event, /* must be XMotionEvent */
|
|
String * params GCC_UNUSED,
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &(xw->screen);
|
|
CELL cell;
|
|
|
|
screen->selection_time = event->xmotion.time;
|
|
switch (eventMode) {
|
|
/* If not in one of the DEC mouse-reporting modes */
|
|
case LEFTEXTENSION:
|
|
case RIGHTEXTENSION:
|
|
PointToCELL(screen, event->xmotion.y, event->xmotion.x, &cell);
|
|
ExtendExtend(xw, &cell);
|
|
break;
|
|
|
|
/* If in motion reporting mode, send mouse position to
|
|
character process as a key sequence \E[M... */
|
|
case NORMAL:
|
|
/* will get here if send_mouse_pos != MOUSE_OFF */
|
|
if (screen->send_mouse_pos == BTN_EVENT_MOUSE
|
|
|| screen->send_mouse_pos == ANY_EVENT_MOUSE) {
|
|
(void) SendMousePosition(xw, event);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
void
|
|
HandleKeyboardSelectExtend(Widget w,
|
|
XEvent * event GCC_UNUSED, /* must be XButtonEvent */
|
|
String * params GCC_UNUSED,
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &xw->screen;
|
|
ExtendExtend(xw, &screen->cursorp);
|
|
}
|
|
}
|
|
|
|
static void
|
|
do_select_end(XtermWidget xw,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params, /* selections */
|
|
Cardinal *num_params,
|
|
Bool use_cursor_loc)
|
|
{
|
|
#if OPT_READLINE
|
|
int ldelta1, ldelta2;
|
|
TScreen *screen = &xw->screen;
|
|
#endif
|
|
|
|
xw->screen.selection_time = event->xbutton.time;
|
|
switch (eventMode) {
|
|
case NORMAL:
|
|
(void) SendMousePosition(xw, event);
|
|
break;
|
|
case LEFTEXTENSION:
|
|
case RIGHTEXTENSION:
|
|
EndExtend(xw, event, params, *num_params, use_cursor_loc);
|
|
#if OPT_READLINE
|
|
if (isClick1_clean(screen, event)
|
|
&& SCREEN_FLAG(screen, click1_moves)
|
|
&& rowOnCurrentLine(screen, eventRow(screen, event), &ldelta1)) {
|
|
ReadLineMovePoint(screen, eventColBetween(screen, event), ldelta1);
|
|
}
|
|
if (isDoubleClick3(screen, event)
|
|
&& SCREEN_FLAG(screen, dclick3_deletes)
|
|
&& rowOnCurrentLine(screen, screen->startSel.row, &ldelta1)
|
|
&& rowOnCurrentLine(screen, screen->endSel.row, &ldelta2)) {
|
|
ReadLineMovePoint(screen, screen->endSel.col, ldelta2);
|
|
ReadLineDelete(screen, &screen->startSel, &(screen->endSel));
|
|
}
|
|
#endif /* OPT_READLINE */
|
|
break;
|
|
}
|
|
}
|
|
|
|
void
|
|
HandleSelectEnd(Widget w,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params, /* selections */
|
|
Cardinal *num_params)
|
|
{
|
|
if (IsXtermWidget(w))
|
|
do_select_end((XtermWidget) w, event, params, num_params, False);
|
|
}
|
|
|
|
void
|
|
HandleKeyboardSelectEnd(Widget w,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params, /* selections */
|
|
Cardinal *num_params)
|
|
{
|
|
if (IsXtermWidget(w))
|
|
do_select_end((XtermWidget) w, event, params, num_params, True);
|
|
}
|
|
|
|
struct _SelectionList {
|
|
String *params;
|
|
Cardinal count;
|
|
Atom *targets;
|
|
Time time;
|
|
};
|
|
|
|
/*
|
|
* Convert a UTF-8 string to Latin-1, replacing non Latin-1 characters by `#'.
|
|
*/
|
|
#if OPT_WIDE_CHARS
|
|
static Char *
|
|
UTF8toLatin1(Char * s, unsigned len, unsigned long *result)
|
|
{
|
|
static Char *buffer;
|
|
static size_t used;
|
|
|
|
Char *p = s;
|
|
Char *q;
|
|
|
|
if (used == 0) {
|
|
buffer = (Char *) XtMalloc(used = len);
|
|
} else if (len > used) {
|
|
buffer = (Char *) XtRealloc((char *) buffer, used = len);
|
|
}
|
|
q = buffer;
|
|
|
|
/* We're assuming that the xterm widget never contains Unicode
|
|
control characters. */
|
|
|
|
while (p < s + len) {
|
|
if ((*p & 0x80) == 0) {
|
|
*q++ = *p++;
|
|
} else if ((*p & 0x7C) == 0x40 && p < s + len - 1) {
|
|
*q++ = ((*p & 0x03) << 6) | (p[1] & 0x3F);
|
|
p += 2;
|
|
} else if ((*p & 0x60) == 0x40) {
|
|
*q++ = '#';
|
|
p += 2;
|
|
} else if ((*p & 0x50) == 0x40) {
|
|
*q++ = '#';
|
|
p += 3;
|
|
} else { /* this cannot happen */
|
|
*q++ = '#';
|
|
p++;
|
|
}
|
|
}
|
|
*result = q - buffer;
|
|
return buffer;
|
|
}
|
|
#endif /* OPT_WIDE_CHARS */
|
|
|
|
static Atom *
|
|
_SelectionTargets(Widget w)
|
|
{
|
|
static Atom *eightBitSelectionTargets = NULL;
|
|
TScreen *screen;
|
|
int n;
|
|
|
|
if (!IsXtermWidget(w))
|
|
return NULL;
|
|
|
|
screen = &((XtermWidget) w)->screen;
|
|
|
|
#if OPT_WIDE_CHARS
|
|
if (screen->wide_chars) {
|
|
static Atom *utf8SelectionTargets = NULL;
|
|
|
|
if (utf8SelectionTargets == NULL) {
|
|
utf8SelectionTargets = (Atom *) XtMalloc(5 * sizeof(Atom));
|
|
if (utf8SelectionTargets == NULL) {
|
|
TRACE(("Couldn't allocate utf8SelectionTargets\n"));
|
|
return NULL;
|
|
}
|
|
n = 0;
|
|
utf8SelectionTargets[n++] = XA_UTF8_STRING(XtDisplay(w));
|
|
#ifdef X_HAVE_UTF8_STRING
|
|
if (screen->i18nSelections) {
|
|
utf8SelectionTargets[n++] = XA_TEXT(XtDisplay(w));
|
|
utf8SelectionTargets[n++] = XA_COMPOUND_TEXT(XtDisplay(w));
|
|
}
|
|
#endif
|
|
utf8SelectionTargets[n++] = XA_STRING;
|
|
utf8SelectionTargets[n] = None;
|
|
}
|
|
return utf8SelectionTargets;
|
|
}
|
|
#endif
|
|
|
|
/* not screen->wide_chars */
|
|
if (eightBitSelectionTargets == NULL) {
|
|
eightBitSelectionTargets = (Atom *) XtMalloc(5 * sizeof(Atom));
|
|
if (eightBitSelectionTargets == NULL) {
|
|
TRACE(("Couldn't allocate eightBitSelectionTargets\n"));
|
|
return NULL;
|
|
}
|
|
n = 0;
|
|
#ifdef X_HAVE_UTF8_STRING
|
|
eightBitSelectionTargets[n++] = XA_UTF8_STRING(XtDisplay(w));
|
|
#endif
|
|
if (screen->i18nSelections) {
|
|
eightBitSelectionTargets[n++] = XA_TEXT(XtDisplay(w));
|
|
eightBitSelectionTargets[n++] = XA_COMPOUND_TEXT(XtDisplay(w));
|
|
}
|
|
eightBitSelectionTargets[n++] = XA_STRING;
|
|
eightBitSelectionTargets[n] = None;
|
|
}
|
|
return eightBitSelectionTargets;
|
|
}
|
|
|
|
#define isSELECT(value) (!strcmp(value, "SELECT"))
|
|
|
|
static void
|
|
UnmapSelections(XtermWidget xw)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
Cardinal n;
|
|
|
|
if (screen->mappedSelect) {
|
|
for (n = 0; screen->mappedSelect[n] != 0; ++n)
|
|
free(screen->mappedSelect[n]);
|
|
free(screen->mappedSelect);
|
|
screen->mappedSelect = 0;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* xterm generally uses the primary selection. Some applications prefer
|
|
* (or are limited to) the clipboard. Since the translations resource is
|
|
* complicated, users seldom change the way it affects selection. But it
|
|
* is simple to remap the choice between primary and clipboard before the
|
|
* call to XmuInternStrings().
|
|
*/
|
|
static String *
|
|
MapSelections(XtermWidget xw, String * params, Cardinal num_params)
|
|
{
|
|
String *result = params;
|
|
|
|
if (num_params > 0) {
|
|
Cardinal j;
|
|
Boolean map = False;
|
|
|
|
for (j = 0; j < num_params; ++j) {
|
|
TRACE(("param[%d]:%s\n", j, params[j]));
|
|
if (isSELECT(params[j])) {
|
|
map = True;
|
|
break;
|
|
}
|
|
}
|
|
if (map) {
|
|
String mapTo = (xw->screen.selectToClipboard
|
|
? "CLIPBOARD"
|
|
: "PRIMARY");
|
|
|
|
UnmapSelections(xw);
|
|
if ((result = TypeMallocN(String, num_params + 1)) != 0) {
|
|
result[num_params] = 0;
|
|
for (j = 0; j < num_params; ++j) {
|
|
result[j] = x_strdup((isSELECT(params[j])
|
|
? mapTo
|
|
: params[j]));
|
|
if (result[j] == 0) {
|
|
UnmapSelections(xw);
|
|
result = 0;
|
|
break;
|
|
}
|
|
}
|
|
xw->screen.mappedSelect = result;
|
|
}
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
/*
|
|
* Lookup the cut-buffer number, which will be in the range 0-7.
|
|
* If it is not a cut-buffer, it is the primary selection (-1).
|
|
*/
|
|
static int
|
|
CutBuffer(unsigned code)
|
|
{
|
|
int cutbuffer;
|
|
switch (code) {
|
|
case XA_CUT_BUFFER0:
|
|
cutbuffer = 0;
|
|
break;
|
|
case XA_CUT_BUFFER1:
|
|
cutbuffer = 1;
|
|
break;
|
|
case XA_CUT_BUFFER2:
|
|
cutbuffer = 2;
|
|
break;
|
|
case XA_CUT_BUFFER3:
|
|
cutbuffer = 3;
|
|
break;
|
|
case XA_CUT_BUFFER4:
|
|
cutbuffer = 4;
|
|
break;
|
|
case XA_CUT_BUFFER5:
|
|
cutbuffer = 5;
|
|
break;
|
|
case XA_CUT_BUFFER6:
|
|
cutbuffer = 6;
|
|
break;
|
|
case XA_CUT_BUFFER7:
|
|
cutbuffer = 7;
|
|
break;
|
|
default:
|
|
cutbuffer = -1;
|
|
break;
|
|
}
|
|
return cutbuffer;
|
|
}
|
|
|
|
#if OPT_PASTE64
|
|
static void
|
|
FinishPaste64(XtermWidget xw)
|
|
{
|
|
TRACE(("FinishPaste64(%d)\n", xw->screen.base64_paste));
|
|
if (xw->screen.base64_paste) {
|
|
xw->screen.base64_paste = 0;
|
|
unparseputc1(xw, xw->screen.base64_final);
|
|
unparse_end(xw);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
#if !OPT_PASTE64
|
|
static
|
|
#endif
|
|
void
|
|
xtermGetSelection(Widget w,
|
|
Time ev_time,
|
|
String * params, /* selections in precedence order */
|
|
Cardinal num_params,
|
|
Atom * targets)
|
|
{
|
|
Atom selection;
|
|
int cutbuffer;
|
|
Atom target;
|
|
|
|
if (!IsXtermWidget(w))
|
|
return;
|
|
|
|
TRACE(("xtermGetSelection\n"));
|
|
params = MapSelections((XtermWidget) w, params, num_params);
|
|
|
|
XmuInternStrings(XtDisplay(w), params, (Cardinal) 1, &selection);
|
|
cutbuffer = CutBuffer(selection);
|
|
|
|
TRACE(("Cutbuffer: %d, target: %lu\n", cutbuffer,
|
|
targets ? (unsigned long) targets[0] : 0));
|
|
|
|
if (cutbuffer >= 0) {
|
|
int inbytes;
|
|
unsigned long nbytes;
|
|
int fmt8 = 8;
|
|
Atom type = XA_STRING;
|
|
char *line;
|
|
|
|
/* 'line' is freed in SelectionReceived */
|
|
line = XFetchBuffer(XtDisplay(w), &inbytes, cutbuffer);
|
|
nbytes = (unsigned long) inbytes;
|
|
|
|
if (nbytes > 0)
|
|
SelectionReceived(w, NULL, &selection, &type, (XtPointer) line,
|
|
&nbytes, &fmt8);
|
|
else if (num_params > 1) {
|
|
xtermGetSelection(w, ev_time, params + 1, num_params - 1, NULL);
|
|
}
|
|
#if OPT_PASTE64
|
|
else {
|
|
FinishPaste64((XtermWidget) w);
|
|
}
|
|
#endif
|
|
return;
|
|
} else {
|
|
struct _SelectionList *list;
|
|
|
|
if (targets == NULL || targets[0] == None) {
|
|
targets = _SelectionTargets(w);
|
|
}
|
|
|
|
if (targets != 0) {
|
|
target = targets[0];
|
|
|
|
if (targets[1] == None) { /* last target in list */
|
|
params++;
|
|
num_params--;
|
|
targets = _SelectionTargets(w);
|
|
} else {
|
|
targets = &(targets[1]);
|
|
}
|
|
|
|
if (num_params) {
|
|
/* 'list' is freed in SelectionReceived */
|
|
list = XtNew(struct _SelectionList);
|
|
if (list != 0) {
|
|
list->params = params;
|
|
list->count = num_params;
|
|
list->targets = targets;
|
|
list->time = ev_time;
|
|
}
|
|
} else {
|
|
list = NULL;
|
|
}
|
|
|
|
XtGetSelectionValue(w, selection,
|
|
target,
|
|
SelectionReceived,
|
|
(XtPointer) list, ev_time);
|
|
}
|
|
}
|
|
}
|
|
|
|
#if OPT_TRACE && OPT_WIDE_CHARS
|
|
static void
|
|
GettingSelection(Display * dpy, Atom type, Char * line, unsigned long len)
|
|
{
|
|
Char *cp;
|
|
char *name;
|
|
|
|
name = XGetAtomName(dpy, type);
|
|
|
|
TRACE(("Getting %s (%ld)\n", name, (long int) type));
|
|
for (cp = line; cp < line + len; cp++) {
|
|
TRACE(("[%d:%lu]", cp + 1 - line, len));
|
|
if (isprint(*cp)) {
|
|
TRACE(("%c\n", *cp));
|
|
} else {
|
|
TRACE(("\\x%02x\n", *cp));
|
|
}
|
|
}
|
|
}
|
|
#else
|
|
#define GettingSelection(dpy,type,line,len) /* nothing */
|
|
#endif
|
|
|
|
#ifdef VMS
|
|
# define tty_vwrite(pty,lag,l) tt_write(lag,l)
|
|
#else /* !( VMS ) */
|
|
# define tty_vwrite(pty,lag,l) v_write(pty,lag,l)
|
|
#endif /* defined VMS */
|
|
|
|
#if OPT_PASTE64
|
|
/* Return base64 code character given 6-bit number */
|
|
static const char base64_code[] = "\
|
|
ABCDEFGHIJKLMNOPQRSTUVWXYZ\
|
|
abcdefghijklmnopqrstuvwxyz\
|
|
0123456789+/";
|
|
static void
|
|
base64_flush(TScreen * screen)
|
|
{
|
|
Char x;
|
|
switch (screen->base64_count) {
|
|
case 0:
|
|
break;
|
|
case 2:
|
|
x = base64_code[screen->base64_accu << 4];
|
|
tty_vwrite(screen->respond, &x, 1);
|
|
break;
|
|
case 4:
|
|
x = base64_code[screen->base64_accu << 2];
|
|
tty_vwrite(screen->respond, &x, 1);
|
|
break;
|
|
}
|
|
if (screen->base64_pad & 3)
|
|
tty_vwrite(screen->respond,
|
|
(Char *) "===",
|
|
(unsigned) (4 - (screen->base64_pad & 3)));
|
|
screen->base64_count = 0;
|
|
screen->base64_accu = 0;
|
|
screen->base64_pad = 0;
|
|
}
|
|
#endif /* OPT_PASTE64 */
|
|
|
|
static void
|
|
_qWriteSelectionData(TScreen * screen, Char * lag, unsigned length)
|
|
{
|
|
#if OPT_PASTE64
|
|
if (screen->base64_paste) {
|
|
/* Send data as base64 */
|
|
Char *p = lag;
|
|
Char buf[64];
|
|
unsigned x = 0;
|
|
while (length--) {
|
|
switch (screen->base64_count) {
|
|
case 0:
|
|
buf[x++] = base64_code[*p >> 2];
|
|
screen->base64_accu = (*p & 0x3);
|
|
screen->base64_count = 2;
|
|
++p;
|
|
break;
|
|
case 2:
|
|
buf[x++] = base64_code[(screen->base64_accu << 4) + (*p >> 4)];
|
|
screen->base64_accu = (*p & 0xF);
|
|
screen->base64_count = 4;
|
|
++p;
|
|
break;
|
|
case 4:
|
|
buf[x++] = base64_code[(screen->base64_accu << 2) + (*p >> 6)];
|
|
buf[x++] = base64_code[*p & 0x3F];
|
|
screen->base64_accu = 0;
|
|
screen->base64_count = 0;
|
|
++p;
|
|
break;
|
|
}
|
|
if (x >= 63) {
|
|
/* Write 63 or 64 characters */
|
|
screen->base64_pad += x;
|
|
tty_vwrite(screen->respond, buf, x);
|
|
x = 0;
|
|
}
|
|
}
|
|
if (x != 0) {
|
|
screen->base64_pad += x;
|
|
tty_vwrite(screen->respond, buf, x);
|
|
}
|
|
} else
|
|
#endif /* OPT_PASTE64 */
|
|
#if OPT_READLINE
|
|
if (SCREEN_FLAG(screen, paste_quotes)) {
|
|
while (length--) {
|
|
tty_vwrite(screen->respond, (Char *) "\026", 1); /* Control-V */
|
|
tty_vwrite(screen->respond, lag++, 1);
|
|
}
|
|
} else
|
|
#endif
|
|
tty_vwrite(screen->respond, lag, length);
|
|
}
|
|
|
|
static void
|
|
_WriteSelectionData(TScreen * screen, Char * line, int length)
|
|
{
|
|
/* Write data to pty a line at a time. */
|
|
/* Doing this one line at a time may no longer be necessary
|
|
because v_write has been re-written. */
|
|
|
|
Char *lag, *end;
|
|
|
|
/* in the VMS version, if tt_pasting isn't set to True then qio
|
|
reads aren't blocked and an infinite loop is entered, where the
|
|
pasted text shows up as new input, goes in again, shows up
|
|
again, ad nauseum. */
|
|
#ifdef VMS
|
|
tt_pasting = True;
|
|
#endif
|
|
|
|
end = &line[length];
|
|
lag = line;
|
|
|
|
#if OPT_PASTE64
|
|
if (screen->base64_paste) {
|
|
_qWriteSelectionData(screen, lag, (unsigned) (end - lag));
|
|
base64_flush(screen);
|
|
} else
|
|
#endif
|
|
{
|
|
if (!SCREEN_FLAG(screen, paste_literal_nl)) {
|
|
Char *cp;
|
|
for (cp = line; cp != end; cp++) {
|
|
if (*cp == '\n') {
|
|
*cp = '\r';
|
|
_qWriteSelectionData(screen, lag, (unsigned) (cp - lag + 1));
|
|
lag = cp + 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (lag != end) {
|
|
_qWriteSelectionData(screen, lag, (unsigned) (end - lag));
|
|
}
|
|
}
|
|
#ifdef VMS
|
|
tt_pasting = False;
|
|
tt_start_read(); /* reenable reads or a character may be lost */
|
|
#endif
|
|
}
|
|
|
|
#if OPT_READLINE
|
|
static void
|
|
_WriteKey(TScreen * screen, Char * in)
|
|
{
|
|
Char line[16];
|
|
unsigned count = 0;
|
|
unsigned length = strlen((char *) in);
|
|
|
|
if (screen->control_eight_bits) {
|
|
line[count++] = CSI;
|
|
} else {
|
|
line[count++] = ESC;
|
|
line[count++] = '[';
|
|
}
|
|
while (length--)
|
|
line[count++] = *in++;
|
|
line[count++] = '~';
|
|
tty_vwrite(screen->respond, line, count);
|
|
}
|
|
#endif /* OPT_READLINE */
|
|
|
|
/* SelectionReceived: stuff received selection text into pty */
|
|
|
|
/* ARGSUSED */
|
|
static void
|
|
SelectionReceived(Widget w,
|
|
XtPointer client_data,
|
|
Atom * selection GCC_UNUSED,
|
|
Atom * type,
|
|
XtPointer value,
|
|
unsigned long *length,
|
|
int *format)
|
|
{
|
|
char **text_list = NULL;
|
|
int text_list_count;
|
|
XTextProperty text_prop;
|
|
TScreen *screen;
|
|
Display *dpy;
|
|
#if OPT_TRACE && OPT_WIDE_CHARS
|
|
Char *line = (Char *) value;
|
|
#endif
|
|
|
|
if (!IsXtermWidget(w))
|
|
return;
|
|
screen = &((XtermWidget) w)->screen;
|
|
dpy = XtDisplay(w);
|
|
|
|
if (*type == 0 /*XT_CONVERT_FAIL */
|
|
|| *length == 0
|
|
|| value == NULL)
|
|
goto fail;
|
|
|
|
text_prop.value = (unsigned char *) value;
|
|
text_prop.encoding = *type;
|
|
text_prop.format = *format;
|
|
text_prop.nitems = *length;
|
|
|
|
#if OPT_WIDE_CHARS
|
|
if (screen->wide_chars) {
|
|
if (*type == XA_UTF8_STRING(XtDisplay(w)) ||
|
|
*type == XA_STRING ||
|
|
*type == XA_COMPOUND_TEXT(XtDisplay(w))) {
|
|
GettingSelection(dpy, *type, line, *length);
|
|
if (Xutf8TextPropertyToTextList(dpy, &text_prop,
|
|
&text_list,
|
|
&text_list_count) < 0) {
|
|
TRACE(("Conversion failed\n"));
|
|
text_list = NULL;
|
|
}
|
|
}
|
|
} else
|
|
#endif /* OPT_WIDE_CHARS */
|
|
{
|
|
/* Convert the selection to locale's multibyte encoding. */
|
|
|
|
/* There's no need to special-case UTF8_STRING. If Xlib
|
|
doesn't know about it, we didn't request it. If a broken
|
|
selection holder sends it anyhow, the conversion function
|
|
will fail. */
|
|
|
|
if (*type == XA_UTF8_STRING(XtDisplay(w)) ||
|
|
*type == XA_STRING ||
|
|
*type == XA_COMPOUND_TEXT(XtDisplay(w))) {
|
|
Status rc;
|
|
GettingSelection(dpy, *type, line, *length);
|
|
if (*type == XA_STRING && screen->brokenSelections) {
|
|
rc = XTextPropertyToStringList(&text_prop,
|
|
&text_list, &text_list_count);
|
|
} else {
|
|
rc = XmbTextPropertyToTextList(dpy, &text_prop,
|
|
&text_list,
|
|
&text_list_count);
|
|
}
|
|
if (rc < 0) {
|
|
TRACE(("Conversion failed\n"));
|
|
text_list = NULL;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (text_list != NULL && text_list_count != 0) {
|
|
int i;
|
|
|
|
#if OPT_PASTE64
|
|
if (screen->base64_paste) {
|
|
;
|
|
} else
|
|
#endif
|
|
#if OPT_READLINE
|
|
if (SCREEN_FLAG(screen, paste_brackets)) {
|
|
_WriteKey(screen, (Char *) "200");
|
|
}
|
|
#endif
|
|
for (i = 0; i < text_list_count; i++) {
|
|
int len = strlen(text_list[i]);
|
|
_WriteSelectionData(screen, (Char *) text_list[i], len);
|
|
}
|
|
#if OPT_PASTE64
|
|
if (screen->base64_paste) {
|
|
FinishPaste64((XtermWidget) w);
|
|
} else
|
|
#endif
|
|
#if OPT_READLINE
|
|
if (SCREEN_FLAG(screen, paste_brackets)) {
|
|
_WriteKey(screen, (Char *) "201");
|
|
}
|
|
#endif
|
|
XFreeStringList(text_list);
|
|
} else
|
|
goto fail;
|
|
|
|
XtFree((char *) client_data);
|
|
XtFree((char *) value);
|
|
|
|
return;
|
|
|
|
fail:
|
|
if (client_data != 0) {
|
|
struct _SelectionList *list = (struct _SelectionList *) client_data;
|
|
xtermGetSelection(w, list->time,
|
|
list->params, list->count, list->targets);
|
|
XtFree((char *) client_data);
|
|
#if OPT_PASTE64
|
|
} else {
|
|
FinishPaste64((XtermWidget) w);
|
|
#endif
|
|
}
|
|
return;
|
|
}
|
|
|
|
void
|
|
HandleInsertSelection(Widget w,
|
|
XEvent * event, /* assumed to be XButtonEvent* */
|
|
String * params, /* selections in precedence order */
|
|
Cardinal *num_params)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
|
|
if (!SendMousePosition(xw, event)) {
|
|
#if OPT_READLINE
|
|
int ldelta;
|
|
TScreen *screen = &(xw->screen);
|
|
if ((event->type == ButtonPress || event->type == ButtonRelease)
|
|
/* Disable on Shift-mouse, including the application-mouse modes */
|
|
&& !(KeyModifiers & ShiftMask)
|
|
&& (screen->send_mouse_pos == MOUSE_OFF)
|
|
&& SCREEN_FLAG(screen, paste_moves)
|
|
&& rowOnCurrentLine(screen, eventRow(screen, event), &ldelta))
|
|
ReadLineMovePoint(screen, eventColBetween(screen, event), ldelta);
|
|
#endif /* OPT_READLINE */
|
|
|
|
xtermGetSelection(w, event->xbutton.time, params, *num_params, NULL);
|
|
}
|
|
}
|
|
}
|
|
|
|
static SelectUnit
|
|
EvalSelectUnit(TScreen * screen, Time buttonDownTime, SelectUnit defaultUnit)
|
|
{
|
|
SelectUnit result;
|
|
int delta;
|
|
|
|
if (screen->lastButtonUpTime == (Time) 0) {
|
|
/* first time and once in a blue moon */
|
|
delta = screen->multiClickTime + 1;
|
|
} else if (buttonDownTime > screen->lastButtonUpTime) {
|
|
/* most of the time */
|
|
delta = buttonDownTime - screen->lastButtonUpTime;
|
|
} else {
|
|
/* time has rolled over since lastButtonUpTime */
|
|
delta = (((Time) ~ 0) - screen->lastButtonUpTime) + buttonDownTime;
|
|
}
|
|
|
|
if (delta > screen->multiClickTime) {
|
|
screen->numberOfClicks = 1;
|
|
result = defaultUnit;
|
|
} else {
|
|
result = screen->selectMap[screen->numberOfClicks % screen->maxClicks];
|
|
screen->numberOfClicks += 1;
|
|
}
|
|
TRACE(("EvalSelectUnit(%d) = %d\n", screen->numberOfClicks, result));
|
|
return result;
|
|
}
|
|
|
|
static void
|
|
do_select_start(XtermWidget xw,
|
|
XEvent * event, /* must be XButtonEvent* */
|
|
CELL * cell)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
|
|
if (SendMousePosition(xw, event))
|
|
return;
|
|
screen->selectUnit = EvalSelectUnit(screen, event->xbutton.time, Select_CHAR);
|
|
screen->replyToEmacs = False;
|
|
|
|
#if OPT_READLINE
|
|
lastButtonDownTime = event->xbutton.time;
|
|
#endif
|
|
|
|
StartSelect(xw, cell);
|
|
}
|
|
|
|
/* ARGSUSED */
|
|
void
|
|
HandleSelectStart(Widget w,
|
|
XEvent * event, /* must be XButtonEvent* */
|
|
String * params GCC_UNUSED,
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &(xw->screen);
|
|
CELL cell;
|
|
|
|
screen->firstValidRow = 0;
|
|
screen->lastValidRow = screen->max_row;
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &cell);
|
|
|
|
#if OPT_READLINE
|
|
ExtendingSelection = 0;
|
|
#endif
|
|
|
|
do_select_start(xw, event, &cell);
|
|
}
|
|
}
|
|
|
|
/* ARGSUSED */
|
|
void
|
|
HandleKeyboardSelectStart(Widget w,
|
|
XEvent * event, /* must be XButtonEvent* */
|
|
String * params GCC_UNUSED,
|
|
Cardinal *num_params GCC_UNUSED)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
XtermWidget xw = (XtermWidget) w;
|
|
TScreen *screen = &(xw->screen);
|
|
do_select_start(xw, event, &screen->cursorp);
|
|
}
|
|
}
|
|
|
|
static void
|
|
TrackDown(XtermWidget xw, XButtonEvent * event)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
CELL cell;
|
|
|
|
screen->selectUnit = EvalSelectUnit(screen, event->time, Select_CHAR);
|
|
if (screen->numberOfClicks > 1) {
|
|
PointToCELL(screen, event->y, event->x, &cell);
|
|
screen->replyToEmacs = True;
|
|
StartSelect(xw, &cell);
|
|
} else {
|
|
waitingForTrackInfo = True;
|
|
EditorButton(xw, (XButtonEvent *) event);
|
|
}
|
|
}
|
|
|
|
#define boundsCheck(x) if (x < 0) \
|
|
x = 0; \
|
|
else if (x >= screen->max_row) \
|
|
x = screen->max_row
|
|
|
|
void
|
|
TrackMouse(XtermWidget xw,
|
|
int func,
|
|
CELL * start,
|
|
int firstrow,
|
|
int lastrow)
|
|
{
|
|
if (waitingForTrackInfo) { /* if Timed, ignore */
|
|
waitingForTrackInfo = False;
|
|
if (func != 0) {
|
|
TScreen *screen = &(xw->screen);
|
|
CELL first = *start;
|
|
|
|
boundsCheck(first.row);
|
|
boundsCheck(firstrow);
|
|
boundsCheck(lastrow);
|
|
screen->firstValidRow = firstrow;
|
|
screen->lastValidRow = lastrow;
|
|
screen->replyToEmacs = True;
|
|
StartSelect(xw, &first);
|
|
}
|
|
}
|
|
}
|
|
|
|
static void
|
|
StartSelect(XtermWidget xw, const CELL * cell)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
|
|
TRACE(("StartSelect row=%d, col=%d\n", cell->row, cell->col));
|
|
if (screen->cursor_state)
|
|
HideCursor();
|
|
if (screen->numberOfClicks == 1) {
|
|
/* set start of selection */
|
|
screen->rawPos = *cell;
|
|
}
|
|
/* else use old values in rawPos */
|
|
screen->saveStartR = screen->startExt = screen->rawPos;
|
|
screen->saveEndR = screen->endExt = screen->rawPos;
|
|
if (Coordinate(screen, cell) < Coordinate(screen, &(screen->rawPos))) {
|
|
eventMode = LEFTEXTENSION;
|
|
screen->startExt = *cell;
|
|
} else {
|
|
eventMode = RIGHTEXTENSION;
|
|
screen->endExt = *cell;
|
|
}
|
|
ComputeSelect(xw, &(screen->startExt), &(screen->endExt), False);
|
|
}
|
|
|
|
static void
|
|
EndExtend(XtermWidget xw,
|
|
XEvent * event, /* must be XButtonEvent */
|
|
String * params, /* selections */
|
|
Cardinal num_params,
|
|
Bool use_cursor_loc)
|
|
{
|
|
CELL cell;
|
|
unsigned count;
|
|
TScreen *screen = &xw->screen;
|
|
Char line[9];
|
|
|
|
if (use_cursor_loc) {
|
|
cell = screen->cursorp;
|
|
} else {
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &cell);
|
|
}
|
|
ExtendExtend(xw, &cell);
|
|
screen->lastButtonUpTime = event->xbutton.time;
|
|
if (!isSameCELL(&(screen->startSel), &(screen->endSel))) {
|
|
if (screen->replyToEmacs) {
|
|
count = 0;
|
|
if (screen->control_eight_bits) {
|
|
line[count++] = CSI;
|
|
} else {
|
|
line[count++] = ESC;
|
|
line[count++] = '[';
|
|
}
|
|
if (isSameCELL(&(screen->rawPos), &(screen->startSel))
|
|
&& isSameCELL(&cell, &(screen->endSel))) {
|
|
/* Use short-form emacs select */
|
|
line[count++] = 't';
|
|
line[count++] = ' ' + screen->endSel.col + 1;
|
|
line[count++] = ' ' + screen->endSel.row + 1;
|
|
} else {
|
|
/* long-form, specify everything */
|
|
line[count++] = 'T';
|
|
line[count++] = ' ' + screen->startSel.col + 1;
|
|
line[count++] = ' ' + screen->startSel.row + 1;
|
|
line[count++] = ' ' + screen->endSel.col + 1;
|
|
line[count++] = ' ' + screen->endSel.row + 1;
|
|
line[count++] = ' ' + cell.col + 1;
|
|
line[count++] = ' ' + cell.row + 1;
|
|
}
|
|
v_write(screen->respond, line, count);
|
|
TrackText(xw, &zeroCELL, &zeroCELL);
|
|
}
|
|
}
|
|
SelectSet(xw, event, params, num_params);
|
|
eventMode = NORMAL;
|
|
}
|
|
|
|
void
|
|
HandleSelectSet(Widget w,
|
|
XEvent * event,
|
|
String * params,
|
|
Cardinal *num_params)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
SelectSet((XtermWidget) w, event, params, *num_params);
|
|
}
|
|
}
|
|
|
|
/* ARGSUSED */
|
|
static void
|
|
SelectSet(XtermWidget xw,
|
|
XEvent * event GCC_UNUSED,
|
|
String * params,
|
|
Cardinal num_params)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
|
|
TRACE(("SelectSet\n"));
|
|
/* Only do select stuff if non-null select */
|
|
if (!isSameCELL(&(screen->startSel), &(screen->endSel))) {
|
|
SaltTextAway(xw, &(screen->startSel), &(screen->endSel), params, num_params);
|
|
} else {
|
|
DisownSelection(xw);
|
|
}
|
|
}
|
|
|
|
#define Abs(x) ((x) < 0 ? -(x) : (x))
|
|
|
|
/* ARGSUSED */
|
|
static void
|
|
do_start_extend(XtermWidget xw,
|
|
XEvent * event, /* must be XButtonEvent* */
|
|
String * params GCC_UNUSED,
|
|
Cardinal *num_params GCC_UNUSED,
|
|
Bool use_cursor_loc)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int coord;
|
|
CELL cell;
|
|
|
|
if (!IsXtermWidget(xw))
|
|
return;
|
|
|
|
if (SendMousePosition(xw, event))
|
|
return;
|
|
|
|
screen->firstValidRow = 0;
|
|
screen->lastValidRow = screen->max_row;
|
|
#if OPT_READLINE
|
|
if ((KeyModifiers & ShiftMask)
|
|
|| event->xbutton.button != Button3
|
|
|| !(SCREEN_FLAG(screen, dclick3_deletes)))
|
|
#endif
|
|
screen->selectUnit = EvalSelectUnit(screen, event->xbutton.time, screen->selectUnit);
|
|
screen->replyToEmacs = False;
|
|
|
|
#if OPT_READLINE
|
|
CheckSecondPress3(screen, event);
|
|
#endif
|
|
|
|
if (screen->numberOfClicks == 1
|
|
|| (SCREEN_FLAG(screen, dclick3_deletes) /* Dclick special */
|
|
&&!(KeyModifiers & ShiftMask))) {
|
|
/* Save existing selection so we can reestablish it if the guy
|
|
extends past the other end of the selection */
|
|
screen->saveStartR = screen->startExt = screen->startRaw;
|
|
screen->saveEndR = screen->endExt = screen->endRaw;
|
|
} else {
|
|
/* He just needed the selection mode changed, use old values. */
|
|
screen->startExt = screen->startRaw = screen->saveStartR;
|
|
screen->endExt = screen->endRaw = screen->saveEndR;
|
|
}
|
|
if (use_cursor_loc) {
|
|
cell = screen->cursorp;
|
|
} else {
|
|
PointToCELL(screen, event->xbutton.y, event->xbutton.x, &cell);
|
|
}
|
|
coord = Coordinate(screen, &cell);
|
|
|
|
if (Abs(coord - Coordinate(screen, &(screen->startSel)))
|
|
< Abs(coord - Coordinate(screen, &(screen->endSel)))
|
|
|| coord < Coordinate(screen, &(screen->startSel))) {
|
|
/* point is close to left side of selection */
|
|
eventMode = LEFTEXTENSION;
|
|
screen->startExt = cell;
|
|
} else {
|
|
/* point is close to left side of selection */
|
|
eventMode = RIGHTEXTENSION;
|
|
screen->endExt = cell;
|
|
}
|
|
ComputeSelect(xw, &(screen->startExt), &(screen->endExt), True);
|
|
|
|
#if OPT_READLINE
|
|
if (!isSameCELL(&(screen->startSel), &(screen->endSel)))
|
|
ExtendingSelection = 1;
|
|
#endif
|
|
}
|
|
|
|
static void
|
|
ExtendExtend(XtermWidget xw, const CELL * cell)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int coord = Coordinate(screen, cell);
|
|
|
|
TRACE(("ExtendExtend row=%d, col=%d\n", cell->row, cell->col));
|
|
if (eventMode == LEFTEXTENSION
|
|
&& ((coord + (screen->selectUnit != Select_CHAR))
|
|
> Coordinate(screen, &(screen->endSel)))) {
|
|
/* Whoops, he's changed his mind. Do RIGHTEXTENSION */
|
|
eventMode = RIGHTEXTENSION;
|
|
screen->startExt = screen->saveStartR;
|
|
} else if (eventMode == RIGHTEXTENSION
|
|
&& coord < Coordinate(screen, &(screen->startSel))) {
|
|
/* Whoops, he's changed his mind. Do LEFTEXTENSION */
|
|
eventMode = LEFTEXTENSION;
|
|
screen->endExt = screen->saveEndR;
|
|
}
|
|
if (eventMode == LEFTEXTENSION) {
|
|
screen->startExt = *cell;
|
|
} else {
|
|
screen->endExt = *cell;
|
|
}
|
|
ComputeSelect(xw, &(screen->startExt), &(screen->endExt), False);
|
|
|
|
#if OPT_READLINE
|
|
if (!isSameCELL(&(screen->startSel), &(screen->endSel)))
|
|
ExtendingSelection = 1;
|
|
#endif
|
|
}
|
|
|
|
void
|
|
HandleStartExtend(Widget w,
|
|
XEvent * event, /* must be XButtonEvent* */
|
|
String * params, /* unused */
|
|
Cardinal *num_params) /* unused */
|
|
{
|
|
if (IsXtermWidget(w))
|
|
do_start_extend((XtermWidget) w, event, params, num_params, False);
|
|
}
|
|
|
|
void
|
|
HandleKeyboardStartExtend(Widget w,
|
|
XEvent * event, /* must be XButtonEvent* */
|
|
String * params, /* unused */
|
|
Cardinal *num_params) /* unused */
|
|
{
|
|
if (IsXtermWidget(w))
|
|
do_start_extend((XtermWidget) w, event, params, num_params, True);
|
|
}
|
|
|
|
void
|
|
ScrollSelection(TScreen * screen, int amount, Bool always)
|
|
{
|
|
int minrow = INX2ROW(screen, -screen->savedlines);
|
|
int maxrow = INX2ROW(screen, screen->max_row);
|
|
int maxcol = screen->max_col;
|
|
|
|
#define scroll_update_one(cell) \
|
|
(cell)->row += amount; \
|
|
if ((cell)->row < minrow) { \
|
|
(cell)->row = minrow; \
|
|
(cell)->col = 0; \
|
|
} \
|
|
if ((cell)->row > maxrow) { \
|
|
(cell)->row = maxrow; \
|
|
(cell)->col = maxcol; \
|
|
}
|
|
|
|
scroll_update_one(&(screen->startRaw));
|
|
scroll_update_one(&(screen->endRaw));
|
|
scroll_update_one(&(screen->startSel));
|
|
scroll_update_one(&(screen->endSel));
|
|
|
|
scroll_update_one(&(screen->rawPos));
|
|
|
|
/*
|
|
* If we are told to scroll the selection but it lies outside the scrolling
|
|
* margins, then that could cause the selection to move (bad). It is not
|
|
* simple to fix, because this function is called both for the scrollbar
|
|
* actions as well as application scrolling. The 'always' flag is set in
|
|
* the former case. The rest of the logic handles the latter.
|
|
*/
|
|
if (ScrnHaveSelection(screen)) {
|
|
int adjust;
|
|
|
|
adjust = ROW2INX(screen, screen->startH.row);
|
|
if (always
|
|
|| !ScrnHaveLineMargins(screen)
|
|
|| ScrnIsLineInMargins(screen, adjust)) {
|
|
scroll_update_one(&screen->startH);
|
|
}
|
|
adjust = ROW2INX(screen, screen->endH.row);
|
|
if (always
|
|
|| !ScrnHaveLineMargins(screen)
|
|
|| ScrnIsLineInMargins(screen, adjust)) {
|
|
scroll_update_one(&screen->endH);
|
|
}
|
|
}
|
|
|
|
screen->startHCoord = Coordinate(screen, &screen->startH);
|
|
screen->endHCoord = Coordinate(screen, &screen->endH);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
void
|
|
ResizeSelection(TScreen * screen GCC_UNUSED, int rows, int cols)
|
|
{
|
|
rows--; /* decr to get 0-max */
|
|
cols--;
|
|
|
|
if (screen->startRaw.row > rows)
|
|
screen->startRaw.row = rows;
|
|
if (screen->startSel.row > rows)
|
|
screen->startSel.row = rows;
|
|
if (screen->endRaw.row > rows)
|
|
screen->endRaw.row = rows;
|
|
if (screen->endSel.row > rows)
|
|
screen->endSel.row = rows;
|
|
if (screen->rawPos.row > rows)
|
|
screen->rawPos.row = rows;
|
|
|
|
if (screen->startRaw.col > cols)
|
|
screen->startRaw.col = cols;
|
|
if (screen->startSel.col > cols)
|
|
screen->startSel.col = cols;
|
|
if (screen->endRaw.col > cols)
|
|
screen->endRaw.col = cols;
|
|
if (screen->endSel.col > cols)
|
|
screen->endSel.col = cols;
|
|
if (screen->rawPos.col > cols)
|
|
screen->rawPos.col = cols;
|
|
}
|
|
|
|
#if OPT_WIDE_CHARS
|
|
Bool
|
|
iswide(int i)
|
|
{
|
|
return (i == HIDDEN_CHAR) || (my_wcwidth(i) == 2);
|
|
}
|
|
|
|
#define isWideCell(row, col) iswide((int)XTERM_CELL(row, col))
|
|
#endif
|
|
|
|
static void
|
|
PointToCELL(TScreen * screen,
|
|
int y,
|
|
int x,
|
|
CELL * cell)
|
|
/* Convert pixel coordinates to character coordinates.
|
|
Rows are clipped between firstValidRow and lastValidRow.
|
|
Columns are clipped between to be 0 or greater, but are not clipped to some
|
|
maximum value. */
|
|
{
|
|
cell->row = (y - screen->border) / FontHeight(screen);
|
|
if (cell->row < screen->firstValidRow)
|
|
cell->row = screen->firstValidRow;
|
|
else if (cell->row > screen->lastValidRow)
|
|
cell->row = screen->lastValidRow;
|
|
cell->col = (x - OriginX(screen)) / FontWidth(screen);
|
|
if (cell->col < 0)
|
|
cell->col = 0;
|
|
else if (cell->col > MaxCols(screen)) {
|
|
cell->col = MaxCols(screen);
|
|
}
|
|
#if OPT_WIDE_CHARS
|
|
/*
|
|
* If we got a click on the right half of a doublewidth character,
|
|
* pretend it happened on the left half.
|
|
*/
|
|
if (cell->col > 0
|
|
&& isWideCell(cell->row, cell->col - 1)
|
|
&& (XTERM_CELL(cell->row, cell->col) == HIDDEN_CHAR)) {
|
|
cell->col -= 1;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
/*
|
|
* Find the last column at which text was drawn on the given row.
|
|
*/
|
|
static int
|
|
LastTextCol(TScreen * screen, int row)
|
|
{
|
|
int inx = ROW2INX(screen, row);
|
|
int i;
|
|
Char *ch;
|
|
|
|
if (inx + screen->savedlines >= 0) {
|
|
for (i = screen->max_col,
|
|
ch = SCRN_BUF_ATTRS(screen, inx) + i;
|
|
i >= 0 && !(*ch & CHARDRAWN);
|
|
ch--, i--) ;
|
|
#if OPT_DEC_CHRSET
|
|
if (CSET_DOUBLE(SCRN_BUF_CSETS(screen, inx)[0])) {
|
|
i *= 2;
|
|
}
|
|
#endif
|
|
} else {
|
|
i = -1;
|
|
}
|
|
return (i);
|
|
}
|
|
|
|
#if !OPT_WIDE_CHARS
|
|
/*
|
|
** double click table for cut and paste in 8 bits
|
|
**
|
|
** This table is divided in four parts :
|
|
**
|
|
** - control characters [0,0x1f] U [0x80,0x9f]
|
|
** - separators [0x20,0x3f] U [0xa0,0xb9]
|
|
** - binding characters [0x40,0x7f] U [0xc0,0xff]
|
|
** - exceptions
|
|
*/
|
|
/* *INDENT-OFF* */
|
|
static int charClass[256] =
|
|
{
|
|
/* NUL SOH STX ETX EOT ENQ ACK BEL */
|
|
32, 1, 1, 1, 1, 1, 1, 1,
|
|
/* BS HT NL VT NP CR SO SI */
|
|
1, 32, 1, 1, 1, 1, 1, 1,
|
|
/* DLE DC1 DC2 DC3 DC4 NAK SYN ETB */
|
|
1, 1, 1, 1, 1, 1, 1, 1,
|
|
/* CAN EM SUB ESC FS GS RS US */
|
|
1, 1, 1, 1, 1, 1, 1, 1,
|
|
/* SP ! " # $ % & ' */
|
|
32, 33, 34, 35, 36, 37, 38, 39,
|
|
/* ( ) * + , - . / */
|
|
40, 41, 42, 43, 44, 45, 46, 47,
|
|
/* 0 1 2 3 4 5 6 7 */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* 8 9 : ; < = > ? */
|
|
48, 48, 58, 59, 60, 61, 62, 63,
|
|
/* @ A B C D E F G */
|
|
64, 48, 48, 48, 48, 48, 48, 48,
|
|
/* H I J K L M N O */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* P Q R S T U V W */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* X Y Z [ \ ] ^ _ */
|
|
48, 48, 48, 91, 92, 93, 94, 48,
|
|
/* ` a b c d e f g */
|
|
96, 48, 48, 48, 48, 48, 48, 48,
|
|
/* h i j k l m n o */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* p q r s t u v w */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* x y z { | } ~ DEL */
|
|
48, 48, 48, 123, 124, 125, 126, 1,
|
|
/* x80 x81 x82 x83 IND NEL SSA ESA */
|
|
1, 1, 1, 1, 1, 1, 1, 1,
|
|
/* HTS HTJ VTS PLD PLU RI SS2 SS3 */
|
|
1, 1, 1, 1, 1, 1, 1, 1,
|
|
/* DCS PU1 PU2 STS CCH MW SPA EPA */
|
|
1, 1, 1, 1, 1, 1, 1, 1,
|
|
/* x98 x99 x9A CSI ST OSC PM APC */
|
|
1, 1, 1, 1, 1, 1, 1, 1,
|
|
/* - i c/ L ox Y- | So */
|
|
160, 161, 162, 163, 164, 165, 166, 167,
|
|
/* .. c0 ip << _ R0 - */
|
|
168, 169, 170, 171, 172, 173, 174, 175,
|
|
/* o +- 2 3 ' u q| . */
|
|
176, 177, 178, 179, 180, 181, 182, 183,
|
|
/* , 1 2 >> 1/4 1/2 3/4 ? */
|
|
184, 185, 186, 187, 188, 189, 190, 191,
|
|
/* A` A' A^ A~ A: Ao AE C, */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* E` E' E^ E: I` I' I^ I: */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* D- N~ O` O' O^ O~ O: X */
|
|
48, 48, 48, 48, 48, 48, 48, 215,
|
|
/* O/ U` U' U^ U: Y' P B */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* a` a' a^ a~ a: ao ae c, */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* e` e' e^ e: i` i' i^ i: */
|
|
48, 48, 48, 48, 48, 48, 48, 48,
|
|
/* d n~ o` o' o^ o~ o: -: */
|
|
48, 48, 48, 48, 48, 48, 48, 247,
|
|
/* o/ u` u' u^ u: y' P y: */
|
|
48, 48, 48, 48, 48, 48, 48, 48};
|
|
/* *INDENT-ON* */
|
|
|
|
int
|
|
SetCharacterClassRange(int low, /* in range of [0..255] */
|
|
int high,
|
|
int value) /* arbitrary */
|
|
{
|
|
|
|
if (low < 0 || high > 255 || high < low)
|
|
return (-1);
|
|
|
|
for (; low <= high; low++)
|
|
charClass[low] = value;
|
|
|
|
return (0);
|
|
}
|
|
#endif
|
|
|
|
#if OPT_WIDE_CHARS
|
|
static int
|
|
class_of(TScreen * screen, CELL * cell)
|
|
{
|
|
CELL temp = *cell;
|
|
int value;
|
|
|
|
#if OPT_DEC_CHRSET
|
|
if (CSET_DOUBLE(SCRN_BUF_CSETS(screen, ROW2INX(screen, temp.row))[0])) {
|
|
temp.col /= 2;
|
|
}
|
|
#endif
|
|
|
|
value = XTERM_CELL(temp.row, temp.col);
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
return CharacterClass(value);
|
|
});
|
|
return CharacterClass(value);
|
|
}
|
|
#define ClassSelects(screen, cell, cclass) \
|
|
(class_of(screen, cell) == cclass \
|
|
|| XTERM_CELL((cell)->row, (cell)->col) == HIDDEN_CHAR)
|
|
#else
|
|
#define class_of(screen, cell) charClass[XTERM_CELL((cell)->row, (cell)->col)]
|
|
#define ClassSelects(screen, cell, cclass) \
|
|
(class_of(screen, (cell)) == cclass)
|
|
#endif
|
|
|
|
/*
|
|
* If the given column is past the end of text on the given row, bump to the
|
|
* beginning of the next line.
|
|
*/
|
|
static Boolean
|
|
okPosition(TScreen * screen,
|
|
CELL * cell)
|
|
{
|
|
if (cell->col > (LastTextCol(screen, cell->row) + 1)) {
|
|
cell->col = 0;
|
|
cell->row += 1;
|
|
return False;
|
|
}
|
|
return True;
|
|
}
|
|
|
|
static void
|
|
trimLastLine(TScreen * screen, CELL * last)
|
|
{
|
|
if (screen->cutNewline) {
|
|
last->col = 0;
|
|
++last->row;
|
|
} else {
|
|
last->col = LastTextCol(screen, last->row) + 1;
|
|
}
|
|
}
|
|
|
|
#if OPT_SELECT_REGEX
|
|
/*
|
|
* Returns the first row of a wrapped line.
|
|
*/
|
|
static int
|
|
firstRowOfLine(TScreen * screen, int row, Bool visible)
|
|
{
|
|
int limit = visible ? 0 : -screen->savedlines;
|
|
|
|
while (row > limit &&
|
|
ScrnTstWrapped(screen, row - 1))
|
|
--row;
|
|
return row;
|
|
}
|
|
|
|
/*
|
|
* Returns the last row of a wrapped line.
|
|
*/
|
|
static int
|
|
lastRowOfLine(TScreen * screen, int row)
|
|
{
|
|
while (row < screen->max_row &&
|
|
ScrnTstWrapped(screen, row))
|
|
++row;
|
|
return row;
|
|
}
|
|
|
|
/*
|
|
* Returns the number of cells on the range of rows.
|
|
*/
|
|
static unsigned
|
|
lengthOfLines(TScreen * screen, int firstRow, int lastRow)
|
|
{
|
|
unsigned length = 0;
|
|
int n;
|
|
|
|
for (n = firstRow; n <= lastRow; ++n) {
|
|
int value = LastTextCol(screen, n);
|
|
if (value >= 0)
|
|
length += (value + 1);
|
|
}
|
|
return length;
|
|
}
|
|
|
|
/*
|
|
* Make a copy of the wrapped-line which corresponds to the given row as a
|
|
* string of bytes. Construct an index for the columns from the beginning of
|
|
* the line.
|
|
*/
|
|
static char *
|
|
make_indexed_text(TScreen * screen, int row, unsigned length, int *indexed)
|
|
{
|
|
Char *result = 0;
|
|
unsigned need = (length + 1);
|
|
|
|
/*
|
|
* Get a quick upper bound to the number of bytes needed, if the whole
|
|
* string were UTF-8.
|
|
*/
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
need *= (MAX_PTRS * 6);
|
|
});
|
|
|
|
if ((result = TypeCallocN(Char, need + 1)) != 0) {
|
|
unsigned used = 0;
|
|
Char *last = result;
|
|
|
|
do {
|
|
int col = 0;
|
|
int limit = LastTextCol(screen, row);
|
|
|
|
while (col <= limit) {
|
|
Char *next = last;
|
|
unsigned data = XTERM_CELL(row, col);
|
|
|
|
/* some internal points may not be drawn */
|
|
if (data == 0)
|
|
data = ' ';
|
|
#if OPT_WIDE_CHARS
|
|
next = convertToUTF8(last, data);
|
|
#else
|
|
*next++ = CharOf(data);
|
|
#endif
|
|
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int off;
|
|
for (off = OFF_FINAL; off < MAX_PTRS; off += 2) {
|
|
if ((data = XTERM_CELLC(row, col, off)) == 0)
|
|
break;
|
|
next = convertToUTF8(next, data);
|
|
}
|
|
});
|
|
|
|
indexed[used] = last - result;
|
|
*next = 0;
|
|
/* TRACE(("index[%d.%d] %d:%s\n", row, used, indexed[used], last)); */
|
|
last = next;
|
|
++used;
|
|
++col;
|
|
indexed[used] = next - result;
|
|
}
|
|
} while (used < length &&
|
|
ScrnTstWrapped(screen, row) &&
|
|
++row < screen->max_row);
|
|
}
|
|
/* TRACE(("result:%s\n", result)); */
|
|
return (char *) result;
|
|
}
|
|
|
|
/*
|
|
* Find the column given an offset into the character string by using the
|
|
* index constructed in make_indexed_text().
|
|
*/
|
|
static int
|
|
indexToCol(int *indexed, int len, int off)
|
|
{
|
|
int col = 0;
|
|
while (indexed[col] < len) {
|
|
if (indexed[col] >= off)
|
|
break;
|
|
++col;
|
|
}
|
|
return col;
|
|
}
|
|
|
|
/*
|
|
* Given a row number, and a column offset from that (which may be wrapped),
|
|
* set the cell to the actual row/column values.
|
|
*/
|
|
static void
|
|
columnToCell(TScreen * screen, int row, int col, CELL * cell)
|
|
{
|
|
while (row < screen->max_row) {
|
|
int last = LastTextCol(screen, row);
|
|
|
|
/* TRACE(("last(%d) = %d, have %d\n", row, last, col)); */
|
|
if (col <= last) {
|
|
break;
|
|
}
|
|
col -= (last + 1);
|
|
++row;
|
|
}
|
|
if (col < 0)
|
|
col = 0;
|
|
cell->row = row;
|
|
cell->col = col;
|
|
}
|
|
|
|
/*
|
|
* Given a cell, find the corresponding column offset.
|
|
*/
|
|
static int
|
|
cellToColumn(TScreen * screen, CELL * cell)
|
|
{
|
|
int col = cell->col;
|
|
int row = firstRowOfLine(screen, cell->row, False);
|
|
while (row < cell->row) {
|
|
col += LastTextCol(screen, row++);
|
|
}
|
|
return col;
|
|
}
|
|
|
|
static void
|
|
do_select_regex(TScreen * screen, CELL * startc, CELL * endc)
|
|
{
|
|
char *expr = screen->selectExpr[screen->numberOfClicks - 1];
|
|
regex_t preg;
|
|
regmatch_t match;
|
|
char *search;
|
|
int *indexed;
|
|
|
|
TRACE(("Select_REGEX:%s\n", NonNull(expr)));
|
|
if (okPosition(screen, startc) && expr != 0) {
|
|
if (regcomp(&preg, expr, REG_EXTENDED) == 0) {
|
|
int firstRow = firstRowOfLine(screen, startc->row, True);
|
|
int lastRow = lastRowOfLine(screen, firstRow);
|
|
unsigned size = lengthOfLines(screen, firstRow, lastRow);
|
|
int actual = cellToColumn(screen, startc);
|
|
|
|
TRACE(("regcomp ok rows %d..%d bytes %d\n",
|
|
firstRow, lastRow, size));
|
|
|
|
if ((indexed = TypeCallocN(int, size + 1)) != 0) {
|
|
if ((search = make_indexed_text(screen,
|
|
firstRow,
|
|
size,
|
|
indexed)) != 0) {
|
|
int len = strlen(search);
|
|
int col;
|
|
int best_col = -1;
|
|
int best_len = -1;
|
|
|
|
for (col = 0; indexed[col] < len; ++col) {
|
|
if (regexec(&preg,
|
|
search + indexed[col],
|
|
1, &match, 0) == 0) {
|
|
int start_inx = match.rm_so + indexed[col];
|
|
int finis_inx = match.rm_eo + indexed[col];
|
|
int start_col = indexToCol(indexed, len, start_inx);
|
|
int finis_col = indexToCol(indexed, len, finis_inx);
|
|
|
|
if (start_col <= actual &&
|
|
actual < finis_col) {
|
|
int test = finis_col - start_col;
|
|
if (best_len < test) {
|
|
best_len = test;
|
|
best_col = start_col;
|
|
TRACE(("match column %d len %d\n",
|
|
best_col,
|
|
best_len));
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (best_col >= 0) {
|
|
columnToCell(screen, firstRow, best_col, startc);
|
|
columnToCell(screen, firstRow, best_col + best_len, endc);
|
|
TRACE(("search::%s\n", search));
|
|
TRACE(("indexed:%d..%d -> %d..%d\n",
|
|
best_col, best_col + best_len,
|
|
indexed[best_col],
|
|
indexed[best_col + best_len]));
|
|
TRACE(("matched:%.*s\n",
|
|
indexed[best_col + best_len] + 1 -
|
|
indexed[best_col],
|
|
search + indexed[best_col]));
|
|
}
|
|
free(search);
|
|
}
|
|
free(indexed);
|
|
}
|
|
regfree(&preg);
|
|
}
|
|
}
|
|
}
|
|
#endif /* OPT_SELECT_REGEX */
|
|
|
|
/*
|
|
* sets startSel endSel
|
|
* ensuring that they have legal values
|
|
*/
|
|
static void
|
|
ComputeSelect(XtermWidget xw,
|
|
CELL * startc,
|
|
CELL * endc,
|
|
Bool extend)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int length;
|
|
int cclass;
|
|
CELL first = *startc;
|
|
CELL last = *endc;
|
|
|
|
TRACE(("ComputeSelect(startRow=%d, startCol=%d, endRow=%d, endCol=%d, %sextend)\n",
|
|
first.row, first.col,
|
|
last.row, last.col,
|
|
extend ? "" : "no"));
|
|
|
|
#if OPT_WIDE_CHARS
|
|
if (first.col > 1
|
|
&& isWideCell(first.row, first.col - 1)
|
|
&& XTERM_CELL(first.row, first.col - 0) == HIDDEN_CHAR) {
|
|
fprintf(stderr, "Adjusting start. Changing downwards from %i.\n", first.col);
|
|
first.col -= 1;
|
|
if (last.col == (first.col + 1))
|
|
last.col--;
|
|
}
|
|
|
|
if (last.col > 1
|
|
&& isWideCell(last.row, last.col - 1)
|
|
&& XTERM_CELL(last.row, last.col) == HIDDEN_CHAR) {
|
|
last.col += 1;
|
|
}
|
|
#endif
|
|
|
|
if (Coordinate(screen, &first) <= Coordinate(screen, &last)) {
|
|
screen->startSel = screen->startRaw = first;
|
|
screen->endSel = screen->endRaw = last;
|
|
} else { /* Swap them */
|
|
screen->startSel = screen->startRaw = last;
|
|
screen->endSel = screen->endRaw = first;
|
|
}
|
|
|
|
switch (screen->selectUnit) {
|
|
case Select_CHAR:
|
|
(void) okPosition(screen, &(screen->startSel));
|
|
(void) okPosition(screen, &(screen->endSel));
|
|
break;
|
|
|
|
case Select_WORD:
|
|
TRACE(("Select_WORD\n"));
|
|
if (okPosition(screen, &(screen->startSel))) {
|
|
cclass = class_of(screen, &(screen->startSel));
|
|
do {
|
|
--screen->startSel.col;
|
|
if (screen->startSel.row > 0
|
|
&& screen->startSel.col < 0
|
|
&& ScrnTstWrapped(screen, screen->startSel.row - 1)) {
|
|
--screen->startSel.row;
|
|
screen->startSel.col = LastTextCol(screen, screen->startSel.row);
|
|
}
|
|
} while (screen->startSel.col >= 0
|
|
&& ClassSelects(screen, &(screen->startSel), cclass));
|
|
++screen->startSel.col;
|
|
}
|
|
#if OPT_WIDE_CHARS
|
|
if (screen->startSel.col
|
|
&& XTERM_CELL(screen->startSel.row,
|
|
screen->startSel.col) == HIDDEN_CHAR)
|
|
screen->startSel.col++;
|
|
#endif
|
|
|
|
if (okPosition(screen, &(screen->endSel))) {
|
|
length = LastTextCol(screen, screen->endSel.row);
|
|
cclass = class_of(screen, &(screen->endSel));
|
|
do {
|
|
++screen->endSel.col;
|
|
if (screen->endSel.col > length
|
|
&& ScrnTstWrapped(screen, screen->endSel.row)) {
|
|
screen->endSel.col = 0;
|
|
++screen->endSel.row;
|
|
length = LastTextCol(screen, screen->endSel.row);
|
|
}
|
|
} while (screen->endSel.col <= length
|
|
&& ClassSelects(screen, &(screen->endSel), cclass));
|
|
/* Word-select selects if pointing to any char in "word",
|
|
* especially note that it includes the last character in a word.
|
|
* So we do no --endSel.col and do special eol handling.
|
|
*/
|
|
if (screen->endSel.col > length + 1) {
|
|
screen->endSel.col = 0;
|
|
++screen->endSel.row;
|
|
}
|
|
}
|
|
#if OPT_WIDE_CHARS
|
|
if (screen->endSel.col
|
|
&& XTERM_CELL(screen->endSel.row,
|
|
screen->endSel.col) == HIDDEN_CHAR)
|
|
screen->endSel.col++;
|
|
#endif
|
|
|
|
screen->saveStartW = screen->startSel;
|
|
break;
|
|
|
|
case Select_LINE:
|
|
TRACE(("Select_LINE\n"));
|
|
while (ScrnTstWrapped(screen, screen->endSel.row)) {
|
|
++screen->endSel.row;
|
|
}
|
|
if (screen->cutToBeginningOfLine
|
|
|| screen->startSel.row < screen->saveStartW.row) {
|
|
screen->startSel.col = 0;
|
|
while (screen->startSel.row > 0
|
|
&& ScrnTstWrapped(screen, screen->startSel.row - 1)) {
|
|
--screen->startSel.row;
|
|
}
|
|
} else if (!extend) {
|
|
if ((first.row < screen->saveStartW.row)
|
|
|| (isSameRow(&first, &(screen->saveStartW))
|
|
&& first.col < screen->saveStartW.col)) {
|
|
screen->startSel.col = 0;
|
|
while (screen->startSel.row > 0
|
|
&& ScrnTstWrapped(screen, screen->startSel.row - 1)) {
|
|
--screen->startSel.row;
|
|
}
|
|
} else {
|
|
screen->startSel = screen->saveStartW;
|
|
}
|
|
}
|
|
trimLastLine(screen, &(screen->endSel));
|
|
break;
|
|
|
|
case Select_GROUP: /* paragraph */
|
|
TRACE(("Select_GROUP\n"));
|
|
if (okPosition(screen, &(screen->startSel))) {
|
|
/* scan backward for beginning of group */
|
|
while (screen->startSel.row > 0 &&
|
|
(LastTextCol(screen, screen->startSel.row - 1) > 0 ||
|
|
ScrnTstWrapped(screen, screen->startSel.row - 1))) {
|
|
--screen->startSel.row;
|
|
}
|
|
screen->startSel.col = 0;
|
|
/* scan forward for end of group */
|
|
while (screen->endSel.row < screen->max_row &&
|
|
(LastTextCol(screen, screen->endSel.row + 1) > 0 ||
|
|
ScrnTstWrapped(screen, screen->endSel.row))) {
|
|
++screen->endSel.row;
|
|
}
|
|
trimLastLine(screen, &(screen->endSel));
|
|
}
|
|
break;
|
|
|
|
case Select_PAGE: /* everything one can see */
|
|
TRACE(("Select_PAGE\n"));
|
|
screen->startSel.row = 0;
|
|
screen->startSel.col = 0;
|
|
screen->endSel.row = screen->max_row + 1;
|
|
screen->endSel.col = 0;
|
|
break;
|
|
|
|
case Select_ALL: /* counts scrollback if in normal screen */
|
|
TRACE(("Select_ALL\n"));
|
|
screen->startSel.row = -screen->savedlines;
|
|
screen->startSel.col = 0;
|
|
screen->endSel.row = screen->max_row + 1;
|
|
screen->endSel.col = 0;
|
|
break;
|
|
|
|
#if OPT_SELECT_REGEX
|
|
case Select_REGEX:
|
|
do_select_regex(screen, &(screen->startSel), &(screen->endSel));
|
|
break;
|
|
#endif
|
|
|
|
case NSELECTUNITS: /* always ignore */
|
|
return;
|
|
}
|
|
|
|
/* check boundaries */
|
|
ScrollSelection(screen, 0, False);
|
|
|
|
TrackText(xw, &(screen->startSel), &(screen->endSel));
|
|
return;
|
|
}
|
|
|
|
/* Guaranteed (first.row, first.col) <= (last.row, last.col) */
|
|
static void
|
|
TrackText(XtermWidget xw,
|
|
const CELL * firstp,
|
|
const CELL * lastp)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int from, to;
|
|
CELL old_start, old_end;
|
|
CELL first = *firstp;
|
|
CELL last = *lastp;
|
|
|
|
TRACE(("TrackText(first=%d,%d, last=%d,%d)\n",
|
|
first.row, first.col, last.row, last.col));
|
|
|
|
old_start = screen->startH;
|
|
old_end = screen->endH;
|
|
if (isSameCELL(&first, &old_start) &&
|
|
isSameCELL(&last, &old_end))
|
|
return;
|
|
screen->startH = first;
|
|
screen->endH = last;
|
|
from = Coordinate(screen, &screen->startH);
|
|
to = Coordinate(screen, &screen->endH);
|
|
if (to <= screen->startHCoord || from > screen->endHCoord) {
|
|
/* No overlap whatsoever between old and new hilite */
|
|
ReHiliteText(xw, &old_start, &old_end);
|
|
ReHiliteText(xw, &first, &last);
|
|
} else {
|
|
if (from < screen->startHCoord) {
|
|
/* Extend left end */
|
|
ReHiliteText(xw, &first, &old_start);
|
|
} else if (from > screen->startHCoord) {
|
|
/* Shorten left end */
|
|
ReHiliteText(xw, &old_start, &first);
|
|
}
|
|
if (to > screen->endHCoord) {
|
|
/* Extend right end */
|
|
ReHiliteText(xw, &old_end, &last);
|
|
} else if (to < screen->endHCoord) {
|
|
/* Shorten right end */
|
|
ReHiliteText(xw, &last, &old_end);
|
|
}
|
|
}
|
|
screen->startHCoord = from;
|
|
screen->endHCoord = to;
|
|
}
|
|
|
|
/* Guaranteed that (first->row, first->col) <= (last->row, last->col) */
|
|
static void
|
|
ReHiliteText(XtermWidget xw,
|
|
CELL * firstp,
|
|
CELL * lastp)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int i;
|
|
CELL first = *firstp;
|
|
CELL last = *lastp;
|
|
|
|
TRACE(("ReHiliteText from %d.%d to %d.%d\n",
|
|
first.row, first.col, last.row, last.col));
|
|
|
|
if (first.row < 0)
|
|
first.row = first.col = 0;
|
|
else if (first.row > screen->max_row)
|
|
return; /* nothing to do, since last.row >= first.row */
|
|
|
|
if (last.row < 0)
|
|
return; /* nothing to do, since first.row <= last.row */
|
|
else if (last.row > screen->max_row) {
|
|
last.row = screen->max_row;
|
|
last.col = MaxCols(screen);
|
|
}
|
|
if (isSameCELL(&first, &last))
|
|
return;
|
|
|
|
if (!isSameRow(&first, &last)) { /* do multiple rows */
|
|
if ((i = screen->max_col - first.col + 1) > 0) { /* first row */
|
|
ScrnRefresh(xw, first.row, first.col, 1, i, True);
|
|
}
|
|
if ((i = last.row - first.row - 1) > 0) { /* middle rows */
|
|
ScrnRefresh(xw, first.row + 1, 0, i, MaxCols(screen), True);
|
|
}
|
|
if (last.col > 0 && last.row <= screen->max_row) { /* last row */
|
|
ScrnRefresh(xw, last.row, 0, 1, last.col, True);
|
|
}
|
|
} else { /* do single row */
|
|
ScrnRefresh(xw, first.row, first.col, 1, last.col - first.col, True);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Guaranteed that (cellc->row, cellc->col) <= (cell->row, cell->col), and that both points are valid
|
|
* (may have cell->row = screen->max_row+1, cell->col = 0).
|
|
*/
|
|
static void
|
|
SaltTextAway(XtermWidget xw,
|
|
CELL * cellc,
|
|
CELL * cell,
|
|
String * params, /* selections */
|
|
Cardinal num_params)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int i, j = 0;
|
|
int eol;
|
|
Char *line;
|
|
Char *lp;
|
|
CELL first = *cellc;
|
|
CELL last = *cell;
|
|
|
|
if (isSameRow(&first, &last) && first.col > last.col) {
|
|
int tmp = first.col;
|
|
first.col = last.col;
|
|
last.col = tmp;
|
|
}
|
|
|
|
--last.col;
|
|
/* first we need to know how long the string is before we can save it */
|
|
|
|
if (isSameRow(&last, &first)) {
|
|
j = Length(screen, first.row, first.col, last.col);
|
|
} else { /* two cases, cut is on same line, cut spans multiple lines */
|
|
j += Length(screen, first.row, first.col, screen->max_col) + 1;
|
|
for (i = first.row + 1; i < last.row; i++)
|
|
j += Length(screen, i, 0, screen->max_col) + 1;
|
|
if (last.col >= 0)
|
|
j += Length(screen, last.row, 0, last.col);
|
|
}
|
|
|
|
/* UTF-8 may require more space */
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
j *= 4;
|
|
});
|
|
|
|
/* now get some memory to save it in */
|
|
|
|
if (screen->selection_size <= j) {
|
|
if ((line = (Char *) malloc((unsigned) j + 1)) == 0)
|
|
SysError(ERROR_BMALLOC2);
|
|
XtFree((char *) screen->selection_data);
|
|
screen->selection_data = line;
|
|
screen->selection_size = j + 1;
|
|
} else {
|
|
line = screen->selection_data;
|
|
}
|
|
|
|
if ((line == 0)
|
|
|| (j < 0))
|
|
return;
|
|
|
|
line[j] = '\0'; /* make sure it is null terminated */
|
|
lp = line; /* lp points to where to save the text */
|
|
if (isSameRow(&last, &first)) {
|
|
lp = SaveText(screen, last.row, first.col, last.col, lp, &eol);
|
|
} else {
|
|
lp = SaveText(screen, first.row, first.col, screen->max_col, lp, &eol);
|
|
if (eol)
|
|
*lp++ = '\n'; /* put in newline at end of line */
|
|
for (i = first.row + 1; i < last.row; i++) {
|
|
lp = SaveText(screen, i, 0, screen->max_col, lp, &eol);
|
|
if (eol)
|
|
*lp++ = '\n';
|
|
}
|
|
if (last.col >= 0)
|
|
lp = SaveText(screen, last.row, 0, last.col, lp, &eol);
|
|
}
|
|
*lp = '\0'; /* make sure we have end marked */
|
|
|
|
TRACE(("Salted TEXT:%d:%.*s\n", lp - line, lp - line, line));
|
|
screen->selection_length = (lp - line);
|
|
_OwnSelection(xw, params, num_params);
|
|
}
|
|
|
|
#if OPT_PASTE64
|
|
void
|
|
ClearSelectionBuffer(TScreen * screen)
|
|
{
|
|
screen->selection_length = 0;
|
|
screen->base64_count = 0;
|
|
}
|
|
|
|
static void
|
|
AppendStrToSelectionBuffer(TScreen * screen, Char * text, unsigned len)
|
|
{
|
|
if (len != 0) {
|
|
int j = screen->selection_length + len; /* New length */
|
|
int k = j + (j >> 2) + 80; /* New size if we grow buffer: grow by ~50% */
|
|
if (j + 1 >= screen->selection_size) {
|
|
if (!screen->selection_length) {
|
|
/* New buffer */
|
|
Char *line;
|
|
if ((line = (Char *) malloc((unsigned) k)) == 0)
|
|
SysError(ERROR_BMALLOC2);
|
|
XtFree((char *) screen->selection_data);
|
|
screen->selection_data = line;
|
|
} else {
|
|
/* Realloc buffer */
|
|
screen->selection_data = (Char *)
|
|
realloc(screen->selection_data,
|
|
(unsigned) k);
|
|
if (screen->selection_data == 0)
|
|
SysError(ERROR_BMALLOC2);
|
|
}
|
|
screen->selection_size = k;
|
|
}
|
|
memcpy(screen->selection_data + screen->selection_length, text, len);
|
|
screen->selection_length += len;
|
|
screen->selection_data[screen->selection_length] = 0;
|
|
}
|
|
}
|
|
|
|
void
|
|
AppendToSelectionBuffer(TScreen * screen, unsigned c)
|
|
{
|
|
int six;
|
|
Char ch;
|
|
|
|
/* Decode base64 character */
|
|
if (c >= 'A' && c <= 'Z')
|
|
six = c - 'A';
|
|
else if (c >= 'a' && c <= 'z')
|
|
six = c - 'a' + 26;
|
|
else if (c >= '0' && c <= '9')
|
|
six = c - '0' + 52;
|
|
else if (c == '+')
|
|
six = 62;
|
|
else if (c == '/')
|
|
six = 63;
|
|
else
|
|
return;
|
|
|
|
/* Accumulate bytes */
|
|
switch (screen->base64_count) {
|
|
case 0:
|
|
screen->base64_accu = six;
|
|
screen->base64_count = 6;
|
|
break;
|
|
|
|
case 2:
|
|
ch = (screen->base64_accu << 6) + six;
|
|
screen->base64_count = 0;
|
|
AppendStrToSelectionBuffer(screen, &ch, 1);
|
|
break;
|
|
|
|
case 4:
|
|
ch = (screen->base64_accu << 4) + (six >> 2);
|
|
screen->base64_accu = (six & 0x3);
|
|
screen->base64_count = 2;
|
|
AppendStrToSelectionBuffer(screen, &ch, 1);
|
|
break;
|
|
|
|
case 6:
|
|
ch = (screen->base64_accu << 2) + (six >> 4);
|
|
screen->base64_accu = (six & 0xF);
|
|
screen->base64_count = 4;
|
|
AppendStrToSelectionBuffer(screen, &ch, 1);
|
|
break;
|
|
}
|
|
}
|
|
|
|
void
|
|
CompleteSelection(XtermWidget xw, char **args, Cardinal len)
|
|
{
|
|
xw->screen.base64_count = 0;
|
|
xw->screen.base64_accu = 0;
|
|
_OwnSelection(xw, args, len);
|
|
}
|
|
#endif /* OPT_PASTE64 */
|
|
|
|
static Bool
|
|
_ConvertSelectionHelper(Widget w,
|
|
Atom * type,
|
|
XtPointer *value,
|
|
unsigned long *length,
|
|
int *format,
|
|
int (*conversion_function) (Display *,
|
|
char **, int,
|
|
XICCEncodingStyle,
|
|
XTextProperty *),
|
|
XICCEncodingStyle conversion_style)
|
|
{
|
|
if (IsXtermWidget(w)) {
|
|
Display *d = XtDisplay(w);
|
|
TScreen *screen = &((XtermWidget) w)->screen;
|
|
XTextProperty textprop;
|
|
|
|
if (conversion_function(d, (char **) &screen->selection_data, 1,
|
|
conversion_style,
|
|
&textprop) >= Success) {
|
|
*value = (XtPointer) textprop.value;
|
|
*length = textprop.nitems;
|
|
*type = textprop.encoding;
|
|
*format = textprop.format;
|
|
return True;
|
|
}
|
|
}
|
|
return False;
|
|
}
|
|
|
|
static Boolean
|
|
ConvertSelection(Widget w,
|
|
Atom * selection,
|
|
Atom * target,
|
|
Atom * type,
|
|
XtPointer *value,
|
|
unsigned long *length,
|
|
int *format)
|
|
{
|
|
Display *d = XtDisplay(w);
|
|
TScreen *screen;
|
|
Bool result = False;
|
|
|
|
if (!IsXtermWidget(w))
|
|
return False;
|
|
|
|
screen = &((XtermWidget) w)->screen;
|
|
|
|
if (screen->selection_data == NULL)
|
|
return False; /* can this happen? */
|
|
|
|
if (*target == XA_TARGETS(d)) {
|
|
Atom *targetP;
|
|
Atom *std_targets;
|
|
XPointer std_return = 0;
|
|
unsigned long std_length;
|
|
|
|
TRACE(("ConvertSelection XA_TARGETS(d)\n"));
|
|
if (XmuConvertStandardSelection(w, screen->selection_time, selection,
|
|
target, type, &std_return,
|
|
&std_length, format)) {
|
|
std_targets = (Atom *) (std_return);
|
|
*length = std_length + 6;
|
|
targetP = (Atom *) XtMalloc(sizeof(Atom) * (*length));
|
|
*value = (XtPointer) targetP;
|
|
*targetP++ = XA_STRING;
|
|
*targetP++ = XA_TEXT(d);
|
|
#ifdef X_HAVE_UTF8_STRING
|
|
*targetP++ = XA_COMPOUND_TEXT(d);
|
|
*targetP++ = XA_UTF8_STRING(d);
|
|
#else
|
|
*targetP = XA_COMPOUND_TEXT(d);
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
*targetP = XA_UTF8_STRING(d);
|
|
});
|
|
targetP++;
|
|
#endif
|
|
*targetP++ = XA_LENGTH(d);
|
|
*targetP++ = XA_LIST_LENGTH(d);
|
|
memcpy(targetP, std_targets, sizeof(Atom) * std_length);
|
|
XtFree((char *) std_targets);
|
|
*type = XA_ATOM;
|
|
*format = 32;
|
|
result = True;
|
|
}
|
|
}
|
|
#if OPT_WIDE_CHARS
|
|
else if (screen->wide_chars && *target == XA_STRING) {
|
|
TRACE(("ConvertSelection XA_STRING - wide\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
Xutf8TextListToTextProperty,
|
|
XStringStyle);
|
|
} else if (screen->wide_chars && *target == XA_UTF8_STRING(d)) {
|
|
TRACE(("ConvertSelection XA_UTF8_STRING(d) - wide\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
Xutf8TextListToTextProperty,
|
|
XUTF8StringStyle);
|
|
} else if (screen->wide_chars && *target == XA_TEXT(d)) {
|
|
TRACE(("ConvertSelection XA_TEXT(d) - wide\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
Xutf8TextListToTextProperty,
|
|
XStdICCTextStyle);
|
|
} else if (screen->wide_chars && *target == XA_COMPOUND_TEXT(d)) {
|
|
TRACE(("ConvertSelection XA_COMPOUND_TEXT(d) - wide\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
Xutf8TextListToTextProperty,
|
|
XCompoundTextStyle);
|
|
}
|
|
#endif
|
|
|
|
else if (*target == XA_STRING) { /* not wide_chars */
|
|
/* We can only reach this point if the selection requestor
|
|
requested STRING before any of TEXT, COMPOUND_TEXT or
|
|
UTF8_STRING. We therefore assume that the requestor is not
|
|
properly internationalised, and dump raw eight-bit data
|
|
with no conversion into the selection. Yes, this breaks
|
|
the ICCCM in non-Latin-1 locales. */
|
|
TRACE(("ConvertSelection XA_STRING\n"));
|
|
*type = XA_STRING;
|
|
*value = (XtPointer) screen->selection_data;
|
|
*length = screen->selection_length;
|
|
*format = 8;
|
|
result = True;
|
|
} else if (*target == XA_TEXT(d)) { /* not wide_chars */
|
|
TRACE(("ConvertSelection XA_TEXT(d)\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
XmbTextListToTextProperty,
|
|
XStdICCTextStyle);
|
|
} else if (*target == XA_COMPOUND_TEXT(d)) { /* not wide_chars */
|
|
TRACE(("ConvertSelection XA_COMPOUND_TEXT(d)\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
XmbTextListToTextProperty,
|
|
XCompoundTextStyle);
|
|
}
|
|
#ifdef X_HAVE_UTF8_STRING
|
|
else if (*target == XA_UTF8_STRING(d)) { /* not wide_chars */
|
|
TRACE(("ConvertSelection XA_UTF8_STRING(d)\n"));
|
|
result =
|
|
_ConvertSelectionHelper(w,
|
|
type, value, length, format,
|
|
XmbTextListToTextProperty,
|
|
XUTF8StringStyle);
|
|
}
|
|
#endif
|
|
else if (*target == XA_LIST_LENGTH(d)) {
|
|
TRACE(("ConvertSelection XA_LIST_LENGTH(d)\n"));
|
|
*value = XtMalloc(4);
|
|
if (sizeof(long) == 4)
|
|
*(long *) *value = 1;
|
|
else {
|
|
long temp = 1;
|
|
memcpy((char *) *value, ((char *) &temp) + sizeof(long) - 4, 4);
|
|
}
|
|
*type = XA_INTEGER;
|
|
*length = 1;
|
|
*format = 32;
|
|
result = True;
|
|
} else if (*target == XA_LENGTH(d)) {
|
|
TRACE(("ConvertSelection XA_LENGTH(d)\n"));
|
|
/* This value is wrong if we have UTF-8 text */
|
|
*value = XtMalloc(4);
|
|
if (sizeof(long) == 4) {
|
|
*(long *) *value = screen->selection_length;
|
|
} else {
|
|
long temp = screen->selection_length;
|
|
memcpy((char *) *value, ((char *) &temp) + sizeof(long) - 4, 4);
|
|
}
|
|
*type = XA_INTEGER;
|
|
*length = 1;
|
|
*format = 32;
|
|
result = True;
|
|
} else if (XmuConvertStandardSelection(w,
|
|
screen->selection_time, selection,
|
|
target, type, (XPointer *) value,
|
|
length, format)) {
|
|
TRACE(("ConvertSelection XmuConvertStandardSelection\n"));
|
|
result = True;
|
|
}
|
|
|
|
/* else */
|
|
return result;
|
|
}
|
|
|
|
static void
|
|
LoseSelection(Widget w, Atom * selection)
|
|
{
|
|
TScreen *screen;
|
|
Atom *atomP;
|
|
Cardinal i;
|
|
|
|
if (!IsXtermWidget(w))
|
|
return;
|
|
|
|
screen = &((XtermWidget) w)->screen;
|
|
for (i = 0, atomP = screen->selection_atoms;
|
|
i < screen->selection_count; i++, atomP++) {
|
|
if (*selection == *atomP)
|
|
*atomP = (Atom) 0;
|
|
if (CutBuffer(*atomP) >= 0) {
|
|
*atomP = (Atom) 0;
|
|
}
|
|
}
|
|
|
|
for (i = screen->selection_count; i; i--) {
|
|
if (screen->selection_atoms[i - 1] != 0)
|
|
break;
|
|
}
|
|
screen->selection_count = i;
|
|
|
|
for (i = 0, atomP = screen->selection_atoms;
|
|
i < screen->selection_count; i++, atomP++) {
|
|
if (*atomP == (Atom) 0) {
|
|
*atomP = screen->selection_atoms[--screen->selection_count];
|
|
}
|
|
}
|
|
|
|
if (screen->selection_count == 0)
|
|
TrackText((XtermWidget) w, &zeroCELL, &zeroCELL);
|
|
}
|
|
|
|
/* ARGSUSED */
|
|
static void
|
|
SelectionDone(Widget w GCC_UNUSED,
|
|
Atom * selection GCC_UNUSED,
|
|
Atom * target GCC_UNUSED)
|
|
{
|
|
/* empty proc so Intrinsics know we want to keep storage */
|
|
}
|
|
|
|
static void
|
|
_OwnSelection(XtermWidget xw,
|
|
String * selections,
|
|
Cardinal count)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
Atom *atoms = screen->selection_atoms;
|
|
Cardinal i;
|
|
Bool have_selection = False;
|
|
|
|
if (screen->selection_length < 0)
|
|
return;
|
|
|
|
TRACE(("_OwnSelection\n"));
|
|
selections = MapSelections(xw, selections, count);
|
|
|
|
if (count > screen->sel_atoms_size) {
|
|
XtFree((char *) atoms);
|
|
atoms = (Atom *) XtMalloc(count * sizeof(Atom));
|
|
screen->selection_atoms = atoms;
|
|
screen->sel_atoms_size = count;
|
|
}
|
|
XmuInternStrings(XtDisplay((Widget) xw), selections, count, atoms);
|
|
for (i = 0; i < count; i++) {
|
|
int cutbuffer = CutBuffer(atoms[i]);
|
|
if (cutbuffer >= 0) {
|
|
if (screen->selection_length >
|
|
4 * XMaxRequestSize(XtDisplay((Widget) xw)) - 32) {
|
|
fprintf(stderr,
|
|
"%s: selection too big (%d bytes), not storing in CUT_BUFFER%d\n",
|
|
xterm_name, screen->selection_length, cutbuffer);
|
|
} else {
|
|
/* This used to just use the UTF-8 data, which was totally
|
|
* broken as not even the corresponding paste code in Xterm
|
|
* understood this! So now it converts to Latin1 first.
|
|
* Robert Brady, 2000-09-05
|
|
*/
|
|
unsigned long length = screen->selection_length;
|
|
Char *data = screen->selection_data;
|
|
if_OPT_WIDE_CHARS((screen), {
|
|
data = UTF8toLatin1(data, length, &length);
|
|
});
|
|
TRACE(("XStoreBuffer(%d)\n", cutbuffer));
|
|
XStoreBuffer(XtDisplay((Widget) xw),
|
|
(char *) data,
|
|
(int) length,
|
|
cutbuffer);
|
|
}
|
|
} else if (!screen->replyToEmacs) {
|
|
have_selection |=
|
|
XtOwnSelection((Widget) xw, atoms[i],
|
|
screen->selection_time,
|
|
ConvertSelection, LoseSelection, SelectionDone);
|
|
}
|
|
}
|
|
if (!screen->replyToEmacs)
|
|
screen->selection_count = count;
|
|
if (!have_selection)
|
|
TrackText(xw, &zeroCELL, &zeroCELL);
|
|
}
|
|
|
|
static void
|
|
ResetSelectionState(TScreen * screen)
|
|
{
|
|
screen->selection_count = 0;
|
|
screen->startH = zeroCELL;
|
|
screen->endH = zeroCELL;
|
|
}
|
|
|
|
void
|
|
DisownSelection(XtermWidget xw)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
Atom *atoms = screen->selection_atoms;
|
|
Cardinal count = screen->selection_count;
|
|
Cardinal i;
|
|
|
|
TRACE(("DisownSelection count %d, start %d.%d, end %d.%d\n",
|
|
count,
|
|
screen->startH.row,
|
|
screen->startH.col,
|
|
screen->endH.row,
|
|
screen->endH.col));
|
|
|
|
for (i = 0; i < count; i++) {
|
|
int cutbuffer = CutBuffer(atoms[i]);
|
|
if (cutbuffer < 0) {
|
|
XtDisownSelection((Widget) xw, atoms[i],
|
|
screen->selection_time);
|
|
}
|
|
}
|
|
/*
|
|
* If none of the callbacks via XtDisownSelection() reset highlighting
|
|
* do it now.
|
|
*/
|
|
if (ScrnHaveSelection(screen)) {
|
|
/* save data which will be reset */
|
|
CELL first = screen->startH;
|
|
CELL last = screen->endH;
|
|
|
|
ResetSelectionState(screen);
|
|
ReHiliteText(xw, &first, &last);
|
|
} else {
|
|
ResetSelectionState(screen);
|
|
}
|
|
}
|
|
|
|
/* returns number of chars in line from scol to ecol out */
|
|
/* ARGSUSED */
|
|
static int
|
|
Length(TScreen * screen GCC_UNUSED,
|
|
int row,
|
|
int scol,
|
|
int ecol)
|
|
{
|
|
int lastcol = LastTextCol(screen, row);
|
|
|
|
if (ecol > lastcol)
|
|
ecol = lastcol;
|
|
return (ecol - scol + 1);
|
|
}
|
|
|
|
/* copies text into line, preallocated */
|
|
static Char *
|
|
SaveText(TScreen * screen,
|
|
int row,
|
|
int scol,
|
|
int ecol,
|
|
Char * lp, /* pointer to where to put the text */
|
|
int *eol)
|
|
{
|
|
int i = 0;
|
|
unsigned c;
|
|
Char *result = lp;
|
|
#if OPT_WIDE_CHARS
|
|
int previous = 0;
|
|
#endif
|
|
|
|
i = Length(screen, row, scol, ecol);
|
|
ecol = scol + i;
|
|
#if OPT_DEC_CHRSET
|
|
if (CSET_DOUBLE(SCRN_BUF_CSETS(screen, ROW2INX(screen, row))[0])) {
|
|
scol = (scol + 0) / 2;
|
|
ecol = (ecol + 1) / 2;
|
|
}
|
|
#endif
|
|
*eol = !ScrnTstWrapped(screen, row);
|
|
for (i = scol; i < ecol; i++) {
|
|
c = E2A(XTERM_CELL(row, i));
|
|
#if OPT_WIDE_CHARS
|
|
/* We want to strip out every occurrence of HIDDEN_CHAR AFTER a
|
|
* wide character.
|
|
*/
|
|
if (c == HIDDEN_CHAR && iswide(previous)) {
|
|
previous = c;
|
|
/* Combining characters attached to double-width characters
|
|
are in memory attached to the HIDDEN_CHAR */
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
if (screen->utf8_mode != uFalse) {
|
|
int ch;
|
|
int off;
|
|
for (off = OFF_FINAL; off < MAX_PTRS; off += 2) {
|
|
if ((ch = XTERM_CELLC(row, i, off)) == 0)
|
|
break;
|
|
lp = convertToUTF8(lp, ch);
|
|
}
|
|
}
|
|
});
|
|
continue;
|
|
}
|
|
previous = c;
|
|
if (screen->utf8_mode != uFalse) {
|
|
lp = convertToUTF8(lp, (c != 0) ? c : ' ');
|
|
if_OPT_WIDE_CHARS(screen, {
|
|
int ch;
|
|
int off;
|
|
for (off = OFF_FINAL; off < MAX_PTRS; off += 2) {
|
|
if ((ch = XTERM_CELLC(row, i, off)) == 0)
|
|
break;
|
|
lp = convertToUTF8(lp, ch);
|
|
}
|
|
});
|
|
} else
|
|
#endif
|
|
{
|
|
if (c == 0) {
|
|
c = E2A(' ');
|
|
} else if (c < E2A(' ')) {
|
|
if (c == XPOUND)
|
|
c = 0x23; /* char on screen is pound sterling */
|
|
else
|
|
c += 0x5f; /* char is from DEC drawing set */
|
|
} else if (c == 0x7f) {
|
|
c = 0x5f;
|
|
}
|
|
*lp++ = A2E(c);
|
|
}
|
|
if (c != E2A(' '))
|
|
result = lp;
|
|
}
|
|
|
|
/*
|
|
* If requested, trim trailing blanks from selected lines. Do not do this
|
|
* if the line is wrapped.
|
|
*/
|
|
if (!*eol || !screen->trim_selection)
|
|
result = lp;
|
|
|
|
return (result);
|
|
}
|
|
|
|
/* 32 + following 7-bit word:
|
|
|
|
1:0 Button no: 0, 1, 2. 3=release.
|
|
2 shift
|
|
3 meta
|
|
4 ctrl
|
|
5 set for motion notify
|
|
6 set for wheel
|
|
*/
|
|
|
|
/* Position: 32 - 255. */
|
|
|
|
static int
|
|
BtnCode(XButtonEvent * event, int button)
|
|
{
|
|
int result = 32 + (KeyState(event->state) << 2);
|
|
|
|
if (button < 0 || button > 5) {
|
|
result += 3;
|
|
} else {
|
|
if (button > 3)
|
|
result += (64 - 4);
|
|
if (event->type == MotionNotify)
|
|
result += 32;
|
|
result += button;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
#define MOUSE_LIMIT (255 - 32)
|
|
|
|
static void
|
|
EditorButton(XtermWidget xw, XButtonEvent * event)
|
|
{
|
|
TScreen *screen = &(xw->screen);
|
|
int pty = screen->respond;
|
|
Char line[6];
|
|
int row, col;
|
|
int button;
|
|
unsigned count = 0;
|
|
|
|
/* If button event, get button # adjusted for DEC compatibility */
|
|
button = event->button - 1;
|
|
if (button >= 3)
|
|
button++;
|
|
|
|
/* Compute character position of mouse pointer */
|
|
row = (event->y - screen->border) / FontHeight(screen);
|
|
col = (event->x - OriginX(screen)) / FontWidth(screen);
|
|
|
|
/* Limit to screen dimensions */
|
|
if (row < 0)
|
|
row = 0;
|
|
else if (row > screen->max_row)
|
|
row = screen->max_row;
|
|
else if (row > MOUSE_LIMIT)
|
|
row = MOUSE_LIMIT;
|
|
|
|
if (col < 0)
|
|
col = 0;
|
|
else if (col > screen->max_col)
|
|
col = screen->max_col;
|
|
else if (col > MOUSE_LIMIT)
|
|
col = MOUSE_LIMIT;
|
|
|
|
/* Build key sequence starting with \E[M */
|
|
if (screen->control_eight_bits) {
|
|
line[count++] = CSI;
|
|
} else {
|
|
line[count++] = ESC;
|
|
line[count++] = '[';
|
|
}
|
|
#if OPT_SCO_FUNC_KEYS
|
|
if (xw->keyboard.type == keyboardIsSCO) {
|
|
/*
|
|
* SCO function key F1 is \E[M, which would conflict with xterm's
|
|
* normal kmous.
|
|
*/
|
|
line[count++] = '>';
|
|
}
|
|
#endif
|
|
line[count++] = 'M';
|
|
|
|
/* Add event code to key sequence */
|
|
if (screen->send_mouse_pos == X10_MOUSE) {
|
|
line[count++] = ' ' + button;
|
|
} else {
|
|
/* Button-Motion events */
|
|
switch (event->type) {
|
|
case ButtonPress:
|
|
line[count++] = BtnCode(event, screen->mouse_button = button);
|
|
break;
|
|
case ButtonRelease:
|
|
/*
|
|
* Wheel mouse interface generates release-events for buttons
|
|
* 4 and 5, coded here as 3 and 4 respectively. We change the
|
|
* release for buttons 1..3 to a -1.
|
|
*/
|
|
if (button < 3)
|
|
button = -1;
|
|
line[count++] = BtnCode(event, screen->mouse_button = button);
|
|
break;
|
|
case MotionNotify:
|
|
/* BTN_EVENT_MOUSE and ANY_EVENT_MOUSE modes send motion
|
|
* events only if character cell has changed.
|
|
*/
|
|
if ((row == screen->mouse_row)
|
|
&& (col == screen->mouse_col))
|
|
return;
|
|
line[count++] = BtnCode(event, screen->mouse_button);
|
|
break;
|
|
default:
|
|
return;
|
|
}
|
|
}
|
|
|
|
screen->mouse_row = row;
|
|
screen->mouse_col = col;
|
|
|
|
/* Add pointer position to key sequence */
|
|
line[count++] = ' ' + col + 1;
|
|
line[count++] = ' ' + row + 1;
|
|
|
|
TRACE(("mouse at %d,%d button+mask = %#x\n", row, col,
|
|
(screen->control_eight_bits) ? line[2] : line[3]));
|
|
|
|
/* Transmit key sequence to process running under xterm */
|
|
v_write(pty, line, count);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
#if OPT_TEK4014
|
|
void
|
|
HandleGINInput(Widget w GCC_UNUSED,
|
|
XEvent * event GCC_UNUSED,
|
|
String * param_list,
|
|
Cardinal *nparamsp)
|
|
{
|
|
if (term->screen.TekGIN && *nparamsp == 1) {
|
|
int c = param_list[0][0];
|
|
switch (c) {
|
|
case 'l':
|
|
case 'm':
|
|
case 'r':
|
|
case 'L':
|
|
case 'M':
|
|
case 'R':
|
|
break;
|
|
default:
|
|
Bell(XkbBI_MinorError, 0); /* let them know they goofed */
|
|
c = 'l'; /* provide a default */
|
|
}
|
|
TekEnqMouse(c | 0x80);
|
|
TekGINoff();
|
|
} else {
|
|
Bell(XkbBI_MinorError, 0);
|
|
}
|
|
}
|
|
#endif /* OPT_TEK4014 */
|