Blame

Date:
Message:
acme: allow :6 in 5-line file R=rsc https://codereview.appspot.com/12162043
Actions:
History | Blob | Raw File
  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 ff4512ee 2011-07-11 rsc 	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 2bc9a13f 2013-07-31 rsc 		if(line==1 && q1==t->file->b.nc) // 6 goes to end of 5-line file

 81 2bc9a13f 2013-07-31 rsc 			break;

 82 b3994ec5 2003-12-11 devnull 		if(line > 0)

 83 b3994ec5 2003-12-11 devnull 			goto Rescue;

 84 b3994ec5 2003-12-11 devnull 		break;

 85 b3994ec5 2003-12-11 devnull 	case Fore:

 86 b3994ec5 2003-12-11 devnull 		if(q1 > 0)

 87 012a8a02 2004-10-22 devnull 			while(q1<t->file->b.nc && textreadc(t, q1-1) != '\n')

 88 b3994ec5 2003-12-11 devnull 				q1++;

 89 b3994ec5 2003-12-11 devnull 		q0 = q1;

 90 b3994ec5 2003-12-11 devnull 		goto Forward;

 91 b3994ec5 2003-12-11 devnull 	case Back:

 92 b3994ec5 2003-12-11 devnull 		if(q0 < t->file->b.nc)

 93 b3994ec5 2003-12-11 devnull 			while(q0>0 && textreadc(t, q0-1)!='\n')

 94 b3994ec5 2003-12-11 devnull 				q0--;

 95 b3994ec5 2003-12-11 devnull 		q1 = q0;

 96 b3994ec5 2003-12-11 devnull 		while(line>0 && q0>0){

 97 b3994ec5 2003-12-11 devnull 			if(textreadc(t, q0-1) == '\n'){

 98 b3994ec5 2003-12-11 devnull 				if(--line >= 0)

 99 b3994ec5 2003-12-11 devnull 					q1 = q0;

100 b3994ec5 2003-12-11 devnull 			}

101 b3994ec5 2003-12-11 devnull 			--q0;

102 b3994ec5 2003-12-11 devnull 		}

103 a5841359 2007-03-26 devnull 		/* :1-1 is :0 = #0, but :1-2 is an error */

104 a5841359 2007-03-26 devnull 		if(line > 1)

105 b3994ec5 2003-12-11 devnull 			goto Rescue;

106 b3994ec5 2003-12-11 devnull 		while(q0>0 && textreadc(t, q0-1)!='\n')

107 b3994ec5 2003-12-11 devnull 			--q0;

108 b3994ec5 2003-12-11 devnull 	}

109 b3994ec5 2003-12-11 devnull 	*evalp = TRUE;

110 be22ae2d 2004-03-26 devnull 	return range(q0, q1);

111 b3994ec5 2003-12-11 devnull 

112 b3994ec5 2003-12-11 devnull     Rescue:

113 012a8a02 2004-10-22 devnull 	if(showerr)

114 b3994ec5 2003-12-11 devnull 		warning(nil, "address out of range\n");

115 b3994ec5 2003-12-11 devnull 	*evalp = FALSE;

116 b3994ec5 2003-12-11 devnull 	return r;

117 b3994ec5 2003-12-11 devnull }

118 b3994ec5 2003-12-11 devnull 

119 b3994ec5 2003-12-11 devnull 

120 b3994ec5 2003-12-11 devnull Range

121 012a8a02 2004-10-22 devnull regexp(uint showerr, Text *t, Range lim, Range r, Rune *pat, int dir, int *foundp)

122 b3994ec5 2003-12-11 devnull {

123 b3994ec5 2003-12-11 devnull 	int found;

124 b3994ec5 2003-12-11 devnull 	Rangeset sel;

125 b3994ec5 2003-12-11 devnull 	int q;

126 b3994ec5 2003-12-11 devnull 

127 b3994ec5 2003-12-11 devnull 	if(pat[0] == '\0' && rxnull()){

128 012a8a02 2004-10-22 devnull 		if(showerr)

129 012a8a02 2004-10-22 devnull 			warning(nil, "no previous regular expression\n");

130 b3994ec5 2003-12-11 devnull 		*foundp = FALSE;

131 b3994ec5 2003-12-11 devnull 		return r;

132 b3994ec5 2003-12-11 devnull 	}

133 b3994ec5 2003-12-11 devnull 	if(pat[0] && rxcompile(pat) == FALSE){

134 b3994ec5 2003-12-11 devnull 		*foundp = FALSE;

135 b3994ec5 2003-12-11 devnull 		return r;

136 b3994ec5 2003-12-11 devnull 	}

137 b3994ec5 2003-12-11 devnull 	if(dir == Back)

138 b3994ec5 2003-12-11 devnull 		found = rxbexecute(t, r.q0, &sel);

139 b3994ec5 2003-12-11 devnull 	else{

140 b3994ec5 2003-12-11 devnull 		if(lim.q0 < 0)

141 b3994ec5 2003-12-11 devnull 			q = Infinity;

142 b3994ec5 2003-12-11 devnull 		else

143 b3994ec5 2003-12-11 devnull 			q = lim.q1;

144 b3994ec5 2003-12-11 devnull 		found = rxexecute(t, nil, r.q1, q, &sel);

145 b3994ec5 2003-12-11 devnull 	}

146 012a8a02 2004-10-22 devnull 	if(!found && showerr)

147 b3994ec5 2003-12-11 devnull 		warning(nil, "no match for regexp\n");

148 b3994ec5 2003-12-11 devnull 	*foundp = found;

149 b3994ec5 2003-12-11 devnull 	return sel.r[0];

150 b3994ec5 2003-12-11 devnull }

