source: trunk/minix/commands/elvis/move2.c@ 15

Last change on this file since 15 was 9, checked in by Mattia Monga, 14 years ago

Minix 3.1.2a
File size: 5.3 KB
Line 
1/* move2.c */
2
3/* Author:
4 * Steve Kirkendall
5 * 14407 SW Teal Blvd. #C
6 * Beaverton, OR 97005
7 * kirkenda@cs.pdx.edu
8 */
9
10
11/* This function contains the movement functions that perform RE searching */
12
13#include "config.h"
14#include "vi.h"
15#include "regexp.h"
16
17extern long atol();
18
19static regexp *re; /* compiled version of the pattern to search for */
20static prevsf; /* boolean: previous search direction was forward? */
21
22#ifndef NO_EXTENSIONS
23/*ARGSUSED*/
24MARK m_wsrch(word, m, cnt)
25 char *word; /* the word to search for */
26 MARK m; /* the starting point */
27 int cnt; /* ignored */
28{
29 char buffer[30];
30
31 /* wrap \< and \> around the word */
32 strcpy(buffer, "/\\<");
33 strcat(buffer, word);
34 strcat(buffer, "\\>");
35
36 /* show the searched-for word on the bottom line */
37 move(LINES - 1, 0);
38 qaddstr(buffer);
39 clrtoeol();
40 refresh();
41
42 /* search for the word */
43 return m_fsrch(m, buffer);
44}
45#endif
46
47MARK m_nsrch(m)
48 MARK m; /* where to start searching */
49{
50 if (prevsf)
51 {
52 m = m_fsrch(m, (char *)0);
53 prevsf = TRUE;
54 }
55 else
56 {
57 m = m_bsrch(m, (char *)0);
58 prevsf = FALSE;
59 }
60 return m;
61}
62
63MARK m_Nsrch(m)
64 MARK m; /* where to start searching */
65{
66 if (prevsf)
67 {
68 m = m_bsrch(m, (char *)0);
69 prevsf = TRUE;
70 }
71 else
72 {
73 m = m_fsrch(m, (char *)0);
74 prevsf = FALSE;
75 }
76 return m;
77}
78
79MARK m_fsrch(m, ptrn)
80 MARK m; /* where to start searching */
81 char *ptrn; /* pattern to search for */
82{
83 long l; /* line# of line to be searched */
84 char *line; /* text of line to be searched */
85 int wrapped;/* boolean: has our search wrapped yet? */
86 int pos; /* where we are in the line */
87#ifndef CRUNCH
88 long delta = INFINITY;/* line offset, for things like "/foo/+1" */
89#endif
90
91 /* remember: "previous search was forward" */
92 prevsf = TRUE;
93
94 if (ptrn && *ptrn)
95 {
96 /* locate the closing '/', if any */
97 line = parseptrn(ptrn);
98#ifndef CRUNCH
99 if (*line)
100 {
101 delta = atol(line);
102 }
103#endif
104 ptrn++;
105
106 /* free the previous pattern */
107 if (re) free(re);
108
109 /* compile the pattern */
110 re = regcomp(ptrn);
111 if (!re)
112 {
113 return MARK_UNSET;
114 }
115 }
116 else if (!re)
117 {
118 msg("No previous expression");
119 return MARK_UNSET;
120 }
121
122 /* search forward for the pattern */
123 pos = markidx(m) + 1;
124 pfetch(markline(m));
125 if (pos >= plen)
126 {
127 pos = 0;
128 m = (m | (BLKSIZE - 1)) + 1;
129 }
130 wrapped = FALSE;
131 for (l = markline(m); l != markline(m) + 1 || !wrapped; l++)
132 {
133 /* wrap search */
134 if (l > nlines)
135 {
136 /* if we wrapped once already, then the search failed */
137 if (wrapped)
138 {
139 break;
140 }
141
142 /* else maybe we should wrap now? */
143 if (*o_wrapscan)
144 {
145 l = 0;
146 wrapped = TRUE;
147 continue;
148 }
149 else
150 {
151 break;
152 }
153 }
154
155 /* get this line */
156 line = fetchline(l);
157
158 /* check this line */
159 if (regexec(re, &line[pos], (pos == 0)))
160 {
161 /* match! */
162 if (wrapped && *o_warn)
163 msg("(wrapped)");
164#ifndef CRUNCH
165 if (delta != INFINITY)
166 {
167 l += delta;
168 if (l < 1 || l > nlines)
169 {
170 msg("search offset too big");
171 return MARK_UNSET;
172 }
173 force_flags = LNMD|INCL;
174 return MARK_AT_LINE(l);
175 }
176#endif
177 return MARK_AT_LINE(l) + (int)(re->startp[0] - line);
178 }
179 pos = 0;
180 }
181
182 /* not found */
183 msg(*o_wrapscan ? "Not found" : "Hit bottom without finding RE");
184 return MARK_UNSET;
185}
186
187MARK m_bsrch(m, ptrn)
188 MARK m; /* where to start searching */
189 char *ptrn; /* pattern to search for */
190{
191 long l; /* line# of line to be searched */
192 char *line; /* text of line to be searched */
193 int wrapped;/* boolean: has our search wrapped yet? */
194 int pos; /* last acceptable idx for a match on this line */
195 int last; /* remembered idx of the last acceptable match on this line */
196 int try; /* an idx at which we strat searching for another match */
197#ifndef CRUNCH
198 long delta = INFINITY;/* line offset, for things like "/foo/+1" */
199#endif
200
201 /* remember: "previous search was not forward" */
202 prevsf = FALSE;
203
204 if (ptrn && *ptrn)
205 {
206 /* locate the closing '?', if any */
207 line = parseptrn(ptrn);
208#ifndef CRUNCH
209 if (*line)
210 {
211 delta = atol(line);
212 }
213#endif
214 ptrn++;
215
216 /* free the previous pattern, if any */
217 if (re) free(re);
218
219 /* compile the pattern */
220 re = regcomp(ptrn);
221 if (!re)
222 {
223 return MARK_UNSET;
224 }
225 }
226 else if (!re)
227 {
228 msg("No previous expression");
229 return MARK_UNSET;
230 }
231
232 /* search backward for the pattern */
233 pos = markidx(m);
234 wrapped = FALSE;
235 for (l = markline(m); l != markline(m) - 1 || !wrapped; l--)
236 {
237 /* wrap search */
238 if (l < 1)
239 {
240 if (*o_wrapscan)
241 {
242 l = nlines + 1;
243 wrapped = TRUE;
244 continue;
245 }
246 else
247 {
248 break;
249 }
250 }
251
252 /* get this line */
253 line = fetchline(l);
254
255 /* check this line */
256 if (regexec(re, line, 1) && (int)(re->startp[0] - line) < pos)
257 {
258 /* match! now find the last acceptable one in this line */
259 do
260 {
261 last = (int)(re->startp[0] - line);
262 try = (int)(re->endp[0] - line);
263 } while (try > 0
264 && regexec(re, &line[try], FALSE)
265 && (int)(re->startp[0] - line) < pos);
266
267 if (wrapped && *o_warn)
268 msg("(wrapped)");
269#ifndef CRUNCH
270 if (delta != INFINITY)
271 {
272 l += delta;
273 if (l < 1 || l > nlines)
274 {
275 msg("search offset too big");
276 return MARK_UNSET;
277 }
278 force_flags = LNMD|INCL;
279 return MARK_AT_LINE(l);
280 }
281#endif
282 return MARK_AT_LINE(l) + last;
283 }
284 pos = BLKSIZE;
285 }
286
287 /* not found */
288 msg(*o_wrapscan ? "Not found" : "Hit top without finding RE");
289 return MARK_UNSET;
290}
291
Note: See TracBrowser for help on using the repository browser.