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 w->neditwrsel += nr;
141 b3994ec5 2003-12-11 devnull eloginsert(f, q, r, nr);
142 b3994ec5 2003-12-11 devnull return nil;
143 b3994ec5 2003-12-11 devnull case Collecting:
144 b3994ec5 2003-12-11 devnull collection = runerealloc(collection, ncollection+nr+1);
145 b3994ec5 2003-12-11 devnull runemove(collection+ncollection, r, nr);
146 b3994ec5 2003-12-11 devnull ncollection += nr;
147 b3994ec5 2003-12-11 devnull collection[ncollection] = '\0';
148 b3994ec5 2003-12-11 devnull return nil;
149 b3994ec5 2003-12-11 devnull default:
150 b3994ec5 2003-12-11 devnull return "unknown state in edittext";
154 b3994ec5 2003-12-11 devnull /* string is known to be NUL-terminated */
156 b3994ec5 2003-12-11 devnull filelist(Text *t, Rune *r, int nr)
158 b3994ec5 2003-12-11 devnull if(nr == 0)
159 b3994ec5 2003-12-11 devnull return nil;
160 b3994ec5 2003-12-11 devnull r = skipbl(r, nr, &nr);
161 b3994ec5 2003-12-11 devnull if(r[0] != '<')
162 b3994ec5 2003-12-11 devnull return runestrdup(r);
163 b3994ec5 2003-12-11 devnull /* use < command to collect text */
164 b3994ec5 2003-12-11 devnull clearcollection();
165 b3994ec5 2003-12-11 devnull runpipe(t, '<', r+1, nr-1, Collecting);
166 b3994ec5 2003-12-11 devnull return collection;
170 b3994ec5 2003-12-11 devnull a_cmd(Text *t, Cmd *cp)
172 b3994ec5 2003-12-11 devnull return append(t->file, cp, addr.r.q1);
176 b3994ec5 2003-12-11 devnull b_cmd(Text *t, Cmd *cp)
178 b3994ec5 2003-12-11 devnull File *f;
180 b3994ec5 2003-12-11 devnull USED(t);
181 b3994ec5 2003-12-11 devnull f = tofile(cp->u.text);
182 b3994ec5 2003-12-11 devnull if(nest == 0)
183 b3994ec5 2003-12-11 devnull pfilename(f);
184 b3994ec5 2003-12-11 devnull curtext = f->curtext;
185 b3994ec5 2003-12-11 devnull return TRUE;
189 b3994ec5 2003-12-11 devnull B_cmd(Text *t, Cmd *cp)
191 b3994ec5 2003-12-11 devnull Rune *list, *r, *s;
194 b3994ec5 2003-12-11 devnull list = filelist(t, cp->u.text->r, cp->u.text->n);
195 b3994ec5 2003-12-11 devnull if(list == nil)
196 b3994ec5 2003-12-11 devnull editerror(Enoname);
197 b3994ec5 2003-12-11 devnull r = list;
198 b3994ec5 2003-12-11 devnull nr = runestrlen(r);
199 b3994ec5 2003-12-11 devnull r = skipbl(r, nr, &nr);
200 b3994ec5 2003-12-11 devnull if(nr == 0)
201 b3994ec5 2003-12-11 devnull new(t, t, nil, 0, 0, r, 0);
202 b3994ec5 2003-12-11 devnull else while(nr > 0){
203 b3994ec5 2003-12-11 devnull s = findbl(r, nr, &nr);
204 b3994ec5 2003-12-11 devnull *s = '\0';
205 b3994ec5 2003-12-11 devnull new(t, t, nil, 0, 0, r, runestrlen(r));
206 b3994ec5 2003-12-11 devnull if(nr > 0)
207 b3994ec5 2003-12-11 devnull r = skipbl(s+1, nr-1, &nr);
209 b3994ec5 2003-12-11 devnull clearcollection();
210 b3994ec5 2003-12-11 devnull return TRUE;
214 b3994ec5 2003-12-11 devnull c_cmd(Text *t, Cmd *cp)
216 b3994ec5 2003-12-11 devnull elogreplace(t->file, addr.r.q0, addr.r.q1, cp->u.text->r, cp->u.text->n);
217 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
218 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q0+cp->u.text->n;
219 b3994ec5 2003-12-11 devnull return TRUE;
223 b3994ec5 2003-12-11 devnull d_cmd(Text *t, Cmd *cp)
225 b3994ec5 2003-12-11 devnull USED(cp);
226 b3994ec5 2003-12-11 devnull if(addr.r.q1 > addr.r.q0)
227 b3994ec5 2003-12-11 devnull elogdelete(t->file, addr.r.q0, addr.r.q1);
228 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
229 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q0;
230 b3994ec5 2003-12-11 devnull return TRUE;
234 b3994ec5 2003-12-11 devnull D1(Text *t)
236 b3994ec5 2003-12-11 devnull if(t->w->body.file->ntext>1 || winclean(t->w, FALSE))
237 b3994ec5 2003-12-11 devnull colclose(t->col, t->w, TRUE);
241 b3994ec5 2003-12-11 devnull D_cmd(Text *t, Cmd *cp)
243 b3994ec5 2003-12-11 devnull Rune *list, *r, *s, *n;
244 b3994ec5 2003-12-11 devnull int nr, nn;
245 b3994ec5 2003-12-11 devnull Window *w;
246 b3994ec5 2003-12-11 devnull Runestr dir, rs;
247 b3994ec5 2003-12-11 devnull char buf[128];
249 b3994ec5 2003-12-11 devnull list = filelist(t, cp->u.text->r, cp->u.text->n);
250 b3994ec5 2003-12-11 devnull if(list == nil){
252 b3994ec5 2003-12-11 devnull return TRUE;
254 b3994ec5 2003-12-11 devnull dir = dirname(t, nil, 0);
255 b3994ec5 2003-12-11 devnull r = list;
256 b3994ec5 2003-12-11 devnull nr = runestrlen(r);
257 b3994ec5 2003-12-11 devnull r = skipbl(r, nr, &nr);
259 b3994ec5 2003-12-11 devnull s = findbl(r, nr, &nr);
260 b3994ec5 2003-12-11 devnull *s = '\0';
261 b3994ec5 2003-12-11 devnull /* first time through, could be empty string, meaning delete file empty name */
262 b3994ec5 2003-12-11 devnull nn = runestrlen(r);
263 b3994ec5 2003-12-11 devnull if(r[0]=='/' || nn==0 || dir.nr==0){
264 b3994ec5 2003-12-11 devnull rs.r = runestrdup(r);
265 b3994ec5 2003-12-11 devnull rs.nr = nn;
267 b3994ec5 2003-12-11 devnull n = runemalloc(dir.nr+1+nn);
268 b3994ec5 2003-12-11 devnull runemove(n, dir.r, dir.nr);
269 b3994ec5 2003-12-11 devnull n[dir.nr] = '/';
270 b3994ec5 2003-12-11 devnull runemove(n+dir.nr+1, r, nn);
271 8ad51794 2004-03-25 devnull rs = cleanrname(runestr(n, dir.nr+1+nn));
273 b3994ec5 2003-12-11 devnull w = lookfile(rs.r, rs.nr);
274 b3994ec5 2003-12-11 devnull if(w == nil){
275 b3994ec5 2003-12-11 devnull snprint(buf, sizeof buf, "no such file %.*S", rs.nr, rs.r);
276 b3994ec5 2003-12-11 devnull free(rs.r);
277 b3994ec5 2003-12-11 devnull editerror(buf);
279 b3994ec5 2003-12-11 devnull free(rs.r);
280 b3994ec5 2003-12-11 devnull D1(&w->body);
281 b3994ec5 2003-12-11 devnull if(nr > 0)
282 b3994ec5 2003-12-11 devnull r = skipbl(s+1, nr-1, &nr);
283 b3994ec5 2003-12-11 devnull }while(nr > 0);
284 b3994ec5 2003-12-11 devnull clearcollection();
285 b3994ec5 2003-12-11 devnull free(dir.r);
286 b3994ec5 2003-12-11 devnull return TRUE;
289 b3994ec5 2003-12-11 devnull static int
290 b3994ec5 2003-12-11 devnull readloader(void *v, uint q0, Rune *r, int nr)
292 b3994ec5 2003-12-11 devnull if(nr > 0)
293 b3994ec5 2003-12-11 devnull eloginsert(v, q0, r, nr);
294 b3994ec5 2003-12-11 devnull return 0;
298 b3994ec5 2003-12-11 devnull e_cmd(Text *t, Cmd *cp)
300 b3994ec5 2003-12-11 devnull Rune *name;
301 b3994ec5 2003-12-11 devnull File *f;
302 b3994ec5 2003-12-11 devnull int i, isdir, q0, q1, fd, nulls, samename, allreplaced;
303 b3994ec5 2003-12-11 devnull char *s, tmp[128];
306 b3994ec5 2003-12-11 devnull f = t->file;
307 b3994ec5 2003-12-11 devnull q0 = addr.r.q0;
308 b3994ec5 2003-12-11 devnull q1 = addr.r.q1;
309 b3994ec5 2003-12-11 devnull if(cp->cmdc == 'e'){
310 b3994ec5 2003-12-11 devnull if(winclean(t->w, TRUE)==FALSE)
311 b3994ec5 2003-12-11 devnull editerror(""); /* winclean generated message already */
313 b3994ec5 2003-12-11 devnull q1 = f->b.nc;
315 b3994ec5 2003-12-11 devnull allreplaced = (q0==0 && q1==f->b.nc);
316 b3994ec5 2003-12-11 devnull name = cmdname(f, cp->u.text, cp->cmdc=='e');
317 b3994ec5 2003-12-11 devnull if(name == nil)
318 b3994ec5 2003-12-11 devnull editerror(Enoname);
319 b3994ec5 2003-12-11 devnull i = runestrlen(name);
320 b3994ec5 2003-12-11 devnull samename = runeeq(name, i, t->file->name, t->file->nname);
321 b3994ec5 2003-12-11 devnull s = runetobyte(name, i);
322 b3994ec5 2003-12-11 devnull free(name);
323 b3994ec5 2003-12-11 devnull fd = open(s, OREAD);
324 b3994ec5 2003-12-11 devnull if(fd < 0){
325 b3994ec5 2003-12-11 devnull snprint(tmp, sizeof tmp, "can't open %s: %r", s);
326 b3994ec5 2003-12-11 devnull free(s);
327 b3994ec5 2003-12-11 devnull editerror(tmp);
329 b3994ec5 2003-12-11 devnull d = dirfstat(fd);
330 b3994ec5 2003-12-11 devnull isdir = (d!=nil && (d->qid.type&QTDIR));
331 b3994ec5 2003-12-11 devnull free(d);
332 b3994ec5 2003-12-11 devnull if(isdir){
333 b3994ec5 2003-12-11 devnull close(fd);
334 b3994ec5 2003-12-11 devnull snprint(tmp, sizeof tmp, "%s is a directory", s);
335 b3994ec5 2003-12-11 devnull free(s);
336 b3994ec5 2003-12-11 devnull editerror(tmp);
338 b3994ec5 2003-12-11 devnull elogdelete(f, q0, q1);
339 b3994ec5 2003-12-11 devnull nulls = 0;
340 b3994ec5 2003-12-11 devnull loadfile(fd, q1, &nulls, readloader, f);
341 b3994ec5 2003-12-11 devnull free(s);
342 b3994ec5 2003-12-11 devnull close(fd);
343 b3994ec5 2003-12-11 devnull if(nulls)
344 b3994ec5 2003-12-11 devnull warning(nil, "%s: NUL bytes elided\n", s);
345 b3994ec5 2003-12-11 devnull else if(allreplaced && samename)
346 b3994ec5 2003-12-11 devnull f->editclean = TRUE;
347 b3994ec5 2003-12-11 devnull return TRUE;
350 b3994ec5 2003-12-11 devnull static Rune Lempty[] = { 0 };
352 b3994ec5 2003-12-11 devnull f_cmd(Text *t, Cmd *cp)
354 b3994ec5 2003-12-11 devnull Rune *name;
355 b3994ec5 2003-12-11 devnull String *str;
356 b3994ec5 2003-12-11 devnull String empty;
358 b3994ec5 2003-12-11 devnull if(cp->u.text == nil){
359 b3994ec5 2003-12-11 devnull empty.n = 0;
360 b3994ec5 2003-12-11 devnull empty.r = Lempty;
361 b3994ec5 2003-12-11 devnull str = ∅
363 b3994ec5 2003-12-11 devnull str = cp->u.text;
364 b3994ec5 2003-12-11 devnull name = cmdname(t->file, str, TRUE);
365 b3994ec5 2003-12-11 devnull free(name);
366 b3994ec5 2003-12-11 devnull pfilename(t->file);
367 b3994ec5 2003-12-11 devnull return TRUE;
371 b3994ec5 2003-12-11 devnull g_cmd(Text *t, Cmd *cp)
373 b3994ec5 2003-12-11 devnull if(t->file != addr.f){
374 b3994ec5 2003-12-11 devnull warning(nil, "internal error: g_cmd f!=addr.f\n");
375 b3994ec5 2003-12-11 devnull return FALSE;
377 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
378 b3994ec5 2003-12-11 devnull editerror("bad regexp in g command");
379 b3994ec5 2003-12-11 devnull if(rxexecute(t, nil, addr.r.q0, addr.r.q1, &sel) ^ cp->cmdc=='v'){
380 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
381 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q1;
382 b3994ec5 2003-12-11 devnull return cmdexec(t, cp->u.cmd);
384 b3994ec5 2003-12-11 devnull return TRUE;
388 b3994ec5 2003-12-11 devnull i_cmd(Text *t, Cmd *cp)
390 b3994ec5 2003-12-11 devnull return append(t->file, cp, addr.r.q0);
394 b3994ec5 2003-12-11 devnull copy(File *f, Address addr2)
398 b3994ec5 2003-12-11 devnull Rune *buf;
400 b3994ec5 2003-12-11 devnull buf = fbufalloc();
401 b3994ec5 2003-12-11 devnull for(p=addr.r.q0; p<addr.r.q1; p+=ni){
402 b3994ec5 2003-12-11 devnull ni = addr.r.q1-p;
403 b3994ec5 2003-12-11 devnull if(ni > RBUFSIZE)
404 b3994ec5 2003-12-11 devnull ni = RBUFSIZE;
405 b3994ec5 2003-12-11 devnull bufread(&f->b, p, buf, ni);
406 b3994ec5 2003-12-11 devnull eloginsert(addr2.f, addr2.r.q1, buf, ni);
408 b3994ec5 2003-12-11 devnull fbuffree(buf);
412 b3994ec5 2003-12-11 devnull move(File *f, Address addr2)
414 b3994ec5 2003-12-11 devnull if(addr.f!=addr2.f || addr.r.q1<=addr2.r.q0){
415 b3994ec5 2003-12-11 devnull elogdelete(f, addr.r.q0, addr.r.q1);
416 b3994ec5 2003-12-11 devnull copy(f, addr2);
417 b3994ec5 2003-12-11 devnull }else if(addr.r.q0 >= addr2.r.q1){
418 b3994ec5 2003-12-11 devnull copy(f, addr2);
419 b3994ec5 2003-12-11 devnull elogdelete(f, addr.r.q0, addr.r.q1);
421 b3994ec5 2003-12-11 devnull error("move overlaps itself");
425 b3994ec5 2003-12-11 devnull m_cmd(Text *t, Cmd *cp)
427 b3994ec5 2003-12-11 devnull Address dot, addr2;
429 b3994ec5 2003-12-11 devnull mkaddr(&dot, t->file);
430 b3994ec5 2003-12-11 devnull addr2 = cmdaddress(cp->u.mtaddr, dot, 0);
431 b3994ec5 2003-12-11 devnull if(cp->cmdc == 'm')
432 b3994ec5 2003-12-11 devnull move(t->file, addr2);
434 b3994ec5 2003-12-11 devnull copy(t->file, addr2);
435 b3994ec5 2003-12-11 devnull return TRUE;
439 b3994ec5 2003-12-11 devnull p_cmd(Text *t, Cmd *cp)
441 b3994ec5 2003-12-11 devnull USED(cp);
442 b3994ec5 2003-12-11 devnull return pdisplay(t->file);
446 b3994ec5 2003-12-11 devnull s_cmd(Text *t, Cmd *cp)
448 b3994ec5 2003-12-11 devnull int i, j, k, c, m, n, nrp, didsub;
449 b3994ec5 2003-12-11 devnull long p1, op, delta;
450 b3994ec5 2003-12-11 devnull String *buf;
451 b3994ec5 2003-12-11 devnull Rangeset *rp;
452 b3994ec5 2003-12-11 devnull char *err;
453 b3994ec5 2003-12-11 devnull Rune *rbuf;
455 b3994ec5 2003-12-11 devnull n = cp->num;
457 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
458 b3994ec5 2003-12-11 devnull editerror("bad regexp in s command");
459 b3994ec5 2003-12-11 devnull nrp = 0;
460 b3994ec5 2003-12-11 devnull rp = nil;
461 b3994ec5 2003-12-11 devnull delta = 0;
462 b3994ec5 2003-12-11 devnull didsub = FALSE;
463 b3994ec5 2003-12-11 devnull for(p1 = addr.r.q0; p1<=addr.r.q1 && rxexecute(t, nil, p1, addr.r.q1, &sel); ){
464 b3994ec5 2003-12-11 devnull if(sel.r[0].q0 == sel.r[0].q1){ /* empty match? */
465 b3994ec5 2003-12-11 devnull if(sel.r[0].q0 == op){
467 b3994ec5 2003-12-11 devnull continue;
469 b3994ec5 2003-12-11 devnull p1 = sel.r[0].q1+1;
471 b3994ec5 2003-12-11 devnull p1 = sel.r[0].q1;
472 b3994ec5 2003-12-11 devnull op = sel.r[0].q1;
473 b3994ec5 2003-12-11 devnull if(--n>0)
474 b3994ec5 2003-12-11 devnull continue;
476 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Rangeset));
477 b3994ec5 2003-12-11 devnull rp[nrp-1] = sel;
479 b3994ec5 2003-12-11 devnull rbuf = fbufalloc();
480 b3994ec5 2003-12-11 devnull buf = allocstring(0);
481 b3994ec5 2003-12-11 devnull for(m=0; m<nrp; m++){
482 b3994ec5 2003-12-11 devnull buf->n = 0;
483 b3994ec5 2003-12-11 devnull buf->r[0] = L'\0';
484 b3994ec5 2003-12-11 devnull sel = rp[m];
485 b3994ec5 2003-12-11 devnull for(i = 0; i<cp->u.text->n; i++)
486 b3994ec5 2003-12-11 devnull if((c = cp->u.text->r[i])=='\\' && i<cp->u.text->n-1){
487 b3994ec5 2003-12-11 devnull c = cp->u.text->r[++i];
488 b3994ec5 2003-12-11 devnull if('1'<=c && c<='9') {
489 b3994ec5 2003-12-11 devnull j = c-'0';
490 b3994ec5 2003-12-11 devnull if(sel.r[j].q1-sel.r[j].q0>RBUFSIZE){
491 b3994ec5 2003-12-11 devnull err = "replacement string too long";
492 b3994ec5 2003-12-11 devnull goto Err;
494 b3994ec5 2003-12-11 devnull bufread(&t->file->b, sel.r[j].q0, rbuf, sel.r[j].q1-sel.r[j].q0);
495 b3994ec5 2003-12-11 devnull for(k=0; k<sel.r[j].q1-sel.r[j].q0; k++)
496 b3994ec5 2003-12-11 devnull Straddc(buf, rbuf[k]);
498 b3994ec5 2003-12-11 devnull Straddc(buf, c);
499 b3994ec5 2003-12-11 devnull }else if(c!='&')
500 b3994ec5 2003-12-11 devnull Straddc(buf, c);
502 b3994ec5 2003-12-11 devnull if(sel.r[0].q1-sel.r[0].q0>RBUFSIZE){
503 b3994ec5 2003-12-11 devnull err = "right hand side too long in substitution";
504 b3994ec5 2003-12-11 devnull goto Err;
506 b3994ec5 2003-12-11 devnull bufread(&t->file->b, sel.r[0].q0, rbuf, sel.r[0].q1-sel.r[0].q0);
507 b3994ec5 2003-12-11 devnull for(k=0; k<sel.r[0].q1-sel.r[0].q0; k++)
508 b3994ec5 2003-12-11 devnull Straddc(buf, rbuf[k]);
510 b3994ec5 2003-12-11 devnull elogreplace(t->file, sel.r[0].q0, sel.r[0].q1, buf->r, buf->n);
511 b3994ec5 2003-12-11 devnull delta -= sel.r[0].q1-sel.r[0].q0;
512 b3994ec5 2003-12-11 devnull delta += buf->n;
513 b3994ec5 2003-12-11 devnull didsub = 1;
514 b3994ec5 2003-12-11 devnull if(!cp->flag)
517 b3994ec5 2003-12-11 devnull free(rp);
518 b3994ec5 2003-12-11 devnull freestring(buf);
519 b3994ec5 2003-12-11 devnull fbuffree(rbuf);
520 b3994ec5 2003-12-11 devnull if(!didsub && nest==0)
521 b3994ec5 2003-12-11 devnull editerror("no substitution");
522 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
523 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q1+delta;
524 b3994ec5 2003-12-11 devnull return TRUE;
527 b3994ec5 2003-12-11 devnull free(rp);
528 b3994ec5 2003-12-11 devnull freestring(buf);
529 b3994ec5 2003-12-11 devnull fbuffree(rbuf);
530 b3994ec5 2003-12-11 devnull editerror(err);
531 b3994ec5 2003-12-11 devnull return FALSE;
535 b3994ec5 2003-12-11 devnull u_cmd(Text *t, Cmd *cp)
537 b3994ec5 2003-12-11 devnull int n, oseq, flag;
539 b3994ec5 2003-12-11 devnull n = cp->num;
540 b3994ec5 2003-12-11 devnull flag = TRUE;
541 b3994ec5 2003-12-11 devnull if(n < 0){
543 b3994ec5 2003-12-11 devnull flag = FALSE;
545 b3994ec5 2003-12-11 devnull oseq = -1;
546 b3994ec5 2003-12-11 devnull while(n-->0 && t->file->seq!=0 && t->file->seq!=oseq){
547 b3994ec5 2003-12-11 devnull oseq = t->file->seq;
548 b3994ec5 2003-12-11 devnull undo(t, nil, nil, flag, 0, nil, 0);
550 b3994ec5 2003-12-11 devnull return TRUE;
554 b3994ec5 2003-12-11 devnull w_cmd(Text *t, Cmd *cp)
556 b3994ec5 2003-12-11 devnull Rune *r;
557 b3994ec5 2003-12-11 devnull File *f;
559 b3994ec5 2003-12-11 devnull f = t->file;
560 b3994ec5 2003-12-11 devnull if(f->seq == seq)
561 b3994ec5 2003-12-11 devnull editerror("can't write file with pending modifications");
562 b3994ec5 2003-12-11 devnull r = cmdname(f, cp->u.text, FALSE);
563 b3994ec5 2003-12-11 devnull if(r == nil)
564 b3994ec5 2003-12-11 devnull editerror("no name specified for 'w' command");
565 b3994ec5 2003-12-11 devnull putfile(f, addr.r.q0, addr.r.q1, r, runestrlen(r));
566 b3994ec5 2003-12-11 devnull /* r is freed by putfile */
567 b3994ec5 2003-12-11 devnull return TRUE;
571 b3994ec5 2003-12-11 devnull x_cmd(Text *t, Cmd *cp)
573 b3994ec5 2003-12-11 devnull if(cp->re)
574 b3994ec5 2003-12-11 devnull looper(t->file, cp, cp->cmdc=='x');
576 b3994ec5 2003-12-11 devnull linelooper(t->file, cp);
577 b3994ec5 2003-12-11 devnull return TRUE;
581 b3994ec5 2003-12-11 devnull X_cmd(Text *t, Cmd *cp)
583 b3994ec5 2003-12-11 devnull USED(t);
585 b3994ec5 2003-12-11 devnull filelooper(cp, cp->cmdc=='X');
586 b3994ec5 2003-12-11 devnull return TRUE;
590 b3994ec5 2003-12-11 devnull runpipe(Text *t, int cmd, Rune *cr, int ncr, int state)
592 b3994ec5 2003-12-11 devnull Rune *r, *s;
594 b3994ec5 2003-12-11 devnull Runestr dir;
595 b3994ec5 2003-12-11 devnull Window *w;
597 b3994ec5 2003-12-11 devnull r = skipbl(cr, ncr, &n);
598 b3994ec5 2003-12-11 devnull if(n == 0)
599 5a8e63b2 2004-02-29 devnull editerror("no command specified for %c", cmd);
600 b3994ec5 2003-12-11 devnull w = nil;
601 b3994ec5 2003-12-11 devnull if(state == Inserting){
602 b3994ec5 2003-12-11 devnull w = t->w;
603 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
604 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q1;
605 b3994ec5 2003-12-11 devnull w->neditwrsel = 0;
606 b3994ec5 2003-12-11 devnull if(cmd == '<' || cmd=='|')
607 b3994ec5 2003-12-11 devnull elogdelete(t->file, t->q0, t->q1);
609 b3994ec5 2003-12-11 devnull s = runemalloc(n+2);
610 b3994ec5 2003-12-11 devnull s[0] = cmd;
611 b3994ec5 2003-12-11 devnull runemove(s+1, r, n);
613 b3994ec5 2003-12-11 devnull dir.r = nil;
614 b3994ec5 2003-12-11 devnull dir.nr = 0;
615 b3994ec5 2003-12-11 devnull if(t != nil)
616 b3994ec5 2003-12-11 devnull dir = dirname(t, nil, 0);
617 b3994ec5 2003-12-11 devnull if(dir.nr==1 && dir.r[0]=='.'){ /* sigh */
618 b3994ec5 2003-12-11 devnull free(dir.r);
619 b3994ec5 2003-12-11 devnull dir.r = nil;
620 b3994ec5 2003-12-11 devnull dir.nr = 0;
622 b3994ec5 2003-12-11 devnull editing = state;
623 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
624 b3994ec5 2003-12-11 devnull incref(&t->w->ref); /* run will decref */
625 b3994ec5 2003-12-11 devnull run(w, runetobyte(s, n), dir.r, dir.nr, TRUE, nil, nil, TRUE);
626 b3994ec5 2003-12-11 devnull free(s);
627 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
628 b3994ec5 2003-12-11 devnull winunlock(t->w);
629 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
630 b3994ec5 2003-12-11 devnull recvul(cedit);
631 b3994ec5 2003-12-11 devnull qlock(&row.lk);
632 b3994ec5 2003-12-11 devnull editing = Inactive;
633 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
634 b3994ec5 2003-12-11 devnull winlock(t->w, 'M');
635 b3994ec5 2003-12-11 devnull if(state == Inserting){
636 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
637 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q0 + t->w->neditwrsel;
642 b3994ec5 2003-12-11 devnull pipe_cmd(Text *t, Cmd *cp)
644 b3994ec5 2003-12-11 devnull runpipe(t, cp->cmdc, cp->u.text->r, cp->u.text->n, Inserting);
645 b3994ec5 2003-12-11 devnull return TRUE;
649 b3994ec5 2003-12-11 devnull nlcount(Text *t, long q0, long q1)
651 b3994ec5 2003-12-11 devnull long nl;
652 b3994ec5 2003-12-11 devnull Rune *buf;
653 b3994ec5 2003-12-11 devnull int i, nbuf;
655 b3994ec5 2003-12-11 devnull buf = fbufalloc();
656 b3994ec5 2003-12-11 devnull nbuf = 0;
657 b3994ec5 2003-12-11 devnull i = nl = 0;
658 b3994ec5 2003-12-11 devnull while(q0 < q1){
659 b3994ec5 2003-12-11 devnull if(i == nbuf){
660 b3994ec5 2003-12-11 devnull nbuf = q1-q0;
661 b3994ec5 2003-12-11 devnull if(nbuf > RBUFSIZE)
662 b3994ec5 2003-12-11 devnull nbuf = RBUFSIZE;
663 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, buf, nbuf);
666 b3994ec5 2003-12-11 devnull if(buf[i++] == '\n')
670 b3994ec5 2003-12-11 devnull fbuffree(buf);
671 b3994ec5 2003-12-11 devnull return nl;
675 b3994ec5 2003-12-11 devnull printposn(Text *t, int charsonly)
677 b3994ec5 2003-12-11 devnull long l1, l2;
679 b3994ec5 2003-12-11 devnull if (t != nil && t->file != nil && t->file->name != nil)
680 b3994ec5 2003-12-11 devnull warning(nil, "%.*S:", t->file->nname, t->file->name);
681 b3994ec5 2003-12-11 devnull if(!charsonly){
682 b3994ec5 2003-12-11 devnull l1 = 1+nlcount(t, 0, addr.r.q0);
683 b3994ec5 2003-12-11 devnull l2 = l1+nlcount(t, addr.r.q0, addr.r.q1);
684 b3994ec5 2003-12-11 devnull /* check if addr ends with '\n' */
685 b3994ec5 2003-12-11 devnull if(addr.r.q1>0 && addr.r.q1>addr.r.q0 && textreadc(t, addr.r.q1-1)=='\n')
687 b3994ec5 2003-12-11 devnull warning(nil, "%lud", l1);
688 b3994ec5 2003-12-11 devnull if(l2 != l1)
689 b3994ec5 2003-12-11 devnull warning(nil, ",%lud", l2);
690 b3994ec5 2003-12-11 devnull warning(nil, "\n");
693 b3994ec5 2003-12-11 devnull warning(nil, "#%d", addr.r.q0);
694 b3994ec5 2003-12-11 devnull if(addr.r.q1 != addr.r.q0)
695 b3994ec5 2003-12-11 devnull warning(nil, ",#%d", addr.r.q1);
696 b3994ec5 2003-12-11 devnull warning(nil, "\n");
700 b3994ec5 2003-12-11 devnull eq_cmd(Text *t, Cmd *cp)
702 b3994ec5 2003-12-11 devnull int charsonly;
704 b3994ec5 2003-12-11 devnull switch(cp->u.text->n){
706 b3994ec5 2003-12-11 devnull charsonly = FALSE;
709 b3994ec5 2003-12-11 devnull if(cp->u.text->r[0] == '#'){
710 b3994ec5 2003-12-11 devnull charsonly = TRUE;
713 b3994ec5 2003-12-11 devnull default:
714 b3994ec5 2003-12-11 devnull SET(charsonly);
715 b3994ec5 2003-12-11 devnull editerror("newline expected");
717 b3994ec5 2003-12-11 devnull printposn(t, charsonly);
718 b3994ec5 2003-12-11 devnull return TRUE;
722 b3994ec5 2003-12-11 devnull nl_cmd(Text *t, Cmd *cp)
724 b3994ec5 2003-12-11 devnull Address a;
725 b3994ec5 2003-12-11 devnull File *f;
727 b3994ec5 2003-12-11 devnull f = t->file;
728 b3994ec5 2003-12-11 devnull if(cp->addr == 0){
729 b3994ec5 2003-12-11 devnull /* First put it on newline boundaries */
730 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
731 b3994ec5 2003-12-11 devnull addr = lineaddr(0, a, -1);
732 b3994ec5 2003-12-11 devnull a = lineaddr(0, a, 1);
733 b3994ec5 2003-12-11 devnull addr.r.q1 = a.r.q1;
734 b3994ec5 2003-12-11 devnull if(addr.r.q0==t->q0 && addr.r.q1==t->q1){
735 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
736 b3994ec5 2003-12-11 devnull addr = lineaddr(1, a, 1);
739 b3994ec5 2003-12-11 devnull textshow(t, addr.r.q0, addr.r.q1, 1);
740 b3994ec5 2003-12-11 devnull return TRUE;
744 b3994ec5 2003-12-11 devnull append(File *f, Cmd *cp, long p)
746 b3994ec5 2003-12-11 devnull if(cp->u.text->n > 0)
747 b3994ec5 2003-12-11 devnull eloginsert(f, p, cp->u.text->r, cp->u.text->n);
748 b3994ec5 2003-12-11 devnull f->curtext->q0 = p;
749 b3994ec5 2003-12-11 devnull f->curtext->q1 = p+cp->u.text->n;
750 b3994ec5 2003-12-11 devnull return TRUE;
754 b3994ec5 2003-12-11 devnull pdisplay(File *f)
756 b3994ec5 2003-12-11 devnull long p1, p2;
758 b3994ec5 2003-12-11 devnull Rune *buf;
760 b3994ec5 2003-12-11 devnull p1 = addr.r.q0;
761 b3994ec5 2003-12-11 devnull p2 = addr.r.q1;
762 b3994ec5 2003-12-11 devnull if(p2 > f->b.nc)
763 b3994ec5 2003-12-11 devnull p2 = f->b.nc;
764 b3994ec5 2003-12-11 devnull buf = fbufalloc();
765 b3994ec5 2003-12-11 devnull while(p1 < p2){
766 b3994ec5 2003-12-11 devnull np = p2-p1;
767 b3994ec5 2003-12-11 devnull if(np>RBUFSIZE-1)
768 b3994ec5 2003-12-11 devnull np = RBUFSIZE-1;
769 b3994ec5 2003-12-11 devnull bufread(&f->b, p1, buf, np);
770 b3994ec5 2003-12-11 devnull buf[np] = L'\0';
771 b3994ec5 2003-12-11 devnull warning(nil, "%S", buf);
772 b3994ec5 2003-12-11 devnull p1 += np;
774 b3994ec5 2003-12-11 devnull fbuffree(buf);
775 b3994ec5 2003-12-11 devnull f->curtext->q0 = addr.r.q0;
776 b3994ec5 2003-12-11 devnull f->curtext->q1 = addr.r.q1;
777 b3994ec5 2003-12-11 devnull return TRUE;
781 b3994ec5 2003-12-11 devnull pfilename(File *f)
783 b3994ec5 2003-12-11 devnull int dirty;
784 b3994ec5 2003-12-11 devnull Window *w;
786 b3994ec5 2003-12-11 devnull w = f->curtext->w;
787 b3994ec5 2003-12-11 devnull /* same check for dirty as in settag, but we know ncache==0 */
788 b3994ec5 2003-12-11 devnull dirty = !w->isdir && !w->isscratch && f->mod;
789 b3994ec5 2003-12-11 devnull warning(nil, "%c%c%c %.*S\n", " '"[dirty],
790 b3994ec5 2003-12-11 devnull '+', " ."[curtext!=nil && curtext->file==f], f->nname, f->name);
794 b3994ec5 2003-12-11 devnull loopcmd(File *f, Cmd *cp, Range *rp, long nrp)
798 b3994ec5 2003-12-11 devnull for(i=0; i<nrp; i++){
799 b3994ec5 2003-12-11 devnull f->curtext->q0 = rp[i].q0;
800 b3994ec5 2003-12-11 devnull f->curtext->q1 = rp[i].q1;
801 b3994ec5 2003-12-11 devnull cmdexec(f->curtext, cp);
806 b3994ec5 2003-12-11 devnull looper(File *f, Cmd *cp, int xy)
808 b3994ec5 2003-12-11 devnull long p, op, nrp;
809 b3994ec5 2003-12-11 devnull Range r, tr;
810 b3994ec5 2003-12-11 devnull Range *rp;
812 b3994ec5 2003-12-11 devnull r = addr.r;
813 b3994ec5 2003-12-11 devnull op= xy? -1 : r.q0;
815 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
816 b3994ec5 2003-12-11 devnull editerror("bad regexp in %c command", cp->cmdc);
817 b3994ec5 2003-12-11 devnull nrp = 0;
818 b3994ec5 2003-12-11 devnull rp = nil;
819 b3994ec5 2003-12-11 devnull for(p = r.q0; p<=r.q1; ){
820 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, r.q1, &sel)){ /* no match, but y should still run */
821 b3994ec5 2003-12-11 devnull if(xy || op>r.q1)
823 b3994ec5 2003-12-11 devnull tr.q0 = op, tr.q1 = r.q1;
824 b3994ec5 2003-12-11 devnull p = r.q1+1; /* exit next loop */
826 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1){ /* empty match? */
827 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==op){
829 b3994ec5 2003-12-11 devnull continue;
831 b3994ec5 2003-12-11 devnull p = sel.r[0].q1+1;
833 b3994ec5 2003-12-11 devnull p = sel.r[0].q1;
835 b3994ec5 2003-12-11 devnull tr = sel.r[0];
837 b3994ec5 2003-12-11 devnull tr.q0 = op, tr.q1 = sel.r[0].q0;
839 b3994ec5 2003-12-11 devnull op = sel.r[0].q1;
841 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Range));
842 b3994ec5 2003-12-11 devnull rp[nrp-1] = tr;
844 b3994ec5 2003-12-11 devnull loopcmd(f, cp->u.cmd, rp, nrp);
845 b3994ec5 2003-12-11 devnull free(rp);
850 b3994ec5 2003-12-11 devnull linelooper(File *f, Cmd *cp)
852 b3994ec5 2003-12-11 devnull long nrp, p;
853 b3994ec5 2003-12-11 devnull Range r, linesel;
854 b3994ec5 2003-12-11 devnull Address a, a3;
855 b3994ec5 2003-12-11 devnull Range *rp;
858 b3994ec5 2003-12-11 devnull nrp = 0;
859 b3994ec5 2003-12-11 devnull rp = nil;
860 b3994ec5 2003-12-11 devnull r = addr.r;
861 b3994ec5 2003-12-11 devnull a3.f = f;
862 b3994ec5 2003-12-11 devnull a3.r.q0 = a3.r.q1 = r.q0;
863 b3994ec5 2003-12-11 devnull a = lineaddr(0, a3, 1);
864 b3994ec5 2003-12-11 devnull linesel = a.r;
865 b3994ec5 2003-12-11 devnull for(p = r.q0; p<r.q1; p = a3.r.q1){
866 b3994ec5 2003-12-11 devnull a3.r.q0 = a3.r.q1;
867 b3994ec5 2003-12-11 devnull if(p!=r.q0 || linesel.q1==p){
868 b3994ec5 2003-12-11 devnull a = lineaddr(1, a3, 1);
869 b3994ec5 2003-12-11 devnull linesel = a.r;
871 b3994ec5 2003-12-11 devnull if(linesel.q0 >= r.q1)
873 b3994ec5 2003-12-11 devnull if(linesel.q1 >= r.q1)
874 b3994ec5 2003-12-11 devnull linesel.q1 = r.q1;
875 b3994ec5 2003-12-11 devnull if(linesel.q1 > linesel.q0)
876 b3994ec5 2003-12-11 devnull if(linesel.q0>=a3.r.q1 && linesel.q1>a3.r.q1){
877 b3994ec5 2003-12-11 devnull a3.r = linesel;
879 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Range));
880 b3994ec5 2003-12-11 devnull rp[nrp-1] = linesel;
881 b3994ec5 2003-12-11 devnull continue;
885 b3994ec5 2003-12-11 devnull loopcmd(f, cp->u.cmd, rp, nrp);
886 b3994ec5 2003-12-11 devnull free(rp);
890 b3994ec5 2003-12-11 devnull struct Looper
892 b3994ec5 2003-12-11 devnull Cmd *cp;
894 b3994ec5 2003-12-11 devnull Window **w;
896 b3994ec5 2003-12-11 devnull } loopstruct; /* only one; X and Y can't nest */
899 b3994ec5 2003-12-11 devnull alllooper(Window *w, void *v)
901 b3994ec5 2003-12-11 devnull Text *t;
902 b3994ec5 2003-12-11 devnull struct Looper *lp;
903 b3994ec5 2003-12-11 devnull Cmd *cp;
906 b3994ec5 2003-12-11 devnull cp = lp->cp;
907 b3994ec5 2003-12-11 devnull // if(w->isscratch || w->isdir)
908 b3994ec5 2003-12-11 devnull // return;
909 b3994ec5 2003-12-11 devnull t = &w->body;
910 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
911 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
913 b3994ec5 2003-12-11 devnull // if(w->nopen[QWevent] > 0)
914 b3994ec5 2003-12-11 devnull // return;
915 b3994ec5 2003-12-11 devnull /* no auto-execute on files without names */
916 b3994ec5 2003-12-11 devnull if(cp->re==nil && t->file->nname==0)
918 b3994ec5 2003-12-11 devnull if(cp->re==nil || filematch(t->file, cp->re)==lp->XY){
919 b3994ec5 2003-12-11 devnull lp->w = erealloc(lp->w, (lp->nw+1)*sizeof(Window*));
920 b3994ec5 2003-12-11 devnull lp->w[lp->nw++] = w;
925 b3994ec5 2003-12-11 devnull alllocker(Window *w, void *v)
928 b3994ec5 2003-12-11 devnull incref(&w->ref);
930 b3994ec5 2003-12-11 devnull winclose(w);
934 b3994ec5 2003-12-11 devnull filelooper(Cmd *cp, int XY)
938 b3994ec5 2003-12-11 devnull if(Glooping++)
939 b3994ec5 2003-12-11 devnull editerror("can't nest %c command", "YX"[XY]);
942 b3994ec5 2003-12-11 devnull loopstruct.cp = cp;
943 b3994ec5 2003-12-11 devnull loopstruct.XY = XY;
944 b3994ec5 2003-12-11 devnull if(loopstruct.w) /* error'ed out last time */
945 b3994ec5 2003-12-11 devnull free(loopstruct.w);
946 b3994ec5 2003-12-11 devnull loopstruct.w = nil;
947 b3994ec5 2003-12-11 devnull loopstruct.nw = 0;
948 b3994ec5 2003-12-11 devnull allwindows(alllooper, &loopstruct);
950 b3994ec5 2003-12-11 devnull * add a ref to all windows to keep safe windows accessed by X
951 b3994ec5 2003-12-11 devnull * that would not otherwise have a ref to hold them up during
952 5a8e63b2 2004-02-29 devnull * the shenanigans. note this with globalincref so that any
953 5a8e63b2 2004-02-29 devnull * newly created windows start with an extra reference.
955 b3994ec5 2003-12-11 devnull allwindows(alllocker, (void*)1);
956 5a8e63b2 2004-02-29 devnull globalincref = 1;
957 b3994ec5 2003-12-11 devnull for(i=0; i<loopstruct.nw; i++)
958 b3994ec5 2003-12-11 devnull cmdexec(&loopstruct.w[i]->body, cp->u.cmd);
959 b3994ec5 2003-12-11 devnull allwindows(alllocker, (void*)0);
960 5a8e63b2 2004-02-29 devnull globalincref = 0;
961 b3994ec5 2003-12-11 devnull free(loopstruct.w);
962 b3994ec5 2003-12-11 devnull loopstruct.w = nil;
964 b3994ec5 2003-12-11 devnull --Glooping;
969 b3994ec5 2003-12-11 devnull nextmatch(File *f, String *r, long p, int sign)
971 b3994ec5 2003-12-11 devnull if(rxcompile(r->r) == FALSE)
972 b3994ec5 2003-12-11 devnull editerror("bad regexp in command address");
973 b3994ec5 2003-12-11 devnull if(sign >= 0){
974 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, 0x7FFFFFFFL, &sel))
975 b3994ec5 2003-12-11 devnull editerror("no match for regexp");
976 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1 && sel.r[0].q0==p){
977 b3994ec5 2003-12-11 devnull if(++p>f->b.nc)
979 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, 0x7FFFFFFFL, &sel))
980 b3994ec5 2003-12-11 devnull editerror("address");
983 b3994ec5 2003-12-11 devnull if(!rxbexecute(f->curtext, p, &sel))
984 b3994ec5 2003-12-11 devnull editerror("no match for regexp");
985 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1 && sel.r[0].q1==p){
986 b3994ec5 2003-12-11 devnull if(--p<0)
987 b3994ec5 2003-12-11 devnull p = f->b.nc;
988 b3994ec5 2003-12-11 devnull if(!rxbexecute(f->curtext, p, &sel))
989 b3994ec5 2003-12-11 devnull editerror("address");
994 b3994ec5 2003-12-11 devnull File *matchfile(String*);
995 b3994ec5 2003-12-11 devnull Address charaddr(long, Address, int);
996 b3994ec5 2003-12-11 devnull Address lineaddr(long, Address, int);
999 b3994ec5 2003-12-11 devnull cmdaddress(Addr *ap, Address a, int sign)
1001 b3994ec5 2003-12-11 devnull File *f = a.f;
1002 b3994ec5 2003-12-11 devnull Address a1, a2;
1005 b3994ec5 2003-12-11 devnull switch(ap->type){
1006 b3994ec5 2003-12-11 devnull case 'l':
1007 b3994ec5 2003-12-11 devnull case '#':
1008 b3994ec5 2003-12-11 devnull a = (*(ap->type=='#'?charaddr:lineaddr))(ap->num, a, sign);
1011 b3994ec5 2003-12-11 devnull case '.':
1012 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
1015 b3994ec5 2003-12-11 devnull case '$':
1016 b3994ec5 2003-12-11 devnull a.r.q0 = a.r.q1 = f->b.nc;
1019 b3994ec5 2003-12-11 devnull case '\'':
1020 b3994ec5 2003-12-11 devnull editerror("can't handle '");
1021 b3994ec5 2003-12-11 devnull // a.r = f->mark;
1024 b3994ec5 2003-12-11 devnull case '?':
1025 b3994ec5 2003-12-11 devnull sign = -sign;
1026 b3994ec5 2003-12-11 devnull if(sign == 0)
1027 b3994ec5 2003-12-11 devnull sign = -1;
1028 b3994ec5 2003-12-11 devnull /* fall through */
1029 b3994ec5 2003-12-11 devnull case '/':
1030 b3994ec5 2003-12-11 devnull nextmatch(f, ap->u.re, sign>=0? a.r.q1 : a.r.q0, sign);
1031 b3994ec5 2003-12-11 devnull a.r = sel.r[0];
1034 b3994ec5 2003-12-11 devnull case '"':
1035 b3994ec5 2003-12-11 devnull f = matchfile(ap->u.re);
1036 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
1039 b3994ec5 2003-12-11 devnull case '*':
1040 b3994ec5 2003-12-11 devnull a.r.q0 = 0, a.r.q1 = f->b.nc;
1041 b3994ec5 2003-12-11 devnull return a;
1043 b3994ec5 2003-12-11 devnull case ',':
1044 b3994ec5 2003-12-11 devnull case ';':
1045 b3994ec5 2003-12-11 devnull if(ap->u.left)
1046 b3994ec5 2003-12-11 devnull a1 = cmdaddress(ap->u.left, a, 0);
1048 b3994ec5 2003-12-11 devnull a1.f = a.f, a1.r.q0 = a1.r.q1 = 0;
1049 b3994ec5 2003-12-11 devnull if(ap->type == ';'){
1050 b3994ec5 2003-12-11 devnull f = a1.f;
1051 b3994ec5 2003-12-11 devnull a = a1;
1052 b3994ec5 2003-12-11 devnull f->curtext->q0 = a1.r.q0;
1053 b3994ec5 2003-12-11 devnull f->curtext->q1 = a1.r.q1;
1055 b3994ec5 2003-12-11 devnull if(ap->next)
1056 b3994ec5 2003-12-11 devnull a2 = cmdaddress(ap->next, a, 0);
1058 b3994ec5 2003-12-11 devnull a2.f = a.f, a2.r.q0 = a2.r.q1 = f->b.nc;
1059 b3994ec5 2003-12-11 devnull if(a1.f != a2.f)
1060 b3994ec5 2003-12-11 devnull editerror("addresses in different files");
1061 b3994ec5 2003-12-11 devnull a.f = a1.f, a.r.q0 = a1.r.q0, a.r.q1 = a2.r.q1;
1062 b3994ec5 2003-12-11 devnull if(a.r.q1 < a.r.q0)
1063 b3994ec5 2003-12-11 devnull editerror("addresses out of order");
1064 b3994ec5 2003-12-11 devnull return a;
1066 b3994ec5 2003-12-11 devnull case '+':
1067 b3994ec5 2003-12-11 devnull case '-':
1068 b3994ec5 2003-12-11 devnull sign = 1;
1069 b3994ec5 2003-12-11 devnull if(ap->type == '-')
1070 b3994ec5 2003-12-11 devnull sign = -1;
1071 b3994ec5 2003-12-11 devnull if(ap->next==0 || ap->next->type=='+' || ap->next->type=='-')
1072 b3994ec5 2003-12-11 devnull a = lineaddr(1L, a, sign);
1074 b3994ec5 2003-12-11 devnull default:
1075 b3994ec5 2003-12-11 devnull error("cmdaddress");
1076 b3994ec5 2003-12-11 devnull return a;
1078 b3994ec5 2003-12-11 devnull }while(ap = ap->next); /* assign = */
1079 b3994ec5 2003-12-11 devnull return a;
1082 b3994ec5 2003-12-11 devnull struct Tofile{
1083 b3994ec5 2003-12-11 devnull File *f;
1084 b3994ec5 2003-12-11 devnull String *r;
1088 b3994ec5 2003-12-11 devnull alltofile(Window *w, void *v)
1090 b3994ec5 2003-12-11 devnull Text *t;
1091 b3994ec5 2003-12-11 devnull struct Tofile *tp;
1093 b3994ec5 2003-12-11 devnull tp = v;
1094 b3994ec5 2003-12-11 devnull if(tp->f != nil)
1095 b3994ec5 2003-12-11 devnull return;
1096 b3994ec5 2003-12-11 devnull if(w->isscratch || w->isdir)
1097 b3994ec5 2003-12-11 devnull return;
1098 b3994ec5 2003-12-11 devnull t = &w->body;
1099 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
1100 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
1101 b3994ec5 2003-12-11 devnull return;
1102 b3994ec5 2003-12-11 devnull // if(w->nopen[QWevent] > 0)
1103 b3994ec5 2003-12-11 devnull // return;
1104 b3994ec5 2003-12-11 devnull if(runeeq(tp->r->r, tp->r->n, t->file->name, t->file->nname))
1105 b3994ec5 2003-12-11 devnull tp->f = t->file;
1109 b3994ec5 2003-12-11 devnull tofile(String *r)
1111 b3994ec5 2003-12-11 devnull struct Tofile t;
1112 b3994ec5 2003-12-11 devnull String rr;
1114 b3994ec5 2003-12-11 devnull rr.r = skipbl(r->r, r->n, &rr.n);
1115 b3994ec5 2003-12-11 devnull t.f = nil;
1116 b3994ec5 2003-12-11 devnull t.r = &rr;
1117 b3994ec5 2003-12-11 devnull allwindows(alltofile, &t);
1118 b3994ec5 2003-12-11 devnull if(t.f == nil)
1119 b3994ec5 2003-12-11 devnull editerror("no such file\"%S\"", rr.r);
1120 b3994ec5 2003-12-11 devnull return t.f;
1124 b3994ec5 2003-12-11 devnull allmatchfile(Window *w, void *v)
1126 b3994ec5 2003-12-11 devnull struct Tofile *tp;
1127 b3994ec5 2003-12-11 devnull Text *t;
1129 b3994ec5 2003-12-11 devnull tp = v;
1130 b3994ec5 2003-12-11 devnull if(w->isscratch || w->isdir)
1131 b3994ec5 2003-12-11 devnull return;
1132 b3994ec5 2003-12-11 devnull t = &w->body;
1133 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
1134 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
1135 b3994ec5 2003-12-11 devnull return;
1136 b3994ec5 2003-12-11 devnull // if(w->nopen[QWevent] > 0)
1137 b3994ec5 2003-12-11 devnull // return;
1138 b3994ec5 2003-12-11 devnull if(filematch(w->body.file, tp->r)){
1139 b3994ec5 2003-12-11 devnull if(tp->f != nil)
1140 b3994ec5 2003-12-11 devnull editerror("too many files match \"%S\"", tp->r->r);
1141 b3994ec5 2003-12-11 devnull tp->f = w->body.file;
1146 b3994ec5 2003-12-11 devnull matchfile(String *r)
1148 b3994ec5 2003-12-11 devnull struct Tofile tf;
1150 b3994ec5 2003-12-11 devnull tf.f = nil;
1151 b3994ec5 2003-12-11 devnull tf.r = r;
1152 b3994ec5 2003-12-11 devnull allwindows(allmatchfile, &tf);
1154 b3994ec5 2003-12-11 devnull if(tf.f == nil)
1155 b3994ec5 2003-12-11 devnull editerror("no file matches \"%S\"", r->r);
1156 b3994ec5 2003-12-11 devnull return tf.f;
1160 b3994ec5 2003-12-11 devnull filematch(File *f, String *r)
1162 b3994ec5 2003-12-11 devnull char *buf;
1163 b3994ec5 2003-12-11 devnull Rune *rbuf;
1164 b3994ec5 2003-12-11 devnull Window *w;
1165 b3994ec5 2003-12-11 devnull int match, i, dirty;
1166 b3994ec5 2003-12-11 devnull Rangeset s;
1168 b3994ec5 2003-12-11 devnull /* compile expr first so if we get an error, we haven't allocated anything */
1169 b3994ec5 2003-12-11 devnull if(rxcompile(r->r) == FALSE)
1170 b3994ec5 2003-12-11 devnull editerror("bad regexp in file match");
1171 b3994ec5 2003-12-11 devnull buf = fbufalloc();
1172 b3994ec5 2003-12-11 devnull w = f->curtext->w;
1173 b3994ec5 2003-12-11 devnull /* same check for dirty as in settag, but we know ncache==0 */
1174 b3994ec5 2003-12-11 devnull dirty = !w->isdir && !w->isscratch && f->mod;
1175 b3994ec5 2003-12-11 devnull snprint(buf, BUFSIZE, "%c%c%c %.*S\n", " '"[dirty],
1176 b3994ec5 2003-12-11 devnull '+', " ."[curtext!=nil && curtext->file==f], f->nname, f->name);
1177 b3994ec5 2003-12-11 devnull rbuf = bytetorune(buf, &i);
1178 b3994ec5 2003-12-11 devnull fbuffree(buf);
1179 b3994ec5 2003-12-11 devnull match = rxexecute(nil, rbuf, 0, i, &s);
1180 b3994ec5 2003-12-11 devnull free(rbuf);
1181 b3994ec5 2003-12-11 devnull return match;
1184 b3994ec5 2003-12-11 devnull Address
1185 b3994ec5 2003-12-11 devnull charaddr(long l, Address addr, int sign)
1187 b3994ec5 2003-12-11 devnull if(sign == 0)
1188 b3994ec5 2003-12-11 devnull addr.r.q0 = addr.r.q1 = l;
1189 b3994ec5 2003-12-11 devnull else if(sign < 0)
1190 b3994ec5 2003-12-11 devnull addr.r.q1 = addr.r.q0 -= l;
1191 b3994ec5 2003-12-11 devnull else if(sign > 0)
1192 b3994ec5 2003-12-11 devnull addr.r.q0 = addr.r.q1 += l;
1193 b3994ec5 2003-12-11 devnull if(addr.r.q0<0 || addr.r.q1>addr.f->b.nc)
1194 b3994ec5 2003-12-11 devnull editerror("address out of range");
1195 b3994ec5 2003-12-11 devnull return addr;
1198 b3994ec5 2003-12-11 devnull Address
1199 b3994ec5 2003-12-11 devnull lineaddr(long l, Address addr, int sign)
1203 b3994ec5 2003-12-11 devnull File *f = addr.f;
1204 b3994ec5 2003-12-11 devnull Address a;
1205 b3994ec5 2003-12-11 devnull long p;
1207 b3994ec5 2003-12-11 devnull a.f = f;
1208 b3994ec5 2003-12-11 devnull if(sign >= 0){
1209 b3994ec5 2003-12-11 devnull if(l == 0){
1210 b3994ec5 2003-12-11 devnull if(sign==0 || addr.r.q1==0){
1211 b3994ec5 2003-12-11 devnull a.r.q0 = a.r.q1 = 0;
1212 b3994ec5 2003-12-11 devnull return a;
1214 b3994ec5 2003-12-11 devnull a.r.q0 = addr.r.q1;
1215 b3994ec5 2003-12-11 devnull p = addr.r.q1-1;
1217 b3994ec5 2003-12-11 devnull if(sign==0 || addr.r.q1==0){
1221 b3994ec5 2003-12-11 devnull p = addr.r.q1-1;
1222 b3994ec5 2003-12-11 devnull n = textreadc(f->curtext, p++)=='\n';
1224 b3994ec5 2003-12-11 devnull while(n < l){
1225 b3994ec5 2003-12-11 devnull if(p >= f->b.nc)
1226 b3994ec5 2003-12-11 devnull editerror("address out of range");
1227 b3994ec5 2003-12-11 devnull if(textreadc(f->curtext, p++) == '\n')
1230 b3994ec5 2003-12-11 devnull a.r.q0 = p;
1232 b3994ec5 2003-12-11 devnull while(p < f->b.nc && textreadc(f->curtext, p++)!='\n')
1234 b3994ec5 2003-12-11 devnull a.r.q1 = p;
1236 b3994ec5 2003-12-11 devnull p = addr.r.q0;
1237 b3994ec5 2003-12-11 devnull if(l == 0)
1238 b3994ec5 2003-12-11 devnull a.r.q1 = addr.r.q0;
1240 b3994ec5 2003-12-11 devnull for(n = 0; n<l; ){ /* always runs once */
1241 b3994ec5 2003-12-11 devnull if(p == 0){
1242 b3994ec5 2003-12-11 devnull if(++n != l)
1243 b3994ec5 2003-12-11 devnull editerror("address out of range");
1245 b3994ec5 2003-12-11 devnull c = textreadc(f->curtext, p-1);
1246 b3994ec5 2003-12-11 devnull if(c != '\n' || ++n != l)
1250 b3994ec5 2003-12-11 devnull a.r.q1 = p;
1251 b3994ec5 2003-12-11 devnull if(p > 0)
1254 b3994ec5 2003-12-11 devnull while(p > 0 && textreadc(f->curtext, p-1)!='\n') /* lines start after a newline */
1256 b3994ec5 2003-12-11 devnull a.r.q0 = p;
1258 b3994ec5 2003-12-11 devnull return a;
1261 b3994ec5 2003-12-11 devnull struct Filecheck
1263 b3994ec5 2003-12-11 devnull File *f;
1264 b3994ec5 2003-12-11 devnull Rune *r;
1265 b3994ec5 2003-12-11 devnull int nr;
1269 b3994ec5 2003-12-11 devnull allfilecheck(Window *w, void *v)
1271 b3994ec5 2003-12-11 devnull struct Filecheck *fp;
1272 b3994ec5 2003-12-11 devnull File *f;
1274 b3994ec5 2003-12-11 devnull fp = v;
1275 b3994ec5 2003-12-11 devnull f = w->body.file;
1276 b3994ec5 2003-12-11 devnull if(w->body.file == fp->f)
1277 b3994ec5 2003-12-11 devnull return;
1278 b3994ec5 2003-12-11 devnull if(runeeq(fp->r, fp->nr, f->name, f->nname))
1279 b3994ec5 2003-12-11 devnull warning(nil, "warning: duplicate file name \"%.*S\"\n", fp->nr, fp->r);
1283 b3994ec5 2003-12-11 devnull cmdname(File *f, String *str, int set)
1285 b3994ec5 2003-12-11 devnull Rune *r, *s;
1287 b3994ec5 2003-12-11 devnull struct Filecheck fc;
1288 b3994ec5 2003-12-11 devnull Runestr newname;
1290 b3994ec5 2003-12-11 devnull r = nil;
1291 b3994ec5 2003-12-11 devnull n = str->n;
1292 b3994ec5 2003-12-11 devnull s = str->r;
1293 b3994ec5 2003-12-11 devnull if(n == 0){
1294 b3994ec5 2003-12-11 devnull /* no name; use existing */
1295 b3994ec5 2003-12-11 devnull if(f->nname == 0)
1296 b3994ec5 2003-12-11 devnull return nil;
1297 b3994ec5 2003-12-11 devnull r = runemalloc(f->nname+1);
1298 b3994ec5 2003-12-11 devnull runemove(r, f->name, f->nname);
1299 b3994ec5 2003-12-11 devnull return r;
1301 b3994ec5 2003-12-11 devnull s = skipbl(s, n, &n);
1302 b3994ec5 2003-12-11 devnull if(n == 0)
1303 b3994ec5 2003-12-11 devnull goto Return;
1305 b3994ec5 2003-12-11 devnull if(s[0] == '/'){
1306 b3994ec5 2003-12-11 devnull r = runemalloc(n+1);
1307 b3994ec5 2003-12-11 devnull runemove(r, s, n);
1309 b3994ec5 2003-12-11 devnull newname = dirname(f->curtext, runestrdup(s), n);
1310 b3994ec5 2003-12-11 devnull r = newname.r;
1311 b3994ec5 2003-12-11 devnull n = newname.nr;
1313 b3994ec5 2003-12-11 devnull fc.f = f;
1314 b3994ec5 2003-12-11 devnull fc.r = r;
1315 b3994ec5 2003-12-11 devnull fc.nr = n;
1316 b3994ec5 2003-12-11 devnull allwindows(allfilecheck, &fc);
1317 b3994ec5 2003-12-11 devnull if(f->nname == 0)
1318 b3994ec5 2003-12-11 devnull set = TRUE;
1320 b3994ec5 2003-12-11 devnull Return:
1321 b3994ec5 2003-12-11 devnull if(set && !runeeq(r, n, f->name, f->nname)){
1322 b3994ec5 2003-12-11 devnull filemark(f);
1323 b3994ec5 2003-12-11 devnull f->mod = TRUE;
1324 b3994ec5 2003-12-11 devnull f->curtext->w->dirty = TRUE;
1325 b3994ec5 2003-12-11 devnull winsetname(f->curtext->w, r, n);
1327 b3994ec5 2003-12-11 devnull return r;