int
matchfenceback(int f, int n)
{
int s = getfence(0, (!f || n > 0) ? REVERSE:FORWARD);
if (s == FALSE)
kbd_alarm();
return s;
}
int
paste_selection(void)
{
if (!doingsweep) {
TRACE(("MOUSE paste selection\n"));
if (b_val(curbp, MDVIEW)) {
kbd_alarm();
return FALSE;
}
mayneedundo();
return putafter(FALSE, 1);
}
return SEL_PASTE;
}
/*
* This hack will search for the next occurrence of <searchpat> in the buffer,
* either forward or backward. It is called with the status of the prior
* search attempt, so that it knows not to bother if it didn't work last
* time. If we can't find any more matches, "point" is left where it was
* before. If we do find a match, "point" will be at the end of the matched
* string for forward searches and at the beginning of the matched string for
* reverse searches.
*/
static int
scanmore( /* search forward or back for a pattern */
TBUFF *patrn, /* string to scan for */
int dir) /* direction to search */
{
int sts = FALSE; /* current search status */
FreeIfNeeded(gregexp);
gregexp = regcomp(tb_values(patrn), tb_length(patrn), b_val(curbp, MDMAGIC));
if (gregexp != 0) {
ignorecase = window_b_val(curwp, MDIGNCASE);
sts = scanner(gregexp, (dir < 0) ? REVERSE : FORWARD, FALSE, (int *) 0);
if (!sts) {
kbd_alarm(); /* beep the terminal if we fail */
}
#if OPT_EXTRA_COLOR
else {
MARK save_MK;
int *attrp = lookup_extra_color(XCOLOR_ISEARCH);
if (!isEmpty(attrp)) {
/* clear any existing search-match */
clear_match_attrs(TRUE, 1);
/* draw the new search-match */
regionshape = rgn_EXACT;
save_MK = MK;
MK.l = DOT.l;
MK.o = DOT.o + (C_NUM) tb_length(patrn);
videoattribute = (VIDEO_ATTR) * attrp;
videoattribute |= VOWN_MATCHES;
(void) attributeregion();
/* fix for clear_match_attrs */
curbp->b_highlight |= HILITE_ON;
MK = save_MK;
}
}
#endif
}
return (sts); /* else, don't even try */
}
/* For the "operator" commands -- the following command is a motion, or
* the operator itself is repeated. All operate on regions.
*/
int
vile_op(int f, int n, OpsFunc fn, const char *str)
{
int c = 0;
int thiskey;
int status;
const CMDFUNC *cfp; /* function to execute */
const CMDFUNC *save_cmd_motion = cmd_motion;
BUFFER *ourbp;
#if OPT_MOUSE
WINDOW *wp0 = curwp;
#endif
TRACE((T_CALLED "vile_op(%s)\n", str));
doingopcmd = TRUE;
pre_op_dot = DOT;
ourbp = curbp;
if (havemotion != NULL) {
cfp = havemotion;
havemotion = NULL;
} else {
TBUFF *tok = 0;
mlwrite("%s operation pending...", str);
(void) update(FALSE);
/* get the next command from the keyboard */
/* or a command line, as approp. */
if (clexec) {
char *value = mac_unquotedarg(&tok); /* get the next token */
if (value != 0 && strcmp(value, "lines"))
cfp = engl2fnc(value);
else
cfp = &f_godotplus;
} else {
thiskey = lastkey;
c = kbd_seq();
#if OPT_MOUSE
if (curwp != wp0) {
unkeystroke(c);
doingopcmd = FALSE;
returnCode(FALSE);
}
#endif
/* allow second chance for entering counts */
do_repeats(&c, &f, &n);
if (thiskey == lastkey)
cfp = &f_godotplus;
else
cfp = DefaultKeyBinding(c);
}
if (cfp != 0) {
mlerase();
} else {
if (!clexec) {
char temp[NSTRING];
lsprintf(temp, "(%d)", c);
tb_scopy(&tok, temp);
}
(void) no_such_function(tb_values(tok));
}
tb_free(&tok);
}
if (!cfp) {
status = FALSE;
} else if ((cfp->c_flags & MOTION) == 0) {
kbd_alarm();
status = ABORT;
} else {
/* motion is interpreted as affecting full lines */
if (regionshape == rgn_EXACT) {
if (cfp->c_flags & FL)
regionshape = rgn_FULLLINE;
if (cfp->c_flags & VL_RECT)
regionshape = rgn_RECTANGLE;
}
/* and execute the motion */
if ((status = execute(cfp, f, n)) == TRUE) {
post_op_dot = DOT;
} else {
mlforce("[Motion failed]");
status = FALSE;
}
}
if (status == TRUE) {
opcmd = 0;
MK = pre_op_dot;
/* we've successfully set up a region */
if (!fn) { /* be defensive */
mlforce("BUG -- null func pointer in operator");
status = FALSE;
} else if (fn == user_operator) {
swapmark();
cmd_motion = cfp;
status = dobuf(find_b_name(str), 1, f ? n : 1);
} else {
status = (fn) ();
}
if (ourbp == curbp) /* in case the func switched buffers on us */
swapmark();
if (regionshape == rgn_FULLLINE)
(void) firstnonwhite(FALSE, 1);
}
regionshape = rgn_EXACT;
doingopcmd = FALSE;
haveregion = FALSE;
cmd_motion = save_cmd_motion;
returnCode(status);
}
static void
handle_mouse_event(MOUSE_EVENT_RECORD mer)
{
static DWORD lastclick = 0;
static int clicks = 0;
int onmode = FALSE;
COORD current, first, latest;
MARK lmbdn_mark; /* left mouse button down here */
int sel_pending = 0, state;
DWORD thisclick;
UINT clicktime = GetDoubleClickTime();
buttondown = FALSE;
for_ever {
current = mer.dwMousePosition;
switch (mer.dwEventFlags) {
case 0:
state = mer.dwButtonState;
if (state == 0) { /* button released */
thisclick = GetTickCount();
TRACE(("CLICK %d/%d\n", lastclick, thisclick));
if (thisclick - lastclick < clicktime) {
clicks++;
TRACE(("MOUSE CLICKS %d\n", clicks));
} else {
clicks = 0;
}
lastclick = thisclick;
switch (clicks) {
case 1:
on_double_click();
break;
case 2:
on_triple_click();
break;
}
if (buttondown) {
int dummy;
halt_autoscroll_thread();
/* Finalize cursor position. */
(void) MouseClickSetPos(¤t, &dummy);
if (!(onmode || sel_pending))
sel_yank(0);
}
return;
}
if (state & FROM_LEFT_1ST_BUTTON_PRESSED) {
if (MouseClickSetPos(¤t, &onmode)) {
first = latest = current;
lmbdn_mark = DOT;
sel_pending = FALSE;
mouse_wp = row2window(latest.Y);
if (onmode) {
buttondown = TRUE;
sel_release();
update(TRUE);
} else {
HWND hwnd;
(void) update(TRUE); /* possible wdw change */
buttondown = FALSE; /* until all inits are successful */
/* Capture mouse to console vile's window handle. */
hwnd = GetVileWindow();
(void) SetCapture(hwnd);
/* Compute pixel height of each row on screen. */
(void) GetClientRect(hwnd, &client_rect);
row_height = client_rect.bottom / term.rows;
/*
* Create mutex to ensure that main thread and worker
* thread don't update display at the same time.
*/
if ((hAsMutex = CreateMutex(0, FALSE, 0)) == NULL)
mlforce("[Can't create autoscroll mutex]");
else {
/*
* Setup a worker thread to act as a pseudo
* timer that kicks off autoscroll when
* necessary.
*/
if (_beginthread(autoscroll_thread,
0,
NULL) == (unsigned long) -1) {
(void) CloseHandle(hAsMutex);
mlforce("[Can't create autoscroll thread]");
} else
sel_pending = buttondown = TRUE;
}
if (!buttondown)
(void) ReleaseCapture();
}
}
} else if (state & FROM_LEFT_2ND_BUTTON_PRESSED) {
if (MouseClickSetPos(¤t, &onmode)
&& !onmode) {
sel_yank(0);
sel_release();
paste_selection();
(void) update(TRUE);
}
return;
} else {
if (MouseClickSetPos(¤t, &onmode)
&& onmode) {
sel_release();
update(TRUE);
} else {
kbd_alarm();
}
}
break;
case MOUSE_MOVED:
if (!buttondown)
return;
if (onmode) {
/* on mode line, resize window (if possible). */
if (!adjust_window(mouse_wp, ¤t, &latest)) {
/*
* left mouse button still down, but cursor moved off mode
* line. Update latest to keep track of cursor in case
* it wanders back on the mode line.
*/
latest = current;
}
} else {
mousemove(&sel_pending,
&first,
¤t,
&lmbdn_mark,
(mer.dwControlKeyState & (LEFT_CTRL_PRESSED | RIGHT_CTRL_PRESSED))
);
}
break;
#ifdef MOUSE_WHEELED
case MOUSE_WHEELED:
/*
* Trial and error experimentation shows that dwButtonState
* has its high bit set when the wheel moves back and not
* set otherwise.
*/
mvupwind(TRUE, ((long) mer.dwButtonState < 0) ? -3 : 3);
update(TRUE);
return;
#endif /* MOUSE_WHEELED */
}
for_ever {
INPUT_RECORD ir;
DWORD nr;
int key;
if (!ReadConsoleInput(hConsoleInput, &ir, 1, &nr))
imdying(0);
switch (ir.EventType) {
case KEY_EVENT:
key = decode_key_event(&ir);
if (key == ESC) {
if (buttondown)
halt_autoscroll_thread();
sel_release();
(void) update(TRUE);
return;
}
continue;
case MOUSE_EVENT:
mer = ir.Event.MouseEvent;
break;
}
break;
}
}
}
/* For the "operator" commands -- the following command is a motion, or
* the operator itself is repeated. All operate on regions.
*/
int
operator(int f, int n, OpsFunc fn, const char *str)
{
int c;
int thiskey;
int status;
const CMDFUNC *cfp; /* function to execute */
char tok[NSTRING]; /* command incoming */
BUFFER *ourbp;
#if OPT_MOUSE
WINDOW *wp0 = curwp;
#endif
doingopcmd = TRUE;
pre_op_dot = DOT;
ourbp = curbp;
if (havemotion != NULL) {
cfp = havemotion;
havemotion = NULL;
} else {
mlwrite("%s operation pending...",str);
(void)update(FALSE);
/* get the next command from the keyboard */
/* or a command line, as approp. */
if (clexec) {
macarg(tok); /* get the next token */
if (!strcmp(tok,"lines"))
cfp = &f_godotplus;
else
cfp = engl2fnc(tok);
} else {
thiskey = lastkey;
c = kbd_seq();
#if OPT_MOUSE
if (curwp != wp0) {
unkeystroke(c);
doingopcmd = FALSE;
return FALSE;
}
#endif
/* allow second chance for entering counts */
do_repeats(&c,&f,&n);
if (thiskey == lastkey)
cfp = &f_godotplus;
else
cfp = kcod2fnc(c);
}
if (cfp)
mlerase();
else
mlforce("[No such function]");
}
if (!cfp) {
doingopcmd = FALSE;
return FALSE;
}
if ((cfp->c_flags & MOTION) == 0) {
kbd_alarm();
doingopcmd = FALSE;
return(ABORT);
}
/* motion is interpreted as affecting full lines */
if (regionshape == EXACT) {
if (cfp->c_flags & FL)
regionshape = FULLLINE;
if (cfp->c_flags & RECT)
regionshape = RECTANGLE;
}
/* and execute the motion */
status = execute(cfp, f,n);
if (status != TRUE) {
doingopcmd = FALSE;
regionshape = EXACT;
mlforce("[Motion failed]");
return FALSE;
}
opcmd = 0;
MK = pre_op_dot;
/* we've successfully set up a region */
if (!fn) { /* be defensive */
mlforce("BUG -- null func pointer in operator");
status = FALSE;
} else {
status = (fn)();
}
if (ourbp == curbp) /* in case the func switched buffers on us */
swapmark();
if (regionshape == FULLLINE)
(void)firstnonwhite(FALSE,1);
regionshape = EXACT;
doingopcmd = FALSE;
haveregion = FALSE;
return status;
}
/*
* On button press, we get an explicit number (1,2,3), and on release we don't
* really know which button, but assume it is the last-pressed button.
*/
int
on_mouse_click(int button, int y, int x)
{
static int first_x, first_y, pending;
WINDOW *this_wp, *that_wp;
int status;
if (button > 0) {
if (valid_window(this_wp = row2window(y))
&& (y != mode_row(this_wp))) {
/*
* If we get a click on the "<" marking the left side
* of a shifted window, force the screen right. This
* makes it more consistent if there's a tab.
*/
if (w_val(this_wp, WVAL_SIDEWAYS)
&& x == 0) {
mvleftwind(FALSE, 1);
}
if (!doingsweep) {
if (button == BTN_EXTEND) {
first_x = offs2col(this_wp, this_wp->w_dot.l, this_wp->w_dot.o);
first_y = line_no(this_wp->w_bufp, this_wp->w_dot.l)
- line_no(this_wp->w_bufp, this_wp->w_line.l);
} else {
first_x = x;
first_y = y;
}
}
status = setcursor(y, x);
/*
* Check for button1-down while we're in multimotion
* sweep, so we can suppress highlighting extension.
*/
if (button != BTN_EXTEND
&& status == TRUE
&& doingsweep) {
status = SORTOFTRUE;
if (button == BTN_BEGIN) {
first_x = x;
first_y = y;
}
}
} else { /* pressed button on modeline */
status = SORTOFTRUE;
first_x = x;
first_y = y;
}
pending = button;
} else if (pending) {
button = pending;
pending = FALSE;
this_wp = row2window(y);
that_wp = row2window(first_y);
if (this_wp == 0
|| that_wp == 0
|| reading_msg_line) {
TRACE(("MOUSE cannot move msg-line\n"));
status = FALSE;
} else if (insertmode
&& (this_wp != curwp || that_wp != curwp)) {
TRACE(("MOUSE cannot move from window while inserting\n"));
kbd_alarm();
status = ABORT;
} else if (first_y == mode_row(that_wp)) { /* drag modeline? */
if (first_y == y) {
sel_release();
status = SEL_RELEASE;
} else {
WINDOW *save_wp = curwp;
TRACE(("MOUSE dragging modeline\n"));
set_curwp(that_wp);
status = shrinkwind(FALSE, first_y - y);
set_curwp(save_wp);
}
} else if (y != first_y || x != first_x) { /* drag selection */
if (button == BTN_PASTE) {
(void) setcursor(y, x);
status = paste_selection();
} else if (doingsweep) {
switch (button) {
case BTN_BEGIN:
(void) release_selection(TRUE);
status = setcursor(first_y, first_x);
if (status == TRUE) {
MK = DOT;
status = SEL_BEGIN;
TRACE(("MOUSE setting SEL_BEGIN MK %d.%d\n",
line_no(curbp, MK.l), MK.o));
}
break;
default:
(void) setcursor(y, x);
status = SEL_EXTEND;
TRACE(("MOUSE setting SEL_EXTEND DOT %d.%d MK %d.%d\n",
line_no(curbp, MK.l), MK.o,
line_no(curbp, DOT.l), DOT.o));
break;
}
} else {
TRACE(("MOUSE begin multimotion on button%d-up\n", button));
if (button == BTN_EXTEND) {
(void) setcursor(y, x);
y = first_y;
x = first_x;
}
do_sweep(SORTOFTRUE);
(void) sel_begin();
(void) sel_setshape(rgn_EXACT);
(void) setcursor(y, x);
status = multimotion(TRUE, 1);
TRACE(("MOUSE end multimotion after button%d-up\n", button));
if (status == SEL_PASTE)
status = paste_selection();
}
} else { /* position the cursor */
TRACE(("MOUSE button %d position cursor\n", button));
(void) setcursor(y, x);
switch (button) {
case BTN_BEGIN:
status = SEL_FINISH;
break;
case BTN_PASTE:
status = paste_selection();
break;
default:
status = release_selection(TRUE);
break;
}
}
} else {
TRACE(("MOUSE ignored (illegal state)\n"));
status = FALSE;
}
if (status == TRUE || status >= SORTOFTRUE)
(void) update(TRUE);
TRACE(("MOUSE status:%d\n", status));
return status;
}
/* ARGSUSED */
static int
isearch(int f GCC_UNUSED, int n)
{
static TBUFF *pat_save = 0; /* Saved copy of the old pattern str */
int status; /* Search status */
register int cpos; /* character number in search string */
register int c; /* current input character */
MARK curpos, curp; /* Current point on entry */
int init_direction; /* The initial search direction */
/* Initialize starting conditions */
cmd_reexecute = -1; /* We're not re-executing (yet?) */
itb_init(&cmd_buff, EOS); /* Init the command buffer */
/* Save the old pattern string */
(void) tb_copy(&pat_save, searchpat);
curpos = DOT; /* Save the current pointer */
init_direction = n; /* Save the initial search direction */
ignorecase = window_b_val(curwp, MDIGNCASE);
scanboundry(FALSE, DOT, FORWARD); /* keep scanner() finite */
/* This is a good place to start a re-execution: */
start_over:
/* ask the user for the text of a pattern */
promptpattern("ISearch: ");
status = TRUE; /* Assume everything's cool */
/*
* Get the first character in the pattern. If we get an initial
* Control-S or Control-R, re-use the old search string and find the
* first occurrence
*/
c = kcod2key(get_char()); /* Get the first character */
if ((c == IS_FORWARD) ||
(c == IS_REVERSE)) { /* Reuse old search string? */
for (cpos = 0; cpos < (int) tb_length(searchpat); ++cpos)
echochar(tb_values(searchpat)[cpos]); /* and re-echo the string */
curp = DOT;
if (c == IS_REVERSE) { /* forward search? */
n = -1; /* No, search in reverse */
last_srch_direc = REVERSE;
backchar(TRUE, 1); /* Be defensive about EOB */
} else {
n = 1; /* Yes, search forward */
last_srch_direc = FORWARD;
forwchar(TRUE, 1);
}
unget_char();
status = scanmore(searchpat, n); /* Do the search */
if (status != TRUE)
DOT = curp;
c = kcod2key(get_char()); /* Get another character */
} else {
tb_init(&searchpat, EOS);
}
/* Top of the per character loop */
for_ever { /* ISearch per character loop */
/* Check for special characters, since they might change the
* search to be done
*/
if (ABORTED(c) || c == '\r') /* search aborted? */
return (TRUE); /* end the search */
if (isbackspace(c))
c = '\b';
if (c == quotec) /* quote character? */
c = kcod2key(get_char()); /* Get the next char */
switch (c) { /* dispatch on the input char */
case IS_REVERSE: /* If backward search */
case IS_FORWARD: /* If forward search */
curp = DOT;
if (c == IS_REVERSE) { /* forward search? */
last_srch_direc = REVERSE;
n = -1; /* No, search in reverse */
backchar(TRUE, 1); /* Be defensive about
* EOB */
} else {
n = 1; /* Yes, search forward */
last_srch_direc = FORWARD;
forwchar(TRUE, 1);
}
status = scanmore(searchpat, n); /* Do the search */
if (status != TRUE)
DOT = curp;
c = kcod2key(get_char()); /* Get the next char */
continue; /* Go continue with the search */
case '\t': /* Generically allowed */
case '\n': /* controlled characters */
break; /* Make sure we use it */
case '\b': /* or if a Rubout: */
if (itb_length(cmd_buff) <= 1) /* Anything to delete? */
return (TRUE); /* No, just exit */
unget_char();
DOT = curpos; /* Reset the pointer */
n = init_direction; /* Reset the search direction */
(void) tb_copy(&searchpat, pat_save);
/* Restore the old search str */
cmd_reexecute = 0; /* Start the whole mess over */
goto start_over; /* Let it take care of itself */
/* Presumably a quasi-normal character comes here */
default: /* All other chars */
if (!isPrint(c)) { /* Is it printable? */
/* Nope. */
unkeystroke(c); /* Re-eat the char */
return (TRUE); /* And return the last status */
}
} /* Switch */
/* I guess we got something to search for, so search for it */
tb_append(&searchpat, c); /* put the char in the buffer */
echochar(c); /* Echo the character */
if (!status) { /* If we lost last time */
kbd_alarm(); /* Feep again */
} else /* Otherwise, we must have won */
status = scanmore(searchpat, n); /* or find the next
* match */
c = kcod2key(get_char()); /* Get the next char */
} /* for_ever */
}
