1994-08-16 23:36:45 +00:00
|
|
|
/*-
|
|
|
|
* Copyright (c) 1992, 1993, 1994
|
|
|
|
* The Regents of the University of California. All rights reserved.
|
1996-11-01 06:45:43 +00:00
|
|
|
* Copyright (c) 1992, 1993, 1994, 1995, 1996
|
|
|
|
* Keith Bostic. All rights reserved.
|
1994-08-16 23:36:45 +00:00
|
|
|
*
|
1996-11-01 06:45:43 +00:00
|
|
|
* See the LICENSE file for redistribution information.
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
|
1996-11-01 06:45:43 +00:00
|
|
|
#include "config.h"
|
|
|
|
|
1994-08-16 23:36:45 +00:00
|
|
|
#include <sys/types.h>
|
|
|
|
#include <sys/queue.h>
|
|
|
|
#include <sys/time.h>
|
|
|
|
|
|
|
|
#include <bitstring.h>
|
|
|
|
#include <limits.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
1996-11-01 06:45:43 +00:00
|
|
|
#include "../common/common.h"
|
1994-08-16 23:36:45 +00:00
|
|
|
#include "vi.h"
|
|
|
|
|
2015-04-10 13:26:05 +00:00
|
|
|
static void notfound(SCR *, ARG_CHAR_T);
|
|
|
|
static void noprev(SCR *);
|
1994-08-16 23:36:45 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* v_chrepeat -- [count];
|
|
|
|
* Repeat the last F, f, T or t search.
|
1996-11-01 06:45:43 +00:00
|
|
|
*
|
2015-04-10 13:26:05 +00:00
|
|
|
* PUBLIC: int v_chrepeat(SCR *, VICMD *);
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
int
|
2013-08-11 09:44:58 +00:00
|
|
|
v_chrepeat(SCR *sp, VICMD *vp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
|
|
|
vp->character = VIP(sp)->lastckey;
|
|
|
|
|
|
|
|
switch (VIP(sp)->csearchdir) {
|
|
|
|
case CNOTSET:
|
|
|
|
noprev(sp);
|
|
|
|
return (1);
|
|
|
|
case FSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
return (v_chF(sp, vp));
|
1994-08-16 23:36:45 +00:00
|
|
|
case fSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
return (v_chf(sp, vp));
|
1994-08-16 23:36:45 +00:00
|
|
|
case TSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
return (v_chT(sp, vp));
|
1994-08-16 23:36:45 +00:00
|
|
|
case tSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
return (v_cht(sp, vp));
|
1994-08-16 23:36:45 +00:00
|
|
|
default:
|
|
|
|
abort();
|
|
|
|
}
|
|
|
|
/* NOTREACHED */
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* v_chrrepeat -- [count],
|
|
|
|
* Repeat the last F, f, T or t search in the reverse direction.
|
1996-11-01 06:45:43 +00:00
|
|
|
*
|
2015-04-10 13:26:05 +00:00
|
|
|
* PUBLIC: int v_chrrepeat(SCR *, VICMD *);
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
int
|
2013-08-11 09:44:58 +00:00
|
|
|
v_chrrepeat(SCR *sp, VICMD *vp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
1996-11-01 06:45:43 +00:00
|
|
|
cdir_t savedir;
|
1994-08-16 23:36:45 +00:00
|
|
|
int rval;
|
|
|
|
|
|
|
|
vp->character = VIP(sp)->lastckey;
|
|
|
|
savedir = VIP(sp)->csearchdir;
|
|
|
|
|
|
|
|
switch (VIP(sp)->csearchdir) {
|
|
|
|
case CNOTSET:
|
|
|
|
noprev(sp);
|
|
|
|
return (1);
|
|
|
|
case FSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
rval = v_chf(sp, vp);
|
1994-08-16 23:36:45 +00:00
|
|
|
break;
|
|
|
|
case fSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
rval = v_chF(sp, vp);
|
1994-08-16 23:36:45 +00:00
|
|
|
break;
|
|
|
|
case TSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
rval = v_cht(sp, vp);
|
1994-08-16 23:36:45 +00:00
|
|
|
break;
|
|
|
|
case tSEARCH:
|
1996-11-01 06:45:43 +00:00
|
|
|
rval = v_chT(sp, vp);
|
1994-08-16 23:36:45 +00:00
|
|
|
break;
|
|
|
|
default:
|
|
|
|
abort();
|
|
|
|
}
|
|
|
|
VIP(sp)->csearchdir = savedir;
|
|
|
|
return (rval);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* v_cht -- [count]tc
|
|
|
|
* Search forward in the line for the character before the next
|
|
|
|
* occurrence of the specified character.
|
1996-11-01 06:45:43 +00:00
|
|
|
*
|
2015-04-10 13:26:05 +00:00
|
|
|
* PUBLIC: int v_cht(SCR *, VICMD *);
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
int
|
2013-08-11 09:44:58 +00:00
|
|
|
v_cht(SCR *sp, VICMD *vp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
1996-11-01 06:45:43 +00:00
|
|
|
if (v_chf(sp, vp))
|
1994-08-16 23:36:45 +00:00
|
|
|
return (1);
|
|
|
|
|
|
|
|
/*
|
|
|
|
* v_chf places the cursor on the character, where the 't'
|
|
|
|
* command wants it to its left. We know this is safe since
|
|
|
|
* we had to move right for v_chf() to have succeeded.
|
|
|
|
*/
|
|
|
|
--vp->m_stop.cno;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Make any necessary correction to the motion decision made
|
|
|
|
* by the v_chf routine.
|
|
|
|
*/
|
|
|
|
if (!ISMOTION(vp))
|
|
|
|
vp->m_final = vp->m_stop;
|
|
|
|
|
|
|
|
VIP(sp)->csearchdir = tSEARCH;
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* v_chf -- [count]fc
|
|
|
|
* Search forward in the line for the next occurrence of the
|
|
|
|
* specified character.
|
1996-11-01 06:45:43 +00:00
|
|
|
*
|
2015-04-10 13:26:05 +00:00
|
|
|
* PUBLIC: int v_chf(SCR *, VICMD *);
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
int
|
2013-08-11 09:44:58 +00:00
|
|
|
v_chf(SCR *sp, VICMD *vp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
|
|
|
size_t len;
|
|
|
|
u_long cnt;
|
2013-08-11 09:44:58 +00:00
|
|
|
int isempty;
|
|
|
|
ARG_CHAR_T key;
|
|
|
|
CHAR_T *endp, *p, *startp;
|
1994-08-16 23:36:45 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* !!!
|
|
|
|
* If it's a dot command, it doesn't reset the key for which we're
|
|
|
|
* searching, e.g. in "df1|f2|.|;", the ';' searches for a '2'.
|
|
|
|
*/
|
|
|
|
key = vp->character;
|
|
|
|
if (!F_ISSET(vp, VC_ISDOT))
|
|
|
|
VIP(sp)->lastckey = key;
|
|
|
|
VIP(sp)->csearchdir = fSEARCH;
|
|
|
|
|
1996-11-01 06:45:43 +00:00
|
|
|
if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
|
|
|
|
if (isempty)
|
|
|
|
goto empty;
|
1994-08-16 23:36:45 +00:00
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (len == 0) {
|
1996-11-01 06:45:43 +00:00
|
|
|
empty: notfound(sp, key);
|
1994-08-16 23:36:45 +00:00
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
|
|
|
|
endp = (startp = p) + len;
|
|
|
|
p += vp->m_start.cno;
|
|
|
|
for (cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt--;) {
|
|
|
|
while (++p < endp && *p != key);
|
|
|
|
if (p == endp) {
|
|
|
|
notfound(sp, key);
|
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
vp->m_stop.cno = p - startp;
|
|
|
|
|
|
|
|
/*
|
1996-11-01 06:45:43 +00:00
|
|
|
* Non-motion commands move to the end of the range.
|
|
|
|
* Delete and yank stay at the start, ignore others.
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
vp->m_final = ISMOTION(vp) ? vp->m_start : vp->m_stop;
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* v_chT -- [count]Tc
|
|
|
|
* Search backward in the line for the character after the next
|
|
|
|
* occurrence of the specified character.
|
1996-11-01 06:45:43 +00:00
|
|
|
*
|
2015-04-10 13:26:05 +00:00
|
|
|
* PUBLIC: int v_chT(SCR *, VICMD *);
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
int
|
2013-08-11 09:44:58 +00:00
|
|
|
v_chT(SCR *sp, VICMD *vp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
1996-11-01 06:45:43 +00:00
|
|
|
if (v_chF(sp, vp))
|
1994-08-16 23:36:45 +00:00
|
|
|
return (1);
|
|
|
|
|
2020-09-09 07:57:59 +00:00
|
|
|
/*
|
|
|
|
* Check whether the matching character is to the immediate left
|
|
|
|
* of the original cursor position, offset adjusted for a motion
|
|
|
|
* command. If so, no movement is required.
|
|
|
|
*/
|
|
|
|
if (vp->m_start.cno == vp->m_stop.cno) {
|
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
|
1994-08-16 23:36:45 +00:00
|
|
|
/*
|
|
|
|
* v_chF places the cursor on the character, where the 'T'
|
|
|
|
* command wants it to its right. We know this is safe since
|
|
|
|
* we had to move left for v_chF() to have succeeded.
|
|
|
|
*/
|
|
|
|
++vp->m_stop.cno;
|
1996-11-01 06:45:43 +00:00
|
|
|
vp->m_final = vp->m_stop;
|
1994-08-16 23:36:45 +00:00
|
|
|
|
|
|
|
VIP(sp)->csearchdir = TSEARCH;
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* v_chF -- [count]Fc
|
|
|
|
* Search backward in the line for the next occurrence of the
|
|
|
|
* specified character.
|
1996-11-01 06:45:43 +00:00
|
|
|
*
|
2015-04-10 13:26:05 +00:00
|
|
|
* PUBLIC: int v_chF(SCR *, VICMD *);
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
|
|
|
int
|
2013-08-11 09:44:58 +00:00
|
|
|
v_chF(SCR *sp, VICMD *vp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
|
|
|
size_t len;
|
|
|
|
u_long cnt;
|
2013-08-11 09:44:58 +00:00
|
|
|
int isempty;
|
|
|
|
ARG_CHAR_T key;
|
|
|
|
CHAR_T *endp, *p;
|
1994-08-16 23:36:45 +00:00
|
|
|
|
|
|
|
/*
|
|
|
|
* !!!
|
|
|
|
* If it's a dot command, it doesn't reset the key for which
|
|
|
|
* we're searching, e.g. in "df1|f2|.|;", the ';' searches
|
|
|
|
* for a '2'.
|
|
|
|
*/
|
|
|
|
key = vp->character;
|
|
|
|
if (!F_ISSET(vp, VC_ISDOT))
|
|
|
|
VIP(sp)->lastckey = key;
|
|
|
|
VIP(sp)->csearchdir = FSEARCH;
|
|
|
|
|
1996-11-01 06:45:43 +00:00
|
|
|
if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
|
|
|
|
if (isempty)
|
|
|
|
goto empty;
|
1994-08-16 23:36:45 +00:00
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (len == 0) {
|
1996-11-01 06:45:43 +00:00
|
|
|
empty: notfound(sp, key);
|
1994-08-16 23:36:45 +00:00
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
|
|
|
|
endp = p - 1;
|
|
|
|
p += vp->m_start.cno;
|
|
|
|
for (cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt--;) {
|
|
|
|
while (--p > endp && *p != key);
|
|
|
|
if (p == endp) {
|
|
|
|
notfound(sp, key);
|
|
|
|
return (1);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
vp->m_stop.cno = (p - endp) - 1;
|
|
|
|
|
|
|
|
/*
|
1996-11-01 06:45:43 +00:00
|
|
|
* All commands move to the end of the range. Motion commands
|
|
|
|
* adjust the starting point to the character before the current
|
|
|
|
* one.
|
1994-08-16 23:36:45 +00:00
|
|
|
*/
|
1996-11-01 06:45:43 +00:00
|
|
|
vp->m_final = vp->m_stop;
|
1994-08-16 23:36:45 +00:00
|
|
|
if (ISMOTION(vp))
|
|
|
|
--vp->m_start.cno;
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2013-08-11 09:44:58 +00:00
|
|
|
noprev(SCR *sp)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
1996-11-01 06:45:43 +00:00
|
|
|
msgq(sp, M_BERR, "178|No previous F, f, T or t search");
|
1994-08-16 23:36:45 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
2013-08-11 09:44:58 +00:00
|
|
|
notfound(SCR *sp, ARG_CHAR_T ch)
|
1994-08-16 23:36:45 +00:00
|
|
|
{
|
1996-11-01 06:45:43 +00:00
|
|
|
msgq(sp, M_BERR, "179|%s not found", KEY_NAME(sp, ch));
|
1994-08-16 23:36:45 +00:00
|
|
|
}
|