151 b3994ec5 2003-12-11 devnull 

152 b3994ec5 2003-12-11 devnull Range

153 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)

154 b3994ec5 2003-12-11 devnull {

155 b3994ec5 2003-12-11 devnull 	int dir, size, npat;

156 b3994ec5 2003-12-11 devnull 	int prevc, c, nc, n;

157 b3994ec5 2003-12-11 devnull 	uint q;

158 b3994ec5 2003-12-11 devnull 	Rune *pat;

159 b3994ec5 2003-12-11 devnull 	Range r, nr;

160 b3994ec5 2003-12-11 devnull 

161 b3994ec5 2003-12-11 devnull 	r = ar;

162 b3994ec5 2003-12-11 devnull 	q = q0;

163 b3994ec5 2003-12-11 devnull 	dir = None;

164 b3994ec5 2003-12-11 devnull 	size = Line;

165 b3994ec5 2003-12-11 devnull 	c = 0;

166 b3994ec5 2003-12-11 devnull 	while(q < q1){

167 b3994ec5 2003-12-11 devnull 		prevc = c;

168 b3994ec5 2003-12-11 devnull 		c = (*getc)(a, q++);

169 b3994ec5 2003-12-11 devnull 		switch(c){

170 b3994ec5 2003-12-11 devnull 		default:

171 b3994ec5 2003-12-11 devnull 			*qp = q-1;

172 b3994ec5 2003-12-11 devnull 			return r;

173 b3994ec5 2003-12-11 devnull 		case ';':

174 b3994ec5 2003-12-11 devnull 			ar = r;

175 b3994ec5 2003-12-11 devnull 			/* fall through */

176 b3994ec5 2003-12-11 devnull 		case ',':

177 b3994ec5 2003-12-11 devnull 			if(prevc == 0)	/* lhs defaults to 0 */

178 b3994ec5 2003-12-11 devnull 				r.q0 = 0;

179 b3994ec5 2003-12-11 devnull 			if(q>=q1 && t!=nil && t->file!=nil)	/* rhs defaults to $ */

180 b3994ec5 2003-12-11 devnull 				r.q1 = t->file->b.nc;

181 b3994ec5 2003-12-11 devnull 			else{

182 012a8a02 2004-10-22 devnull 				nr = address(showerr, t, lim, ar, a, q, q1, getc, evalp, &q);

183 b3994ec5 2003-12-11 devnull 				r.q1 = nr.q1;

184 b3994ec5 2003-12-11 devnull 			}

185 b3994ec5 2003-12-11 devnull 			*qp = q;

186 b3994ec5 2003-12-11 devnull 			return r;

187 b3994ec5 2003-12-11 devnull 		case '+':

188 b3994ec5 2003-12-11 devnull 		case '-':

189 b3994ec5 2003-12-11 devnull 			if(*evalp && (prevc=='+' || prevc=='-'))

190 b3994ec5 2003-12-11 devnull 				if((nc=(*getc)(a, q))!='#' && nc!='/' && nc!='?')

191 012a8a02 2004-10-22 devnull 					r = number(showerr, t, r, 1, prevc, Line, evalp);	/* do previous one */

192 b3994ec5 2003-12-11 devnull 			dir = c;

193 b3994ec5 2003-12-11 devnull 			break;

194 b3994ec5 2003-12-11 devnull 		case '.':

195 b3994ec5 2003-12-11 devnull 		case '$':

196 b3994ec5 2003-12-11 devnull 			if(q != q0+1){

197 b3994ec5 2003-12-11 devnull 				*qp = q-1;

198 b3994ec5 2003-12-11 devnull 				return r;

199 b3994ec5 2003-12-11 devnull 			}

200 b3994ec5 2003-12-11 devnull 			if(*evalp)

201 b3994ec5 2003-12-11 devnull 				if(c == '.')

202 b3994ec5 2003-12-11 devnull 					r = ar;

203 b3994ec5 2003-12-11 devnull 				else

204 be22ae2d 2004-03-26 devnull 					r = range(t->file->b.nc, t->file->b.nc);

205 b3994ec5 2003-12-11 devnull 			if(q < q1)

206 b3994ec5 2003-12-11 devnull 				dir = Fore;

207 b3994ec5 2003-12-11 devnull 			else

208 b3994ec5 2003-12-11 devnull 				dir = None;

209 b3994ec5 2003-12-11 devnull 			break;

210 b3994ec5 2003-12-11 devnull 		case '#':

211 b3994ec5 2003-12-11 devnull 			if(q==q1 || (c=(*getc)(a, q++))<'0' || '9'<c){

212 b3994ec5 2003-12-11 devnull 				*qp = q-1;

213 b3994ec5 2003-12-11 devnull 				return r;

214 b3994ec5 2003-12-11 devnull 			}

215 b3994ec5 2003-12-11 devnull 			size = Char;

216 b3994ec5 2003-12-11 devnull 			/* fall through */

217 b3994ec5 2003-12-11 devnull 		case '0': case '1': case '2': case '3': case '4':

218 b3994ec5 2003-12-11 devnull 		case '5': case '6': case '7': case '8': case '9':

219 b3994ec5 2003-12-11 devnull 			n = c -'0';

220 b3994ec5 2003-12-11 devnull 			while(q<q1){

221 b3994ec5 2003-12-11 devnull 				c = (*getc)(a, q++);

222 b3994ec5 2003-12-11 devnull 				if(c<'0' || '9'<c){

223 b3994ec5 2003-12-11 devnull 					q--;

224 b3994ec5 2003-12-11 devnull 					break;

225 b3994ec5 2003-12-11 devnull 				}

226 b3994ec5 2003-12-11 devnull 				n = n*10+(c-'0');

227 b3994ec5 2003-12-11 devnull 			}

228 b3994ec5 2003-12-11 devnull 			if(*evalp)

229 012a8a02 2004-10-22 devnull 				r = number(showerr, t, r, n, dir, size, evalp);

230 b3994ec5 2003-12-11 devnull 			dir = None;

231 b3994ec5 2003-12-11 devnull 			size = Line;

232 b3994ec5 2003-12-11 devnull 			break;

233 b3994ec5 2003-12-11 devnull 		case '?':

234 b3994ec5 2003-12-11 devnull 			dir = Back;

235 b3994ec5 2003-12-11 devnull 			/* fall through */

236 b3994ec5 2003-12-11 devnull 		case '/':

237 b3994ec5 2003-12-11 devnull 			npat = 0;

238 b3994ec5 2003-12-11 devnull 			pat = nil;

239 b3994ec5 2003-12-11 devnull 			while(q<q1){

240 b3994ec5 2003-12-11 devnull 				c = (*getc)(a, q++);

241 b3994ec5 2003-12-11 devnull 				switch(c){

242 b3994ec5 2003-12-11 devnull 				case '\n':

243 b3994ec5 2003-12-11 devnull 					--q;

244 b3994ec5 2003-12-11 devnull 					goto out;

245 b3994ec5 2003-12-11 devnull 				case '\\':

246 b3994ec5 2003-12-11 devnull 					pat = runerealloc(pat, npat+1);

247 b3994ec5 2003-12-11 devnull 					pat[npat++] = c;

248 b3994ec5 2003-12-11 devnull 					if(q == q1)

249 b3994ec5 2003-12-11 devnull 						goto out;

250 b3994ec5 2003-12-11 devnull 					c = (*getc)(a, q++);

251 b3994ec5 2003-12-11 devnull 					break;

252 b3994ec5 2003-12-11 devnull 				case '/':

253 b3994ec5 2003-12-11 devnull 					goto out;

254 b3994ec5 2003-12-11 devnull 				}

255 b3994ec5 2003-12-11 devnull 				pat = runerealloc(pat, npat+1);

256 b3994ec5 2003-12-11 devnull 				pat[npat++] = c;

257 b3994ec5 2003-12-11 devnull 			}

258 b3994ec5 2003-12-11 devnull 		    out:

259 b3994ec5 2003-12-11 devnull 			pat = runerealloc(pat, npat+1);

260 b3994ec5 2003-12-11 devnull 			pat[npat] = 0;

261 b3994ec5 2003-12-11 devnull 			if(*evalp)

262 012a8a02 2004-10-22 devnull 				r = regexp(showerr, t, lim, r, pat, dir, evalp);

263 b3994ec5 2003-12-11 devnull 			free(pat);

264 b3994ec5 2003-12-11 devnull 			dir = None;

265 b3994ec5 2003-12-11 devnull 			size = Line;

266 b3994ec5 2003-12-11 devnull 			break;

267 b3994ec5 2003-12-11 devnull 		}

268 b3994ec5 2003-12-11 devnull 	}

269 b3994ec5 2003-12-11 devnull 	if(*evalp && dir != None)

270 012a8a02 2004-10-22 devnull 		r = number(showerr, t, r, 1, dir, Line, evalp);	/* do previous one */

271 b3994ec5 2003-12-11 devnull 	*qp = q;

272 b3994ec5 2003-12-11 devnull 	return r;

273 b3994ec5 2003-12-11 devnull }