kernel - cleanup vfs_cache debugging
[dragonfly.git] / contrib / nvi2 / vi / v_match.c
blob503c65c731fb5cd5db3e0115e6341eba321c93b9
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.
7 * See the LICENSE file for redistribution information.
8 */
10 #include "config.h"
12 #ifndef lint
13 static const char sccsid[] = "$Id: v_match.c,v 10.11 2012/02/11 00:33:46 zy Exp $";
14 #endif /* not lint */
16 #include <sys/types.h>
17 #include <sys/queue.h>
18 #include <sys/time.h>
20 #include <bitstring.h>
21 #include <ctype.h>
22 #include <limits.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
27 #include "../common/common.h"
28 #include "vi.h"
31 * v_match -- %
32 * Search to matching character.
34 * PUBLIC: int v_match(SCR *, VICMD *);
36 int
37 v_match(SCR *sp, VICMD *vp)
39 VCS cs;
40 MARK *mp;
41 size_t cno, len, off;
42 int cnt, isempty, matchc, startc, (*gc)(SCR *, VCS *);
43 CHAR_T *p;
44 CHAR_T *cp;
45 const CHAR_T *match_chars;
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'.
53 match_chars = VIP(sp)->mcs;
56 * !!!
57 * Historic practice; ignore the count.
59 * !!!
60 * Historical practice was to search for the initial character in the
61 * forward direction only.
63 if (db_eget(sp, vp->m_start.lno, &p, &len, &isempty)) {
64 if (isempty)
65 goto nomatch;
66 return (1);
68 for (off = vp->m_start.cno;; ++off) {
69 if (off >= len) {
70 nomatch: msgq(sp, M_BERR, "184|No match character on this line");
71 return (1);
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;
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;
95 if (cs.cs_ch == startc)
96 ++cnt;
97 else if (cs.cs_ch == matchc && --cnt == 0)
98 break;
100 if (cnt) {
101 msgq(sp, M_BERR, "185|Matching character not found");
102 return (1);
105 vp->m_stop.lno = cs.cs_lno;
106 vp->m_stop.cno = cs.cs_cno;
109 * If moving right, non-motion commands move to the end of the range.
110 * Delete and yank stay at the start.
112 * If moving left, all commands move to the end of the range.
114 * !!!
115 * Don't correct for leftward movement -- historic vi deleted the
116 * starting cursor position when deleting to a match.
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;
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.
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);
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);
154 * v_buildmcs --
155 * Build the match character list.
157 * PUBLIC: int v_buildmcs(SCR *, char *);
160 v_buildmcs(SCR *sp, char *str)
162 CHAR_T **mp = &VIP(sp)->mcs;
163 size_t len = strlen(str) + 1;
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);