1/*-
2 * Copyright (c) 1992, 1993, 1994
3 *	The Regents of the University of California.  All rights reserved.
4 * Copyright (c) 1992, 1993, 1994, 1995, 1996
5 *	Keith Bostic.  All rights reserved.
6 *
7 * See the LICENSE file for redistribution information.
8 */
9
10#include "config.h"
11
12#ifndef lint
13static const char sccsid[] = "$Id: v_match.c,v 10.11 2012/02/11 00:33:46 zy Exp $";
14#endif /* not lint */
15
16#include <sys/types.h>
17#include <sys/queue.h>
18#include <sys/time.h>
19
20#include <bitstring.h>
21#include <ctype.h>
22#include <limits.h>
23#include <stdio.h>
24#include <stdlib.h>
25#include <string.h>
26
27#include "../common/common.h"
28#include "vi.h"
29
30/*
31 * v_match -- %
32 *	Search to matching character.
33 *
34 * PUBLIC: int v_match __P((SCR *, VICMD *));
35 */
36int
37v_match(SCR *sp, VICMD *vp)
38{
39	VCS cs;
40	MARK *mp;
41	size_t cno, len, off;
42	int cnt, isempty, matchc, startc, (*gc)__P((SCR *, VCS *));
43	CHAR_T *p;
44	CHAR_T *cp;
45	const CHAR_T *match_chars;
46
47	/*
48	 * Historically vi would match (), {} and [] however
49	 * an update included <>.  This is ok for editing HTML
50	 * but a pain in the butt for C source.
51	 * Making it an option lets the user decide what is 'right'.
52	 */
53	match_chars = VIP(sp)->mcs;
54
55	/*
56	 * !!!
57	 * Historic practice; ignore the count.
58	 *
59	 * !!!
60	 * Historical practice was to search for the initial character in the
61	 * forward direction only.
62	 */
63	if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
64		if (isempty)
65			goto nomatch;
66		return (1);
67	}
68	for (off = vp->m_start.cno;; ++off) {
69		if (off >= len) {
70nomatch:		msgq(sp, M_BERR, "184|No match character on this line");
71			return (1);
72		}
73		startc = p[off];
74		cp = STRCHR(match_chars, startc);
75		if (cp != NULL) {
76			cnt = cp - match_chars;
77			matchc = match_chars[cnt ^ 1];
78			gc = cnt & 1 ? cs_prev : cs_next;
79			break;
80		}
81	}
82
83	cs.cs_lno = vp->m_start.lno;
84	cs.cs_cno = off;
85	if (cs_init(sp, &cs))
86		return (1);
87	for (cnt = 1;;) {
88		if (gc(sp, &cs))
89			return (1);
90		if (cs.cs_flags != 0) {
91			if (cs.cs_flags == CS_EOF || cs.cs_flags == CS_SOF)
92				break;
93			continue;
94		}
95		if (cs.cs_ch == startc)
96			++cnt;
97		else if (cs.cs_ch == matchc && --cnt == 0)
98			break;
99	}
100	if (cnt) {
101		msgq(sp, M_BERR, "185|Matching character not found");
102		return (1);
103	}
104
105	vp->m_stop.lno = cs.cs_lno;
106	vp->m_stop.cno = cs.cs_cno;
107
108	/*
109	 * If moving right, non-motion commands move to the end of the range.
110	 * Delete and yank stay at the start.
111	 *
112	 * If moving left, all commands move to the end of the range.
113	 *
114	 * !!!
115	 * Don't correct for leftward movement -- historic vi deleted the
116	 * starting cursor position when deleting to a match.
117	 */
118	if (vp->m_start.lno < vp->m_stop.lno ||
119	    (vp->m_start.lno == vp->m_stop.lno &&
120	    vp->m_start.cno < vp->m_stop.cno))
121		vp->m_final = ISMOTION(vp) ? vp->m_start : vp->m_stop;
122	else
123		vp->m_final = vp->m_stop;
124
125	/*
126	 * !!!
127	 * If the motion is across lines, and the earliest cursor position
128	 * is at or before any non-blank characters in the line, i.e. the
129	 * movement is cutting all of the line's text, and the later cursor
130	 * position has nothing other than whitespace characters between it
131	 * and the end of its line, the buffer is in line mode.
132	 */
133	if (!ISMOTION(vp) || vp->m_start.lno == vp->m_stop.lno)
134		return (0);
135	mp = vp->m_start.lno < vp->m_stop.lno ? &vp->m_start : &vp->m_stop;
136	if (mp->cno != 0) {
137		cno = 0;
138		if (nonblank(sp, mp->lno, &cno))
139			return (1);
140		if (cno < mp->cno)
141			return (0);
142	}
143	mp = vp->m_start.lno < vp->m_stop.lno ? &vp->m_stop : &vp->m_start;
144	if (db_get(sp, mp->lno, DBG_FATAL, &p, &len))
145		return (1);
146	for (p += mp->cno + 1, len -= mp->cno; --len; ++p)
147		if (!isblank(*p))
148			return (0);
149	F_SET(vp, VM_LMODE);
150	return (0);
151}
152
153/*
154 * v_buildmcs --
155 *	Build the match character list.
156 *
157 * PUBLIC: int v_buildmcs __P((SCR *, char *));
158 */
159int
160v_buildmcs(SCR *sp, char *str)
161{
162	CHAR_T **mp = &VIP(sp)->mcs;
163	size_t len = strlen(str) + 1;
164
165	if (*mp != NULL)
166		free(*mp);
167	MALLOC(sp, *mp, CHAR_T *, len * sizeof(CHAR_T));
168	if (*mp == NULL)
169		return (1);
170#ifdef USE_WIDECHAR
171	if (mbstowcs(*mp, str, len) == (size_t)-1)
172		return (1);
173#else
174	memcpy(*mp, str, len);
175#endif
176	return (0);
177}
178