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);
420 b3994ec5 2003-12-11 devnull error("move overlaps itself");
424 b3994ec5 2003-12-11 devnull m_cmd(Text *t, Cmd *cp)
426 b3994ec5 2003-12-11 devnull Address dot, addr2;
428 b3994ec5 2003-12-11 devnull mkaddr(&dot, t->file);
429 b3994ec5 2003-12-11 devnull addr2 = cmdaddress(cp->u.mtaddr, dot, 0);
430 b3994ec5 2003-12-11 devnull if(cp->cmdc == 'm')
431 b3994ec5 2003-12-11 devnull move(t->file, addr2);
433 b3994ec5 2003-12-11 devnull copy(t->file, addr2);
434 b3994ec5 2003-12-11 devnull return TRUE;
438 b3994ec5 2003-12-11 devnull p_cmd(Text *t, Cmd *cp)
440 b3994ec5 2003-12-11 devnull USED(cp);
441 b3994ec5 2003-12-11 devnull return pdisplay(t->file);
445 b3994ec5 2003-12-11 devnull s_cmd(Text *t, Cmd *cp)
447 b3994ec5 2003-12-11 devnull int i, j, k, c, m, n, nrp, didsub;
448 b3994ec5 2003-12-11 devnull long p1, op, delta;
449 b3994ec5 2003-12-11 devnull String *buf;
450 b3994ec5 2003-12-11 devnull Rangeset *rp;
451 b3994ec5 2003-12-11 devnull char *err;
452 b3994ec5 2003-12-11 devnull Rune *rbuf;
454 b3994ec5 2003-12-11 devnull n = cp->num;
456 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
457 b3994ec5 2003-12-11 devnull editerror("bad regexp in s command");
458 b3994ec5 2003-12-11 devnull nrp = 0;
459 b3994ec5 2003-12-11 devnull rp = nil;
460 b3994ec5 2003-12-11 devnull delta = 0;
461 b3994ec5 2003-12-11 devnull didsub = FALSE;
462 b3994ec5 2003-12-11 devnull for(p1 = addr.r.q0; p1<=addr.r.q1 && rxexecute(t, nil, p1, addr.r.q1, &sel); ){
463 b3994ec5 2003-12-11 devnull if(sel.r[0].q0 == sel.r[0].q1){ /* empty match? */
464 b3994ec5 2003-12-11 devnull if(sel.r[0].q0 == op){
466 b3994ec5 2003-12-11 devnull continue;
468 b3994ec5 2003-12-11 devnull p1 = sel.r[0].q1+1;
470 b3994ec5 2003-12-11 devnull p1 = sel.r[0].q1;
471 b3994ec5 2003-12-11 devnull op = sel.r[0].q1;
472 b3994ec5 2003-12-11 devnull if(--n>0)
473 b3994ec5 2003-12-11 devnull continue;
475 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Rangeset));
476 b3994ec5 2003-12-11 devnull rp[nrp-1] = sel;
478 b3994ec5 2003-12-11 devnull rbuf = fbufalloc();
479 b3994ec5 2003-12-11 devnull buf = allocstring(0);
480 b3994ec5 2003-12-11 devnull for(m=0; m<nrp; m++){
481 b3994ec5 2003-12-11 devnull buf->n = 0;
482 bb0266fe 2005-05-07 devnull buf->r[0] = '\0';
483 b3994ec5 2003-12-11 devnull sel = rp[m];
484 b3994ec5 2003-12-11 devnull for(i = 0; i<cp->u.text->n; i++)
485 b3994ec5 2003-12-11 devnull if((c = cp->u.text->r[i])=='\\' && i<cp->u.text->n-1){
486 b3994ec5 2003-12-11 devnull c = cp->u.text->r[++i];
487 b3994ec5 2003-12-11 devnull if('1'<=c && c<='9') {
488 b3994ec5 2003-12-11 devnull j = c-'0';
489 b3994ec5 2003-12-11 devnull if(sel.r[j].q1-sel.r[j].q0>RBUFSIZE){
490 b3994ec5 2003-12-11 devnull err = "replacement string too long";
491 b3994ec5 2003-12-11 devnull goto Err;
493 b3994ec5 2003-12-11 devnull bufread(&t->file->b, sel.r[j].q0, rbuf, sel.r[j].q1-sel.r[j].q0);
494 b3994ec5 2003-12-11 devnull for(k=0; k<sel.r[j].q1-sel.r[j].q0; k++)
495 b3994ec5 2003-12-11 devnull Straddc(buf, rbuf[k]);
497 b3994ec5 2003-12-11 devnull Straddc(buf, c);
498 b3994ec5 2003-12-11 devnull }else if(c!='&')
499 b3994ec5 2003-12-11 devnull Straddc(buf, c);
501 b3994ec5 2003-12-11 devnull if(sel.r[0].q1-sel.r[0].q0>RBUFSIZE){
502 b3994ec5 2003-12-11 devnull err = "right hand side too long in substitution";
503 b3994ec5 2003-12-11 devnull goto Err;
505 b3994ec5 2003-12-11 devnull bufread(&t->file->b, sel.r[0].q0, rbuf, sel.r[0].q1-sel.r[0].q0);
506 b3994ec5 2003-12-11 devnull for(k=0; k<sel.r[0].q1-sel.r[0].q0; k++)
507 b3994ec5 2003-12-11 devnull Straddc(buf, rbuf[k]);
509 b3994ec5 2003-12-11 devnull elogreplace(t->file, sel.r[0].q0, sel.r[0].q1, buf->r, buf->n);
510 b3994ec5 2003-12-11 devnull delta -= sel.r[0].q1-sel.r[0].q0;
511 b3994ec5 2003-12-11 devnull delta += buf->n;
512 b3994ec5 2003-12-11 devnull didsub = 1;
513 b3994ec5 2003-12-11 devnull if(!cp->flag)
516 b3994ec5 2003-12-11 devnull free(rp);
517 b3994ec5 2003-12-11 devnull freestring(buf);
518 b3994ec5 2003-12-11 devnull fbuffree(rbuf);
519 b3994ec5 2003-12-11 devnull if(!didsub && nest==0)
520 b3994ec5 2003-12-11 devnull editerror("no substitution");
521 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
522 5e77b8bb 2005-03-23 devnull t->q1 = addr.r.q1;
523 b3994ec5 2003-12-11 devnull return TRUE;
526 b3994ec5 2003-12-11 devnull free(rp);
527 b3994ec5 2003-12-11 devnull freestring(buf);
528 b3994ec5 2003-12-11 devnull fbuffree(rbuf);
529 b3994ec5 2003-12-11 devnull editerror(err);
530 b3994ec5 2003-12-11 devnull return FALSE;
534 b3994ec5 2003-12-11 devnull u_cmd(Text *t, Cmd *cp)
536 b3994ec5 2003-12-11 devnull int n, oseq, flag;
538 b3994ec5 2003-12-11 devnull n = cp->num;
539 b3994ec5 2003-12-11 devnull flag = TRUE;
540 b3994ec5 2003-12-11 devnull if(n < 0){
542 b3994ec5 2003-12-11 devnull flag = FALSE;
544 b3994ec5 2003-12-11 devnull oseq = -1;
545 b3994ec5 2003-12-11 devnull while(n-->0 && t->file->seq!=0 && t->file->seq!=oseq){
546 b3994ec5 2003-12-11 devnull oseq = t->file->seq;
547 b3994ec5 2003-12-11 devnull undo(t, nil, nil, flag, 0, nil, 0);
549 b3994ec5 2003-12-11 devnull return TRUE;
553 b3994ec5 2003-12-11 devnull w_cmd(Text *t, Cmd *cp)
555 b3994ec5 2003-12-11 devnull Rune *r;
556 b3994ec5 2003-12-11 devnull File *f;
558 b3994ec5 2003-12-11 devnull f = t->file;
559 b3994ec5 2003-12-11 devnull if(f->seq == seq)
560 b3994ec5 2003-12-11 devnull editerror("can't write file with pending modifications");
561 b3994ec5 2003-12-11 devnull r = cmdname(f, cp->u.text, FALSE);
562 b3994ec5 2003-12-11 devnull if(r == nil)
563 b3994ec5 2003-12-11 devnull editerror("no name specified for 'w' command");
564 b3994ec5 2003-12-11 devnull putfile(f, addr.r.q0, addr.r.q1, r, runestrlen(r));
565 b3994ec5 2003-12-11 devnull /* r is freed by putfile */
566 b3994ec5 2003-12-11 devnull return TRUE;
570 b3994ec5 2003-12-11 devnull x_cmd(Text *t, Cmd *cp)
572 b3994ec5 2003-12-11 devnull if(cp->re)
573 b3994ec5 2003-12-11 devnull looper(t->file, cp, cp->cmdc=='x');
575 b3994ec5 2003-12-11 devnull linelooper(t->file, cp);
576 b3994ec5 2003-12-11 devnull return TRUE;
580 b3994ec5 2003-12-11 devnull X_cmd(Text *t, Cmd *cp)
582 b3994ec5 2003-12-11 devnull USED(t);
584 b3994ec5 2003-12-11 devnull filelooper(cp, cp->cmdc=='X');
585 b3994ec5 2003-12-11 devnull return TRUE;
589 b3994ec5 2003-12-11 devnull runpipe(Text *t, int cmd, Rune *cr, int ncr, int state)
591 b3994ec5 2003-12-11 devnull Rune *r, *s;
593 b3994ec5 2003-12-11 devnull Runestr dir;
594 b3994ec5 2003-12-11 devnull Window *w;
596 b3994ec5 2003-12-11 devnull r = skipbl(cr, ncr, &n);
597 b3994ec5 2003-12-11 devnull if(n == 0)
598 5a8e63b2 2004-02-29 devnull editerror("no command specified for %c", cmd);
599 b3994ec5 2003-12-11 devnull w = nil;
600 b3994ec5 2003-12-11 devnull if(state == Inserting){
601 b3994ec5 2003-12-11 devnull w = t->w;
602 b3994ec5 2003-12-11 devnull t->q0 = addr.r.q0;
603 b3994ec5 2003-12-11 devnull t->q1 = addr.r.q1;
604 b3994ec5 2003-12-11 devnull if(cmd == '<' || cmd=='|')
605 b3994ec5 2003-12-11 devnull elogdelete(t->file, t->q0, t->q1);
607 b3994ec5 2003-12-11 devnull s = runemalloc(n+2);
608 b3994ec5 2003-12-11 devnull s[0] = cmd;
609 b3994ec5 2003-12-11 devnull runemove(s+1, r, n);
611 b3994ec5 2003-12-11 devnull dir.r = nil;
612 b3994ec5 2003-12-11 devnull dir.nr = 0;
613 b3994ec5 2003-12-11 devnull if(t != nil)
614 b3994ec5 2003-12-11 devnull dir = dirname(t, nil, 0);
615 b3994ec5 2003-12-11 devnull if(dir.nr==1 && dir.r[0]=='.'){ /* sigh */
616 b3994ec5 2003-12-11 devnull free(dir.r);
617 b3994ec5 2003-12-11 devnull dir.r = nil;
618 b3994ec5 2003-12-11 devnull dir.nr = 0;
620 b3994ec5 2003-12-11 devnull editing = state;
621 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
622 b3994ec5 2003-12-11 devnull incref(&t->w->ref); /* run will decref */
623 b3994ec5 2003-12-11 devnull run(w, runetobyte(s, n), dir.r, dir.nr, TRUE, nil, nil, TRUE);
624 b3994ec5 2003-12-11 devnull free(s);
625 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
626 b3994ec5 2003-12-11 devnull winunlock(t->w);
627 b3994ec5 2003-12-11 devnull qunlock(&row.lk);
628 b3994ec5 2003-12-11 devnull recvul(cedit);
629 b3994ec5 2003-12-11 devnull qlock(&row.lk);
630 b3994ec5 2003-12-11 devnull editing = Inactive;
631 b3994ec5 2003-12-11 devnull if(t!=nil && t->w!=nil)
632 b3994ec5 2003-12-11 devnull winlock(t->w, 'M');
636 b3994ec5 2003-12-11 devnull pipe_cmd(Text *t, Cmd *cp)
638 b3994ec5 2003-12-11 devnull runpipe(t, cp->cmdc, cp->u.text->r, cp->u.text->n, Inserting);
639 b3994ec5 2003-12-11 devnull return TRUE;
643 b3994ec5 2003-12-11 devnull nlcount(Text *t, long q0, long q1)
645 b3994ec5 2003-12-11 devnull long nl;
646 b3994ec5 2003-12-11 devnull Rune *buf;
647 b3994ec5 2003-12-11 devnull int i, nbuf;
649 b3994ec5 2003-12-11 devnull buf = fbufalloc();
650 b3994ec5 2003-12-11 devnull nbuf = 0;
651 b3994ec5 2003-12-11 devnull i = nl = 0;
652 b3994ec5 2003-12-11 devnull while(q0 < q1){
653 b3994ec5 2003-12-11 devnull if(i == nbuf){
654 b3994ec5 2003-12-11 devnull nbuf = q1-q0;
655 b3994ec5 2003-12-11 devnull if(nbuf > RBUFSIZE)
656 b3994ec5 2003-12-11 devnull nbuf = RBUFSIZE;
657 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, buf, nbuf);
660 b3994ec5 2003-12-11 devnull if(buf[i++] == '\n')
664 b3994ec5 2003-12-11 devnull fbuffree(buf);
665 b3994ec5 2003-12-11 devnull return nl;
669 b3994ec5 2003-12-11 devnull printposn(Text *t, int charsonly)
671 b3994ec5 2003-12-11 devnull long l1, l2;
673 b3994ec5 2003-12-11 devnull if (t != nil && t->file != nil && t->file->name != nil)
674 b3994ec5 2003-12-11 devnull warning(nil, "%.*S:", t->file->nname, t->file->name);
675 b3994ec5 2003-12-11 devnull if(!charsonly){
676 b3994ec5 2003-12-11 devnull l1 = 1+nlcount(t, 0, addr.r.q0);
677 b3994ec5 2003-12-11 devnull l2 = l1+nlcount(t, addr.r.q0, addr.r.q1);
678 b3994ec5 2003-12-11 devnull /* check if addr ends with '\n' */
679 b3994ec5 2003-12-11 devnull if(addr.r.q1>0 && addr.r.q1>addr.r.q0 && textreadc(t, addr.r.q1-1)=='\n')
681 b3994ec5 2003-12-11 devnull warning(nil, "%lud", l1);
682 b3994ec5 2003-12-11 devnull if(l2 != l1)
683 b3994ec5 2003-12-11 devnull warning(nil, ",%lud", l2);
684 b3994ec5 2003-12-11 devnull warning(nil, "\n");
687 b3994ec5 2003-12-11 devnull warning(nil, "#%d", addr.r.q0);
688 b3994ec5 2003-12-11 devnull if(addr.r.q1 != addr.r.q0)
689 b3994ec5 2003-12-11 devnull warning(nil, ",#%d", addr.r.q1);
690 b3994ec5 2003-12-11 devnull warning(nil, "\n");
694 b3994ec5 2003-12-11 devnull eq_cmd(Text *t, Cmd *cp)
696 b3994ec5 2003-12-11 devnull int charsonly;
698 b3994ec5 2003-12-11 devnull switch(cp->u.text->n){
700 b3994ec5 2003-12-11 devnull charsonly = FALSE;
703 b3994ec5 2003-12-11 devnull if(cp->u.text->r[0] == '#'){
704 b3994ec5 2003-12-11 devnull charsonly = TRUE;
707 b3994ec5 2003-12-11 devnull default:
708 b3994ec5 2003-12-11 devnull SET(charsonly);
709 b3994ec5 2003-12-11 devnull editerror("newline expected");
711 b3994ec5 2003-12-11 devnull printposn(t, charsonly);
712 b3994ec5 2003-12-11 devnull return TRUE;
716 b3994ec5 2003-12-11 devnull nl_cmd(Text *t, Cmd *cp)
718 b3994ec5 2003-12-11 devnull Address a;
719 b3994ec5 2003-12-11 devnull File *f;
721 b3994ec5 2003-12-11 devnull f = t->file;
722 b3994ec5 2003-12-11 devnull if(cp->addr == 0){
723 b3994ec5 2003-12-11 devnull /* First put it on newline boundaries */
724 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
725 b3994ec5 2003-12-11 devnull addr = lineaddr(0, a, -1);
726 b3994ec5 2003-12-11 devnull a = lineaddr(0, a, 1);
727 b3994ec5 2003-12-11 devnull addr.r.q1 = a.r.q1;
728 b3994ec5 2003-12-11 devnull if(addr.r.q0==t->q0 && addr.r.q1==t->q1){
729 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
730 b3994ec5 2003-12-11 devnull addr = lineaddr(1, a, 1);
733 b3994ec5 2003-12-11 devnull textshow(t, addr.r.q0, addr.r.q1, 1);
734 b3994ec5 2003-12-11 devnull return TRUE;
738 b3994ec5 2003-12-11 devnull append(File *f, Cmd *cp, long p)
740 b3994ec5 2003-12-11 devnull if(cp->u.text->n > 0)
741 b3994ec5 2003-12-11 devnull eloginsert(f, p, cp->u.text->r, cp->u.text->n);
742 b3994ec5 2003-12-11 devnull f->curtext->q0 = p;
743 5e77b8bb 2005-03-23 devnull f->curtext->q1 = p;
744 b3994ec5 2003-12-11 devnull return TRUE;
748 b3994ec5 2003-12-11 devnull pdisplay(File *f)
750 b3994ec5 2003-12-11 devnull long p1, p2;
752 b3994ec5 2003-12-11 devnull Rune *buf;
754 b3994ec5 2003-12-11 devnull p1 = addr.r.q0;
755 b3994ec5 2003-12-11 devnull p2 = addr.r.q1;
756 b3994ec5 2003-12-11 devnull if(p2 > f->b.nc)
757 b3994ec5 2003-12-11 devnull p2 = f->b.nc;
758 b3994ec5 2003-12-11 devnull buf = fbufalloc();
759 b3994ec5 2003-12-11 devnull while(p1 < p2){
760 b3994ec5 2003-12-11 devnull np = p2-p1;
761 b3994ec5 2003-12-11 devnull if(np>RBUFSIZE-1)
762 b3994ec5 2003-12-11 devnull np = RBUFSIZE-1;
763 b3994ec5 2003-12-11 devnull bufread(&f->b, p1, buf, np);
764 bb0266fe 2005-05-07 devnull buf[np] = '\0';
765 b3994ec5 2003-12-11 devnull warning(nil, "%S", buf);
766 b3994ec5 2003-12-11 devnull p1 += np;
768 b3994ec5 2003-12-11 devnull fbuffree(buf);
769 b3994ec5 2003-12-11 devnull f->curtext->q0 = addr.r.q0;
770 b3994ec5 2003-12-11 devnull f->curtext->q1 = addr.r.q1;
771 b3994ec5 2003-12-11 devnull return TRUE;
775 b3994ec5 2003-12-11 devnull pfilename(File *f)
777 b3994ec5 2003-12-11 devnull int dirty;
778 b3994ec5 2003-12-11 devnull Window *w;
780 b3994ec5 2003-12-11 devnull w = f->curtext->w;
781 b3994ec5 2003-12-11 devnull /* same check for dirty as in settag, but we know ncache==0 */
782 b3994ec5 2003-12-11 devnull dirty = !w->isdir && !w->isscratch && f->mod;
783 b3994ec5 2003-12-11 devnull warning(nil, "%c%c%c %.*S\n", " '"[dirty],
784 b3994ec5 2003-12-11 devnull '+', " ."[curtext!=nil && curtext->file==f], f->nname, f->name);
788 b3994ec5 2003-12-11 devnull loopcmd(File *f, Cmd *cp, Range *rp, long nrp)
792 b3994ec5 2003-12-11 devnull for(i=0; i<nrp; i++){
793 b3994ec5 2003-12-11 devnull f->curtext->q0 = rp[i].q0;
794 b3994ec5 2003-12-11 devnull f->curtext->q1 = rp[i].q1;
795 b3994ec5 2003-12-11 devnull cmdexec(f->curtext, cp);
800 b3994ec5 2003-12-11 devnull looper(File *f, Cmd *cp, int xy)
802 b3994ec5 2003-12-11 devnull long p, op, nrp;
803 b3994ec5 2003-12-11 devnull Range r, tr;
804 b3994ec5 2003-12-11 devnull Range *rp;
806 b3994ec5 2003-12-11 devnull r = addr.r;
807 b3994ec5 2003-12-11 devnull op= xy? -1 : r.q0;
809 b3994ec5 2003-12-11 devnull if(rxcompile(cp->re->r) == FALSE)
810 b3994ec5 2003-12-11 devnull editerror("bad regexp in %c command", cp->cmdc);
811 b3994ec5 2003-12-11 devnull nrp = 0;
812 b3994ec5 2003-12-11 devnull rp = nil;
813 b3994ec5 2003-12-11 devnull for(p = r.q0; p<=r.q1; ){
814 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, r.q1, &sel)){ /* no match, but y should still run */
815 b3994ec5 2003-12-11 devnull if(xy || op>r.q1)
817 b3994ec5 2003-12-11 devnull tr.q0 = op, tr.q1 = r.q1;
818 b3994ec5 2003-12-11 devnull p = r.q1+1; /* exit next loop */
820 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1){ /* empty match? */
821 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==op){
823 b3994ec5 2003-12-11 devnull continue;
825 b3994ec5 2003-12-11 devnull p = sel.r[0].q1+1;
827 b3994ec5 2003-12-11 devnull p = sel.r[0].q1;
829 b3994ec5 2003-12-11 devnull tr = sel.r[0];
831 b3994ec5 2003-12-11 devnull tr.q0 = op, tr.q1 = sel.r[0].q0;
833 b3994ec5 2003-12-11 devnull op = sel.r[0].q1;
835 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Range));
836 b3994ec5 2003-12-11 devnull rp[nrp-1] = tr;
838 b3994ec5 2003-12-11 devnull loopcmd(f, cp->u.cmd, rp, nrp);
839 b3994ec5 2003-12-11 devnull free(rp);
844 b3994ec5 2003-12-11 devnull linelooper(File *f, Cmd *cp)
846 b3994ec5 2003-12-11 devnull long nrp, p;
847 b3994ec5 2003-12-11 devnull Range r, linesel;
848 b3994ec5 2003-12-11 devnull Address a, a3;
849 b3994ec5 2003-12-11 devnull Range *rp;
852 b3994ec5 2003-12-11 devnull nrp = 0;
853 b3994ec5 2003-12-11 devnull rp = nil;
854 b3994ec5 2003-12-11 devnull r = addr.r;
855 b3994ec5 2003-12-11 devnull a3.f = f;
856 b3994ec5 2003-12-11 devnull a3.r.q0 = a3.r.q1 = r.q0;
857 b3994ec5 2003-12-11 devnull a = lineaddr(0, a3, 1);
858 b3994ec5 2003-12-11 devnull linesel = a.r;
859 b3994ec5 2003-12-11 devnull for(p = r.q0; p<r.q1; p = a3.r.q1){
860 b3994ec5 2003-12-11 devnull a3.r.q0 = a3.r.q1;
861 b3994ec5 2003-12-11 devnull if(p!=r.q0 || linesel.q1==p){
862 b3994ec5 2003-12-11 devnull a = lineaddr(1, a3, 1);
863 b3994ec5 2003-12-11 devnull linesel = a.r;
865 b3994ec5 2003-12-11 devnull if(linesel.q0 >= r.q1)
867 b3994ec5 2003-12-11 devnull if(linesel.q1 >= r.q1)
868 b3994ec5 2003-12-11 devnull linesel.q1 = r.q1;
869 b3994ec5 2003-12-11 devnull if(linesel.q1 > linesel.q0)
870 b3994ec5 2003-12-11 devnull if(linesel.q0>=a3.r.q1 && linesel.q1>a3.r.q1){
871 b3994ec5 2003-12-11 devnull a3.r = linesel;
873 b3994ec5 2003-12-11 devnull rp = erealloc(rp, nrp*sizeof(Range));
874 b3994ec5 2003-12-11 devnull rp[nrp-1] = linesel;
875 b3994ec5 2003-12-11 devnull continue;
879 b3994ec5 2003-12-11 devnull loopcmd(f, cp->u.cmd, rp, nrp);
880 b3994ec5 2003-12-11 devnull free(rp);
884 b3994ec5 2003-12-11 devnull struct Looper
886 b3994ec5 2003-12-11 devnull Cmd *cp;
888 b3994ec5 2003-12-11 devnull Window **w;
890 b3994ec5 2003-12-11 devnull } loopstruct; /* only one; X and Y can't nest */
893 b3994ec5 2003-12-11 devnull alllooper(Window *w, void *v)
895 b3994ec5 2003-12-11 devnull Text *t;
896 b3994ec5 2003-12-11 devnull struct Looper *lp;
897 b3994ec5 2003-12-11 devnull Cmd *cp;
900 b3994ec5 2003-12-11 devnull cp = lp->cp;
901 b3994ec5 2003-12-11 devnull // if(w->isscratch || w->isdir)
902 b3994ec5 2003-12-11 devnull // return;
903 b3994ec5 2003-12-11 devnull t = &w->body;
904 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
905 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
907 b3994ec5 2003-12-11 devnull // if(w->nopen[QWevent] > 0)
908 b3994ec5 2003-12-11 devnull // return;
909 b3994ec5 2003-12-11 devnull /* no auto-execute on files without names */
910 b3994ec5 2003-12-11 devnull if(cp->re==nil && t->file->nname==0)
912 b3994ec5 2003-12-11 devnull if(cp->re==nil || filematch(t->file, cp->re)==lp->XY){
913 b3994ec5 2003-12-11 devnull lp->w = erealloc(lp->w, (lp->nw+1)*sizeof(Window*));
914 b3994ec5 2003-12-11 devnull lp->w[lp->nw++] = w;
919 b3994ec5 2003-12-11 devnull alllocker(Window *w, void *v)
922 b3994ec5 2003-12-11 devnull incref(&w->ref);
924 b3994ec5 2003-12-11 devnull winclose(w);
928 b3994ec5 2003-12-11 devnull filelooper(Cmd *cp, int XY)
932 b3994ec5 2003-12-11 devnull if(Glooping++)
933 b3994ec5 2003-12-11 devnull editerror("can't nest %c command", "YX"[XY]);
936 b3994ec5 2003-12-11 devnull loopstruct.cp = cp;
937 b3994ec5 2003-12-11 devnull loopstruct.XY = XY;
938 b3994ec5 2003-12-11 devnull if(loopstruct.w) /* error'ed out last time */
939 b3994ec5 2003-12-11 devnull free(loopstruct.w);
940 b3994ec5 2003-12-11 devnull loopstruct.w = nil;
941 b3994ec5 2003-12-11 devnull loopstruct.nw = 0;
942 b3994ec5 2003-12-11 devnull allwindows(alllooper, &loopstruct);
944 b3994ec5 2003-12-11 devnull * add a ref to all windows to keep safe windows accessed by X
945 b3994ec5 2003-12-11 devnull * that would not otherwise have a ref to hold them up during
946 5a8e63b2 2004-02-29 devnull * the shenanigans. note this with globalincref so that any
947 5a8e63b2 2004-02-29 devnull * newly created windows start with an extra reference.
949 b3994ec5 2003-12-11 devnull allwindows(alllocker, (void*)1);
950 5a8e63b2 2004-02-29 devnull globalincref = 1;
951 b3994ec5 2003-12-11 devnull for(i=0; i<loopstruct.nw; i++)
952 b3994ec5 2003-12-11 devnull cmdexec(&loopstruct.w[i]->body, cp->u.cmd);
953 b3994ec5 2003-12-11 devnull allwindows(alllocker, (void*)0);
954 5a8e63b2 2004-02-29 devnull globalincref = 0;
955 b3994ec5 2003-12-11 devnull free(loopstruct.w);
956 b3994ec5 2003-12-11 devnull loopstruct.w = nil;
958 b3994ec5 2003-12-11 devnull --Glooping;
963 b3994ec5 2003-12-11 devnull nextmatch(File *f, String *r, long p, int sign)
965 b3994ec5 2003-12-11 devnull if(rxcompile(r->r) == FALSE)
966 b3994ec5 2003-12-11 devnull editerror("bad regexp in command address");
967 b3994ec5 2003-12-11 devnull if(sign >= 0){
968 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, 0x7FFFFFFFL, &sel))
969 b3994ec5 2003-12-11 devnull editerror("no match for regexp");
970 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1 && sel.r[0].q0==p){
971 b3994ec5 2003-12-11 devnull if(++p>f->b.nc)
973 b3994ec5 2003-12-11 devnull if(!rxexecute(f->curtext, nil, p, 0x7FFFFFFFL, &sel))
974 b3994ec5 2003-12-11 devnull editerror("address");
977 b3994ec5 2003-12-11 devnull if(!rxbexecute(f->curtext, p, &sel))
978 b3994ec5 2003-12-11 devnull editerror("no match for regexp");
979 b3994ec5 2003-12-11 devnull if(sel.r[0].q0==sel.r[0].q1 && sel.r[0].q1==p){
980 b3994ec5 2003-12-11 devnull if(--p<0)
981 b3994ec5 2003-12-11 devnull p = f->b.nc;
982 b3994ec5 2003-12-11 devnull if(!rxbexecute(f->curtext, p, &sel))
983 b3994ec5 2003-12-11 devnull editerror("address");
988 b3994ec5 2003-12-11 devnull File *matchfile(String*);
989 b3994ec5 2003-12-11 devnull Address charaddr(long, Address, int);
990 b3994ec5 2003-12-11 devnull Address lineaddr(long, Address, int);
993 b3994ec5 2003-12-11 devnull cmdaddress(Addr *ap, Address a, int sign)
995 b3994ec5 2003-12-11 devnull File *f = a.f;
996 b3994ec5 2003-12-11 devnull Address a1, a2;
999 b3994ec5 2003-12-11 devnull switch(ap->type){
1000 b3994ec5 2003-12-11 devnull case 'l':
1001 b3994ec5 2003-12-11 devnull case '#':
1002 b3994ec5 2003-12-11 devnull a = (*(ap->type=='#'?charaddr:lineaddr))(ap->num, a, sign);
1005 b3994ec5 2003-12-11 devnull case '.':
1006 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
1009 b3994ec5 2003-12-11 devnull case '$':
1010 b3994ec5 2003-12-11 devnull a.r.q0 = a.r.q1 = f->b.nc;
1013 b3994ec5 2003-12-11 devnull case '\'':
1014 b3994ec5 2003-12-11 devnull editerror("can't handle '");
1015 b3994ec5 2003-12-11 devnull // a.r = f->mark;
1018 b3994ec5 2003-12-11 devnull case '?':
1019 b3994ec5 2003-12-11 devnull sign = -sign;
1020 b3994ec5 2003-12-11 devnull if(sign == 0)
1021 b3994ec5 2003-12-11 devnull sign = -1;
1022 b3994ec5 2003-12-11 devnull /* fall through */
1023 b3994ec5 2003-12-11 devnull case '/':
1024 b3994ec5 2003-12-11 devnull nextmatch(f, ap->u.re, sign>=0? a.r.q1 : a.r.q0, sign);
1025 b3994ec5 2003-12-11 devnull a.r = sel.r[0];
1028 b3994ec5 2003-12-11 devnull case '"':
1029 b3994ec5 2003-12-11 devnull f = matchfile(ap->u.re);
1030 b3994ec5 2003-12-11 devnull mkaddr(&a, f);
1033 b3994ec5 2003-12-11 devnull case '*':
1034 b3994ec5 2003-12-11 devnull a.r.q0 = 0, a.r.q1 = f->b.nc;
1035 b3994ec5 2003-12-11 devnull return a;
1037 b3994ec5 2003-12-11 devnull case ',':
1038 b3994ec5 2003-12-11 devnull case ';':
1039 b3994ec5 2003-12-11 devnull if(ap->u.left)
1040 b3994ec5 2003-12-11 devnull a1 = cmdaddress(ap->u.left, a, 0);
1042 b3994ec5 2003-12-11 devnull a1.f = a.f, a1.r.q0 = a1.r.q1 = 0;
1043 b3994ec5 2003-12-11 devnull if(ap->type == ';'){
1044 b3994ec5 2003-12-11 devnull f = a1.f;
1045 b3994ec5 2003-12-11 devnull a = a1;
1046 b3994ec5 2003-12-11 devnull f->curtext->q0 = a1.r.q0;
1047 b3994ec5 2003-12-11 devnull f->curtext->q1 = a1.r.q1;
1049 b3994ec5 2003-12-11 devnull if(ap->next)
1050 b3994ec5 2003-12-11 devnull a2 = cmdaddress(ap->next, a, 0);
1052 b3994ec5 2003-12-11 devnull a2.f = a.f, a2.r.q0 = a2.r.q1 = f->b.nc;
1053 b3994ec5 2003-12-11 devnull if(a1.f != a2.f)
1054 b3994ec5 2003-12-11 devnull editerror("addresses in different files");
1055 b3994ec5 2003-12-11 devnull a.f = a1.f, a.r.q0 = a1.r.q0, a.r.q1 = a2.r.q1;
1056 b3994ec5 2003-12-11 devnull if(a.r.q1 < a.r.q0)
1057 b3994ec5 2003-12-11 devnull editerror("addresses out of order");
1058 b3994ec5 2003-12-11 devnull return a;
1060 b3994ec5 2003-12-11 devnull case '+':
1061 b3994ec5 2003-12-11 devnull case '-':
1062 b3994ec5 2003-12-11 devnull sign = 1;
1063 b3994ec5 2003-12-11 devnull if(ap->type == '-')
1064 b3994ec5 2003-12-11 devnull sign = -1;
1065 b3994ec5 2003-12-11 devnull if(ap->next==0 || ap->next->type=='+' || ap->next->type=='-')
1066 b3994ec5 2003-12-11 devnull a = lineaddr(1L, a, sign);
1068 b3994ec5 2003-12-11 devnull default:
1069 b3994ec5 2003-12-11 devnull error("cmdaddress");
1070 b3994ec5 2003-12-11 devnull return a;
1072 b3994ec5 2003-12-11 devnull }while(ap = ap->next); /* assign = */
1073 b3994ec5 2003-12-11 devnull return a;
1076 b3994ec5 2003-12-11 devnull struct Tofile{
1077 b3994ec5 2003-12-11 devnull File *f;
1078 b3994ec5 2003-12-11 devnull String *r;
1082 b3994ec5 2003-12-11 devnull alltofile(Window *w, void *v)
1084 b3994ec5 2003-12-11 devnull Text *t;
1085 b3994ec5 2003-12-11 devnull struct Tofile *tp;
1087 b3994ec5 2003-12-11 devnull tp = v;
1088 b3994ec5 2003-12-11 devnull if(tp->f != nil)
1089 b3994ec5 2003-12-11 devnull return;
1090 b3994ec5 2003-12-11 devnull if(w->isscratch || w->isdir)
1091 b3994ec5 2003-12-11 devnull return;
1092 b3994ec5 2003-12-11 devnull t = &w->body;
1093 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
1094 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
1095 b3994ec5 2003-12-11 devnull return;
1096 b3994ec5 2003-12-11 devnull // if(w->nopen[QWevent] > 0)
1097 b3994ec5 2003-12-11 devnull // return;
1098 b3994ec5 2003-12-11 devnull if(runeeq(tp->r->r, tp->r->n, t->file->name, t->file->nname))
1099 b3994ec5 2003-12-11 devnull tp->f = t->file;
1103 b3994ec5 2003-12-11 devnull tofile(String *r)
1105 b3994ec5 2003-12-11 devnull struct Tofile t;
1106 b3994ec5 2003-12-11 devnull String rr;
1108 b3994ec5 2003-12-11 devnull rr.r = skipbl(r->r, r->n, &rr.n);
1109 b3994ec5 2003-12-11 devnull t.f = nil;
1110 b3994ec5 2003-12-11 devnull t.r = &rr;
1111 b3994ec5 2003-12-11 devnull allwindows(alltofile, &t);
1112 b3994ec5 2003-12-11 devnull if(t.f == nil)
1113 b3994ec5 2003-12-11 devnull editerror("no such file\"%S\"", rr.r);
1114 b3994ec5 2003-12-11 devnull return t.f;
1118 b3994ec5 2003-12-11 devnull allmatchfile(Window *w, void *v)
1120 b3994ec5 2003-12-11 devnull struct Tofile *tp;
1121 b3994ec5 2003-12-11 devnull Text *t;
1123 b3994ec5 2003-12-11 devnull tp = v;
1124 b3994ec5 2003-12-11 devnull if(w->isscratch || w->isdir)
1125 b3994ec5 2003-12-11 devnull return;
1126 b3994ec5 2003-12-11 devnull t = &w->body;
1127 b3994ec5 2003-12-11 devnull /* only use this window if it's the current window for the file */
1128 b3994ec5 2003-12-11 devnull if(t->file->curtext != t)
1129 b3994ec5 2003-12-11 devnull return;
1130 b3994ec5 2003-12-11 devnull // if(w->nopen[QWevent] > 0)
1131 b3994ec5 2003-12-11 devnull // return;
1132 b3994ec5 2003-12-11 devnull if(filematch(w->body.file, tp->r)){
1133 b3994ec5 2003-12-11 devnull if(tp->f != nil)
1134 b3994ec5 2003-12-11 devnull editerror("too many files match \"%S\"", tp->r->r);
1135 b3994ec5 2003-12-11 devnull tp->f = w->body.file;
1140 b3994ec5 2003-12-11 devnull matchfile(String *r)
1142 b3994ec5 2003-12-11 devnull struct Tofile tf;
1144 b3994ec5 2003-12-11 devnull tf.f = nil;
1145 b3994ec5 2003-12-11 devnull tf.r = r;
1146 b3994ec5 2003-12-11 devnull allwindows(allmatchfile, &tf);
1148 b3994ec5 2003-12-11 devnull if(tf.f == nil)
1149 b3994ec5 2003-12-11 devnull editerror("no file matches \"%S\"", r->r);
1150 b3994ec5 2003-12-11 devnull return tf.f;
1154 b3994ec5 2003-12-11 devnull filematch(File *f, String *r)
1156 b3994ec5 2003-12-11 devnull char *buf;
1157 b3994ec5 2003-12-11 devnull Rune *rbuf;
1158 b3994ec5 2003-12-11 devnull Window *w;
1159 b3994ec5 2003-12-11 devnull int match, i, dirty;
1160 b3994ec5 2003-12-11 devnull Rangeset s;
1162 b3994ec5 2003-12-11 devnull /* compile expr first so if we get an error, we haven't allocated anything */
1163 b3994ec5 2003-12-11 devnull if(rxcompile(r->r) == FALSE)
1164 b3994ec5 2003-12-11 devnull editerror("bad regexp in file match");
1165 b3994ec5 2003-12-11 devnull buf = fbufalloc();
1166 b3994ec5 2003-12-11 devnull w = f->curtext->w;
1167 b3994ec5 2003-12-11 devnull /* same check for dirty as in settag, but we know ncache==0 */
1168 b3994ec5 2003-12-11 devnull dirty = !w->isdir && !w->isscratch && f->mod;
1169 b3994ec5 2003-12-11 devnull snprint(buf, BUFSIZE, "%c%c%c %.*S\n", " '"[dirty],
1170 b3994ec5 2003-12-11 devnull '+', " ."[curtext!=nil && curtext->file==f], f->nname, f->name);
1171 b3994ec5 2003-12-11 devnull rbuf = bytetorune(buf, &i);
1172 b3994ec5 2003-12-11 devnull fbuffree(buf);
1173 b3994ec5 2003-12-11 devnull match = rxexecute(nil, rbuf, 0, i, &s);
1174 b3994ec5 2003-12-11 devnull free(rbuf);
1175 b3994ec5 2003-12-11 devnull return match;
1178 b3994ec5 2003-12-11 devnull Address
1179 b3994ec5 2003-12-11 devnull charaddr(long l, Address addr, int sign)
1181 b3994ec5 2003-12-11 devnull if(sign == 0)
1182 b3994ec5 2003-12-11 devnull addr.r.q0 = addr.r.q1 = l;
1183 b3994ec5 2003-12-11 devnull else if(sign < 0)
1184 b3994ec5 2003-12-11 devnull addr.r.q1 = addr.r.q0 -= l;
1185 b3994ec5 2003-12-11 devnull else if(sign > 0)
1186 b3994ec5 2003-12-11 devnull addr.r.q0 = addr.r.q1 += l;
1187 b3994ec5 2003-12-11 devnull if(addr.r.q0<0 || addr.r.q1>addr.f->b.nc)
1188 b3994ec5 2003-12-11 devnull editerror("address out of range");
1189 b3994ec5 2003-12-11 devnull return addr;
1192 b3994ec5 2003-12-11 devnull Address
1193 b3994ec5 2003-12-11 devnull lineaddr(long l, Address addr, int sign)
1197 b3994ec5 2003-12-11 devnull File *f = addr.f;
1198 b3994ec5 2003-12-11 devnull Address a;
1199 b3994ec5 2003-12-11 devnull long p;
1201 b3994ec5 2003-12-11 devnull a.f = f;
1202 b3994ec5 2003-12-11 devnull if(sign >= 0){
1203 b3994ec5 2003-12-11 devnull if(l == 0){
1204 b3994ec5 2003-12-11 devnull if(sign==0 || addr.r.q1==0){
1205 b3994ec5 2003-12-11 devnull a.r.q0 = a.r.q1 = 0;
1206 b3994ec5 2003-12-11 devnull return a;
1208 b3994ec5 2003-12-11 devnull a.r.q0 = addr.r.q1;
1209 b3994ec5 2003-12-11 devnull p = addr.r.q1-1;
1211 b3994ec5 2003-12-11 devnull if(sign==0 || addr.r.q1==0){
1215 b3994ec5 2003-12-11 devnull p = addr.r.q1-1;
1216 b3994ec5 2003-12-11 devnull n = textreadc(f->curtext, p++)=='\n';
1218 b3994ec5 2003-12-11 devnull while(n < l){
1219 b3994ec5 2003-12-11 devnull if(p >= f->b.nc)
1220 b3994ec5 2003-12-11 devnull editerror("address out of range");
1221 b3994ec5 2003-12-11 devnull if(textreadc(f->curtext, p++) == '\n')
1224 b3994ec5 2003-12-11 devnull a.r.q0 = p;
1226 b3994ec5 2003-12-11 devnull while(p < f->b.nc && textreadc(f->curtext, p++)!='\n')
1228 b3994ec5 2003-12-11 devnull a.r.q1 = p;
1230 b3994ec5 2003-12-11 devnull p = addr.r.q0;
1231 b3994ec5 2003-12-11 devnull if(l == 0)
1232 b3994ec5 2003-12-11 devnull a.r.q1 = addr.r.q0;
1234 b3994ec5 2003-12-11 devnull for(n = 0; n<l; ){ /* always runs once */
1235 b3994ec5 2003-12-11 devnull if(p == 0){
1236 b3994ec5 2003-12-11 devnull if(++n != l)
1237 b3994ec5 2003-12-11 devnull editerror("address out of range");
1239 b3994ec5 2003-12-11 devnull c = textreadc(f->curtext, p-1);
1240 b3994ec5 2003-12-11 devnull if(c != '\n' || ++n != l)
1244 b3994ec5 2003-12-11 devnull a.r.q1 = p;
1245 b3994ec5 2003-12-11 devnull if(p > 0)
1248 b3994ec5 2003-12-11 devnull while(p > 0 && textreadc(f->curtext, p-1)!='\n') /* lines start after a newline */
1250 b3994ec5 2003-12-11 devnull a.r.q0 = p;
1252 b3994ec5 2003-12-11 devnull return a;
1255 b3994ec5 2003-12-11 devnull struct Filecheck
1257 b3994ec5 2003-12-11 devnull File *f;
1258 b3994ec5 2003-12-11 devnull Rune *r;
1259 b3994ec5 2003-12-11 devnull int nr;
1263 b3994ec5 2003-12-11 devnull allfilecheck(Window *w, void *v)
1265 b3994ec5 2003-12-11 devnull struct Filecheck *fp;
1266 b3994ec5 2003-12-11 devnull File *f;
1268 b3994ec5 2003-12-11 devnull fp = v;
1269 b3994ec5 2003-12-11 devnull f = w->body.file;
1270 b3994ec5 2003-12-11 devnull if(w->body.file == fp->f)
1271 b3994ec5 2003-12-11 devnull return;
1272 b3994ec5 2003-12-11 devnull if(runeeq(fp->r, fp->nr, f->name, f->nname))
1273 b3994ec5 2003-12-11 devnull warning(nil, "warning: duplicate file name \"%.*S\"\n", fp->nr, fp->r);
1277 b3994ec5 2003-12-11 devnull cmdname(File *f, String *str, int set)
1279 b3994ec5 2003-12-11 devnull Rune *r, *s;
1281 b3994ec5 2003-12-11 devnull struct Filecheck fc;
1282 b3994ec5 2003-12-11 devnull Runestr newname;
1284 b3994ec5 2003-12-11 devnull r = nil;
1285 b3994ec5 2003-12-11 devnull n = str->n;
1286 b3994ec5 2003-12-11 devnull s = str->r;
1287 b3994ec5 2003-12-11 devnull if(n == 0){
1288 b3994ec5 2003-12-11 devnull /* no name; use existing */
1289 b3994ec5 2003-12-11 devnull if(f->nname == 0)
1290 b3994ec5 2003-12-11 devnull return nil;
1291 b3994ec5 2003-12-11 devnull r = runemalloc(f->nname+1);
1292 b3994ec5 2003-12-11 devnull runemove(r, f->name, f->nname);
1293 b3994ec5 2003-12-11 devnull return r;
1295 b3994ec5 2003-12-11 devnull s = skipbl(s, n, &n);
1296 b3994ec5 2003-12-11 devnull if(n == 0)
1297 b3994ec5 2003-12-11 devnull goto Return;
1299 b3994ec5 2003-12-11 devnull if(s[0] == '/'){
1300 b3994ec5 2003-12-11 devnull r = runemalloc(n+1);
1301 b3994ec5 2003-12-11 devnull runemove(r, s, n);
1303 b3994ec5 2003-12-11 devnull newname = dirname(f->curtext, runestrdup(s), n);
1304 b3994ec5 2003-12-11 devnull n = newname.nr;
1305 5e77b8bb 2005-03-23 devnull r = runemalloc(n+1);
1306 5e77b8bb 2005-03-23 devnull runemove(r, newname.r, n);
1307 5e77b8bb 2005-03-23 devnull free(newname.r);
1309 b3994ec5 2003-12-11 devnull fc.f = f;
1310 b3994ec5 2003-12-11 devnull fc.r = r;
1311 b3994ec5 2003-12-11 devnull fc.nr = n;
1312 b3994ec5 2003-12-11 devnull allwindows(allfilecheck, &fc);
1313 b3994ec5 2003-12-11 devnull if(f->nname == 0)
1314 b3994ec5 2003-12-11 devnull set = TRUE;
1316 b3994ec5 2003-12-11 devnull Return:
1317 b3994ec5 2003-12-11 devnull if(set && !runeeq(r, n, f->name, f->nname)){
1318 b3994ec5 2003-12-11 devnull filemark(f);
1319 b3994ec5 2003-12-11 devnull f->mod = TRUE;
1320 b3994ec5 2003-12-11 devnull f->curtext->w->dirty = TRUE;
1321 b3994ec5 2003-12-11 devnull winsetname(f->curtext->w, r, n);
1323 b3994ec5 2003-12-11 devnull return r;
