void
pressreturn(void)
{
int c;
int odiscmd;
odiscmd = discmd;
discmd = TRUE;
mlprompt("[Press return to continue]");
discmd = odiscmd;
TTflush();
/* loop for a CR, a space, or a : to do another named command */
while ((c = keystroke()) != '\r' &&
c != '\n' &&
c != ' ' &&
!ABORTED(c)) {
if (kcod2fnc(c) == &f_namedcmd) {
unkeystroke(c);
break;
}
}
TTputc('\r');
TTputc('\n');
}
int
multimotion(int f, int n)
{
const CMDFUNC *cfp;
int status, c, waserr;
int pasting;
REGIONSHAPE shape;
MARK savedot;
MARK savemark;
MARK realdot;
BUFFER *origbp = curbp;
static int wassweephack = FALSE;
/* Use the repeat-count as a shortcut to specify the type of selection.
* I'd use int-casts of the enum value, but declaring enums with
* specific values isn't 100% portable.
*/
n = need_at_least(f, n, 1);
if (n == 3)
regionshape = rgn_RECTANGLE;
else if (n == 2)
regionshape = rgn_FULLLINE;
else
regionshape = rgn_EXACT;
shape = regionshape;
sweephack = FALSE;
savedot = DOT;
switch (doingsweep) {
case TRUE: /* the same command terminates as starts the sweep */
if (doingsweep) {
do_sweep(FALSE);
}
mlforce("[Sweeping: Completed]");
regionshape = shape;
/* since the terminating 'q' is executed as a motion, we have
now lost the value of sweephack we were interested in, the
one that tells us to include DOT.o in the selection.
so we preserved it in wassweephack, and restore it here.
*/
if (wassweephack)
sweephack = wassweephack;
return TRUE;
case SORTOFTRUE:
if (doingsweep != TRUE) {
do_sweep(TRUE);
}
sweepmsg("Begin cursor sweep...");
sel_extend(TRUE, (regionshape != rgn_RECTANGLE && sweephack));
savedot = MK;
TRACE(("MOUSE BEGIN DOT: %d.%d MK %d.%d\n",
line_no(curbp, DOT.l), DOT.o,
line_no(curbp, MK.l), MK.o));
break;
case FALSE:
if (doingsweep != TRUE) {
do_sweep(TRUE);
}
sweepmsg("Begin cursor sweep...");
(void) sel_begin();
(void) sel_setshape(shape);
break;
}
waserr = TRUE; /* to force message "state-machine" */
realdot = DOT;
pasting = FALSE;
while (doingsweep) {
/* Fix up the screen */
(void) update(FALSE);
/* get the next command from the keyboard */
c = kbd_seq();
if (ABORTED(c)
|| curbp != origbp) {
return release_selection(FALSE);
}
f = FALSE;
n = 1;
do_repeats(&c, &f, &n);
/* and execute the command */
cfp = SelectKeyBinding(c);
if ((cfp != NULL)
&& ((cfp->c_flags & (GOAL | MOTION)) != 0)) {
MARK testdot;
wassweephack = sweephack;
sweephack = FALSE;
TRACE(("MOUSE TEST DOT: %d.%d MK %d.%d\n",
line_no(curbp, DOT.l), DOT.o,
line_no(curbp, MK.l), MK.o));
testdot = DOT;
status = execute(cfp, f, n);
switch (status) {
case SEL_RELEASE:
TRACE(("MOUSE SEL_RELEASE %d.%d\n",
line_no(curbp, DOT.l), DOT.o));
return release_selection(TRUE);
case SEL_PASTE:
pasting = TRUE;
/* FALLTHRU */
case SEL_FINISH:
do_sweep(FALSE);
break;
case SORTOFTRUE:
TRACE(("MOUSE selection pending %d.%d -> %d.%d\n",
line_no(curbp, realdot.l), realdot.o,
line_no(curbp, testdot.l), testdot.o));
realdot = testdot;
break;
case SEL_BEGIN:
savedot = MK;
TRACE(("MOUSE SEL_BEGIN...\n"));
/*FALLTHRU */
case SEL_EXTEND:
TRACE(("MOUSE SEL_EXTEND from %d.%d to %d.%d\n",
line_no(curbp, savedot.l), savedot.o,
line_no(curbp, DOT.l), DOT.o));
/*FALLTHRU */
case TRUE:
if (waserr && doingsweep) {
sweepmsg("Sweeping...");
waserr = FALSE;
}
realdot = DOT;
DOT = savedot;
(void) sel_begin();
DOT = realdot;
TRACE(("MOUSE LOOP save: %d.%d real %d.%d, mark %d.%d\n",
line_no(curbp, savedot.l), savedot.o,
line_no(curbp, realdot.l), realdot.o,
line_no(curbp, MK.l), MK.o));
(void) sel_setshape(shape);
/* we sometimes want to include DOT.o in the
selection (unless it's a rectangle, in
which case it's taken care of elsewhere)
*/
sel_extend(TRUE, (regionshape != rgn_RECTANGLE &&
sweephack));
break;
default:
sweepmsg("Sweeping: Motion failed.");
waserr = TRUE;
break;
}
} else {
sweepmsg("Sweeping: Only motions permitted");
waserr = TRUE;
}
}
regionshape = shape;
/* if sweephack is set here, it's because the last motion had
it set */
if (doingopcmd)
pre_op_dot = savedot;
savedot = DOT;
savemark = MK;
DOT = realdot;
TRACE(("MOUSE SAVE DOT: %d.%d MK %d.%d\n",
line_no(curbp, DOT.l), DOT.o,
line_no(curbp, MK.l), MK.o));
if ((regionshape != rgn_RECTANGLE) && sweephack) {
if (dot_vs_mark() < 0)
MK.o += BytesAt(MK.l, MK.o);
else
DOT.o += BytesAt(DOT.l, DOT.o);
}
status = yankregion();
DOT = savedot;
MK = savemark;
sweephack = wassweephack = FALSE;
if (status == TRUE && pasting)
status = SEL_PASTE;
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 */
}
