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 "edit.h"
13 b3994ec5 2003-12-11 devnull #include "fns.h"
15 b3994ec5 2003-12-11 devnull int Glooping;
16 b3994ec5 2003-12-11 devnull int nest;
17 b3994ec5 2003-12-11 devnull char Enoname[] = "no file name given";
19 b3994ec5 2003-12-11 devnull Address addr;
20 b3994ec5 2003-12-11 devnull File *menu;
21 b3994ec5 2003-12-11 devnull Rangeset sel;
22 b3994ec5 2003-12-11 devnull extern Text* curtext;
23 b3994ec5 2003-12-11 devnull Rune *collection;
24 b3994ec5 2003-12-11 devnull int ncollection;
26 b3994ec5 2003-12-11 devnull int append(File*, Cmd*, long);
27 b3994ec5 2003-12-11 devnull int pdisplay(File*);
28 b3994ec5 2003-12-11 devnull void pfilename(File*);
29 b3994ec5 2003-12-11 devnull void looper(File*, Cmd*, int);
30 b3994ec5 2003-12-11 devnull void filelooper(Cmd*, int);
31 b3994ec5 2003-12-11 devnull void linelooper(File*, Cmd*);
32 b3994ec5 2003-12-11 devnull Address lineaddr(long, Address, int);
33 b3994ec5 2003-12-11 devnull int filematch(File*, String*);
34 b3994ec5 2003-12-11 devnull File *tofile(String*);
35 b3994ec5 2003-12-11 devnull Rune* cmdname(File *f, String *s, int);
36 b3994ec5 2003-12-11 devnull void runpipe(Text*, int, Rune*, int, int);
39 b3994ec5 2003-12-11 devnull clearcollection(void)
41 b3994ec5 2003-12-11 devnull free(collection);
42 b3994ec5 2003-12-11 devnull collection = nil;
43 b3994ec5 2003-12-11 devnull ncollection = 0;
47 b3994ec5 2003-12-11 devnull resetxec(void)
49 b3994ec5 2003-12-11 devnull Glooping = nest = 0;
50 b3994ec5 2003-12-11 devnull clearcollection();
54 b3994ec5 2003-12-11 devnull mkaddr(Address *a, File *f)
56 b3994ec5 2003-12-11 devnull a->r.q0 = f->curtext->q0;
57 b3994ec5 2003-12-11 devnull a->r.q1 = f->curtext->q1;
58 b3994ec5 2003-12-11 devnull a->f = f;
62 b3994ec5 2003-12-11 devnull cmdexec(Text *t, Cmd *cp)
65 b3994ec5 2003-12-11 devnull Addr *ap;
67 b3994ec5 2003-12-11 devnull Window *w;
68 b3994ec5 2003-12-11 devnull Address dot;
70 b3994ec5 2003-12-11 devnull if(t == nil)
73 b3994ec5 2003-12-11 devnull w = t->w;
74 b3994ec5 2003-12-11 devnull if(w==nil && (cp->addr==0 || cp->addr->type!='"') &&
75 b3994ec5 2003-12-11 devnull !utfrune("bBnqUXY!", cp->cmdc) &&
76 b3994ec5 2003-12-11 devnull !(cp->cmdc=='D' && cp->u.text))
77 b3994ec5 2003-12-11 devnull editerror("no current window");
78 b3994ec5 2003-12-11 devnull i = cmdlookup(cp->cmdc); /* will be -1 for '{' */
80 b3994ec5 2003-12-11 devnull if(t && t->w){
81 b3994ec5 2003-12-11 devnull t = &t->w->body;
82 b3994ec5 2003-12-11 devnull f = t->file;
83 b3994ec5 2003-12-11 devnull f->curtext = t;
85 b3994ec5 2003-12-11 devnull if(i>=0 && cmdtab[i].defaddr != aNo){
86 b3994ec5 2003-12-11 devnull if((ap=cp->addr)==0 && cp->cmdc!='\n'){
87 b3994ec5 2003-12-11 devnull cp->addr = ap = newaddr();
88 b3994ec5 2003-12-11 devnull ap->type = '.';
89 b3994ec5 2003-12-11 devnull if(cmdtab[i].defaddr == aAll)
90 b3994ec5 2003-12-11 devnull ap->type = '*';
91 b3994ec5 2003-12-11 devnull }else if(ap && ap->type=='"' && ap->next==0 && cp->cmdc!='\n'){
92 b3994ec5 2003-12-11 devnull ap->next = newaddr();
93 b3994ec5 2003-12-11 devnull ap->next->type = '.';
94 b3994ec5 2003-12-11 devnull if(cmdtab[i].defaddr == aAll)
95 b3994ec5 2003-12-11 devnull ap->next->type = '*';
97 b3994ec5 2003-12-11 devnull if(cp->addr){ /* may be false for '\n' (only) */
98 b3994ec5 2003-12-11 devnull static Address none = {0,0,nil};
100 b3994ec5 2003-12-11 devnull mkaddr(&dot, f);
101 b3994ec5 2003-12-11 devnull addr = cmdaddress(ap, dot, 0);
102 b3994ec5 2003-12-11 devnull }else /* a " */
103 b3994ec5 2003-12-11 devnull addr = cmdaddress(ap, none, 0);
104 b3994ec5 2003-12-11 devnull f = addr.f;
105 b3994ec5 2003-12-11 devnull t = f->curtext;
108 b3994ec5 2003-12-11 devnull switch(cp->cmdc){
109 b3994ec5 2003-12-11 devnull case '{':
110 b3994ec5 2003-12-11 devnull mkaddr(&dot, f);
111 b3994ec5 2003-12-11 devnull if(cp->addr != nil)
112 b3994ec5 2003-12-11 devnull dot = cmdaddress(cp->addr, dot, 0);
113 b3994ec5 2003-12-11 devnull for(cp = cp->u.cmd; cp; cp = cp->next){
114 b3994ec5 2003-12-11 devnull if(dot.r.q1 > t->file->b.nc)
115 b3994ec5 2003-12-11 devnull editerror("dot extends past end of buffer during { command");
116 b3994ec5 2003-12-11 devnull t->q0 = dot.r.q0;
117 b3994ec5 2003-12-11 devnull t->q1 = dot.r.q1;
118 b3994ec5 2003-12-11 devnull cmdexec(t, cp);
121 b3994ec5 2003-12-11 devnull default:
122 b3994ec5 2003-12-11 devnull if(i < 0)
123 b3994ec5 2003-12-11 devnull editerror("unknown command %c in cmdexec", cp->cmdc);
124 b3994ec5 2003-12-11 devnull i = (*cmdtab[i].fn)(t, cp);
125 b3994ec5 2003-12-11 devnull return i;
127 b3994ec5 2003-12-11 devnull return 1;
131 b3994ec5 2003-12-11 devnull edittext(Window *w, int q, Rune *r, int nr)
133 b3994ec5 2003-12-11 devnull File *f;
135 b3994ec5 2003-12-11 devnull f = w->body.file;
136 b3994ec5 2003-12-11 devnull switch(editing){
137 b3994ec5 2003-12-11 devnull case Inactive:
138 b3994ec5 2003-12-11 devnull return "permission denied";
139 b3994ec5 2003-12-11 devnull case Inserting:
140 b3994ec5 2003-12-11 devnull eloginsert(f, q, r, nr);
141 b3994ec5 2003-12-11 devnull return nil;
142 b3994ec5 2003-12-11 devnull case Collecting:
143 b3994ec5 2003-12-11 devnull collection = runerealloc(collection, ncollection+nr+1);
144 b3994ec5 2003-12-11 devnull runemove(collection+ncollection, r, nr);
145 b3994ec5 2003-12-11 devnull ncollection += nr;
146 b3994ec5 2003-12-11 devnull collection[ncollection] = '\0';
147 b3994ec5 2003-12-11 devnull return nil;
148 b3994ec5 2003-12-11 devnull default:
149 b3994ec5 2003-12-11 devnull return "unknown state in edittext";
153 b3994ec5 2003-12-11 devnull /* string is known to be NUL-terminated */
155 b3994ec5 2003-12-11 devnull filelist(Text *t, Rune *r, int nr)
157 b3994ec5 2003-12-11 devnull if(nr == 0)
158 b3994ec5 2003-12-11 devnull return nil;
159 b3994ec5 2003-12-11 devnull r = skipbl(r, nr, &nr);
160 b3994ec5 2003-12-11 devnull if(r[0] != '<')
161 b3994ec5 2003-12-11 devnull return runestrdup(r);
162 b3994ec5 2003-12-11 devnull /* use < command to collect text */
163 b3994ec5 2003-12-11 devnull clearcollection();
164 b3994ec5 2003-12-11 devnull runpipe(t, '<', r+1, nr-1, Collecting);
165 b3994ec5 2003-12-11 devnull return collection;
169 b3994ec5 2003-12-11 devnull a_cmd(Text *t, Cmd *cp)
171 b3994ec5 2003-12-11 devnull return append(t->file, cp, addr.r.q1);
175 b3994ec5 2003-12-11 devnull b_cmd(Text *t, Cmd *cp)
177 b3994ec5 2003-12-11 devnull File *f;
179 b3994ec5 2003-12-11 devnull USED(t);
180 b3994ec5 2003-12-11 devnull f = tofile(cp->u.text);
181 b3994ec5 2003-12-11 devnull if(nest == 0)
182 b3994ec5 2003-12-11 devnull pfilename(f);
183 b3994ec5 2003-12-11 devnull curtext = f->curtext;
184 b3994ec5 2003-12-11 devnull return TRUE;
188 b3994ec5 2003-12-11 devnull B_cmd(Text *t, Cmd *cp)
190 b3994ec5 2003-12-11 devnull Rune *list, *r, *s;
193 b3994ec5 2003-12-11 devnull list = filelist(t, cp->u.text->r, cp->u.text->n);
194 b3994ec5 2003-12-11 devnull if(list == nil)
195 b3994ec5 2003-12-11 devnull editerror(Enoname);
196 b3994ec5 2003-12-11 devnull r = list;
197 b3994ec5 2003-12-11 devnull nr = runestrlen(r);
198 b3994ec5 2003-12-11 devnull r = skipbl(r, nr, &nr);
199 b3994ec5 2003-12-11 devnull if(nr == 0)
200 b3994ec5 2003-12-11 devnull new(t, t, nil, 0, 0, r, 0);
201 b3994ec5 2003-12-11 devnull else while(nr > 0){
202 b3994ec5 2003-12-11 devnull s = findbl(r, nr, &nr);
203 b3994ec5 2003-12-11 devnull *s = '\0';
204 b3994ec5 2003-12-11 devnull new(t, t, nil, 0, 0, r, runestrlen(r));
205 b3994ec5 2003-12-11 devnull if(nr > 0)
206 b3994ec5 2003-12-11 devnull r = skipbl(s+1, nr-1, &nr);
208 b3994ec5 2003-12-11 devnull clearcollection();
209 b3994ec5 2003-12-11 devnull return TRUE;
213 b3994ec5 2003-12-11 devnull c_cmd(Text *t, Cmd *cp)
215 b3994ec5 2003-12-11 devnull elogreplace(t->file, addr.r.q0, addr.r.q1, cp->u.text->r, cp->u.text->n);
216 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
217 5e77b8bb 2005-03-23 devnull t->q1 = addr.r.q1;
218 b3994ec5 2003-12-11 devnull return TRUE;
222 b3994ec5 2003-12-11 devnull d_cmd(Text *t, Cmd *cp)
224 b3994ec5 2003-12-11 devnull USED(cp);
225 b3994ec5 2003-12-11 devnull if(addr.r.q1 > addr.r.q0)
226 b3994ec5 2003-12-11 devnull elogdelete(t->file, addr.r.q0, addr.r.q1);
227 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
228 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q0;
229 b3994ec5 2003-12-11 devnull return TRUE;
233 b3994ec5 2003-12-11 devnull D1(Text *t)
235 b3994ec5 2003-12-11 devnull if(t->w->body.file->ntext>1 || winclean(t->w, FALSE))
236 b3994ec5 2003-12-11 devnull colclose(t->col, t->w, TRUE);
240 b3994ec5 2003-12-11 devnull D_cmd(Text *t, Cmd *cp)
242 b3994ec5 2003-12-11 devnull Rune *list, *r, *s, *n;
243 b3994ec5 2003-12-11 devnull int nr, nn;
244 b3994ec5 2003-12-11 devnull Window *w;
245 b3994ec5 2003-12-11 devnull Runestr dir, rs;
246 b3994ec5 2003-12-11 devnull char buf[128];
248 b3994ec5 2003-12-11 devnull list = filelist(t, cp->u.text->r, cp->u.text->n);
249 b3994ec5 2003-12-11 devnull if(list == nil){
251 b3994ec5 2003-12-11 devnull return TRUE;
253 b3994ec5 2003-12-11 devnull dir = dirname(t, nil, 0);
254 b3994ec5 2003-12-11 devnull r = list;
255 b3994ec5 2003-12-11 devnull nr = runestrlen(r);
256 b3994ec5 2003-12-11 devnull r = skipbl(r, nr, &nr);
258 b3994ec5 2003-12-11 devnull s = findbl(r, nr, &nr);
259 b3994ec5 2003-12-11 devnull *s = '\0';
260 b3994ec5 2003-12-11 devnull /* first time through, could be empty string, meaning delete file empty name */
261 b3994ec5 2003-12-11 devnull nn = runestrlen(r);
262 b3994ec5 2003-12-11 devnull if(r[0]=='/' || nn==0 || dir.nr==0){
263 b3994ec5 2003-12-11 devnull rs.r = runestrdup(r);
264 b3994ec5 2003-12-11 devnull rs.nr = nn;
266 b3994ec5 2003-12-11 devnull n = runemalloc(dir.nr+1+nn);
267 b3994ec5 2003-12-11 devnull runemove(n, dir.r, dir.nr);
268 b3994ec5 2003-12-11 devnull n[dir.nr] = '/';
269 b3994ec5 2003-12-11 devnull runemove(n+dir.nr+1, r, nn);
270 8ad51794 2004-03-25 devnull rs = cleanrname(runestr(n, dir.nr+1+nn));
272 b3994ec5 2003-12-11 devnull w = lookfile(rs.r, rs.nr);
273 b3994ec5 2003-12-11 devnull if(w == nil){
274 b3994ec5 2003-12-11 devnull snprint(buf, sizeof buf, "no such file %.*S", rs.nr, rs.r);
275 b3994ec5 2003-12-11 devnull free(rs.r);
276 b3994ec5 2003-12-11 devnull editerror(buf);
278 b3994ec5 2003-12-11 devnull free(rs.r);
279 b3994ec5 2003-12-11 devnull D1(&w->body);
280 b3994ec5 2003-12-11 devnull if(nr > 0)
281 b3994ec5 2003-12-11 devnull r = skipbl(s+1, nr-1, &nr);
282 b3994ec5 2003-12-11 devnull }while(nr > 0);
283 b3994ec5 2003-12-11 devnull clearcollection();
284 b3994ec5 2003-12-11 devnull free(dir.r);
285 b3994ec5 2003-12-11 devnull return TRUE;
288 b3994ec5 2003-12-11 devnull static int
289 b3994ec5 2003-12-11 devnull readloader(void *v, uint q0, Rune *r, int nr)
291 b3994ec5 2003-12-11 devnull if(nr > 0)
292 b3994ec5 2003-12-11 devnull eloginsert(v, q0, r, nr);
293 b3994ec5 2003-12-11 devnull return 0;
297 b3994ec5 2003-12-11 devnull e_cmd(Text *t, Cmd *cp)
299 b3994ec5 2003-12-11 devnull Rune *name;
300 b3994ec5 2003-12-11 devnull File *f;
301 b3994ec5 2003-12-11 devnull int i, isdir, q0, q1, fd, nulls, samename, allreplaced;
302 b3994ec5 2003-12-11 devnull char *s, tmp[128];
305 b3994ec5 2003-12-11 devnull f = t->file;
306 b3994ec5 2003-12-11 devnull q0 = addr.r.q0;
307 b3994ec5 2003-12-11 devnull q1 = addr.r.q1;
308 b3994ec5 2003-12-11 devnull if(cp->cmdc == 'e'){
309 b3994ec5 2003-12-11 devnull if(winclean(t->w, TRUE)==FALSE)
310 b3994ec5 2003-12-11 devnull editerror(""); /* winclean generated message already */
312 b3994ec5 2003-12-11 devnull q1 = f->b.nc;
314 b3994ec5 2003-12-11 devnull allreplaced = (q0==0 && q1==f->b.nc);
315 b3994ec5 2003-12-11 devnull name = cmdname(f, cp->u.text, cp->cmdc=='e');
316 b3994ec5 2003-12-11 devnull if(name == nil)
317 b3994ec5 2003-12-11 devnull editerror(Enoname);
318 b3994ec5 2003-12-11 devnull i = runestrlen(name);
319 b3994ec5 2003-12-11 devnull samename = runeeq(name, i, t->file->name, t->file->nname);
320 b3994ec5 2003-12-11 devnull s = runetobyte(name, i);
321 b3994ec5 2003-12-11 devnull free(name);
322 b3994ec5 2003-12-11 devnull fd = open(s, OREAD);
323 b3994ec5 2003-12-11 devnull if(fd < 0){
324 b3994ec5 2003-12-11 devnull snprint(tmp, sizeof tmp, "can't open %s: %r", s);
325 b3994ec5 2003-12-11 devnull free(s);
326 b3994ec5 2003-12-11 devnull editerror(tmp);
328 b3994ec5 2003-12-11 devnull d = dirfstat(fd);
329 b3994ec5 2003-12-11 devnull isdir = (d!=nil && (d->qid.type&QTDIR));
330 b3994ec5 2003-12-11 devnull free(d);
331 b3994ec5 2003-12-11 devnull if(isdir){
332 b3994ec5 2003-12-11 devnull close(fd);
333 b3994ec5 2003-12-11 devnull snprint(tmp, sizeof tmp, "%s is a directory", s);
334 b3994ec5 2003-12-11 devnull free(s);
335 b3994ec5 2003-12-11 devnull editerror(tmp);
337 b3994ec5 2003-12-11 devnull elogdelete(f, q0, q1);
338 b3994ec5 2003-12-11 devnull nulls = 0;
339 b3994ec5 2003-12-11 devnull loadfile(fd, q1, &nulls, readloader, f);
340 b3994ec5 2003-12-11 devnull free(s);
341 b3994ec5 2003-12-11 devnull close(fd);
342 b3994ec5 2003-12-11 devnull if(nulls)
343 b3994ec5 2003-12-11 devnull warning(nil, "%s: NUL bytes elided\n", s);
344 b3994ec5 2003-12-11 devnull else if(allreplaced && samename)
345 b3994ec5 2003-12-11 devnull f->editclean = TRUE;
346 b3994ec5 2003-12-11 devnull return TRUE;
349 b3994ec5 2003-12-11 devnull static Rune Lempty[] = { 0 };
351 b3994ec5 2003-12-11 devnull f_cmd(Text *t, Cmd *cp)
353 b3994ec5 2003-12-11 devnull Rune *name;
354 b3994ec5 2003-12-11 devnull String *str;
355 b3994ec5 2003-12-11 devnull String empty;
357 b3994ec5 2003-12-11 devnull if(cp->u.text == nil){
358 b3994ec5 2003-12-11 devnull empty.n = 0;
359 b3994ec5 2003-12-11 devnull empty.r = Lempty;
360 b3994ec5 2003-12-11 devnull str = ∅
362 b3994ec5 2003-12-11 devnull str = cp->u.text;
363 b3994ec5 2003-12-11 devnull name = cmdname(t->file, str, TRUE);
364 b3994ec5 2003-12-11 devnull free(name);
365 b3994ec5 2003-12-11 devnull pfilename(t->file);
366 b3994ec5 2003-12-11 devnull return TRUE;
370 b3994ec5 2003-12-11 devnull g_cmd(Text *t, Cmd *cp)
372 b3994ec5 2003-12-11 devnull if(t->file != addr.f){
373 b3994ec5 2003-12-11 devnull warning(nil, "internal error: g_cmd f!=addr.f\n");
374 b3994ec5 2003-12-11 devnull return FALSE;
376 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
377 b3994ec5 2003-12-11 devnull editerror("bad regexp in g command");
378 b3994ec5 2003-12-11 devnull if(rxexecute(t, nil, addr.r.q0, addr.r.q1, &sel) ^ cp->cmdc=='v'){
379 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
380 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q1;
381 b3994ec5 2003-12-11 devnull return cmdexec(t, cp->u.cmd);
383 b3994ec5 2003-12-11 devnull return TRUE;
387 b3994ec5 2003-12-11 devnull i_cmd(Text *t, Cmd *cp)
389 b3994ec5 2003-12-11 devnull return append(t->file, cp, addr.r.q0);
393 b3994ec5 2003-12-11 devnull copy(File *f, Address addr2)
397 b3994ec5 2003-12-11 devnull Rune *buf;
399 b3994ec5 2003-12-11 devnull buf = fbufalloc();
400 b3994ec5 2003-12-11 devnull for(p=addr.r.q0; p<addr.r.q1; p+=ni){
401 b3994ec5 2003-12-11 devnull ni = addr.r.q1-p;
402 b3994ec5 2003-12-11 devnull if(ni > RBUFSIZE)
403 b3994ec5 2003-12-11 devnull ni = RBUFSIZE;
404 b3994ec5 2003-12-11 devnull bufread(&f->b, p, buf, ni);
405 b3994ec5 2003-12-11 devnull eloginsert(addr2.f, addr2.r.q1, buf, ni);
407 b3994ec5 2003-12-11 devnull fbuffree(buf);
411 b3994ec5 2003-12-11 devnull move(File *f, Address addr2)
413 b3994ec5 2003-12-11 devnull if(addr.f!=addr2.f || addr.r.q1<=addr2.r.q0){
414 b3994ec5 2003-12-11 devnull elogdelete(f, addr.r.q0, addr.r.q1);
415 b3994ec5 2003-12-11 devnull copy(f, addr2);
416 b3994ec5 2003-12-11 devnull }else if(addr.r.q0 >= addr2.r.q1){
417 b3994ec5 2003-12-11 devnull copy(f, addr2);
418 b3994ec5 2003-12-11 devnull elogdelete(f, addr.r.q0, addr.r.q1);
419 5e22f11b 2008-03-07 devnull }else if(addr.r.q0==addr2.r.q0 && addr.r.q1==addr2.r.q1){
420 5e22f11b 2008-03-07 devnull ; /* move to self; no-op */
422 5e22f11b 2008-03-07 devnull editerror("move overlaps itself");
426 b3994ec5 2003-12-11 devnull m_cmd(Text *t, Cmd *cp)
428 b3994ec5 2003-12-11 devnull Address dot, addr2;
430 b3994ec5 2003-12-11 devnull mkaddr(&dot, t->file);
431 b3994ec5 2003-12-11 devnull addr2 = cmdaddress(cp->u.mtaddr, dot, 0);
432 b3994ec5 2003-12-11 devnull if(cp->cmdc == 'm')
433 b3994ec5 2003-12-11 devnull move(t->file, addr2);
435 b3994ec5 2003-12-11 devnull copy(t->file, addr2);
436 b3994ec5 2003-12-11 devnull return TRUE;
440 b3994ec5 2003-12-11 devnull p_cmd(Text *t, Cmd *cp)
442 b3994ec5 2003-12-11 devnull USED(cp);
443 b3994ec5 2003-12-11 devnull return pdisplay(t->file);
447 b3994ec5 2003-12-11 devnull s_cmd(Text *t, Cmd *cp)
449 b3994ec5 2003-12-11 devnull int i, j, k, c, m, n, nrp, didsub;
450 b3994ec5 2003-12-11 devnull long p1, op, delta;
451 b3994ec5 2003-12-11 devnull String *buf;
452 b3994ec5 2003-12-11 devnull Rangeset *rp;
453 b3994ec5 2003-12-11 devnull char *err;
454 b3994ec5 2003-12-11 devnull Rune *rbuf;
456 b3994ec5 2003-12-11 devnull n = cp->num;
458 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
459 b3994ec5 2003-12-11 devnull editerror("bad regexp in s command");
460 b3994ec5 2003-12-11 devnull nrp = 0;
461 b3994ec5 2003-12-11 devnull rp = nil;
462 b3994ec5 2003-12-11 devnull delta = 0;
463 b3994ec5 2003-12-11 devnull didsub = FALSE;
464 b3994ec5 2003-12-11 devnull for(p1 = addr.r.q0; p1<=addr.r.q1 && rxexecute(t, nil, p1, addr.r.q1, &sel); ){
465 b3994ec5 2003-12-11 devnull if(sel.r[0].q0 == sel.r[0].q1){ /* empty match? */
466 b3994ec5 2003-12-11 devnull if(sel.r[0].q0 == op){
468 b3994ec5 2003-12-11 devnull continue;
470 b3994ec5 2003-12-11 devnull p1 = sel.r[0].q1+1;
472 b3994ec5 2003-12-11 devnull p1 = sel.r[0].q1;
473 b3994ec5 2003-12-11 devnull op = sel.r[0].q1;
474 b3994ec5 2003-12-11 devnull if(--n>0)
475 b3994ec5 2003-12-11 devnull continue;
477 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Rangeset));
478 b3994ec5 2003-12-11 devnull rp[nrp-1] = sel;
480 b3994ec5 2003-12-11 devnull rbuf = fbufalloc();
481 b3994ec5 2003-12-11 devnull buf = allocstring(0);
482 b3994ec5 2003-12-11 devnull for(m=0; m<nrp; m++){
483 b3994ec5 2003-12-11 devnull buf->n = 0;
484 bb0266fe 2005-05-07 devnull buf->r[0] = '\0';
485 b3994ec5 2003-12-11 devnull sel = rp[m];
486 b3994ec5 2003-12-11 devnull for(i = 0; i<cp->u.text->n; i++)
487 b3994ec5 2003-12-11 devnull if((c = cp->u.text->r[i])=='\\' && i<cp->u.text->n-1){
488 b3994ec5 2003-12-11 devnull c = cp->u.text->r[++i];
489 b3994ec5 2003-12-11 devnull if('1'<=c && c<='9') {
490 b3994ec5 2003-12-11 devnull j = c-'0';
491 b3994ec5 2003-12-11 devnull if(sel.r[j].q1-sel.r[j].q0>RBUFSIZE){
492 b3994ec5 2003-12-11 devnull err = "replacement string too long";
493 b3994ec5 2003-12-11 devnull goto Err;
495 b3994ec5 2003-12-11 devnull bufread(&t->file->b, sel.r[j].q0, rbuf, sel.r[j].q1-sel.r[j].q0);
496 b3994ec5 2003-12-11 devnull for(k=0; k<sel.r[j].q1-sel.r[j].q0; k++)
497 b3994ec5 2003-12-11 devnull Straddc(buf, rbuf[k]);
499 b3994ec5 2003-12-11 devnull Straddc(buf, c);
500 b3994ec5 2003-12-11 devnull }else if(c!='&')
501 b3994ec5 2003-12-11 devnull Straddc(buf, c);
503 b3994ec5 2003-12-11 devnull if(sel.r[0].q1-sel.r[0].q0>RBUFSIZE){
504 b3994ec5 2003-12-11 devnull err = "right hand side too long in substitution";
505 b3994ec5 2003-12-11 devnull goto Err;
507 b3994ec5 2003-12-11 devnull bufread(&t->file->b, sel.r[0].q0, rbuf, sel.r[0].q1-sel.r[0].q0);
508 b3994ec5 2003-12-11 devnull for(k=0; k<sel.r[0].q1-sel.r[0].q0; k++)
509 b3994ec5 2003-12-11 devnull Straddc(buf, rbuf[k]);
511 b3994ec5 2003-12-11 devnull elogreplace(t->file, sel.r[0].q0, sel.r[0].q1, buf->r, buf->n);
512 b3994ec5 2003-12-11 devnull delta -= sel.r[0].q1-sel.r[0].q0;
513 b3994ec5 2003-12-11 devnull delta += buf->n;
514 b3994ec5 2003-12-11 devnull didsub = 1;
515 b3994ec5 2003-12-11 devnull if(!cp->flag)
518 b3994ec5 2003-12-11 devnull free(rp);
519 b3994ec5 2003-12-11 devnull freestring(buf);
520 b3994ec5 2003-12-11 devnull fbuffree(rbuf);
521 b3994ec5 2003-12-11 devnull if(!didsub && nest==0)
522 b3994ec5 2003-12-11 devnull editerror("no substitution");
523 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
524 5e77b8bb 2005-03-23 devnull t->q1 = addr.r.q1;
525 b3994ec5 2003-12-11 devnull return TRUE;
528 b3994ec5 2003-12-11 devnull free(rp);
529 b3994ec5 2003-12-11 devnull freestring(buf);
530 b3994ec5 2003-12-11 devnull fbuffree(rbuf);
531 b3994ec5 2003-12-11 devnull editerror(err);
532 b3994ec5 2003-12-11 devnull return FALSE;
536 b3994ec5 2003-12-11 devnull u_cmd(Text *t, Cmd *cp)
538 b3994ec5 2003-12-11 devnull int n, oseq, flag;
540 b3994ec5 2003-12-11 devnull n = cp->num;
541 b3994ec5 2003-12-11 devnull flag = TRUE;
542 b3994ec5 2003-12-11 devnull if(n < 0){
544 b3994ec5 2003-12-11 devnull flag = FALSE;
546 b3994ec5 2003-12-11 devnull oseq = -1;
547 68a6e0c0 2010-01-12 rsc while(n-->0 && t->file->seq!=oseq){
548 b3994ec5 2003-12-11 devnull oseq = t->file->seq;
549 b3994ec5 2003-12-11 devnull undo(t, nil, nil, flag, 0, nil, 0);
551 b3994ec5 2003-12-11 devnull return TRUE;
555 b3994ec5 2003-12-11 devnull w_cmd(Text *t, Cmd *cp)
557 b3994ec5 2003-12-11 devnull Rune *r;
558 b3994ec5 2003-12-11 devnull File *f;
560 b3994ec5 2003-12-11 devnull f = t->file;
561 b3994ec5 2003-12-11 devnull if(f->seq == seq)
562 b3994ec5 2003-12-11 devnull editerror("can't write file with pending modifications");
563 b3994ec5 2003-12-11 devnull r = cmdname(f, cp->u.text, FALSE);
564 b3994ec5 2003-12-11 devnull if(r == nil)
565 b3994ec5 2003-12-11 devnull editerror("no name specified for 'w' command");
566 b3994ec5 2003-12-11 devnull putfile(f, addr.r.q0, addr.r.q1, r, runestrlen(r));
567 b3994ec5 2003-12-11 devnull /* r is freed by putfile */
568 b3994ec5 2003-12-11 devnull return TRUE;
572 b3994ec5 2003-12-11 devnull x_cmd(Text *t, Cmd *cp)
574 b3994ec5 2003-12-11 devnull if(cp->re)
575 b3994ec5 2003-12-11 devnull looper(t->file, cp, cp->cmdc=='x');
577 b3994ec5 2003-12-11 devnull linelooper(t->file, cp);
578 b3994ec5 2003-12-11 devnull return TRUE;
582 b3994ec5 2003-12-11 devnull X_cmd(Text *t, Cmd *cp)
584 b3994ec5 2003-12-11 devnull USED(t);
586 b3994ec5 2003-12-11 devnull filelooper(cp, cp->cmdc=='X');
587 b3994ec5 2003-12-11 devnull return TRUE;
591 b3994ec5 2003-12-11 devnull runpipe(Text *t, int cmd, Rune *cr, int ncr, int state)
593 b3994ec5 2003-12-11 devnull Rune *r, *s;
595 b3994ec5 2003-12-11 devnull Runestr dir;
596 b3994ec5 2003-12-11 devnull Window *w;
597 66301756 2006-05-05 devnull QLock *q;
599 b3994ec5 2003-12-11 devnull r = skipbl(cr, ncr, &n);
600 b3994ec5 2003-12-11 devnull if(n == 0)
601 5a8e63b2 2004-02-29 devnull editerror("no command specified for %c", cmd);
602 b3994ec5 2003-12-11 devnull w = nil;
603 b3994ec5 2003-12-11 devnull if(state == Inserting){
604 b3994ec5 2003-12-11 devnull w = t->w;
605 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
606 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q1;
607 b3994ec5 2003-12-11 devnull if(cmd == '<' || cmd=='|')
608 b3994ec5 2003-12-11 devnull elogdelete(t->file, t->q0, t->q1);
610 b3994ec5 2003-12-11 devnull s = runemalloc(n+2);
611 b3994ec5 2003-12-11 devnull s[0] = cmd;
612 b3994ec5 2003-12-11 devnull runemove(s+1, r, n);
614 b3994ec5 2003-12-11 devnull dir.r = nil;
615 b3994ec5 2003-12-11 devnull dir.nr = 0;
616 b3994ec5 2003-12-11 devnull if(t != nil)
617 b3994ec5 2003-12-11 devnull dir = dirname(t, nil, 0);
618 b3994ec5 2003-12-11 devnull if(dir.nr==1 && dir.r[0]=='.'){ /* sigh */
619 b3994ec5 2003-12-11 devnull free(dir.r);
620 b3994ec5 2003-12-11 devnull dir.r = nil;
621 b3994ec5 2003-12-11 devnull dir.nr = 0;
623 b3994ec5 2003-12-11 devnull editing = state;
624 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
625 b3994ec5 2003-12-11 devnull incref(&t->w->ref); /* run will decref */
626 b3994ec5 2003-12-11 devnull run(w, runetobyte(s, n), dir.r, dir.nr, TRUE, nil, nil, TRUE);
627 b3994ec5 2003-12-11 devnull free(s);
628 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
629 b3994ec5 2003-12-11 devnull winunlock(t->w);
630 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
631 b3994ec5 2003-12-11 devnull recvul(cedit);
633 66301756 2006-05-05 devnull * The editoutlk exists only so that we can tell when
634 66301756 2006-05-05 devnull * the editout file has been closed. It can get closed *after*
635 66301756 2006-05-05 devnull * the process exits because, since the process cannot be
636 66301756 2006-05-05 devnull * connected directly to editout (no 9P kernel support),
637 66301756 2006-05-05 devnull * the process is actually connected to a pipe to another
638 66301756 2006-05-05 devnull * process (arranged via 9pserve) that reads from the pipe
639 66301756 2006-05-05 devnull * and then writes the data in the pipe to editout using
640 66301756 2006-05-05 devnull * 9P transactions. This process might still have a couple
641 66301756 2006-05-05 devnull * writes left to copy after the original process has exited.
644 66301756 2006-05-05 devnull q = &w->editoutlk;
646 66301756 2006-05-05 devnull q = &editoutlk;
647 66301756 2006-05-05 devnull qlock(q); /* wait for file to close */
648 66301756 2006-05-05 devnull qunlock(q);
649 b3994ec5 2003-12-11 devnull qlock(&row.lk);
650 b3994ec5 2003-12-11 devnull editing = Inactive;
651 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
652 b3994ec5 2003-12-11 devnull winlock(t->w, 'M');
656 b3994ec5 2003-12-11 devnull pipe_cmd(Text *t, Cmd *cp)
658 b3994ec5 2003-12-11 devnull runpipe(t, cp->cmdc, cp->u.text->r, cp->u.text->n, Inserting);
659 b3994ec5 2003-12-11 devnull return TRUE;
663 b3994ec5 2003-12-11 devnull nlcount(Text *t, long q0, long q1)
665 b3994ec5 2003-12-11 devnull long nl;
666 b3994ec5 2003-12-11 devnull Rune *buf;
667 b3994ec5 2003-12-11 devnull int i, nbuf;
669 b3994ec5 2003-12-11 devnull buf = fbufalloc();
670 b3994ec5 2003-12-11 devnull nbuf = 0;
671 b3994ec5 2003-12-11 devnull i = nl = 0;
672 b3994ec5 2003-12-11 devnull while(q0 < q1){
673 b3994ec5 2003-12-11 devnull if(i == nbuf){
674 b3994ec5 2003-12-11 devnull nbuf = q1-q0;
675 b3994ec5 2003-12-11 devnull if(nbuf > RBUFSIZE)
676 b3994ec5 2003-12-11 devnull nbuf = RBUFSIZE;
677 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, buf, nbuf);
680 b3994ec5 2003-12-11 devnull if(buf[i++] == '\n')
684 b3994ec5 2003-12-11 devnull fbuffree(buf);
685 b3994ec5 2003-12-11 devnull return nl;
689 b3994ec5 2003-12-11 devnull printposn(Text *t, int charsonly)
691 b3994ec5 2003-12-11 devnull long l1, l2;
693 b3994ec5 2003-12-11 devnull if (t != nil && t->file != nil && t->file->name != nil)
694 b3994ec5 2003-12-11 devnull warning(nil, "%.*S:", t->file->nname, t->file->name);
695 b3994ec5 2003-12-11 devnull if(!charsonly){
696 b3994ec5 2003-12-11 devnull l1 = 1+nlcount(t, 0, addr.r.q0);
697 b3994ec5 2003-12-11 devnull l2 = l1+nlcount(t, addr.r.q0, addr.r.q1);
698 b3994ec5 2003-12-11 devnull /* check if addr ends with '\n' */
699 b3994ec5 2003-12-11 devnull if(addr.r.q1>0 && addr.r.q1>addr.r.q0 && textreadc(t, addr.r.q1-1)=='\n')
701 b3994ec5 2003-12-11 devnull warning(nil, "%lud", l1);
702 b3994ec5 2003-12-11 devnull if(l2 != l1)
703 b3994ec5 2003-12-11 devnull warning(nil, ",%lud", l2);
704 b3994ec5 2003-12-11 devnull warning(nil, "\n");
707 b3994ec5 2003-12-11 devnull warning(nil, "#%d", addr.r.q0);
708 b3994ec5 2003-12-11 devnull if(addr.r.q1 != addr.r.q0)
709 b3994ec5 2003-12-11 devnull warning(nil, ",#%d", addr.r.q1);
710 b3994ec5 2003-12-11 devnull warning(nil, "\n");
714 b3994ec5 2003-12-11 devnull eq_cmd(Text *t, Cmd *cp)
716 b3994ec5 2003-12-11 devnull int charsonly;
718 b3994ec5 2003-12-11 devnull switch(cp->u.text->n){
720 b3994ec5 2003-12-11 devnull charsonly = FALSE;
723 b3994ec5 2003-12-11 devnull if(cp->u.text->r[0] == '#'){
724 b3994ec5 2003-12-11 devnull charsonly = TRUE;
727 b3994ec5 2003-12-11 devnull default:
728 b3994ec5 2003-12-11 devnull SET(charsonly);
729 b3994ec5 2003-12-11 devnull editerror("newline expected");
731 b3994ec5 2003-12-11 devnull printposn(t, charsonly);
732 b3994ec5 2003-12-11 devnull return TRUE;
736 b3994ec5 2003-12-11 devnull nl_cmd(Text *t, Cmd *cp)
738 b3994ec5 2003-12-11 devnull Address a;
739 b3994ec5 2003-12-11 devnull File *f;
741 b3994ec5 2003-12-11 devnull f = t->file;
742 b3994ec5 2003-12-11 devnull if(cp->addr == 0){
743 b3994ec5 2003-12-11 devnull /* First put it on newline boundaries */
744 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
745 b3994ec5 2003-12-11 devnull addr = lineaddr(0, a, -1);
746 b3994ec5 2003-12-11 devnull a = lineaddr(0, a, 1);
747 b3994ec5 2003-12-11 devnull addr.r.q1 = a.r.q1;
748 b3994ec5 2003-12-11 devnull if(addr.r.q0==t->q0 && addr.r.q1==t->q1){
749 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
750 b3994ec5 2003-12-11 devnull addr = lineaddr(1, a, 1);
753 b3994ec5 2003-12-11 devnull textshow(t, addr.r.q0, addr.r.q1, 1);
754 b3994ec5 2003-12-11 devnull return TRUE;
758 b3994ec5 2003-12-11 devnull append(File *f, Cmd *cp, long p)
760 b3994ec5 2003-12-11 devnull if(cp->u.text->n > 0)
761 b3994ec5 2003-12-11 devnull eloginsert(f, p, cp->u.text->r, cp->u.text->n);
762 b3994ec5 2003-12-11 devnull f->curtext->q0 = p;
763 5e77b8bb 2005-03-23 devnull f->curtext->q1 = p;
764 b3994ec5 2003-12-11 devnull return TRUE;
768 b3994ec5 2003-12-11 devnull pdisplay(File *f)
770 b3994ec5 2003-12-11 devnull long p1, p2;
772 b3994ec5 2003-12-11 devnull Rune *buf;
774 b3994ec5 2003-12-11 devnull p1 = addr.r.q0;
775 b3994ec5 2003-12-11 devnull p2 = addr.r.q1;
776 b3994ec5 2003-12-11 devnull if(p2 > f->b.nc)
777 b3994ec5 2003-12-11 devnull p2 = f->b.nc;
778 b3994ec5 2003-12-11 devnull buf = fbufalloc();
779 b3994ec5 2003-12-11 devnull while(p1 < p2){
780 b3994ec5 2003-12-11 devnull np = p2-p1;
781 b3994ec5 2003-12-11 devnull if(np>RBUFSIZE-1)
782 b3994ec5 2003-12-11 devnull np = RBUFSIZE-1;
783 b3994ec5 2003-12-11 devnull bufread(&f->b, p1, buf, np);
784 bb0266fe 2005-05-07 devnull buf[np] = '\0';
785 b3994ec5 2003-12-11 devnull warning(nil, "%S", buf);
786 b3994ec5 2003-12-11 devnull p1 += np;
788 b3994ec5 2003-12-11 devnull fbuffree(buf);
789 b3994ec5 2003-12-11 devnull f->curtext->q0 = addr.r.q0;
790 b3994ec5 2003-12-11 devnull f->curtext->q1 = addr.r.q1;
791 b3994ec5 2003-12-11 devnull return TRUE;
795 b3994ec5 2003-12-11 devnull pfilename(File *f)
797 b3994ec5 2003-12-11 devnull int dirty;
798 b3994ec5 2003-12-11 devnull Window *w;
800 b3994ec5 2003-12-11 devnull w = f->curtext->w;
801 b3994ec5 2003-12-11 devnull /* same check for dirty as in settag, but we know ncache==0 */
802 b3994ec5 2003-12-11 devnull dirty = !w->isdir && !w->isscratch && f->mod;
803 b3994ec5 2003-12-11 devnull warning(nil, "%c%c%c %.*S\n", " '"[dirty],
804 b3994ec5 2003-12-11 devnull '+', " ."[curtext!=nil && curtext->file==f], f->nname, f->name);
808 b3994ec5 2003-12-11 devnull loopcmd(File *f, Cmd *cp, Range *rp, long nrp)
812 b3994ec5 2003-12-11 devnull for(i=0; i<nrp; i++){
813 b3994ec5 2003-12-11 devnull f->curtext->q0 = rp[i].q0;
814 b3994ec5 2003-12-11 devnull f->curtext->q1 = rp[i].q1;
815 b3994ec5 2003-12-11 devnull cmdexec(f->curtext, cp);
820 b3994ec5 2003-12-11 devnull looper(File *f, Cmd *cp, int xy)
822 b3994ec5 2003-12-11 devnull long p, op, nrp;
823 b3994ec5 2003-12-11 devnull Range r, tr;
824 b3994ec5 2003-12-11 devnull Range *rp;
826 b3994ec5 2003-12-11 devnull r = addr.r;
827 b3994ec5 2003-12-11 devnull op= xy? -1 : r.q0;
829 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
830 b3994ec5 2003-12-11 devnull editerror("bad regexp in %c command", cp->cmdc);
831 b3994ec5 2003-12-11 devnull nrp = 0;
832 b3994ec5 2003-12-11 devnull rp = nil;
833 b3994ec5 2003-12-11 devnull for(p = r.q0; p<=r.q1; ){
834 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, r.q1, &sel)){ /* no match, but y should still run */
835 b3994ec5 2003-12-11 devnull if(xy || op>r.q1)
837 b3994ec5 2003-12-11 devnull tr.q0 = op, tr.q1 = r.q1;
838 b3994ec5 2003-12-11 devnull p = r.q1+1; /* exit next loop */
840 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1){ /* empty match? */
841 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==op){
843 b3994ec5 2003-12-11 devnull continue;
845 b3994ec5 2003-12-11 devnull p = sel.r[0].q1+1;
847 b3994ec5 2003-12-11 devnull p = sel.r[0].q1;
849 b3994ec5 2003-12-11 devnull tr = sel.r[0];
851 b3994ec5 2003-12-11 devnull tr.q0 = op, tr.q1 = sel.r[0].q0;
853 b3994ec5 2003-12-11 devnull op = sel.r[0].q1;
855 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Range));
856 b3994ec5 2003-12-11 devnull rp[nrp-1] = tr;
858 b3994ec5 2003-12-11 devnull loopcmd(f, cp->u.cmd, rp, nrp);
859 b3994ec5 2003-12-11 devnull free(rp);
864 b3994ec5 2003-12-11 devnull linelooper(File *f, Cmd *cp)
866 b3994ec5 2003-12-11 devnull long nrp, p;
867 b3994ec5 2003-12-11 devnull Range r, linesel;
868 b3994ec5 2003-12-11 devnull Address a, a3;
869 b3994ec5 2003-12-11 devnull Range *rp;
872 b3994ec5 2003-12-11 devnull nrp = 0;
873 b3994ec5 2003-12-11 devnull rp = nil;
874 b3994ec5 2003-12-11 devnull r = addr.r;
875 b3994ec5 2003-12-11 devnull a3.f = f;
876 b3994ec5 2003-12-11 devnull a3.r.q0 = a3.r.q1 = r.q0;
877 b3994ec5 2003-12-11 devnull a = lineaddr(0, a3, 1);
878 b3994ec5 2003-12-11 devnull linesel = a.r;
879 b3994ec5 2003-12-11 devnull for(p = r.q0; p<r.q1; p = a3.r.q1){
880 b3994ec5 2003-12-11 devnull a3.r.q0 = a3.r.q1;
881 b3994ec5 2003-12-11 devnull if(p!=r.q0 || linesel.q1==p){
882 b3994ec5 2003-12-11 devnull a = lineaddr(1, a3, 1);
883 b3994ec5 2003-12-11 devnull linesel = a.r;
885 b3994ec5 2003-12-11 devnull if(linesel.q0 >= r.q1)
887 b3994ec5 2003-12-11 devnull if(linesel.q1 >= r.q1)
888 b3994ec5 2003-12-11 devnull linesel.q1 = r.q1;
889 b3994ec5 2003-12-11 devnull if(linesel.q1 > linesel.q0)
890 b3994ec5 2003-12-11 devnull if(linesel.q0>=a3.r.q1 && linesel.q1>a3.r.q1){
891 b3994ec5 2003-12-11 devnull a3.r = linesel;
893 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Range));
894 b3994ec5 2003-12-11 devnull rp[nrp-1] = linesel;
895 b3994ec5 2003-12-11 devnull continue;
899 b3994ec5 2003-12-11 devnull loopcmd(f, cp->u.cmd, rp, nrp);
900 b3994ec5 2003-12-11 devnull free(rp);
904 b3994ec5 2003-12-11 devnull struct Looper
906 b3994ec5 2003-12-11 devnull Cmd *cp;
908 b3994ec5 2003-12-11 devnull Window **w;
910 b3994ec5 2003-12-11 devnull } loopstruct; /* only one; X and Y can't nest */
913 b3994ec5 2003-12-11 devnull alllooper(Window *w, void *v)
915 b3994ec5 2003-12-11 devnull Text *t;
916 b3994ec5 2003-12-11 devnull struct Looper *lp;
917 b3994ec5 2003-12-11 devnull Cmd *cp;
920 b3994ec5 2003-12-11 devnull cp = lp->cp;
921 cbeb0b26 2006-04-01 devnull /* if(w->isscratch || w->isdir) */
922 cbeb0b26 2006-04-01 devnull /* return; */
923 b3994ec5 2003-12-11 devnull t = &w->body;
924 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
925 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
927 cbeb0b26 2006-04-01 devnull /* if(w->nopen[QWevent] > 0) */
928 cbeb0b26 2006-04-01 devnull /* return; */
929 b3994ec5 2003-12-11 devnull /* no auto-execute on files without names */
930 b3994ec5 2003-12-11 devnull if(cp->re==nil && t->file->nname==0)
932 b3994ec5 2003-12-11 devnull if(cp->re==nil || filematch(t->file, cp->re)==lp->XY){
933 b3994ec5 2003-12-11 devnull lp->w = erealloc(lp->w, (lp->nw+1)*sizeof(Window*));
934 b3994ec5 2003-12-11 devnull lp->w[lp->nw++] = w;
939 b3994ec5 2003-12-11 devnull alllocker(Window *w, void *v)
942 b3994ec5 2003-12-11 devnull incref(&w->ref);
944 b3994ec5 2003-12-11 devnull winclose(w);
948 b3994ec5 2003-12-11 devnull filelooper(Cmd *cp, int XY)
952 b3994ec5 2003-12-11 devnull if(Glooping++)
953 b3994ec5 2003-12-11 devnull editerror("can't nest %c command", "YX"[XY]);
956 b3994ec5 2003-12-11 devnull loopstruct.cp = cp;
957 b3994ec5 2003-12-11 devnull loopstruct.XY = XY;
958 b3994ec5 2003-12-11 devnull if(loopstruct.w) /* error'ed out last time */
959 b3994ec5 2003-12-11 devnull free(loopstruct.w);
960 b3994ec5 2003-12-11 devnull loopstruct.w = nil;
961 b3994ec5 2003-12-11 devnull loopstruct.nw = 0;
962 b3994ec5 2003-12-11 devnull allwindows(alllooper, &loopstruct);
964 b3994ec5 2003-12-11 devnull * add a ref to all windows to keep safe windows accessed by X
965 b3994ec5 2003-12-11 devnull * that would not otherwise have a ref to hold them up during
966 5a8e63b2 2004-02-29 devnull * the shenanigans. note this with globalincref so that any
967 5a8e63b2 2004-02-29 devnull * newly created windows start with an extra reference.
969 b3994ec5 2003-12-11 devnull allwindows(alllocker, (void*)1);
970 5a8e63b2 2004-02-29 devnull globalincref = 1;
971 b3994ec5 2003-12-11 devnull for(i=0; i<loopstruct.nw; i++)
972 b3994ec5 2003-12-11 devnull cmdexec(&loopstruct.w[i]->body, cp->u.cmd);
973 b3994ec5 2003-12-11 devnull allwindows(alllocker, (void*)0);
974 5a8e63b2 2004-02-29 devnull globalincref = 0;
975 b3994ec5 2003-12-11 devnull free(loopstruct.w);
976 b3994ec5 2003-12-11 devnull loopstruct.w = nil;
978 b3994ec5 2003-12-11 devnull --Glooping;
983 b3994ec5 2003-12-11 devnull nextmatch(File *f, String *r, long p, int sign)
985 b3994ec5 2003-12-11 devnull if(rxcompile(r->r) == FALSE)
986 b3994ec5 2003-12-11 devnull editerror("bad regexp in command address");
987 b3994ec5 2003-12-11 devnull if(sign >= 0){
988 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, 0x7FFFFFFFL, &sel))
989 b3994ec5 2003-12-11 devnull editerror("no match for regexp");
990 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1 && sel.r[0].q0==p){
991 b3994ec5 2003-12-11 devnull if(++p>f->b.nc)
993 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, 0x7FFFFFFFL, &sel))
994 b3994ec5 2003-12-11 devnull editerror("address");
997 b3994ec5 2003-12-11 devnull if(!rxbexecute(f->curtext, p, &sel))
998 b3994ec5 2003-12-11 devnull editerror("no match for regexp");
999 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1 && sel.r[0].q1==p){
1000 b3994ec5 2003-12-11 devnull if(--p<0)
1001 b3994ec5 2003-12-11 devnull p = f->b.nc;
1002 b3994ec5 2003-12-11 devnull if(!rxbexecute(f->curtext, p, &sel))
1003 b3994ec5 2003-12-11 devnull editerror("address");
1008 b3994ec5 2003-12-11 devnull File *matchfile(String*);
1009 b3994ec5 2003-12-11 devnull Address charaddr(long, Address, int);
1010 b3994ec5 2003-12-11 devnull Address lineaddr(long, Address, int);
1012 b3994ec5 2003-12-11 devnull Address
1013 b3994ec5 2003-12-11 devnull cmdaddress(Addr *ap, Address a, int sign)
1015 b3994ec5 2003-12-11 devnull File *f = a.f;
1016 b3994ec5 2003-12-11 devnull Address a1, a2;
1019 b3994ec5 2003-12-11 devnull switch(ap->type){
1020 b3994ec5 2003-12-11 devnull case 'l':
1021 b3994ec5 2003-12-11 devnull case '#':
1022 b3994ec5 2003-12-11 devnull a = (*(ap->type=='#'?charaddr:lineaddr))(ap->num, a, sign);
1025 b3994ec5 2003-12-11 devnull case '.':
1026 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
1029 b3994ec5 2003-12-11 devnull case '$':
1030 b3994ec5 2003-12-11 devnull a.r.q0 = a.r.q1 = f->b.nc;
1033 b3994ec5 2003-12-11 devnull case '\'':
1034 b3994ec5 2003-12-11 devnull editerror("can't handle '");
1035 cbeb0b26 2006-04-01 devnull /* a.r = f->mark; */
1038 b3994ec5 2003-12-11 devnull case '?':
1039 b3994ec5 2003-12-11 devnull sign = -sign;
1040 b3994ec5 2003-12-11 devnull if(sign == 0)
1041 b3994ec5 2003-12-11 devnull sign = -1;
1042 b3994ec5 2003-12-11 devnull /* fall through */
1043 b3994ec5 2003-12-11 devnull case '/':
1044 b3994ec5 2003-12-11 devnull nextmatch(f, ap->u.re, sign>=0? a.r.q1 : a.r.q0, sign);
1045 b3994ec5 2003-12-11 devnull a.r = sel.r[0];
1048 b3994ec5 2003-12-11 devnull case '"':
1049 b3994ec5 2003-12-11 devnull f = matchfile(ap->u.re);
1050 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
1053 b3994ec5 2003-12-11 devnull case '*':
1054 b3994ec5 2003-12-11 devnull a.r.q0 = 0, a.r.q1 = f->b.nc;
1055 b3994ec5 2003-12-11 devnull return a;
1057 b3994ec5 2003-12-11 devnull case ',':
1058 b3994ec5 2003-12-11 devnull case ';':
1059 b3994ec5 2003-12-11 devnull if(ap->u.left)
1060 b3994ec5 2003-12-11 devnull a1 = cmdaddress(ap->u.left, a, 0);
1062 b3994ec5 2003-12-11 devnull a1.f = a.f, a1.r.q0 = a1.r.q1 = 0;
1063 b3994ec5 2003-12-11 devnull if(ap->type == ';'){
1064 b3994ec5 2003-12-11 devnull f = a1.f;
1065 b3994ec5 2003-12-11 devnull a = a1;
1066 b3994ec5 2003-12-11 devnull f->curtext->q0 = a1.r.q0;
1067 b3994ec5 2003-12-11 devnull f->curtext->q1 = a1.r.q1;
1069 b3994ec5 2003-12-11 devnull if(ap->next)
1070 b3994ec5 2003-12-11 devnull a2 = cmdaddress(ap->next, a, 0);
1072 b3994ec5 2003-12-11 devnull a2.f = a.f, a2.r.q0 = a2.r.q1 = f->b.nc;
1073 b3994ec5 2003-12-11 devnull if(a1.f != a2.f)
1074 b3994ec5 2003-12-11 devnull editerror("addresses in different files");
1075 b3994ec5 2003-12-11 devnull a.f = a1.f, a.r.q0 = a1.r.q0, a.r.q1 = a2.r.q1;
1076 b3994ec5 2003-12-11 devnull if(a.r.q1 < a.r.q0)
1077 b3994ec5 2003-12-11 devnull editerror("addresses out of order");
1078 b3994ec5 2003-12-11 devnull return a;
1080 b3994ec5 2003-12-11 devnull case '+':
1081 b3994ec5 2003-12-11 devnull case '-':
1082 b3994ec5 2003-12-11 devnull sign = 1;
1083 b3994ec5 2003-12-11 devnull if(ap->type == '-')
1084 b3994ec5 2003-12-11 devnull sign = -1;
1085 b3994ec5 2003-12-11 devnull if(ap->next==0 || ap->next->type=='+' || ap->next->type=='-')
1086 b3994ec5 2003-12-11 devnull a = lineaddr(1L, a, sign);
1088 b3994ec5 2003-12-11 devnull default:
1089 b3994ec5 2003-12-11 devnull error("cmdaddress");
1090 b3994ec5 2003-12-11 devnull return a;
1092 b3994ec5 2003-12-11 devnull }while(ap = ap->next); /* assign = */
1093 b3994ec5 2003-12-11 devnull return a;
1096 b3994ec5 2003-12-11 devnull struct Tofile{
1097 b3994ec5 2003-12-11 devnull File *f;
1098 b3994ec5 2003-12-11 devnull String *r;
1102 b3994ec5 2003-12-11 devnull alltofile(Window *w, void *v)
1104 b3994ec5 2003-12-11 devnull Text *t;
1105 b3994ec5 2003-12-11 devnull struct Tofile *tp;
1107 b3994ec5 2003-12-11 devnull tp = v;
1108 b3994ec5 2003-12-11 devnull if(tp->f != nil)
1109 b3994ec5 2003-12-11 devnull return;
1110 b3994ec5 2003-12-11 devnull if(w->isscratch || w->isdir)
1111 b3994ec5 2003-12-11 devnull return;
1112 b3994ec5 2003-12-11 devnull t = &w->body;
1113 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
1114 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
1115 b3994ec5 2003-12-11 devnull return;
1116 cbeb0b26 2006-04-01 devnull /* if(w->nopen[QWevent] > 0) */
1117 cbeb0b26 2006-04-01 devnull /* return; */
1118 b3994ec5 2003-12-11 devnull if(runeeq(tp->r->r, tp->r->n, t->file->name, t->file->nname))
1119 b3994ec5 2003-12-11 devnull tp->f = t->file;
1123 b3994ec5 2003-12-11 devnull tofile(String *r)
1125 b3994ec5 2003-12-11 devnull struct Tofile t;
1126 b3994ec5 2003-12-11 devnull String rr;
1128 b3994ec5 2003-12-11 devnull rr.r = skipbl(r->r, r->n, &rr.n);
1129 b3994ec5 2003-12-11 devnull t.f = nil;
1130 b3994ec5 2003-12-11 devnull t.r = &rr;
1131 b3994ec5 2003-12-11 devnull allwindows(alltofile, &t);
1132 b3994ec5 2003-12-11 devnull if(t.f == nil)
1133 b3994ec5 2003-12-11 devnull editerror("no such file\"%S\"", rr.r);
1134 b3994ec5 2003-12-11 devnull return t.f;
1138 b3994ec5 2003-12-11 devnull allmatchfile(Window *w, void *v)
1140 b3994ec5 2003-12-11 devnull struct Tofile *tp;
1141 b3994ec5 2003-12-11 devnull Text *t;
1143 b3994ec5 2003-12-11 devnull tp = v;
1144 b3994ec5 2003-12-11 devnull if(w->isscratch || w->isdir)
1145 b3994ec5 2003-12-11 devnull return;
1146 b3994ec5 2003-12-11 devnull t = &w->body;
1147 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
1148 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
1149 b3994ec5 2003-12-11 devnull return;
1150 cbeb0b26 2006-04-01 devnull /* if(w->nopen[QWevent] > 0) */
1151 cbeb0b26 2006-04-01 devnull /* return; */
1152 b3994ec5 2003-12-11 devnull if(filematch(w->body.file, tp->r)){
1153 b3994ec5 2003-12-11 devnull if(tp->f != nil)
1154 b3994ec5 2003-12-11 devnull editerror("too many files match \"%S\"", tp->r->r);
1155 b3994ec5 2003-12-11 devnull tp->f = w->body.file;
1160 b3994ec5 2003-12-11 devnull matchfile(String *r)
1162 b3994ec5 2003-12-11 devnull struct Tofile tf;
1164 b3994ec5 2003-12-11 devnull tf.f = nil;
1165 b3994ec5 2003-12-11 devnull tf.r = r;
1166 b3994ec5 2003-12-11 devnull allwindows(allmatchfile, &tf);
1168 b3994ec5 2003-12-11 devnull if(tf.f == nil)
1169 b3994ec5 2003-12-11 devnull editerror("no file matches \"%S\"", r->r);
1170 b3994ec5 2003-12-11 devnull return tf.f;
1174 b3994ec5 2003-12-11 devnull filematch(File *f, String *r)
1176 b3994ec5 2003-12-11 devnull char *buf;
1177 b3994ec5 2003-12-11 devnull Rune *rbuf;
1178 b3994ec5 2003-12-11 devnull Window *w;
1179 b3994ec5 2003-12-11 devnull int match, i, dirty;
1180 b3994ec5 2003-12-11 devnull Rangeset s;
1182 b3994ec5 2003-12-11 devnull /* compile expr first so if we get an error, we haven't allocated anything */
1183 b3994ec5 2003-12-11 devnull if(rxcompile(r->r) == FALSE)
1184 b3994ec5 2003-12-11 devnull editerror("bad regexp in file match");
1185 b3994ec5 2003-12-11 devnull buf = fbufalloc();
1186 b3994ec5 2003-12-11 devnull w = f->curtext->w;
1187 b3994ec5 2003-12-11 devnull /* same check for dirty as in settag, but we know ncache==0 */
1188 b3994ec5 2003-12-11 devnull dirty = !w->isdir && !w->isscratch && f->mod;
1189 b3994ec5 2003-12-11 devnull snprint(buf, BUFSIZE, "%c%c%c %.*S\n", " '"[dirty],
1190 b3994ec5 2003-12-11 devnull '+', " ."[curtext!=nil && curtext->file==f], f->nname, f->name);
1191 b3994ec5 2003-12-11 devnull rbuf = bytetorune(buf, &i);
1192 b3994ec5 2003-12-11 devnull fbuffree(buf);
1193 b3994ec5 2003-12-11 devnull match = rxexecute(nil, rbuf, 0, i, &s);
1194 b3994ec5 2003-12-11 devnull free(rbuf);
1195 b3994ec5 2003-12-11 devnull return match;
1198 b3994ec5 2003-12-11 devnull Address
1199 b3994ec5 2003-12-11 devnull charaddr(long l, Address addr, int sign)
1201 b3994ec5 2003-12-11 devnull if(sign == 0)
1202 b3994ec5 2003-12-11 devnull addr.r.q0 = addr.r.q1 = l;
1203 b3994ec5 2003-12-11 devnull else if(sign < 0)
1204 b3994ec5 2003-12-11 devnull addr.r.q1 = addr.r.q0 -= l;
1205 b3994ec5 2003-12-11 devnull else if(sign > 0)
1206 b3994ec5 2003-12-11 devnull addr.r.q0 = addr.r.q1 += l;
1207 b3994ec5 2003-12-11 devnull if(addr.r.q0<0 || addr.r.q1>addr.f->b.nc)
1208 b3994ec5 2003-12-11 devnull editerror("address out of range");
1209 b3994ec5 2003-12-11 devnull return addr;
1212 b3994ec5 2003-12-11 devnull Address
1213 b3994ec5 2003-12-11 devnull lineaddr(long l, Address addr, int sign)
1217 b3994ec5 2003-12-11 devnull File *f = addr.f;
1218 b3994ec5 2003-12-11 devnull Address a;
1219 b3994ec5 2003-12-11 devnull long p;
1221 b3994ec5 2003-12-11 devnull a.f = f;
1222 b3994ec5 2003-12-11 devnull if(sign >= 0){
1223 b3994ec5 2003-12-11 devnull if(l == 0){
1224 b3994ec5 2003-12-11 devnull if(sign==0 || addr.r.q1==0){
1225 b3994ec5 2003-12-11 devnull a.r.q0 = a.r.q1 = 0;
1226 b3994ec5 2003-12-11 devnull return a;
1228 b3994ec5 2003-12-11 devnull a.r.q0 = addr.r.q1;
1229 b3994ec5 2003-12-11 devnull p = addr.r.q1-1;
1231 b3994ec5 2003-12-11 devnull if(sign==0 || addr.r.q1==0){
1235 b3994ec5 2003-12-11 devnull p = addr.r.q1-1;
1236 b3994ec5 2003-12-11 devnull n = textreadc(f->curtext, p++)=='\n';
1238 b3994ec5 2003-12-11 devnull while(n < l){
1239 b3994ec5 2003-12-11 devnull if(p >= f->b.nc)
1240 b3994ec5 2003-12-11 devnull editerror("address out of range");
1241 b3994ec5 2003-12-11 devnull if(textreadc(f->curtext, p++) == '\n')
1244 b3994ec5 2003-12-11 devnull a.r.q0 = p;
1246 b3994ec5 2003-12-11 devnull while(p < f->b.nc && textreadc(f->curtext, p++)!='\n')
1248 b3994ec5 2003-12-11 devnull a.r.q1 = p;
1250 b3994ec5 2003-12-11 devnull p = addr.r.q0;
1251 b3994ec5 2003-12-11 devnull if(l == 0)
1252 b3994ec5 2003-12-11 devnull a.r.q1 = addr.r.q0;
1254 b3994ec5 2003-12-11 devnull for(n = 0; n<l; ){ /* always runs once */
1255 b3994ec5 2003-12-11 devnull if(p == 0){
1256 b3994ec5 2003-12-11 devnull if(++n != l)
1257 b3994ec5 2003-12-11 devnull editerror("address out of range");
1259 b3994ec5 2003-12-11 devnull c = textreadc(f->curtext, p-1);
1260 b3994ec5 2003-12-11 devnull if(c != '\n' || ++n != l)
1264 b3994ec5 2003-12-11 devnull a.r.q1 = p;
1265 b3994ec5 2003-12-11 devnull if(p > 0)
1268 b3994ec5 2003-12-11 devnull while(p > 0 && textreadc(f->curtext, p-1)!='\n') /* lines start after a newline */
1270 b3994ec5 2003-12-11 devnull a.r.q0 = p;
1272 b3994ec5 2003-12-11 devnull return a;
1275 b3994ec5 2003-12-11 devnull struct Filecheck
1277 b3994ec5 2003-12-11 devnull File *f;
1278 b3994ec5 2003-12-11 devnull Rune *r;
1279 b3994ec5 2003-12-11 devnull int nr;
1283 b3994ec5 2003-12-11 devnull allfilecheck(Window *w, void *v)
1285 b3994ec5 2003-12-11 devnull struct Filecheck *fp;
1286 b3994ec5 2003-12-11 devnull File *f;
1288 b3994ec5 2003-12-11 devnull fp = v;
1289 b3994ec5 2003-12-11 devnull f = w->body.file;
1290 b3994ec5 2003-12-11 devnull if(w->body.file == fp->f)
1291 b3994ec5 2003-12-11 devnull return;
1292 b3994ec5 2003-12-11 devnull if(runeeq(fp->r, fp->nr, f->name, f->nname))
1293 b3994ec5 2003-12-11 devnull warning(nil, "warning: duplicate file name \"%.*S\"\n", fp->nr, fp->r);
1297 b3994ec5 2003-12-11 devnull cmdname(File *f, String *str, int set)
1299 b3994ec5 2003-12-11 devnull Rune *r, *s;
1301 b3994ec5 2003-12-11 devnull struct Filecheck fc;
1302 b3994ec5 2003-12-11 devnull Runestr newname;
1304 b3994ec5 2003-12-11 devnull r = nil;
1305 b3994ec5 2003-12-11 devnull n = str->n;
1306 b3994ec5 2003-12-11 devnull s = str->r;
1307 b3994ec5 2003-12-11 devnull if(n == 0){
1308 b3994ec5 2003-12-11 devnull /* no name; use existing */
1309 b3994ec5 2003-12-11 devnull if(f->nname == 0)
1310 b3994ec5 2003-12-11 devnull return nil;
1311 b3994ec5 2003-12-11 devnull r = runemalloc(f->nname+1);
1312 b3994ec5 2003-12-11 devnull runemove(r, f->name, f->nname);
1313 b3994ec5 2003-12-11 devnull return r;
1315 b3994ec5 2003-12-11 devnull s = skipbl(s, n, &n);
1316 b3994ec5 2003-12-11 devnull if(n == 0)
1317 b3994ec5 2003-12-11 devnull goto Return;
1319 b3994ec5 2003-12-11 devnull if(s[0] == '/'){
1320 b3994ec5 2003-12-11 devnull r = runemalloc(n+1);
1321 b3994ec5 2003-12-11 devnull runemove(r, s, n);
1323 b3994ec5 2003-12-11 devnull newname = dirname(f->curtext, runestrdup(s), n);
1324 b3994ec5 2003-12-11 devnull n = newname.nr;
1325 734a96bd 2008-03-07 rsc r = runemalloc(n+1); /* NUL terminate */
1326 5e77b8bb 2005-03-23 devnull runemove(r, newname.r, n);
1327 5e77b8bb 2005-03-23 devnull free(newname.r);
1329 b3994ec5 2003-12-11 devnull fc.f = f;
1330 b3994ec5 2003-12-11 devnull fc.r = r;
1331 b3994ec5 2003-12-11 devnull fc.nr = n;
1332 b3994ec5 2003-12-11 devnull allwindows(allfilecheck, &fc);
1333 b3994ec5 2003-12-11 devnull if(f->nname == 0)
1334 b3994ec5 2003-12-11 devnull set = TRUE;
1336 b3994ec5 2003-12-11 devnull Return:
1337 b3994ec5 2003-12-11 devnull if(set && !runeeq(r, n, f->name, f->nname)){
1338 b3994ec5 2003-12-11 devnull filemark(f);
1339 b3994ec5 2003-12-11 devnull f->mod = TRUE;
1340 b3994ec5 2003-12-11 devnull f->curtext->w->dirty = TRUE;
1341 b3994ec5 2003-12-11 devnull winsetname(f->curtext->w, r, n);
1343 b3994ec5 2003-12-11 devnull return r;