1 b3994ec5 2003-12-11 devnull #include <u.h>
  2 b3994ec5 2003-12-11 devnull #include <libc.h>
  3 b3994ec5 2003-12-11 devnull #include <draw.h>
  4 b3994ec5 2003-12-11 devnull #include <thread.h>
  5 b3994ec5 2003-12-11 devnull #include <cursor.h>
  6 b3994ec5 2003-12-11 devnull #include <mouse.h>
  7 b3994ec5 2003-12-11 devnull #include <keyboard.h>
  8 b3994ec5 2003-12-11 devnull #include <frame.h>
  9 b3994ec5 2003-12-11 devnull #include <fcall.h>
 10 b3994ec5 2003-12-11 devnull #include <plumb.h>
 11 b3994ec5 2003-12-11 devnull #include "dat.h"
 12 b3994ec5 2003-12-11 devnull #include "fns.h"
 13 b3994ec5 2003-12-11 devnull 
 14 b3994ec5 2003-12-11 devnull enum
 15 b3994ec5 2003-12-11 devnull {
 16 b3994ec5 2003-12-11 devnull 	None = 0,
 17 b3994ec5 2003-12-11 devnull 	Fore = '+',
 18 cbeb0b26 2006-04-01 devnull 	Back = '-'
 19 b3994ec5 2003-12-11 devnull };
 20 b3994ec5 2003-12-11 devnull 
 21 b3994ec5 2003-12-11 devnull enum
 22 b3994ec5 2003-12-11 devnull {
 23 b3994ec5 2003-12-11 devnull 	Char,
 24 cbeb0b26 2006-04-01 devnull 	Line
 25 b3994ec5 2003-12-11 devnull };
 26 b3994ec5 2003-12-11 devnull 
 27 b3994ec5 2003-12-11 devnull int
 28 b3994ec5 2003-12-11 devnull isaddrc(int r)
 29 b3994ec5 2003-12-11 devnull {
 30 b3994ec5 2003-12-11 devnull 	if(r && utfrune("0123456789+-/$.#,;", r)!=nil)
 31 b3994ec5 2003-12-11 devnull 		return TRUE;
 32 b3994ec5 2003-12-11 devnull 	return FALSE;
 33 b3994ec5 2003-12-11 devnull }
 34 b3994ec5 2003-12-11 devnull 
 35 b3994ec5 2003-12-11 devnull /*
 36 b3994ec5 2003-12-11 devnull  * quite hard: could be almost anything but white space, but we are a little conservative,
 37 b3994ec5 2003-12-11 devnull  * aiming for regular expressions of alphanumerics and no white space
 38 b3994ec5 2003-12-11 devnull  */
 39 b3994ec5 2003-12-11 devnull int
 40 b3994ec5 2003-12-11 devnull isregexc(int r)
 41 b3994ec5 2003-12-11 devnull {
 42 b3994ec5 2003-12-11 devnull 	if(r == 0)
 43 b3994ec5 2003-12-11 devnull 		return FALSE;
 44 b3994ec5 2003-12-11 devnull 	if(isalnum(r))
 45 b3994ec5 2003-12-11 devnull 		return TRUE;
 46 b3994ec5 2003-12-11 devnull 	if(utfrune("^+-.*?#,;[]()$", r)!=nil)
 47 b3994ec5 2003-12-11 devnull 		return TRUE;
 48 b3994ec5 2003-12-11 devnull 	return FALSE;
 49 b3994ec5 2003-12-11 devnull }
 50 b3994ec5 2003-12-11 devnull 
 51 b3994ec5 2003-12-11 devnull Range
 52 012a8a02 2004-10-22 devnull number(uint showerr, Text *t, Range r, int line, int dir, int size, int *evalp)
 53 b3994ec5 2003-12-11 devnull {
 54 b3994ec5 2003-12-11 devnull 	uint q0, q1;
 55 b3994ec5 2003-12-11 devnull 
 56 b3994ec5 2003-12-11 devnull 	if(size == Char){
 57 b3994ec5 2003-12-11 devnull 		if(dir == Fore)
 58 b3994ec5 2003-12-11 devnull 			line = r.q1+line;
 59 b3994ec5 2003-12-11 devnull 		else if(dir == Back){
 60 b3994ec5 2003-12-11 devnull 			if(r.q0==0 && line>0)
 61 b3994ec5 2003-12-11 devnull 				r.q0 = t->file->b.nc;
 62 b3994ec5 2003-12-11 devnull 			line = r.q0 - line;
 63 b3994ec5 2003-12-11 devnull 		}
 64 b3994ec5 2003-12-11 devnull 		if(line<0 || line>t->file->b.nc)
 65 b3994ec5 2003-12-11 devnull 			goto Rescue;
 66 b3994ec5 2003-12-11 devnull 		*evalp = TRUE;
 67 be22ae2d 2004-03-26 devnull 		return range(line, line);
 68 b3994ec5 2003-12-11 devnull 	}
 69 b3994ec5 2003-12-11 devnull 	q0 = r.q0;
 70 b3994ec5 2003-12-11 devnull 	q1 = r.q1;
 71 b3994ec5 2003-12-11 devnull 	switch(dir){
 72 b3994ec5 2003-12-11 devnull 	case None:
 73 b3994ec5 2003-12-11 devnull 		q0 = 0;
 74 b3994ec5 2003-12-11 devnull 		q1 = 0;
 75 b3994ec5 2003-12-11 devnull 	Forward:
 76 b3994ec5 2003-12-11 devnull 		while(line>0 && q1<t->file->b.nc)
 77 b3994ec5 2003-12-11 devnull 			if(textreadc(t, q1++) == '\n' || q1==t->file->b.nc)
 78 b3994ec5 2003-12-11 devnull 				if(--line > 0)
 79 b3994ec5 2003-12-11 devnull 					q0 = q1;
 80 b3994ec5 2003-12-11 devnull 		if(line > 0)
 81 b3994ec5 2003-12-11 devnull 			goto Rescue;
 82 b3994ec5 2003-12-11 devnull 		break;
 83 b3994ec5 2003-12-11 devnull 	case Fore:
 84 b3994ec5 2003-12-11 devnull 		if(q1 > 0)
 85 012a8a02 2004-10-22 devnull 			while(q1<t->file->b.nc && textreadc(t, q1-1) != '\n')
 86 b3994ec5 2003-12-11 devnull 				q1++;
 87 b3994ec5 2003-12-11 devnull 		q0 = q1;
 88 b3994ec5 2003-12-11 devnull 		goto Forward;
 89 b3994ec5 2003-12-11 devnull 	case Back:
 90 b3994ec5 2003-12-11 devnull 		if(q0 < t->file->b.nc)
 91 b3994ec5 2003-12-11 devnull 			while(q0>0 && textreadc(t, q0-1)!='\n')
 92 b3994ec5 2003-12-11 devnull 				q0--;
 93 b3994ec5 2003-12-11 devnull 		q1 = q0;
 94 b3994ec5 2003-12-11 devnull 		while(line>0 && q0>0){
 95 b3994ec5 2003-12-11 devnull 			if(textreadc(t, q0-1) == '\n'){
 96 b3994ec5 2003-12-11 devnull 				if(--line >= 0)
 97 b3994ec5 2003-12-11 devnull 					q1 = q0;
 98 b3994ec5 2003-12-11 devnull 			}
 99 b3994ec5 2003-12-11 devnull 			--q0;
100 b3994ec5 2003-12-11 devnull 		}
101 b3994ec5 2003-12-11 devnull 		if(line > 0)
102 b3994ec5 2003-12-11 devnull 			goto Rescue;
103 b3994ec5 2003-12-11 devnull 		while(q0>0 && textreadc(t, q0-1)!='\n')
104 b3994ec5 2003-12-11 devnull 			--q0;
105 b3994ec5 2003-12-11 devnull 	}
106 b3994ec5 2003-12-11 devnull 	*evalp = TRUE;
107 be22ae2d 2004-03-26 devnull 	return range(q0, q1);
108 b3994ec5 2003-12-11 devnull 
109 b3994ec5 2003-12-11 devnull     Rescue:
110 012a8a02 2004-10-22 devnull 	if(showerr)
111 b3994ec5 2003-12-11 devnull 		warning(nil, "address out of range\n");
112 b3994ec5 2003-12-11 devnull 	*evalp = FALSE;
113 b3994ec5 2003-12-11 devnull 	return r;
114 b3994ec5 2003-12-11 devnull }
115 b3994ec5 2003-12-11 devnull 
116 b3994ec5 2003-12-11 devnull 
117 b3994ec5 2003-12-11 devnull Range
118 012a8a02 2004-10-22 devnull regexp(uint showerr, Text *t, Range lim, Range r, Rune *pat, int dir, int *foundp)
119 b3994ec5 2003-12-11 devnull {
120 b3994ec5 2003-12-11 devnull 	int found;
121 b3994ec5 2003-12-11 devnull 	Rangeset sel;
122 b3994ec5 2003-12-11 devnull 	int q;
123 b3994ec5 2003-12-11 devnull 
124 b3994ec5 2003-12-11 devnull 	if(pat[0] == '\0' && rxnull()){
125 012a8a02 2004-10-22 devnull 		if(showerr)
126 012a8a02 2004-10-22 devnull 			warning(nil, "no previous regular expression\n");
127 b3994ec5 2003-12-11 devnull 		*foundp = FALSE;
128 b3994ec5 2003-12-11 devnull 		return r;
129 b3994ec5 2003-12-11 devnull 	}
130 b3994ec5 2003-12-11 devnull 	if(pat[0] && rxcompile(pat) == FALSE){
131 b3994ec5 2003-12-11 devnull 		*foundp = FALSE;
132 b3994ec5 2003-12-11 devnull 		return r;
133 b3994ec5 2003-12-11 devnull 	}
134 b3994ec5 2003-12-11 devnull 	if(dir == Back)
135 b3994ec5 2003-12-11 devnull 		found = rxbexecute(t, r.q0, &sel);
136 b3994ec5 2003-12-11 devnull 	else{
137 b3994ec5 2003-12-11 devnull 		if(lim.q0 < 0)
138 b3994ec5 2003-12-11 devnull 			q = Infinity;
139 b3994ec5 2003-12-11 devnull 		else
140 b3994ec5 2003-12-11 devnull 			q = lim.q1;
141 b3994ec5 2003-12-11 devnull 		found = rxexecute(t, nil, r.q1, q, &sel);
142 b3994ec5 2003-12-11 devnull 	}
143 012a8a02 2004-10-22 devnull 	if(!found && showerr)
144 b3994ec5 2003-12-11 devnull 		warning(nil, "no match for regexp\n");
145 b3994ec5 2003-12-11 devnull 	*foundp = found;
146 b3994ec5 2003-12-11 devnull 	return sel.r[0];
147 b3994ec5 2003-12-11 devnull }
148 b3994ec5 2003-12-11 devnull 
149 b3994ec5 2003-12-11 devnull Range
150 012a8a02 2004-10-22 devnull address(uint showerr, Text *t, Range lim, Range ar, void *a, uint q0, uint q1, int (*getc)(void*, uint),  int *evalp, uint *qp)
151 b3994ec5 2003-12-11 devnull {
152 b3994ec5 2003-12-11 devnull 	int dir, size, npat;
153 b3994ec5 2003-12-11 devnull 	int prevc, c, nc, n;
154 b3994ec5 2003-12-11 devnull 	uint q;
155 b3994ec5 2003-12-11 devnull 	Rune *pat;
156 b3994ec5 2003-12-11 devnull 	Range r, nr;
157 b3994ec5 2003-12-11 devnull 
158 b3994ec5 2003-12-11 devnull 	r = ar;
159 b3994ec5 2003-12-11 devnull 	q = q0;
160 b3994ec5 2003-12-11 devnull 	dir = None;
161 b3994ec5 2003-12-11 devnull 	size = Line;
162 b3994ec5 2003-12-11 devnull 	c = 0;
163 b3994ec5 2003-12-11 devnull 	while(q < q1){
164 b3994ec5 2003-12-11 devnull 		prevc = c;
165 b3994ec5 2003-12-11 devnull 		c = (*getc)(a, q++);
166 b3994ec5 2003-12-11 devnull 		switch(c){
167 b3994ec5 2003-12-11 devnull 		default:
168 b3994ec5 2003-12-11 devnull 			*qp = q-1;
169 b3994ec5 2003-12-11 devnull 			return r;
170 b3994ec5 2003-12-11 devnull 		case ';':
171 b3994ec5 2003-12-11 devnull 			ar = r;
172 b3994ec5 2003-12-11 devnull 			/* fall through */
173 b3994ec5 2003-12-11 devnull 		case ',':
174 b3994ec5 2003-12-11 devnull 			if(prevc == 0)	/* lhs defaults to 0 */
175 b3994ec5 2003-12-11 devnull 				r.q0 = 0;
176 b3994ec5 2003-12-11 devnull 			if(q>=q1 && t!=nil && t->file!=nil)	/* rhs defaults to $ */
177 b3994ec5 2003-12-11 devnull 				r.q1 = t->file->b.nc;
178 b3994ec5 2003-12-11 devnull 			else{
179 012a8a02 2004-10-22 devnull 				nr = address(showerr, t, lim, ar, a, q, q1, getc, evalp, &q);
180 b3994ec5 2003-12-11 devnull 				r.q1 = nr.q1;
181 b3994ec5 2003-12-11 devnull 			}
182 b3994ec5 2003-12-11 devnull 			*qp = q;
183 b3994ec5 2003-12-11 devnull 			return r;
184 b3994ec5 2003-12-11 devnull 		case '+':
185 b3994ec5 2003-12-11 devnull 		case '-':
186 b3994ec5 2003-12-11 devnull 			if(*evalp && (prevc=='+' || prevc=='-'))
187 b3994ec5 2003-12-11 devnull 				if((nc=(*getc)(a, q))!='#' && nc!='/' && nc!='?')
188 012a8a02 2004-10-22 devnull 					r = number(showerr, t, r, 1, prevc, Line, evalp);	/* do previous one */
189 b3994ec5 2003-12-11 devnull 			dir = c;
190 b3994ec5 2003-12-11 devnull 			break;
191 b3994ec5 2003-12-11 devnull 		case '.':
192 b3994ec5 2003-12-11 devnull 		case '$':
193 b3994ec5 2003-12-11 devnull 			if(q != q0+1){
194 b3994ec5 2003-12-11 devnull 				*qp = q-1;
195 b3994ec5 2003-12-11 devnull 				return r;
196 b3994ec5 2003-12-11 devnull 			}
197 b3994ec5 2003-12-11 devnull 			if(*evalp)
198 b3994ec5 2003-12-11 devnull 				if(c == '.')
199 b3994ec5 2003-12-11 devnull 					r = ar;
200 b3994ec5 2003-12-11 devnull 				else
201 be22ae2d 2004-03-26 devnull 					r = range(t->file->b.nc, t->file->b.nc);
202 b3994ec5 2003-12-11 devnull 			if(q < q1)
203 b3994ec5 2003-12-11 devnull 				dir = Fore;
204 b3994ec5 2003-12-11 devnull 			else
205 b3994ec5 2003-12-11 devnull 				dir = None;
206 b3994ec5 2003-12-11 devnull 			break;
207 b3994ec5 2003-12-11 devnull 		case '#':
208 b3994ec5 2003-12-11 devnull 			if(q==q1 || (c=(*getc)(a, q++))<'0' || '9'<c){
209 b3994ec5 2003-12-11 devnull 				*qp = q-1;
210 b3994ec5 2003-12-11 devnull 				return r;
211 b3994ec5 2003-12-11 devnull 			}
212 b3994ec5 2003-12-11 devnull 			size = Char;
213 b3994ec5 2003-12-11 devnull 			/* fall through */
214 b3994ec5 2003-12-11 devnull 		case '0': case '1': case '2': case '3': case '4':
215 b3994ec5 2003-12-11 devnull 		case '5': case '6': case '7': case '8': case '9':
216 b3994ec5 2003-12-11 devnull 			n = c -'0';
217 b3994ec5 2003-12-11 devnull 			while(q<q1){
218 b3994ec5 2003-12-11 devnull 				c = (*getc)(a, q++);
219 b3994ec5 2003-12-11 devnull 				if(c<'0' || '9'<c){
220 b3994ec5 2003-12-11 devnull 					q--;
221 b3994ec5 2003-12-11 devnull 					break;
222 b3994ec5 2003-12-11 devnull 				}
223 b3994ec5 2003-12-11 devnull 				n = n*10+(c-'0');
224 b3994ec5 2003-12-11 devnull 			}
225 b3994ec5 2003-12-11 devnull 			if(*evalp)
226 012a8a02 2004-10-22 devnull 				r = number(showerr, t, r, n, dir, size, evalp);
227 b3994ec5 2003-12-11 devnull 			dir = None;
228 b3994ec5 2003-12-11 devnull 			size = Line;
229 b3994ec5 2003-12-11 devnull 			break;
230 b3994ec5 2003-12-11 devnull 		case '?':
231 b3994ec5 2003-12-11 devnull 			dir = Back;
232 b3994ec5 2003-12-11 devnull 			/* fall through */
233 b3994ec5 2003-12-11 devnull 		case '/':
234 b3994ec5 2003-12-11 devnull 			npat = 0;
235 b3994ec5 2003-12-11 devnull 			pat = nil;
236 b3994ec5 2003-12-11 devnull 			while(q<q1){
237 b3994ec5 2003-12-11 devnull 				c = (*getc)(a, q++);
238 b3994ec5 2003-12-11 devnull 				switch(c){
239 b3994ec5 2003-12-11 devnull 				case '\n':
240 b3994ec5 2003-12-11 devnull 					--q;
241 b3994ec5 2003-12-11 devnull 					goto out;
242 b3994ec5 2003-12-11 devnull 				case '\\':
243 b3994ec5 2003-12-11 devnull 					pat = runerealloc(pat, npat+1);
244 b3994ec5 2003-12-11 devnull 					pat[npat++] = c;
245 b3994ec5 2003-12-11 devnull 					if(q == q1)
246 b3994ec5 2003-12-11 devnull 						goto out;
247 b3994ec5 2003-12-11 devnull 					c = (*getc)(a, q++);
248 b3994ec5 2003-12-11 devnull 					break;
249 b3994ec5 2003-12-11 devnull 				case '/':
250 b3994ec5 2003-12-11 devnull 					goto out;
251 b3994ec5 2003-12-11 devnull 				}
252 b3994ec5 2003-12-11 devnull 				pat = runerealloc(pat, npat+1);
253 b3994ec5 2003-12-11 devnull 				pat[npat++] = c;
254 b3994ec5 2003-12-11 devnull 			}
255 b3994ec5 2003-12-11 devnull 		    out:
256 b3994ec5 2003-12-11 devnull 			pat = runerealloc(pat, npat+1);
257 b3994ec5 2003-12-11 devnull 			pat[npat] = 0;
258 b3994ec5 2003-12-11 devnull 			if(*evalp)
259 012a8a02 2004-10-22 devnull 				r = regexp(showerr, t, lim, r, pat, dir, evalp);
260 b3994ec5 2003-12-11 devnull 			free(pat);
261 b3994ec5 2003-12-11 devnull 			dir = None;
262 b3994ec5 2003-12-11 devnull 			size = Line;
263 b3994ec5 2003-12-11 devnull 			break;
264 b3994ec5 2003-12-11 devnull 		}
265 b3994ec5 2003-12-11 devnull 	}
266 b3994ec5 2003-12-11 devnull 	if(*evalp && dir != None)
267 012a8a02 2004-10-22 devnull 		r = number(showerr, t, r, 1, dir, Line, evalp);	/* do previous one */
268 b3994ec5 2003-12-11 devnull 	*qp = q;
269 b3994ec5 2003-12-11 devnull 	return r;
270 b3994ec5 2003-12-11 devnull }