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 <regexp.h>
11 f755d504 2005-01-04 devnull #include <9pclient.h>
12 b3994ec5 2003-12-11 devnull #include <plumb.h>
13 b3994ec5 2003-12-11 devnull #include "dat.h"
14 b3994ec5 2003-12-11 devnull #include "fns.h"
16 f755d504 2005-01-04 devnull CFid *plumbsendfid;
17 f755d504 2005-01-04 devnull CFid *plumbeditfid;
19 20ae0b0f 2005-12-16 devnull Window* openfile(Text*, Expand*, int);
21 b3994ec5 2003-12-11 devnull int nuntitled;
24 ced6fd34 2006-06-25 devnull plumbthread(void *v)
26 ced6fd34 2006-06-25 devnull CFid *fid;
27 2277c5d7 2004-03-21 devnull Plumbmsg *m;
28 ced6fd34 2006-06-25 devnull Timer *t;
31 2277c5d7 2004-03-21 devnull threadsetname("plumbproc");
34 ced6fd34 2006-06-25 devnull * Loop so that if plumber is restarted, acme need not be.
38 ced6fd34 2006-06-25 devnull * Connect to plumber.
40 ced6fd34 2006-06-25 devnull plumbunmount();
41 ced6fd34 2006-06-25 devnull while((fid = plumbopenfid("edit", OREAD|OCEXEC)) == nil){
42 ced6fd34 2006-06-25 devnull t = timerstart(2000);
43 ced6fd34 2006-06-25 devnull recv(t->c, nil);
44 ced6fd34 2006-06-25 devnull timerstop(t);
46 ced6fd34 2006-06-25 devnull plumbeditfid = fid;
47 ced6fd34 2006-06-25 devnull plumbsendfid = plumbopenfid("send", OWRITE|OCEXEC);
50 ced6fd34 2006-06-25 devnull * Relay messages.
53 ced6fd34 2006-06-25 devnull m = plumbrecvfid(plumbeditfid);
54 ced6fd34 2006-06-25 devnull if(m == nil)
56 ced6fd34 2006-06-25 devnull sendp(cplumb, m);
60 ced6fd34 2006-06-25 devnull * Lost connection.
62 ced6fd34 2006-06-25 devnull fid = plumbsendfid;
63 ced6fd34 2006-06-25 devnull plumbsendfid = nil;
64 ced6fd34 2006-06-25 devnull fsclose(fid);
66 ced6fd34 2006-06-25 devnull fid = plumbeditfid;
67 ced6fd34 2006-06-25 devnull plumbeditfid = nil;
68 ced6fd34 2006-06-25 devnull fsclose(fid);
73 2277c5d7 2004-03-21 devnull startplumbing(void)
75 ced6fd34 2006-06-25 devnull cplumb = chancreate(sizeof(Plumbmsg*), 0);
76 ced6fd34 2006-06-25 devnull chansetname(cplumb, "cplumb");
77 ced6fd34 2006-06-25 devnull threadcreate(plumbthread, nil, STACK);
82 b3994ec5 2003-12-11 devnull look3(Text *t, uint q0, uint q1, int external)
84 b3994ec5 2003-12-11 devnull int n, c, f, expanded;
85 b3994ec5 2003-12-11 devnull Text *ct;
86 b3994ec5 2003-12-11 devnull Expand e;
89 b3994ec5 2003-12-11 devnull Plumbmsg *m;
90 b3994ec5 2003-12-11 devnull Runestr dir;
91 b3994ec5 2003-12-11 devnull char buf[32];
93 b3994ec5 2003-12-11 devnull ct = seltext;
94 b3994ec5 2003-12-11 devnull if(ct == nil)
95 b3994ec5 2003-12-11 devnull seltext = t;
96 b3994ec5 2003-12-11 devnull expanded = expand(t, q0, q1, &e);
97 b3994ec5 2003-12-11 devnull if(!external && t->w!=nil && t->w->nopen[QWevent]>0){
98 b3994ec5 2003-12-11 devnull /* send alphanumeric expansion to external client */
99 b3994ec5 2003-12-11 devnull if(expanded == FALSE)
102 b3994ec5 2003-12-11 devnull if((e.u.at!=nil && t->w!=nil) || (e.nname>0 && lookfile(e.name, e.nname)!=nil))
103 b3994ec5 2003-12-11 devnull f = 1; /* acme can do it without loading a file */
104 b3994ec5 2003-12-11 devnull if(q0!=e.q0 || q1!=e.q1)
105 b3994ec5 2003-12-11 devnull f |= 2; /* second (post-expand) message follows */
106 b3994ec5 2003-12-11 devnull if(e.nname)
107 b3994ec5 2003-12-11 devnull f |= 4; /* it's a file name */
108 b3994ec5 2003-12-11 devnull c = 'l';
109 b3994ec5 2003-12-11 devnull if(t->what == Body)
110 b3994ec5 2003-12-11 devnull c = 'L';
111 b3994ec5 2003-12-11 devnull n = q1-q0;
112 b3994ec5 2003-12-11 devnull if(n <= EVENTSIZE){
113 b3994ec5 2003-12-11 devnull r = runemalloc(n);
114 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, r, n);
115 b3994ec5 2003-12-11 devnull winevent(t->w, "%c%d %d %d %d %.*S\n", c, q0, q1, f, n, n, r);
116 b3994ec5 2003-12-11 devnull free(r);
118 b3994ec5 2003-12-11 devnull winevent(t->w, "%c%d %d %d 0 \n", c, q0, q1, f, n);
119 b3994ec5 2003-12-11 devnull if(q0==e.q0 && q1==e.q1)
121 b3994ec5 2003-12-11 devnull if(e.nname){
122 b3994ec5 2003-12-11 devnull n = e.nname;
123 b3994ec5 2003-12-11 devnull if(e.a1 > e.a0)
124 b3994ec5 2003-12-11 devnull n += 1+(e.a1-e.a0);
125 b3994ec5 2003-12-11 devnull r = runemalloc(n);
126 b3994ec5 2003-12-11 devnull runemove(r, e.name, e.nname);
127 b3994ec5 2003-12-11 devnull if(e.a1 > e.a0){
128 b3994ec5 2003-12-11 devnull r[e.nname] = ':';
129 b3994ec5 2003-12-11 devnull bufread(&e.u.at->file->b, e.a0, r+e.nname+1, e.a1-e.a0);
132 b3994ec5 2003-12-11 devnull n = e.q1 - e.q0;
133 b3994ec5 2003-12-11 devnull r = runemalloc(n);
134 b3994ec5 2003-12-11 devnull bufread(&t->file->b, e.q0, r, n);
136 b3994ec5 2003-12-11 devnull f &= ~2;
137 b3994ec5 2003-12-11 devnull if(n <= EVENTSIZE)
138 b3994ec5 2003-12-11 devnull winevent(t->w, "%c%d %d %d %d %.*S\n", c, e.q0, e.q1, f, n, n, r);
140 b3994ec5 2003-12-11 devnull winevent(t->w, "%c%d %d %d 0 \n", c, e.q0, e.q1, f, n);
141 b3994ec5 2003-12-11 devnull free(r);
142 b3994ec5 2003-12-11 devnull goto Return;
144 2277c5d7 2004-03-21 devnull if(plumbsendfid != nil){
145 b3994ec5 2003-12-11 devnull /* send whitespace-delimited word to plumber */
146 b3994ec5 2003-12-11 devnull m = emalloc(sizeof(Plumbmsg));
147 b3994ec5 2003-12-11 devnull m->src = estrdup("acme");
148 b3994ec5 2003-12-11 devnull m->dst = nil;
149 b3994ec5 2003-12-11 devnull dir = dirname(t, nil, 0);
150 b3994ec5 2003-12-11 devnull if(dir.nr==1 && dir.r[0]=='.'){ /* sigh */
151 b3994ec5 2003-12-11 devnull free(dir.r);
152 b3994ec5 2003-12-11 devnull dir.r = nil;
153 b3994ec5 2003-12-11 devnull dir.nr = 0;
155 b3994ec5 2003-12-11 devnull if(dir.nr == 0)
156 b3994ec5 2003-12-11 devnull m->wdir = estrdup(wdir);
158 b3994ec5 2003-12-11 devnull m->wdir = runetobyte(dir.r, dir.nr);
159 b3994ec5 2003-12-11 devnull free(dir.r);
160 b3994ec5 2003-12-11 devnull m->type = estrdup("text");
161 b3994ec5 2003-12-11 devnull m->attr = nil;
162 b3994ec5 2003-12-11 devnull buf[0] = '\0';
163 b3994ec5 2003-12-11 devnull if(q1 == q0){
164 b3994ec5 2003-12-11 devnull if(t->q1>t->q0 && t->q0<=q0 && q0<=t->q1){
165 b3994ec5 2003-12-11 devnull q0 = t->q0;
166 b3994ec5 2003-12-11 devnull q1 = t->q1;
169 b3994ec5 2003-12-11 devnull while(q0>0 && (c=tgetc(t, q0-1))!=' ' && c!='\t' && c!='\n')
171 b3994ec5 2003-12-11 devnull while(q1<t->file->b.nc && (c=tgetc(t, q1))!=' ' && c!='\t' && c!='\n')
173 b3994ec5 2003-12-11 devnull if(q1 == q0){
174 b3994ec5 2003-12-11 devnull plumbfree(m);
175 b3994ec5 2003-12-11 devnull goto Return;
177 b3994ec5 2003-12-11 devnull sprint(buf, "click=%d", p-q0);
178 b3994ec5 2003-12-11 devnull m->attr = plumbunpackattr(buf);
181 b3994ec5 2003-12-11 devnull r = runemalloc(q1-q0);
182 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, r, q1-q0);
183 b3994ec5 2003-12-11 devnull m->data = runetobyte(r, q1-q0);
184 b3994ec5 2003-12-11 devnull m->ndata = strlen(m->data);
185 b3994ec5 2003-12-11 devnull free(r);
186 2277c5d7 2004-03-21 devnull if(m->ndata<messagesize-1024 && plumbsendtofid(plumbsendfid, m) >= 0){
187 b3994ec5 2003-12-11 devnull plumbfree(m);
188 b3994ec5 2003-12-11 devnull goto Return;
190 b3994ec5 2003-12-11 devnull plumbfree(m);
191 b3994ec5 2003-12-11 devnull /* plumber failed to match; fall through */
194 b3994ec5 2003-12-11 devnull /* interpret alphanumeric string ourselves */
195 b3994ec5 2003-12-11 devnull if(expanded == FALSE)
197 b3994ec5 2003-12-11 devnull if(e.name || e.u.at)
198 20ae0b0f 2005-12-16 devnull openfile(t, &e, FALSE);
200 b3994ec5 2003-12-11 devnull if(t->w == nil)
202 b3994ec5 2003-12-11 devnull ct = &t->w->body;
203 b3994ec5 2003-12-11 devnull if(t->w != ct->w)
204 b3994ec5 2003-12-11 devnull winlock(ct->w, 'M');
205 b3994ec5 2003-12-11 devnull if(t == ct)
206 b3994ec5 2003-12-11 devnull textsetselect(ct, e.q1, e.q1);
207 b3994ec5 2003-12-11 devnull n = e.q1 - e.q0;
208 b3994ec5 2003-12-11 devnull r = runemalloc(n);
209 b3994ec5 2003-12-11 devnull bufread(&t->file->b, e.q0, r, n);
210 b3994ec5 2003-12-11 devnull if(search(ct, r, n) && e.jump)
211 b3994ec5 2003-12-11 devnull moveto(mousectl, addpt(frptofchar(&ct->fr, ct->fr.p0), Pt(4, ct->fr.font->height-4)));
212 b3994ec5 2003-12-11 devnull if(t->w != ct->w)
213 b3994ec5 2003-12-11 devnull winunlock(ct->w);
214 b3994ec5 2003-12-11 devnull free(r);
218 b3994ec5 2003-12-11 devnull free(e.name);
219 b3994ec5 2003-12-11 devnull free(e.bname);
223 b3994ec5 2003-12-11 devnull plumbgetc(void *a, uint n)
225 b3994ec5 2003-12-11 devnull Rune *r;
228 b3994ec5 2003-12-11 devnull if(n<0 || n>runestrlen(r))
229 b3994ec5 2003-12-11 devnull return 0;
230 b3994ec5 2003-12-11 devnull return r[n];
234 b3994ec5 2003-12-11 devnull plumblook(Plumbmsg *m)
236 b3994ec5 2003-12-11 devnull Expand e;
237 b3994ec5 2003-12-11 devnull char *addr;
238 20ae0b0f 2005-12-16 devnull int newwindow;
240 b3994ec5 2003-12-11 devnull if(m->ndata >= BUFSIZE){
241 b3994ec5 2003-12-11 devnull warning(nil, "insanely long file name (%d bytes) in plumb message (%.32s...)\n", m->ndata, m->data);
244 b3994ec5 2003-12-11 devnull e.q0 = 0;
245 b3994ec5 2003-12-11 devnull e.q1 = 0;
246 b3994ec5 2003-12-11 devnull if(m->data[0] == '\0')
248 b3994ec5 2003-12-11 devnull e.u.ar = nil;
249 b3994ec5 2003-12-11 devnull e.bname = m->data;
250 b3994ec5 2003-12-11 devnull e.name = bytetorune(e.bname, &e.nname);
251 b3994ec5 2003-12-11 devnull e.jump = TRUE;
252 b3994ec5 2003-12-11 devnull e.a0 = 0;
253 b3994ec5 2003-12-11 devnull e.a1 = 0;
254 b3994ec5 2003-12-11 devnull addr = plumblookup(m->attr, "addr");
255 b3994ec5 2003-12-11 devnull if(addr != nil){
256 b3994ec5 2003-12-11 devnull e.u.ar = bytetorune(addr, &e.a1);
257 b3994ec5 2003-12-11 devnull e.agetc = plumbgetc;
259 20ae0b0f 2005-12-16 devnull newwindow = plumblookup(m->attr, "newwindow") != nil;
260 20ae0b0f 2005-12-16 devnull openfile(nil, &e, newwindow);
261 b3994ec5 2003-12-11 devnull free(e.name);
262 b3994ec5 2003-12-11 devnull free(e.u.at);
263 af78a4cd 2004-03-02 devnull drawtopwindow();
267 b3994ec5 2003-12-11 devnull plumbshow(Plumbmsg *m)
269 b3994ec5 2003-12-11 devnull Window *w;
270 b3994ec5 2003-12-11 devnull Rune rb[256], *r;
271 b3994ec5 2003-12-11 devnull int nb, nr;
272 b3994ec5 2003-12-11 devnull Runestr rs;
273 b3994ec5 2003-12-11 devnull char *name, *p, namebuf[16];
275 b3994ec5 2003-12-11 devnull w = makenewwindow(nil);
276 b3994ec5 2003-12-11 devnull name = plumblookup(m->attr, "filename");
277 b3994ec5 2003-12-11 devnull if(name == nil){
278 b3994ec5 2003-12-11 devnull name = namebuf;
279 b3994ec5 2003-12-11 devnull nuntitled++;
280 b3994ec5 2003-12-11 devnull snprint(namebuf, sizeof namebuf, "Untitled-%d", nuntitled);
282 b3994ec5 2003-12-11 devnull p = nil;
283 b3994ec5 2003-12-11 devnull if(name[0]!='/' && m->wdir!=nil && m->wdir[0]!='\0'){
284 b3994ec5 2003-12-11 devnull nb = strlen(m->wdir) + 1 + strlen(name) + 1;
285 b3994ec5 2003-12-11 devnull p = emalloc(nb);
286 b3994ec5 2003-12-11 devnull snprint(p, nb, "%s/%s", m->wdir, name);
287 b3994ec5 2003-12-11 devnull name = p;
289 b3994ec5 2003-12-11 devnull cvttorunes(name, strlen(name), rb, &nb, &nr, nil);
290 b3994ec5 2003-12-11 devnull free(p);
291 8ad51794 2004-03-25 devnull rs = cleanrname(runestr(rb, nr));
292 b3994ec5 2003-12-11 devnull winsetname(w, rs.r, rs.nr);
293 b3994ec5 2003-12-11 devnull r = runemalloc(m->ndata);
294 b3994ec5 2003-12-11 devnull cvttorunes(m->data, m->ndata, r, &nb, &nr, nil);
295 b3994ec5 2003-12-11 devnull textinsert(&w->body, 0, r, nr, TRUE);
296 b3994ec5 2003-12-11 devnull free(r);
297 b3994ec5 2003-12-11 devnull w->body.file->mod = FALSE;
298 b3994ec5 2003-12-11 devnull w->dirty = FALSE;
299 b3994ec5 2003-12-11 devnull winsettag(w);
300 b3994ec5 2003-12-11 devnull textscrdraw(&w->body);
301 b3994ec5 2003-12-11 devnull textsetselect(&w->tag, w->tag.file->b.nc, w->tag.file->b.nc);
302 af78a4cd 2004-03-02 devnull drawtopwindow();
306 b3994ec5 2003-12-11 devnull search(Text *ct, Rune *r, uint n)
308 b3994ec5 2003-12-11 devnull uint q, nb, maxn;
309 b3994ec5 2003-12-11 devnull int around;
310 b3994ec5 2003-12-11 devnull Rune *s, *b, *c;
312 b3994ec5 2003-12-11 devnull if(n==0 || n>ct->file->b.nc)
313 b3994ec5 2003-12-11 devnull return FALSE;
314 b3994ec5 2003-12-11 devnull if(2*n > RBUFSIZE){
315 b3994ec5 2003-12-11 devnull warning(nil, "string too long\n");
316 b3994ec5 2003-12-11 devnull return FALSE;
318 b3994ec5 2003-12-11 devnull maxn = max(2*n, RBUFSIZE);
319 b3994ec5 2003-12-11 devnull s = fbufalloc();
322 b3994ec5 2003-12-11 devnull b[nb] = 0;
323 b3994ec5 2003-12-11 devnull around = 0;
324 b3994ec5 2003-12-11 devnull q = ct->q1;
325 b3994ec5 2003-12-11 devnull for(;;){
326 b3994ec5 2003-12-11 devnull if(q >= ct->file->b.nc){
328 b3994ec5 2003-12-11 devnull around = 1;
330 b3994ec5 2003-12-11 devnull b[nb] = 0;
332 b3994ec5 2003-12-11 devnull if(nb > 0){
333 b3994ec5 2003-12-11 devnull c = runestrchr(b, r[0]);
334 b3994ec5 2003-12-11 devnull if(c == nil){
335 b3994ec5 2003-12-11 devnull q += nb;
337 b3994ec5 2003-12-11 devnull b[nb] = 0;
338 b3994ec5 2003-12-11 devnull if(around && q>=ct->q1)
340 b3994ec5 2003-12-11 devnull continue;
342 b3994ec5 2003-12-11 devnull q += (c-b);
343 b3994ec5 2003-12-11 devnull nb -= (c-b);
346 b3994ec5 2003-12-11 devnull /* reload if buffer covers neither string nor rest of file */
347 b3994ec5 2003-12-11 devnull if(nb<n && nb!=ct->file->b.nc-q){
348 b3994ec5 2003-12-11 devnull nb = ct->file->b.nc-q;
349 b3994ec5 2003-12-11 devnull if(nb >= maxn)
350 b3994ec5 2003-12-11 devnull nb = maxn-1;
351 b3994ec5 2003-12-11 devnull bufread(&ct->file->b, q, s, nb);
353 b3994ec5 2003-12-11 devnull b[nb] = '\0';
355 b3994ec5 2003-12-11 devnull /* this runeeq is fishy but the null at b[nb] makes it safe */
356 b3994ec5 2003-12-11 devnull if(runeeq(b, n, r, n)==TRUE){
357 b3994ec5 2003-12-11 devnull if(ct->w){
358 b3994ec5 2003-12-11 devnull textshow(ct, q, q+n, 1);
359 b3994ec5 2003-12-11 devnull winsettag(ct->w);
361 b3994ec5 2003-12-11 devnull ct->q0 = q;
362 b3994ec5 2003-12-11 devnull ct->q1 = q+n;
364 b3994ec5 2003-12-11 devnull seltext = ct;
365 b3994ec5 2003-12-11 devnull fbuffree(s);
366 b3994ec5 2003-12-11 devnull return TRUE;
368 b3994ec5 2003-12-11 devnull if(around && q>=ct->q1)
374 b3994ec5 2003-12-11 devnull fbuffree(s);
375 b3994ec5 2003-12-11 devnull return FALSE;
379 b3994ec5 2003-12-11 devnull isfilec(Rune r)
381 b3994ec5 2003-12-11 devnull static Rune Lx[] = { '.', '-', '+', '/', ':', 0 };
382 b3994ec5 2003-12-11 devnull if(isalnum(r))
383 b3994ec5 2003-12-11 devnull return TRUE;
384 b3994ec5 2003-12-11 devnull if(runestrchr(Lx, r))
385 b3994ec5 2003-12-11 devnull return TRUE;
386 b3994ec5 2003-12-11 devnull return FALSE;
389 5a8e63b2 2004-02-29 devnull /* Runestr wrapper for cleanname */
391 b3994ec5 2003-12-11 devnull cleanrname(Runestr rs)
393 5a8e63b2 2004-02-29 devnull char *s;
394 5a8e63b2 2004-02-29 devnull int nb, nulls;
396 5a8e63b2 2004-02-29 devnull s = runetobyte(rs.r, rs.nr);
397 5a8e63b2 2004-02-29 devnull cleanname(s);
398 5a8e63b2 2004-02-29 devnull cvttorunes(s, strlen(s), rs.r, &nb, &rs.nr, &nulls);
399 5a8e63b2 2004-02-29 devnull free(s);
400 5a8e63b2 2004-02-29 devnull return rs;
404 b3994ec5 2003-12-11 devnull includefile(Rune *dir, Rune *file, int nfile)
406 b3994ec5 2003-12-11 devnull int m, n;
407 b3994ec5 2003-12-11 devnull char *a;
408 b3994ec5 2003-12-11 devnull Rune *r;
409 b3994ec5 2003-12-11 devnull static Rune Lslash[] = { '/', 0 };
411 b3994ec5 2003-12-11 devnull m = runestrlen(dir);
412 b3994ec5 2003-12-11 devnull a = emalloc((m+1+nfile)*UTFmax+1);
413 b3994ec5 2003-12-11 devnull sprint(a, "%S/%.*S", dir, nfile, file);
414 b3994ec5 2003-12-11 devnull n = access(a, 0);
415 b3994ec5 2003-12-11 devnull free(a);
416 b3994ec5 2003-12-11 devnull if(n < 0)
417 8ad51794 2004-03-25 devnull return runestr(nil, 0);
418 b3994ec5 2003-12-11 devnull r = runemalloc(m+1+nfile);
419 b3994ec5 2003-12-11 devnull runemove(r, dir, m);
420 b3994ec5 2003-12-11 devnull runemove(r+m, Lslash, 1);
421 b3994ec5 2003-12-11 devnull runemove(r+m+1, file, nfile);
422 b3994ec5 2003-12-11 devnull free(file);
423 8ad51794 2004-03-25 devnull return cleanrname(runestr(r, m+1+nfile));
426 b3994ec5 2003-12-11 devnull static Rune *objdir;
429 b3994ec5 2003-12-11 devnull includename(Text *t, Rune *r, int n)
431 b3994ec5 2003-12-11 devnull Window *w;
432 b3994ec5 2003-12-11 devnull char buf[128];
433 b3994ec5 2003-12-11 devnull Rune Lsysinclude[] = { '/', 's', 'y', 's', '/', 'i', 'n', 'c', 'l', 'u', 'd', 'e', 0 };
434 5a8e63b2 2004-02-29 devnull Rune Lusrinclude[] = { '/', 'u', 's', 'r', '/', 'i', 'n', 'c', 'l', 'u', 'd', 'e', 0 };
435 5a8e63b2 2004-02-29 devnull Rune Lusrlocalinclude[] = { '/', 'u', 's', 'r', '/', 'l', 'o', 'c', 'a', 'l',
436 5a8e63b2 2004-02-29 devnull '/', 'i', 'n', 'c', 'l', 'u', 'd', 'e', 0 };
437 5a8e63b2 2004-02-29 devnull Rune Lusrlocalplan9include[] = { '/', 'u', 's', 'r', '/', 'l', 'o', 'c', 'a', 'l',
438 5a8e63b2 2004-02-29 devnull '/', 'p', 'l', 'a', 'n', '9', '/', 'i', 'n', 'c', 'l', 'u', 'd', 'e', 0 };
439 b3994ec5 2003-12-11 devnull Runestr file;
442 b3994ec5 2003-12-11 devnull if(objdir==nil && objtype!=nil){
443 b3994ec5 2003-12-11 devnull sprint(buf, "/%s/include", objtype);
444 b3994ec5 2003-12-11 devnull objdir = bytetorune(buf, &i);
445 b3994ec5 2003-12-11 devnull objdir = runerealloc(objdir, i+1);
446 b3994ec5 2003-12-11 devnull objdir[i] = '\0';
449 b3994ec5 2003-12-11 devnull w = t->w;
450 b3994ec5 2003-12-11 devnull if(n==0 || r[0]=='/' || w==nil)
451 b3994ec5 2003-12-11 devnull goto Rescue;
452 b3994ec5 2003-12-11 devnull if(n>2 && r[0]=='.' && r[1]=='/')
453 b3994ec5 2003-12-11 devnull goto Rescue;
454 b3994ec5 2003-12-11 devnull file.r = nil;
455 b3994ec5 2003-12-11 devnull file.nr = 0;
456 b3994ec5 2003-12-11 devnull for(i=0; i<w->nincl && file.r==nil; i++)
457 b3994ec5 2003-12-11 devnull file = includefile(w->incl[i], r, n);
459 b3994ec5 2003-12-11 devnull if(file.r == nil)
460 b3994ec5 2003-12-11 devnull file = includefile(Lsysinclude, r, n);
461 5a8e63b2 2004-02-29 devnull if(file.r == nil)
462 5a8e63b2 2004-02-29 devnull file = includefile(Lusrlocalplan9include, r, n);
463 5a8e63b2 2004-02-29 devnull if(file.r == nil)
464 5a8e63b2 2004-02-29 devnull file = includefile(Lusrlocalinclude, r, n);
465 5a8e63b2 2004-02-29 devnull if(file.r == nil)
466 5a8e63b2 2004-02-29 devnull file = includefile(Lusrinclude, r, n);
467 b3994ec5 2003-12-11 devnull if(file.r==nil && objdir!=nil)
468 b3994ec5 2003-12-11 devnull file = includefile(objdir, r, n);
469 b3994ec5 2003-12-11 devnull if(file.r == nil)
470 b3994ec5 2003-12-11 devnull goto Rescue;
471 b3994ec5 2003-12-11 devnull return file;
474 8ad51794 2004-03-25 devnull return runestr(r, n);
478 b3994ec5 2003-12-11 devnull dirname(Text *t, Rune *r, int n)
480 b3994ec5 2003-12-11 devnull Rune *b, c;
481 b3994ec5 2003-12-11 devnull uint m, nt;
482 b3994ec5 2003-12-11 devnull int slash;
483 b3994ec5 2003-12-11 devnull Runestr tmp;
485 b3994ec5 2003-12-11 devnull b = nil;
486 b3994ec5 2003-12-11 devnull if(t==nil || t->w==nil)
487 b3994ec5 2003-12-11 devnull goto Rescue;
488 d5c40a0d 2005-03-14 devnull if(dodollarsigns && n>=1 && r[0]=='$')
489 44e41b1f 2005-07-13 devnull expandenv(&r, (uint*)&n);
490 b3994ec5 2003-12-11 devnull nt = t->w->tag.file->b.nc;
491 b3994ec5 2003-12-11 devnull if(nt == 0)
492 b3994ec5 2003-12-11 devnull goto Rescue;
493 d5c40a0d 2005-03-14 devnull if(n>=1 && r[0]=='/')
494 b3994ec5 2003-12-11 devnull goto Rescue;
495 b3994ec5 2003-12-11 devnull b = runemalloc(nt+n+1);
496 b3994ec5 2003-12-11 devnull bufread(&t->w->tag.file->b, 0, b, nt);
497 b3994ec5 2003-12-11 devnull slash = -1;
498 b3994ec5 2003-12-11 devnull for(m=0; m<nt; m++){
499 b3994ec5 2003-12-11 devnull c = b[m];
500 b3994ec5 2003-12-11 devnull if(c == '/')
501 b3994ec5 2003-12-11 devnull slash = m;
502 b3994ec5 2003-12-11 devnull if(c==' ' || c=='\t')
505 b3994ec5 2003-12-11 devnull if(slash < 0)
506 b3994ec5 2003-12-11 devnull goto Rescue;
507 d5c40a0d 2005-03-14 devnull slash++;
508 44e41b1f 2005-07-13 devnull if(dodollarsigns && expandenv(&b, (uint*)&slash))
509 d5c40a0d 2005-03-14 devnull b = runerealloc(b, slash+n);
510 d5c40a0d 2005-03-14 devnull runemove(b+slash, r, n);
511 b3994ec5 2003-12-11 devnull free(r);
512 d5c40a0d 2005-03-14 devnull return cleanrname(runestr(b, slash+n));
515 b3994ec5 2003-12-11 devnull free(b);
516 8ad51794 2004-03-25 devnull tmp = runestr(r, n);
518 b3994ec5 2003-12-11 devnull return cleanrname(tmp);
519 b3994ec5 2003-12-11 devnull return tmp;
523 b3994ec5 2003-12-11 devnull expandfile(Text *t, uint q0, uint q1, Expand *e)
525 b3994ec5 2003-12-11 devnull int i, n, nname, colon, eval;
526 b3994ec5 2003-12-11 devnull uint amin, amax;
527 b3994ec5 2003-12-11 devnull Rune *r, c;
528 b3994ec5 2003-12-11 devnull Window *w;
529 b3994ec5 2003-12-11 devnull Runestr rs;
531 b3994ec5 2003-12-11 devnull amax = q1;
532 b3994ec5 2003-12-11 devnull if(q1 == q0){
533 b3994ec5 2003-12-11 devnull colon = -1;
534 b3994ec5 2003-12-11 devnull while(q1<t->file->b.nc && isfilec(c=textreadc(t, q1))){
535 b3994ec5 2003-12-11 devnull if(c == ':'){
536 b3994ec5 2003-12-11 devnull colon = q1;
541 b3994ec5 2003-12-11 devnull while(q0>0 && (isfilec(c=textreadc(t, q0-1)) || isaddrc(c) || isregexc(c))){
543 b3994ec5 2003-12-11 devnull if(colon<0 && c==':')
544 b3994ec5 2003-12-11 devnull colon = q0;
547 b3994ec5 2003-12-11 devnull * if it looks like it might begin file: , consume address chars after :
548 b3994ec5 2003-12-11 devnull * otherwise terminate expansion at :
550 b3994ec5 2003-12-11 devnull if(colon >= 0){
551 b3994ec5 2003-12-11 devnull q1 = colon;
552 b3994ec5 2003-12-11 devnull if(colon<t->file->b.nc-1 && isaddrc(textreadc(t, colon+1))){
553 b3994ec5 2003-12-11 devnull q1 = colon+1;
554 8057b1ce 2005-03-21 devnull while(q1<t->file->b.nc && isaddrc(textreadc(t, q1)))
558 b3994ec5 2003-12-11 devnull if(q1 > q0)
559 b3994ec5 2003-12-11 devnull if(colon >= 0){ /* stop at white space */
560 b3994ec5 2003-12-11 devnull for(amax=colon+1; amax<t->file->b.nc; amax++)
561 b3994ec5 2003-12-11 devnull if((c=textreadc(t, amax))==' ' || c=='\t' || c=='\n')
564 b3994ec5 2003-12-11 devnull amax = t->file->b.nc;
566 b3994ec5 2003-12-11 devnull amin = amax;
567 b3994ec5 2003-12-11 devnull e->q0 = q0;
568 b3994ec5 2003-12-11 devnull e->q1 = q1;
569 b3994ec5 2003-12-11 devnull n = q1-q0;
570 b3994ec5 2003-12-11 devnull if(n == 0)
571 b3994ec5 2003-12-11 devnull return FALSE;
572 b3994ec5 2003-12-11 devnull /* see if it's a file name */
573 d5c40a0d 2005-03-14 devnull r = runemalloc(n+1); /* +1 for possible $ below */
574 b3994ec5 2003-12-11 devnull bufread(&t->file->b, q0, r, n);
575 b3994ec5 2003-12-11 devnull /* first, does it have bad chars? */
576 b3994ec5 2003-12-11 devnull nname = -1;
577 b3994ec5 2003-12-11 devnull for(i=0; i<n; i++){
578 b3994ec5 2003-12-11 devnull c = r[i];
579 b3994ec5 2003-12-11 devnull if(c==':' && nname<0){
580 b3994ec5 2003-12-11 devnull if(q0+i+1<t->file->b.nc && (i==n-1 || isaddrc(textreadc(t, q0+i+1))))
581 b3994ec5 2003-12-11 devnull amin = q0+i;
583 b3994ec5 2003-12-11 devnull goto Isntfile;
584 b3994ec5 2003-12-11 devnull nname = i;
587 b3994ec5 2003-12-11 devnull if(nname == -1)
588 b3994ec5 2003-12-11 devnull nname = n;
589 d5c40a0d 2005-03-14 devnull for(i=0; i<nname; i++){
590 d5c40a0d 2005-03-14 devnull if(dodollarsigns && i==0 && r[0]=='$')
591 d5c40a0d 2005-03-14 devnull continue;
592 b3994ec5 2003-12-11 devnull if(!isfilec(r[i]))
593 b3994ec5 2003-12-11 devnull goto Isntfile;
596 b3994ec5 2003-12-11 devnull * See if it's a file name in <>, and turn that into an include
597 b3994ec5 2003-12-11 devnull * file name if so. Should probably do it for "" too, but that's not
598 b3994ec5 2003-12-11 devnull * restrictive enough syntax and checking for a #include earlier on the
599 b3994ec5 2003-12-11 devnull * line would be silly.
601 b3994ec5 2003-12-11 devnull if(q0>0 && textreadc(t, q0-1)=='<' && q1<t->file->b.nc && textreadc(t, q1)=='>'){
602 b3994ec5 2003-12-11 devnull rs = includename(t, r, nname);
603 b3994ec5 2003-12-11 devnull r = rs.r;
604 b3994ec5 2003-12-11 devnull nname = rs.nr;
606 b3994ec5 2003-12-11 devnull else if(amin == q0)
607 b3994ec5 2003-12-11 devnull goto Isfile;
609 d5c40a0d 2005-03-14 devnull if(dodollarsigns && r[0] == '$')
610 44e41b1f 2005-07-13 devnull expandenv(&r, (uint*)&nname);
612 d5c40a0d 2005-03-14 devnull rs = dirname(t, r, nname);
613 d5c40a0d 2005-03-14 devnull r = rs.r;
614 d5c40a0d 2005-03-14 devnull nname = rs.nr;
617 b3994ec5 2003-12-11 devnull e->bname = runetobyte(r, nname);
618 b3994ec5 2003-12-11 devnull /* if it's already a window name, it's a file */
619 b3994ec5 2003-12-11 devnull w = lookfile(r, nname);
620 b3994ec5 2003-12-11 devnull if(w != nil)
621 b3994ec5 2003-12-11 devnull goto Isfile;
622 b3994ec5 2003-12-11 devnull /* if it's the name of a file, it's a file */
623 b3994ec5 2003-12-11 devnull if(access(e->bname, 0) < 0){
624 b3994ec5 2003-12-11 devnull free(e->bname);
625 b3994ec5 2003-12-11 devnull e->bname = nil;
626 b3994ec5 2003-12-11 devnull goto Isntfile;
630 b3994ec5 2003-12-11 devnull e->name = r;
631 b3994ec5 2003-12-11 devnull e->nname = nname;
632 b3994ec5 2003-12-11 devnull e->u.at = t;
633 b3994ec5 2003-12-11 devnull e->a0 = amin+1;
634 b3994ec5 2003-12-11 devnull eval = FALSE;
635 012a8a02 2004-10-22 devnull address(TRUE, nil, range(-1,-1), range(0,0), t, e->a0, amax, tgetc, &eval, (uint*)&e->a1);
636 b3994ec5 2003-12-11 devnull return TRUE;
638 b3994ec5 2003-12-11 devnull Isntfile:
639 b3994ec5 2003-12-11 devnull free(r);
640 b3994ec5 2003-12-11 devnull return FALSE;
644 b3994ec5 2003-12-11 devnull expand(Text *t, uint q0, uint q1, Expand *e)
646 b3994ec5 2003-12-11 devnull memset(e, 0, sizeof *e);
647 b3994ec5 2003-12-11 devnull e->agetc = tgetc;
648 b3994ec5 2003-12-11 devnull /* if in selection, choose selection */
649 b3994ec5 2003-12-11 devnull e->jump = TRUE;
650 b3994ec5 2003-12-11 devnull if(q1==q0 && t->q1>t->q0 && t->q0<=q0 && q0<=t->q1){
651 b3994ec5 2003-12-11 devnull q0 = t->q0;
652 b3994ec5 2003-12-11 devnull q1 = t->q1;
653 b3994ec5 2003-12-11 devnull if(t->what == Tag)
654 b3994ec5 2003-12-11 devnull e->jump = FALSE;
657 b3994ec5 2003-12-11 devnull if(expandfile(t, q0, q1, e))
658 b3994ec5 2003-12-11 devnull return TRUE;
659 b3994ec5 2003-12-11 devnull if(q0 == q1){
660 b3994ec5 2003-12-11 devnull while(q1<t->file->b.nc && isalnum(textreadc(t, q1)))
662 b3994ec5 2003-12-11 devnull while(q0>0 && isalnum(textreadc(t, q0-1)))
665 b3994ec5 2003-12-11 devnull e->q0 = q0;
666 b3994ec5 2003-12-11 devnull e->q1 = q1;
667 b3994ec5 2003-12-11 devnull return q1 > q0;
671 b3994ec5 2003-12-11 devnull lookfile(Rune *s, int n)
673 b3994ec5 2003-12-11 devnull int i, j, k;
674 b3994ec5 2003-12-11 devnull Window *w;
675 b3994ec5 2003-12-11 devnull Column *c;
676 b3994ec5 2003-12-11 devnull Text *t;
678 b3994ec5 2003-12-11 devnull /* avoid terminal slash on directories */
679 b3994ec5 2003-12-11 devnull if(n>1 && s[n-1] == '/')
681 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
682 b3994ec5 2003-12-11 devnull c = row.col[j];
683 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
684 b3994ec5 2003-12-11 devnull w = c->w[i];
685 b3994ec5 2003-12-11 devnull t = &w->body;
686 b3994ec5 2003-12-11 devnull k = t->file->nname;
687 b3994ec5 2003-12-11 devnull if(k>1 && t->file->name[k-1] == '/')
689 b3994ec5 2003-12-11 devnull if(runeeq(t->file->name, k, s, n)){
690 b3994ec5 2003-12-11 devnull w = w->body.file->curtext->w;
691 b3994ec5 2003-12-11 devnull if(w->col != nil) /* protect against race deleting w */
692 b3994ec5 2003-12-11 devnull return w;
696 b3994ec5 2003-12-11 devnull return nil;
700 b3994ec5 2003-12-11 devnull lookid(int id, int dump)
702 b3994ec5 2003-12-11 devnull int i, j;
703 b3994ec5 2003-12-11 devnull Window *w;
704 b3994ec5 2003-12-11 devnull Column *c;
706 b3994ec5 2003-12-11 devnull for(j=0; j<row.ncol; j++){
707 b3994ec5 2003-12-11 devnull c = row.col[j];
708 b3994ec5 2003-12-11 devnull for(i=0; i<c->nw; i++){
709 b3994ec5 2003-12-11 devnull w = c->w[i];
710 b3994ec5 2003-12-11 devnull if(dump && w->dumpid == id)
711 b3994ec5 2003-12-11 devnull return w;
712 b3994ec5 2003-12-11 devnull if(!dump && w->id == id)
713 b3994ec5 2003-12-11 devnull return w;
716 b3994ec5 2003-12-11 devnull return nil;
721 20ae0b0f 2005-12-16 devnull openfile(Text *t, Expand *e, int newwindow)
723 b3994ec5 2003-12-11 devnull Range r;
724 b3994ec5 2003-12-11 devnull Window *w, *ow;
725 b3994ec5 2003-12-11 devnull int eval, i, n;
726 b3994ec5 2003-12-11 devnull Rune *rp;
727 93611313 2006-06-16 devnull Runestr rs;
728 b3994ec5 2003-12-11 devnull uint dummy;
730 a8ec4910 2005-07-13 devnull r.q0 = 0;
731 a8ec4910 2005-07-13 devnull r.q1 = 0;
732 b3994ec5 2003-12-11 devnull if(e->nname == 0){
733 b3994ec5 2003-12-11 devnull w = t->w;
734 b3994ec5 2003-12-11 devnull if(w == nil)
735 b3994ec5 2003-12-11 devnull return nil;
737 b3994ec5 2003-12-11 devnull w = lookfile(e->name, e->nname);
738 93611313 2006-06-16 devnull if(w == nil && e->name[0] != '/'){
740 93611313 2006-06-16 devnull * Unrooted path in new window.
741 93611313 2006-06-16 devnull * This can happen if we type a pwd-relative path
742 93611313 2006-06-16 devnull * in the topmost tag or the column tags.
743 93611313 2006-06-16 devnull * Most of the time plumber takes care of these,
744 93611313 2006-06-16 devnull * but plumber might not be running or might not
745 93611313 2006-06-16 devnull * be configured to accept plumbed directories.
746 93611313 2006-06-16 devnull * Make the name a full path, just like we would if
747 93611313 2006-06-16 devnull * opening via the plumber.
749 93611313 2006-06-16 devnull n = utflen(wdir)+1+e->nname+1;
750 93611313 2006-06-16 devnull rp = runemalloc(n);
751 93611313 2006-06-16 devnull runesnprint(rp, n, "%s/%.*S", wdir, e->nname, e->name);
752 93611313 2006-06-16 devnull rs = cleanrname(runestr(rp, n-1));
753 93611313 2006-06-16 devnull free(e->name);
754 93611313 2006-06-16 devnull e->name = rs.r;
755 93611313 2006-06-16 devnull e->nname = rs.nr;
756 93611313 2006-06-16 devnull w = lookfile(e->name, e->nname);
760 20ae0b0f 2005-12-16 devnull if(newwindow==TRUE && !w->isdir)
761 20ae0b0f 2005-12-16 devnull w = coladd(w->col, nil, w, -1);
762 b3994ec5 2003-12-11 devnull t = &w->body;
763 b3994ec5 2003-12-11 devnull if(!t->col->safe && t->fr.maxlines==0) /* window is obscured by full-column window */
764 b3994ec5 2003-12-11 devnull colgrow(t->col, t->col->w[0], 1);
766 b3994ec5 2003-12-11 devnull ow = nil;
768 b3994ec5 2003-12-11 devnull ow = t->w;
769 b3994ec5 2003-12-11 devnull w = makenewwindow(t);
770 b3994ec5 2003-12-11 devnull t = &w->body;
771 b3994ec5 2003-12-11 devnull winsetname(w, e->name, e->nname);
772 b3994ec5 2003-12-11 devnull textload(t, 0, e->bname, 1);
773 b3994ec5 2003-12-11 devnull t->file->mod = FALSE;
774 b3994ec5 2003-12-11 devnull t->w->dirty = FALSE;
775 b3994ec5 2003-12-11 devnull winsettag(t->w);
776 b3994ec5 2003-12-11 devnull textsetselect(&t->w->tag, t->w->tag.file->b.nc, t->w->tag.file->b.nc);
777 5a8e63b2 2004-02-29 devnull if(ow != nil){
778 b3994ec5 2003-12-11 devnull for(i=ow->nincl; --i>=0; ){
779 b3994ec5 2003-12-11 devnull n = runestrlen(ow->incl[i]);
780 b3994ec5 2003-12-11 devnull rp = runemalloc(n);
781 b3994ec5 2003-12-11 devnull runemove(rp, ow->incl[i], n);
782 b3994ec5 2003-12-11 devnull winaddincl(w, rp, n);
784 5a8e63b2 2004-02-29 devnull w->autoindent = ow->autoindent;
786 5a8e63b2 2004-02-29 devnull w->autoindent = globalautoindent;
788 b3994ec5 2003-12-11 devnull if(e->a1 == e->a0)
789 b3994ec5 2003-12-11 devnull eval = FALSE;
791 b3994ec5 2003-12-11 devnull eval = TRUE;
792 012a8a02 2004-10-22 devnull r = address(TRUE, t, range(-1,-1), range(t->q0, t->q1), e->u.at, e->a0, e->a1, e->agetc, &eval, &dummy);
793 b3994ec5 2003-12-11 devnull if(eval == FALSE)
794 b3994ec5 2003-12-11 devnull e->jump = FALSE; /* don't jump if invalid address */
796 b3994ec5 2003-12-11 devnull if(eval == FALSE){
797 b3994ec5 2003-12-11 devnull r.q0 = t->q0;
798 b3994ec5 2003-12-11 devnull r.q1 = t->q1;
800 b3994ec5 2003-12-11 devnull textshow(t, r.q0, r.q1, 1);
801 b3994ec5 2003-12-11 devnull winsettag(t->w);
802 b3994ec5 2003-12-11 devnull seltext = t;
803 b3994ec5 2003-12-11 devnull if(e->jump)
804 b3994ec5 2003-12-11 devnull moveto(mousectl, addpt(frptofchar(&t->fr, t->fr.p0), Pt(4, font->height-4)));
805 b3994ec5 2003-12-11 devnull return w;
809 b3994ec5 2003-12-11 devnull new(Text *et, Text *t, Text *argt, int flag1, int flag2, Rune *arg, int narg)
811 b3994ec5 2003-12-11 devnull int ndone;
812 b3994ec5 2003-12-11 devnull Rune *a, *f;
813 b3994ec5 2003-12-11 devnull int na, nf;
814 b3994ec5 2003-12-11 devnull Expand e;
815 b3994ec5 2003-12-11 devnull Runestr rs;
817 b3994ec5 2003-12-11 devnull getarg(argt, FALSE, TRUE, &a, &na);
819 b3994ec5 2003-12-11 devnull new(et, t, nil, flag1, flag2, a, na);
820 b3994ec5 2003-12-11 devnull if(narg == 0)
823 b3994ec5 2003-12-11 devnull /* loop condition: *arg is not a blank */
824 b3994ec5 2003-12-11 devnull for(ndone=0; ; ndone++){
825 b3994ec5 2003-12-11 devnull a = findbl(arg, narg, &na);
826 b3994ec5 2003-12-11 devnull if(a == arg){
827 b3994ec5 2003-12-11 devnull if(ndone==0 && et->col!=nil)
828 b3994ec5 2003-12-11 devnull winsettag(coladd(et->col, nil, nil, -1));
831 b3994ec5 2003-12-11 devnull nf = narg-na;
832 b3994ec5 2003-12-11 devnull f = runemalloc(nf);
833 b3994ec5 2003-12-11 devnull runemove(f, arg, nf);
834 b3994ec5 2003-12-11 devnull rs = dirname(et, f, nf);
835 b3994ec5 2003-12-11 devnull memset(&e, 0, sizeof e);
836 cc0e11e4 2007-02-11 devnull e.name = rs.r;
837 cc0e11e4 2007-02-11 devnull e.nname = rs.nr;
838 cc0e11e4 2007-02-11 devnull e.bname = runetobyte(rs.r, rs.nr);
839 b3994ec5 2003-12-11 devnull e.jump = TRUE;
840 20ae0b0f 2005-12-16 devnull openfile(et, &e, FALSE);
841 cc0e11e4 2007-02-11 devnull free(e.name);
842 b3994ec5 2003-12-11 devnull free(e.bname);
843 b3994ec5 2003-12-11 devnull arg = skipbl(a, na, &narg);
