14 Window* openfile(Text*, Expand*);
19 look3(Text *t, uint q0, uint q1, int external)
21 int n, c, f, expanded;
33 expanded = expand(t, q0, q1, &e);
34 if(!external && t->w!=nil && t->w->nopen[QWevent]>0){
35 /* send alphanumeric expansion to external client */
39 if((e.at!=nil && t->w!=nil) || (e.nname>0 && lookfile(e.name, e.nname)!=nil))
40 f = 1; /* acme can do it without loading a file */
41 if(q0!=e.q0 || q1!=e.q1)
42 f |= 2; /* second (post-expand) message follows */
44 f |= 4; /* it's a file name */
51 bufread(t->file, q0, r, n);
52 winevent(t->w, "%c%d %d %d %d %.*S\n", c, q0, q1, f, n, n, r);
55 winevent(t->w, "%c%d %d %d 0 \n", c, q0, q1, f, n);
56 if(q0==e.q0 && q1==e.q1)
63 runemove(r, e.name, e.nname);
66 bufread(e.at->file, e.a0, r+e.nname+1, e.a1-e.a0);
71 bufread(t->file, e.q0, r, n);
75 winevent(t->w, "%c%d %d %d %d %.*S\n", c, e.q0, e.q1, f, n, n, r);
77 winevent(t->w, "%c%d %d %d 0 \n", c, e.q0, e.q1, f, n);
82 /* send whitespace-delimited word to plumber */
83 m = emalloc(sizeof(Plumbmsg));
84 m->src = estrdup("acme");
86 dir = dirname(t, nil, 0);
87 if(dir.nr==1 && dir.r[0]=='.'){ /* sigh */
93 m->wdir = estrdup(wdir);
95 m->wdir = runetobyte(dir.r, dir.nr);
97 m->type = estrdup("text");
101 if(t->q1>t->q0 && t->q0<=q0 && q0<=t->q1){
106 while(q0>0 && (c=tgetc(t, q0-1))!=' ' && c!='\t' && c!='\n')
108 while(q1<t->file->nc && (c=tgetc(t, q1))!=' ' && c!='\t' && c!='\n')
114 sprint(buf, "click=%d", p-q0);
115 m->attr = plumbunpackattr(buf);
118 r = runemalloc(q1-q0);
119 bufread(t->file, q0, r, q1-q0);
120 m->data = runetobyte(r, q1-q0);
121 m->ndata = strlen(m->data);
123 if(m->ndata<messagesize-1024 && plumbsend(plumbsendfd, m) >= 0){
128 /* plumber failed to match; fall through */
131 /* interpret alphanumeric string ourselves */
132 if(expanded == FALSE)
143 textsetselect(ct, e.q1, e.q1);
146 bufread(t->file, e.q0, r, n);
147 if(search(ct, r, n) && e.jump)
148 moveto(mousectl, addpt(frptofchar(ct, ct->p0), Pt(4, ct->font->height-4)));
160 plumbgetc(void *a, uint n)
171 plumblook(Plumbmsg *m)
176 if(m->ndata >= BUFSIZE){
177 warning(nil, "insanely long file name (%d bytes) in plumb message (%.32s...)\n", m->ndata, m->data);
182 if(m->data[0] == '\0')
186 e.name = bytetorune(e.bname, &e.nname);
190 addr = plumblookup(m->attr, "addr");
192 e.ar = bytetorune(addr, &e.a1);
201 plumbshow(Plumbmsg *m)
207 char *name, *p, namebuf[16];
209 w = makenewwindow(nil);
210 name = plumblookup(m->attr, "filename");
214 snprint(namebuf, sizeof namebuf, "Untitled-%d", nuntitled);
217 if(name[0]!='/' && m->wdir!=nil && m->wdir[0]!='\0'){
218 nb = strlen(m->wdir) + 1 + strlen(name) + 1;
220 snprint(p, nb, "%s/%s", m->wdir, name);
223 cvttorunes(name, strlen(name), rb, &nb, &nr, nil);
225 rs = cleanrname((Runestr){rb, nr});
226 winsetname(w, rs.r, rs.nr);
227 r = runemalloc(m->ndata);
228 cvttorunes(m->data, m->ndata, r, &nb, &nr, nil);
229 textinsert(&w->body, 0, r, nr, TRUE);
231 w->body.file->mod = FALSE;
234 textscrdraw(&w->body);
235 textsetselect(&w->tag, w->tag.file->nc, w->tag.file->nc);
239 search(Text *ct, Rune *r, uint n)
245 if(n==0 || n>ct->file->nc)
248 warning(nil, "string too long\n");
251 maxn = max(2*n, RBUFSIZE);
259 if(q >= ct->file->nc){
266 c = runestrchr(b, r[0]);
271 if(around && q>=ct->q1)
279 /* reload if buffer covers neither string nor rest of file */
280 if(nb<n && nb!=ct->file->nc-q){
284 bufread(ct->file, q, s, nb);
288 /* this runeeq is fishy but the null at b[nb] makes it safe */
289 if(runeeq(b, n, r, n)==TRUE){
291 textshow(ct, q, q+n, 1);
304 if(around && q>=ct->q1)
316 if(runestrchr(L".-+/:", r))
321 /* Runestr wrapper for cleanname */
323 cleanrname(Runestr rs)
328 s = runetobyte(rs.r, rs.nr);
330 cvttorunes(s, strlen(s), rs.r, &nb, &rs.nr, &nulls);
336 includefile(Rune *dir, Rune *file, int nfile)
343 a = emalloc((m+1+nfile)*UTFmax+1);
344 sprint(a, "%S/%.*S", dir, nfile, file);
348 return (Runestr){nil, 0};
349 r = runemalloc(m+1+nfile);
351 runemove(r+m, L"/", 1);
352 runemove(r+m+1, file, nfile);
354 return cleanrname((Runestr){r, m+1+nfile});
360 includename(Text *t, Rune *r, int n)
367 if(objdir==nil && objtype!=nil){
368 sprint(buf, "/%s/include", objtype);
369 objdir = bytetorune(buf, &i);
370 objdir = runerealloc(objdir, i+1);
375 if(n==0 || r[0]=='/' || w==nil)
377 if(n>2 && r[0]=='.' && r[1]=='/')
381 for(i=0; i<w->nincl && file.r==nil; i++)
382 file = includefile(w->incl[i], r, n);
385 file = includefile(L"/sys/include", r, n);
386 if(file.r==nil && objdir!=nil)
387 file = includefile(objdir, r, n);
393 return (Runestr){r, n};
397 dirname(Text *t, Rune *r, int n)
405 if(t==nil || t->w==nil)
407 nt = t->w->tag.file->nc;
410 if(n>=1 && r[0]=='/')
412 b = runemalloc(nt+n+1);
413 bufread(t->w->tag.file, 0, b, nt);
419 if(c==' ' || c=='\t')
424 runemove(b+slash+1, r, n);
426 return cleanrname((Runestr){b, slash+1+n});
430 tmp = (Runestr){r, n};
432 return cleanrname(tmp);
437 expandfile(Text *t, uint q0, uint q1, Expand *e)
439 int i, n, nname, colon, eval;
448 while(q1<t->file->nc && isfilec(c=textreadc(t, q1))){
455 while(q0>0 && (isfilec(c=textreadc(t, q0-1)) || isaddrc(c) || isregexc(c))){
457 if(colon<0 && c==':')
461 * if it looks like it might begin file: , consume address chars after :
462 * otherwise terminate expansion at :
466 if(colon<t->file->nc-1 && isaddrc(textreadc(t, colon+1))){
468 while(q1<t->file->nc && isaddrc(textreadc(t, q1)))
473 if(colon >= 0){ /* stop at white space */
474 for(amax=colon+1; amax<t->file->nc; amax++)
475 if((c=textreadc(t, amax))==' ' || c=='\t' || c=='\n')
486 /* see if it's a file name */
488 bufread(t->file, q0, r, n);
489 /* first, does it have bad chars? */
493 if(c==':' && nname<0){
494 if(q0+i+1<t->file->nc && (i==n-1 || isaddrc(textreadc(t, q0+i+1))))
503 for(i=0; i<nname; i++)
507 * See if it's a file name in <>, and turn that into an include
508 * file name if so. Should probably do it for "" too, but that's not
509 * restrictive enough syntax and checking for a #include earlier on the
510 * line would be silly.
512 if(q0>0 && textreadc(t, q0-1)=='<' && q1<t->file->nc && textreadc(t, q1)=='>'){
513 rs = includename(t, r, nname);
520 rs = dirname(t, r, nname);
524 e->bname = runetobyte(r, nname);
525 /* if it's already a window name, it's a file */
526 w = lookfile(r, nname);
529 /* if it's the name of a file, it's a file */
530 if(access(e->bname, 0) < 0){
542 address(nil, nil, (Range){-1,-1}, (Range){0, 0}, t, e->a0, amax, tgetc, &eval, (uint*)&e->a1);
551 expand(Text *t, uint q0, uint q1, Expand *e)
553 memset(e, 0, sizeof *e);
555 /* if in selection, choose selection */
557 if(q1==q0 && t->q1>t->q0 && t->q0<=q0 && q0<=t->q1){
564 if(expandfile(t, q0, q1, e))
568 while(q1<t->file->nc && isalnum(textreadc(t, q1)))
570 while(q0>0 && isalnum(textreadc(t, q0-1)))
579 lookfile(Rune *s, int n)
586 /* avoid terminal slash on directories */
587 if(n>1 && s[n-1] == '/')
589 for(j=0; j<row.ncol; j++){
591 for(i=0; i<c->nw; i++){
595 if(k>1 && t->file->name[k-1] == '/')
597 if(runeeq(t->file->name, k, s, n)){
598 w = w->body.file->curtext->w;
599 if(w->col != nil) /* protect against race deleting w */
608 lookid(int id, int dump)
614 for(j=0; j<row.ncol; j++){
616 for(i=0; i<c->nw; i++){
618 if(dump && w->dumpid == id)
620 if(!dump && w->id == id)
629 openfile(Text *t, Expand *e)
642 w = lookfile(e->name, e->nname);
645 if(!t->col->safe && t->maxlines==0) /* window is obscured by full-column window */
646 colgrow(t->col, t->col->w[0], 1);
651 w = makenewwindow(t);
653 winsetname(w, e->name, e->nname);
654 textload(t, 0, e->bname, 1);
655 t->file->mod = FALSE;
658 textsetselect(&t->w->tag, t->w->tag.file->nc, t->w->tag.file->nc);
660 for(i=ow->nincl; --i>=0; ){
661 n = runestrlen(ow->incl[i]);
663 runemove(rp, ow->incl[i], n);
664 winaddincl(w, rp, n);
666 for(i=0; i < NINDENT; i++)
667 w->indent[i] = ow->indent[i];
669 for(i=0; i < NINDENT; i++)
670 w->indent[i] = globalindent[i];
676 r = address(nil, t, (Range){-1, -1}, (Range){t->q0, t->q1}, e->at, e->a0, e->a1, e->agetc, &eval, &dummy);
678 e->jump = FALSE; /* don't jump if invalid address */
684 textshow(t, r.q0, r.q1, 1);
688 moveto(mousectl, addpt(frptofchar(t, t->p0), Pt(4, font->height-4)));
693 new(Text *et, Text *t, Text *argt, int flag1, int flag2, Rune *arg, int narg)
701 getarg(argt, FALSE, TRUE, &a, &na);
703 new(et, t, nil, flag1, flag2, a, na);
707 /* loop condition: *arg is not a blank */
708 for(ndone=0; ; ndone++){
709 a = findbl(arg, narg, &na);
711 if(ndone==0 && et->col!=nil)
712 winsettag(coladd(et->col, nil, nil, -1));
717 runemove(f, arg, nf);
718 rs = dirname(et, f, nf);
721 memset(&e, 0, sizeof e);
724 e.bname = runetobyte(f, nf);
729 arg = skipbl(a, na, &narg);