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 a5841359 2007-03-26 devnull 		/* :1-1 is :0 = #0, but :1-2 is an error */
102 a5841359 2007-03-26 devnull 		if(line > 1)
103 b3994ec5 2003-12-11 devnull 			goto Rescue;
104 b3994ec5 2003-12-11 devnull 		while(q0>0 && textreadc(t, q0-1)!='\n')
105 b3994ec5 2003-12-11 devnull 			--q0;
106 b3994ec5 2003-12-11 devnull 	}
107 b3994ec5 2003-12-11 devnull 	*evalp = TRUE;
108 be22ae2d 2004-03-26 devnull 	return range(q0, q1);
109 b3994ec5 2003-12-11 devnull 
110 b3994ec5 2003-12-11 devnull     Rescue:
111 012a8a02 2004-10-22 devnull 	if(showerr)
112 b3994ec5 2003-12-11 devnull 		warning(nil, "address out of range\n");
113 b3994ec5 2003-12-11 devnull 	*evalp = FALSE;
114 b3994ec5 2003-12-11 devnull 	return r;
115 b3994ec5 2003-12-11 devnull }
116 b3994ec5 2003-12-11 devnull 
117 b3994ec5 2003-12-11 devnull 
118 b3994ec5 2003-12-11 devnull Range
119 012a8a02 2004-10-22 devnull regexp(uint showerr, Text *t, Range lim, Range r, Rune *pat, int dir, int *foundp)
120 b3994ec5 2003-12-11 devnull {
121 b3994ec5 2003-12-11 devnull 	int found;
122 b3994ec5 2003-12-11 devnull 	Rangeset sel;
123 b3994ec5 2003-12-11 devnull 	int q;
124 b3994ec5 2003-12-11 devnull 
125 b3994ec5 2003-12-11 devnull 	if(pat[0] == '\0' && rxnull()){
126 012a8a02 2004-10-22 devnull 		if(showerr)
127 012a8a02 2004-10-22 devnull 			warning(nil, "no previous regular expression\n");
128 b3994ec5 2003-12-11 devnull 		*foundp = FALSE;
129 b3994ec5 2003-12-11 devnull 		return r;
130 b3994ec5 2003-12-11 devnull 	}
131 b3994ec5 2003-12-11 devnull 	if(pat[0] && rxcompile(pat) == FALSE){
132 b3994ec5 2003-12-11 devnull 		*foundp = FALSE;
133 b3994ec5 2003-12-11 devnull 		return r;
134 b3994ec5 2003-12-11 devnull 	}
135 b3994ec5 2003-12-11 devnull 	if(dir == Back)
136 b3994ec5 2003-12-11 devnull 		found = rxbexecute(t, r.q0, &sel);
137 b3994ec5 2003-12-11 devnull 	else{
138 b3994ec5 2003-12-11 devnull 		if(lim.q0 < 0)
139 b3994ec5 2003-12-11 devnull 			q = Infinity;
140 b3994ec5 2003-12-11 devnull 		else
141 b3994ec5 2003-12-11 devnull 			q = lim.q1;
142 b3994ec5 2003-12-11 devnull 		found = rxexecute(t, nil, r.q1, q, &sel);
143 b3994ec5 2003-12-11 devnull 	}
144 012a8a02 2004-10-22 devnull 	if(!found && showerr)
145 b3994ec5 2003-12-11 devnull 		warning(nil, "no match for regexp\n");
146 b3994ec5 2003-12-11 devnull 	*foundp = found;
147 b3994ec5 2003-12-11 devnull 	return sel.r[0];
148 b3994ec5 2003-12-11 devnull }
149 b3994ec5 2003-12-11 devnull 
150 b3994ec5 2003-12-11 devnull Range
151 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)
152 b3994ec5 2003-12-11 devnull {
153 b3994ec5 2003-12-11 devnull 	int dir, size, npat;
154 b3994ec5 2003-12-11 devnull 	int prevc, c, nc, n;
155 b3994ec5 2003-12-11 devnull 	uint q;
156 b3994ec5 2003-12-11 devnull 	Rune *pat;
157 b3994ec5 2003-12-11 devnull 	Range r, nr;
158 b3994ec5 2003-12-11 devnull 
159 b3994ec5 2003-12-11 devnull 	r = ar;
160 b3994ec5 2003-12-11 devnull 	q = q0;
161 b3994ec5 2003-12-11 devnull 	dir = None;
162 b3994ec5 2003-12-11 devnull 	size = Line;
163 b3994ec5 2003-12-11 devnull 	c = 0;
164 b3994ec5 2003-12-11 devnull 	while(q < q1){
165 b3994ec5 2003-12-11 devnull 		prevc = c;
166 b3994ec5 2003-12-11 devnull 		c = (*getc)(a, q++);
167 b3994ec5 2003-12-11 devnull 		switch(c){
168 b3994ec5 2003-12-11 devnull 		default:
169 b3994ec5 2003-12-11 devnull 			*qp = q-1;
170 b3994ec5 2003-12-11 devnull 			return r;
171 b3994ec5 2003-12-11 devnull 		case ';':
172 b3994ec5 2003-12-11 devnull 			ar = r;
173 b3994ec5 2003-12-11 devnull 			/* fall through */
174 b3994ec5 2003-12-11 devnull 		case ',':
175 b3994ec5 2003-12-11 devnull 			if(prevc == 0)	/* lhs defaults to 0 */
176 b3994ec5 2003-12-11 devnull 				r.q0 = 0;
177 b3994ec5 2003-12-11 devnull 			if(q>=q1 && t!=nil && t->file!=nil)	/* rhs defaults to $ */
178 b3994ec5 2003-12-11 devnull 				r.q1 = t->file->b.nc;
179 b3994ec5 2003-12-11 devnull 			else{
180 012a8a02 2004-10-22 devnull 				nr = address(showerr, t, lim, ar, a, q, q1, getc, evalp, &q);
181 b3994ec5 2003-12-11 devnull 				r.q1 = nr.q1;
182 b3994ec5 2003-12-11 devnull 			}
183 b3994ec5 2003-12-11 devnull 			*qp = q;
184 b3994ec5 2003-12-11 devnull 			return r;
185 b3994ec5 2003-12-11 devnull 		case '+':
186 b3994ec5 2003-12-11 devnull 		case '-':
187 b3994ec5 2003-12-11 devnull 			if(*evalp && (prevc=='+' || prevc=='-'))
188 b3994ec5 2003-12-11 devnull 				if((nc=(*getc)(a, q))!='#' && nc!='/' && nc!='?')
189 012a8a02 2004-10-22 devnull 					r = number(showerr, t, r, 1, prevc, Line, evalp);	/* do previous one */
190 b3994ec5 2003-12-11 devnull 			dir = c;
191 b3994ec5 2003-12-11 devnull 			break;
192 b3994ec5 2003-12-11 devnull 		case '.':
193 b3994ec5 2003-12-11 devnull 		case '$':
194 b3994ec5 2003-12-11 devnull 			if(q != q0+1){
195 b3994ec5 2003-12-11 devnull 				*qp = q-1;
196 b3994ec5 2003-12-11 devnull 				return r;
197 b3994ec5 2003-12-11 devnull 			}
198 b3994ec5 2003-12-11 devnull 			if(*evalp)
199 b3994ec5 2003-12-11 devnull 				if(c == '.')
200 b3994ec5 2003-12-11 devnull 					r = ar;
201 b3994ec5 2003-12-11 devnull 				else
202 be22ae2d 2004-03-26 devnull 					r = range(t->file->b.nc, t->file->b.nc);
203 b3994ec5 2003-12-11 devnull 			if(q < q1)
204 b3994ec5 2003-12-11 devnull 				dir = Fore;
205 b3994ec5 2003-12-11 devnull 			else
206 b3994ec5 2003-12-11 devnull 				dir = None;
207 b3994ec5 2003-12-11 devnull 			break;
208 b3994ec5 2003-12-11 devnull 		case '#':
209 b3994ec5 2003-12-11 devnull 			if(q==q1 || (c=(*getc)(a, q++))<'0' || '9'<c){
210 b3994ec5 2003-12-11 devnull 				*qp = q-1;
211 b3994ec5 2003-12-11 devnull 				return r;
212 b3994ec5 2003-12-11 devnull 			}
213 b3994ec5 2003-12-11 devnull 			size = Char;
214 b3994ec5 2003-12-11 devnull 			/* fall through */
215 b3994ec5 2003-12-11 devnull 		case '0': case '1': case '2': case '3': case '4':
216 b3994ec5 2003-12-11 devnull 		case '5': case '6': case '7': case '8': case '9':
217 b3994ec5 2003-12-11 devnull 			n = c -'0';
218 b3994ec5 2003-12-11 devnull 			while(q<q1){
219 b3994ec5 2003-12-11 devnull 				c = (*getc)(a, q++);
220 b3994ec5 2003-12-11 devnull 				if(c<'0' || '9'<c){
221 b3994ec5 2003-12-11 devnull 					q--;
222 b3994ec5 2003-12-11 devnull 					break;
223 b3994ec5 2003-12-11 devnull 				}
224 b3994ec5 2003-12-11 devnull 				n = n*10+(c-'0');
225 b3994ec5 2003-12-11 devnull 			}
226 b3994ec5 2003-12-11 devnull 			if(*evalp)
227 012a8a02 2004-10-22 devnull 				r = number(showerr, t, r, n, dir, size, evalp);
228 b3994ec5 2003-12-11 devnull 			dir = None;
229 b3994ec5 2003-12-11 devnull 			size = Line;
230 b3994ec5 2003-12-11 devnull 			break;
231 b3994ec5 2003-12-11 devnull 		case '?':
232 b3994ec5 2003-12-11 devnull 			dir = Back;
233 b3994ec5 2003-12-11 devnull 			/* fall through */
234 b3994ec5 2003-12-11 devnull 		case '/':
235 b3994ec5 2003-12-11 devnull 			npat = 0;
236 b3994ec5 2003-12-11 devnull 			pat = nil;
237 b3994ec5 2003-12-11 devnull 			while(q<q1){
238 b3994ec5 2003-12-11 devnull 				c = (*getc)(a, q++);
239 b3994ec5 2003-12-11 devnull 				switch(c){
240 b3994ec5 2003-12-11 devnull 				case '\n':
241 b3994ec5 2003-12-11 devnull 					--q;
242 b3994ec5 2003-12-11 devnull 					goto out;
243 b3994ec5 2003-12-11 devnull 				case '\\':
244 b3994ec5 2003-12-11 devnull 					pat = runerealloc(pat, npat+1);
245 b3994ec5 2003-12-11 devnull 					pat[npat++] = c;
246 b3994ec5 2003-12-11 devnull 					if(q == q1)
247 b3994ec5 2003-12-11 devnull 						goto out;
248 b3994ec5 2003-12-11 devnull 					c = (*getc)(a, q++);
249 b3994ec5 2003-12-11 devnull 					break;
250 b3994ec5 2003-12-11 devnull 				case '/':
251 b3994ec5 2003-12-11 devnull 					goto out;
252 b3994ec5 2003-12-11 devnull 				}
253 b3994ec5 2003-12-11 devnull 				pat = runerealloc(pat, npat+1);
254 b3994ec5 2003-12-11 devnull 				pat[npat++] = c;
255 b3994ec5 2003-12-11 devnull 			}
256 b3994ec5 2003-12-11 devnull 		    out:
257 b3994ec5 2003-12-11 devnull 			pat = runerealloc(pat, npat+1);
258 b3994ec5 2003-12-11 devnull 			pat[npat] = 0;
259 b3994ec5 2003-12-11 devnull 			if(*evalp)
260 012a8a02 2004-10-22 devnull 				r = regexp(showerr, t, lim, r, pat, dir, evalp);
261 b3994ec5 2003-12-11 devnull 			free(pat);
262 b3994ec5 2003-12-11 devnull 			dir = None;
263 b3994ec5 2003-12-11 devnull 			size = Line;
264 b3994ec5 2003-12-11 devnull 			break;
265 b3994ec5 2003-12-11 devnull 		}
266 b3994ec5 2003-12-11 devnull 	}
267 b3994ec5 2003-12-11 devnull 	if(*evalp && dir != None)
268 012a8a02 2004-10-22 devnull 		r = number(showerr, t, r, 1, dir, Line, evalp);	/* do previous one */
269 b3994ec5 2003-12-11 devnull 	*qp = q;
270 b3994ec5 2003-12-11 devnull 	return r;
271 b3994ec5 2003-12-11 devnull }