ref: 21947578303cdb0fcb4b0cdfe80aa9dab5f6b447
dir: /appl/acme/look.b/
implement Look; include "common.m"; sys : Sys; draw : Draw; utils : Utils; dat : Dat; graph : Graph; acme : Acme; framem : Framem; regx : Regx; bufferm : Bufferm; textm : Textm; windowm : Windowm; columnm : Columnm; exec : Exec; scrl : Scroll; plumbmsg : Plumbmsg; sprint : import sys; Point : import draw; warning, isalnum, stralloc, strfree, strchr, tgetc : import utils; Range, TRUE, FALSE, XXX, BUFSIZE, Astring : import Dat; Expand, seltext, row : import dat; cursorset : import graph; frptofchar : import framem; isaddrc, isregexc, address : import regx; Buffer : import bufferm; Text : import textm; Window : import windowm; Column : import columnm; Msg : import plumbmsg; init(mods : ref Dat->Mods) { sys = mods.sys; draw = mods.draw; utils = mods.utils; graph = mods.graph; acme = mods.acme; framem = mods.framem; regx = mods.regx; dat = mods.dat; bufferm = mods.bufferm; textm = mods.textm; windowm = mods.windowm; columnm = mods.columnm; exec = mods.exec; scrl = mods.scroll; plumbmsg = mods.plumbmsg; } nuntitled : int; look3(t : ref Text, q0 : int, q1 : int, external : int) { n, c, f : int; ct : ref Text; e : Expand; r : ref Astring; expanded : int; ct = seltext; if(ct == nil) seltext = t; (expanded, e) = expand(t, q0, q1); if(!external && t.w!=nil && t.w.nopen[Dat->QWevent]>byte 0){ if(!expanded) return; f = 0; if((e.at!=nil && t.w!=nil) || (e.name!=nil && lookfile(e.name, len e.name)!=nil)) f = 1; # acme can do it without loading a file if(q0!=e.q0 || q1!=e.q1) f |= 2; # second (post-expand) message follows if(e.name != nil) f |= 4; # it's a file name c = 'l'; if(t.what == Textm->Body) c = 'L'; n = q1-q0; if(n <= Dat->EVENTSIZE){ r = stralloc(n); t.file.buf.read(q0, r, 0, n); t.w.event(sprint("%c%d %d %d %d %s\n", c, q0, q1, f, n, r.s[0:n])); strfree(r); r = nil; }else t.w.event(sprint("%c%d %d %d 0 \n", c, q0, q1, f)); if(q0==e.q0 && q1==e.q1) return; if(e.name != nil){ n = len e.name; if(e.a1 > e.a0) n += 1+(e.a1-e.a0); r = stralloc(n); for (i := 0; i < len e.name; i++) r.s[i] = e.name[i]; if(e.a1 > e.a0){ r.s[len e.name] = ':'; e.at.file.buf.read(e.a0, r, len e.name+1, e.a1-e.a0); } }else{ n = e.q1 - e.q0; r = stralloc(n); t.file.buf.read(e.q0, r, 0, n); } f &= ~2; if(n <= Dat->EVENTSIZE) t.w.event(sprint("%c%d %d %d %d %s\n", c, e.q0, e.q1, f, n, r.s[0:n])); else t.w.event(sprint("%c%d %d %d 0 \n", c, e.q0, e.q1, f)); strfree(r); r = nil; return; } if(0 && dat->plumbed){ # don't do yet : 2 acmes running => only 1 receives msg m := ref Msg; m.src = "acme"; m.dst = nil; (dir, nil) := dirname(t, nil, 0); if(dir == ".") # sigh dir = nil; if(dir == nil) dir = acme->wdir; m.dir = dir; m.kind = "text"; m.attr = nil; if(q1 == q0){ if(t.q1>t.q0 && t.q0<=q0 && q0<=t.q1){ q0 = t.q0; q1 = t.q1; }else{ p := q0; while(q0 > 0 && (c = tgetc(t, q0-1)) != ' ' && c != '\t' && c != '\n') q0--; while(q1 < t.file.buf.nc && (c = tgetc(t, q1)) != ' ' && c != '\t' && c != '\n') q1++; if(q1 == q0) return; m.attr = "click=" + string (p-q0); } } r = stralloc(q1-q0); t.file.buf.read(q0, r, 0, q1-q0); m.data = array of byte r.s; strfree(r); if(m.send() >= 0) return; # plumber failed to match : fall through } if(!expanded) return; if(e.name != nil || e.at != nil) (nil, e) = openfile(t, e); else{ if(t.w == nil) return; ct = t.w.body; if(t.w != ct.w) ct.w.lock('M'); if(t == ct) ct.setselect(e.q1, e.q1); n = e.q1 - e.q0; r = stralloc(n); t.file.buf.read(e.q0, r, 0, n); if(search(ct, r.s, n) && e.jump) cursorset(frptofchar(ct.frame, ct.frame.p0).add((4, ct.frame.font.height-4))); if(t.w != ct.w) ct.w.unlock(); strfree(r); r = nil; } e.name = nil; e.bname = nil; } plumblook(m : ref Msg) { e : Expand; if (len m.data > Dat->PLUMBSIZE) { warning(nil, sys->sprint("plumb message too long : %s\n", string m.data)); return; } e.q0 = e.q1 = 0; if (len m.data == 0) return; e.ar = nil; e.name = string m.data; if(e.name[0] != '/' && m.dir != nil) e.name = m.dir + "/" + e.name; (e.name, nil) = cleanname(e.name, len e.name); e.bname = e.name; e.jump = TRUE; e.a0 = e.a1 = 0; (found, addr) := plumbmsg->lookup(plumbmsg->string2attrs(m.attr), "addr"); if (found && addr != nil) { e.ar = addr; e.a1 = len addr; } openfile(nil, e); e.at = nil; } plumbshow(m : ref Msg) { w := utils->newwindow(nil); (found, name) := plumbmsg->lookup(plumbmsg->string2attrs(m.attr), "filename"); if (!found || name == nil) { nuntitled++; name = "Untitled-" + string nuntitled; } if (name[0] != '/' && m.dir != nil) name = m.dir + "/" + name; (name, nil) = cleanname(name, len name); w.setname(name, len name); d := string m.data; w.body.insert(0, d, len d, TRUE, FALSE); w.body.file.mod = FALSE; w.dirty = FALSE; w.settag(); scrl->scrdraw(w.body); w.tag.setselect(w.tag.file.buf.nc, w.tag.file.buf.nc); } search(ct : ref Text, r : string, n : int) : int { q, nb, maxn : int; around : int; s : ref Astring; b, c : int; if(n==0 || n>ct.file.buf.nc) return FALSE; if(2*n > BUFSIZE){ warning(nil, "string too long\n"); return FALSE; } maxn = utils->max(2*n, BUFSIZE); s = utils->stralloc(BUFSIZE); b = nb = 0; around = 0; q = ct.q1; for(;;){ if(q >= ct.file.buf.nc){ q = 0; around = 1; nb = 0; } if(nb > 0){ for (c = 0; c < nb; c++) if (s.s[b+c] == r[0]) break; if(c >= nb){ q += nb; nb = 0; if(around && q>=ct.q1) break; continue; } q += c; nb -= c; b += c; } # reload if buffer covers neither string nor rest of file if(nb<n && nb!=ct.file.buf.nc-q){ nb = ct.file.buf.nc-q; if(nb >= maxn) nb = maxn-1; ct.file.buf.read(q, s, 0, nb); b = 0; } if(n <= nb && s.s[b:b+n] == r[0:n]){ if(ct.w != nil){ ct.show(q, q+n, TRUE); ct.w.settag(); }else{ ct.q0 = q; ct.q1 = q+n; } seltext = ct; utils->strfree(s); s = nil; return TRUE; } if(around && q>=ct.q1) break; --nb; b++; q++; } utils->strfree(s); s = nil; return FALSE; } isfilec(r : int) : int { if(isalnum(r)) return TRUE; if(strchr(".-+/:", r) >= 0) return TRUE; return FALSE; } cleanname(b : string, n : int) : (string, int) { i, j, found : int; b = b[0:n]; # compress multiple slashes for(i=0; i<n-1; i++) if(b[i]=='/' && b[i+1]=='/'){ b = b[0:i] + b[i+1:]; --n; --i; } # eliminate ./ for(i=0; i<n-1; i++) if(b[i]=='.' && b[i+1]=='/' && (i==0 || b[i-1]=='/')){ b = b[0:i] + b[i+2:]; n -= 2; --i; } # eliminate trailing . if(n>=2 && b[n-2]=='/' && b[n-1]=='.') { --n; b = b[0:n]; } do{ # compress xx/.. found = FALSE; for(i=1; i<=n-3; i++) if(b[i:i+3] == "/.."){ if(i==n-3 || b[i+3]=='/'){ found = TRUE; break; } } if(found) for(j=i-1; j>=0; --j) if(j==0 || b[j-1]=='/'){ i += 3; # character beyond .. if(i<n && b[i]=='/') ++i; b = b[0:j] + b[i:]; n -= (i-j); break; } }while(found); if(n == 0){ b = "."; n = 1; } return (b, n); } includefile(dir : string, file : string, nfile : int) : (string, int) { m, n : int; a : string; if (dir == ".") { m = 0; a = file; } else { m = 1 + len dir; a = dir + "/" + file; } n = utils->access(a); if(n < 0) { a = nil; return (nil, 0); } file = nil; return cleanname(a, m+nfile); } objdir : string; includename(t : ref Text , r : string, n : int) : (string, int) { file : string; i, nfile : int; w : ref Window; { w = t.w; if(n==0 || r[0]=='/' || w==nil) raise "e"; if(n>2 && r[0]=='.' && r[1]=='/') raise "e"; file = nil; nfile = 0; (file, nfile) = includefile(".", r, n); if (file == nil) { (dr, dn) := dirname(t, r, n); (file, nfile) = includefile(".", dr, dn); } if (file == nil) { for(i=0; i<w.nincl && file==nil; i++) (file, nfile) = includefile(w.incl[i], r, n); } if(file == nil) (file, nfile) = includefile("/module", r, n); if(file == nil) (file, nfile) = includefile("/include", r, n); if(file==nil && objdir!=nil) (file, nfile) = includefile(objdir, r, n); if(file == nil) raise "e"; return (file, nfile); } exception{ * => return (r, n); } return (nil, 0); } dirname(t : ref Text, r : string, n : int) : (string, int) { b : ref Astring; c : int; m, nt : int; slash : int; { b = nil; if(t == nil || t.w == nil) raise "e"; nt = t.w.tag.file.buf.nc; if(nt == 0) raise "e"; if(n>=1 && r[0]=='/') raise "e"; b = stralloc(nt+n+1); t.w.tag.file.buf.read(0, b, 0, nt); slash = -1; for(m=0; m<nt; m++){ c = b.s[m]; if(c == '/') slash = m; if(c==' ' || c=='\t') break; } if(slash < 0) raise "e"; for (i := 0; i < n; i++) b.s[slash+1+i] = r[i]; r = nil; return cleanname(b.s, slash+1+n); } exception{ * => b = nil; if(r != nil) return cleanname(r, n); return (r, n); } return (nil, 0); } expandfile(t : ref Text, q0 : int, q1 : int, e : Expand) : (int, Expand) { i, n, nname, colon : int; amin, amax : int; r : ref Astring; c : int; w : ref Window; amax = q1; if(q1 == q0){ colon = -1; while(q1<t.file.buf.nc && isfilec(c=t.readc(q1))){ if(c == ':'){ colon = q1; break; } q1++; } while(q0>0 && (isfilec(c=t.readc(q0-1)) || isaddrc(c) || isregexc(c))){ q0--; if(colon==-1 && c==':') colon = q0; } # # if it looks like it might begin file: , consume address chars after : # otherwise terminate expansion at : # if(colon>=0 && colon<t.file.buf.nc-1 && isaddrc(t.readc(colon+1))){ q1 = colon+1; while(q1<t.file.buf.nc-1 && isaddrc(t.readc(q1))) q1++; }else if(colon >= 0) q1 = colon; if(q1 > q0) if(colon >= 0){ # stop at white space for(amax=colon+1; amax<t.file.buf.nc; amax++) if((c=t.readc(amax))==' ' || c=='\t' || c=='\n') break; }else amax = t.file.buf.nc; } amin = amax; e.q0 = q0; e.q1 = q1; n = q1-q0; if(n == 0) return (FALSE, e); # see if it's a file name r = stralloc(n); t.file.buf.read(q0, r, 0, n); # first, does it have bad chars? nname = -1; for(i=0; i<n; i++){ c = r.s[i]; if(c==':' && nname<0){ if(q0+i+1<t.file.buf.nc && (i==n-1 || isaddrc(t.readc(q0+i+1)))) amin = q0+i; else { strfree(r); r = nil; return (FALSE, e); } nname = i; } } if(nname == -1) nname = n; for(i=0; i<nname; i++) if(!isfilec(r.s[i])) { strfree(r); r = nil; return (FALSE, e); } # # See if it's a file name in <>, and turn that into an include # file name if so. Should probably do it for "" too, but that's not # restrictive enough syntax and checking for a #include earlier on the # line would be silly. # isfile := 0; if(q0>0 && t.readc(q0-1)=='<' && q1<t.file.buf.nc && t.readc(q1)=='>') (r.s, nname) = includename(t, r.s, nname); else if(q0>0 && t.readc(q0-1)=='"' && q1<t.file.buf.nc && t.readc(q1)=='"') (r.s, nname) = includename(t, r.s, nname); else if(amin == q0) isfile = 1; else (r.s, nname) = dirname(t, r.s, nname); if (!isfile) { e.bname = r.s; # if it's already a window name, it's a file w = lookfile(r.s, nname); # if it's the name of a file, it's a file if(w == nil && utils->access(e.bname) < 0){ e.bname = nil; strfree(r); r = nil; return (FALSE, e); } } e.name = r.s[0:nname]; e.at = t; e.a0 = amin+1; (nil, e.a1, nil) = address(nil, nil, (Range)(-1,-1), (Range)(0, 0), t, nil, e.a0, amax, FALSE); strfree(r); r = nil; return (TRUE, e); } expand(t : ref Text, q0 : int, q1 : int) : (int, Expand) { e : Expand; ok : int; e.q0 = e.q1 = e.a0 = e.a1 = 0; e.name = e.bname = nil; e.at = nil; # if in selection, choose selection e.jump = TRUE; if(q1==q0 && t.q1>t.q0 && t.q0<=q0 && q0<=t.q1){ q0 = t.q0; q1 = t.q1; if(t.what == Textm->Tag) e.jump = FALSE; } (ok, e) = expandfile(t, q0, q1, e); if (ok) return (TRUE, e); if(q0 == q1){ while(q1<t.file.buf.nc && isalnum(t.readc(q1))) q1++; while(q0>0 && isalnum(t.readc(q0-1))) q0--; } e.q0 = q0; e.q1 = q1; return (q1 > q0, e); } lookfile(s : string, n : int) : ref Window { i, j, k : int; w : ref Window; c : ref Column; t : ref Text; # avoid terminal slash on directories if(n > 1 && s[n-1] == '/') --n; for(j=0; j<row.ncol; j++){ c = row.col[j]; for(i=0; i<c.nw; i++){ w = c.w[i]; t = w.body; k = len t.file.name; if(k>0 && t.file.name[k-1] == '/') k--; if(t.file.name[0:k] == s[0:n]){ w = w.body.file.curtext.w; if(w.col != nil) # protect against race deleting w return w; } } } return nil; } lookid(id : int, dump : int) : ref Window { i, j : int; w : ref Window; c : ref Column; for(j=0; j<row.ncol; j++){ c = row.col[j]; for(i=0; i<c.nw; i++){ w = c.w[i]; if(dump && w.dumpid == id) return w; if(!dump && w.id == id) return w; } } return nil; } openfile(t : ref Text, e : Expand) : (ref Window, Expand) { r : Range; w, ow : ref Window; eval, i, n : int; if(e.name == nil){ w = t.w; if(w == nil) return (nil, e); }else w = lookfile(e.name, len e.name); if(w != nil){ t = w.body; if(!t.col.safe && t.frame.maxlines==0) # window is obscured by full-column window t.col.grow(t.col.w[0], 1, 1); } else{ ow = nil; if(t != nil) ow = t.w; w = utils->newwindow(t); t = w.body; w.setname(e.name, len e.name); t.loadx(0, e.bname, 1); t.file.mod = FALSE; t.w.dirty = FALSE; t.w.settag(); t.w.tag.setselect(t.w.tag.file.buf.nc, t.w.tag.file.buf.nc); if(ow != nil) for(i=ow.nincl; --i>=0; ){ n = len ow.incl[i]; w.addincl(ow.incl[i], n); # really do want to copy here } } if(e.a1 == e.a0) eval = FALSE; else (eval, nil, r) = address(nil, t, (Range)(-1, -1), (Range)(t.q0, t.q1), e.at, e.ar, e.a0, e.a1, TRUE); # was (eval, nil, r) = address(nil, t, (Range)(-1, -1), (Range)(t.q0, t.q1), e.at, nil, e.a0, e.a1, TRUE); if(eval == FALSE){ r.q0 = t.q0; r.q1 = t.q1; } t.show(r.q0, r.q1, TRUE); t.w.settag(); seltext = t; if(e.jump) cursorset(frptofchar(t.frame, t.frame.p0).add((4, t.frame.font.height-4))); return (w, e); } new(et : ref Text, t : ref Text, argt : ref Text, flag1 : int, flag2 : int, arg : string, narg : int) { ndone : int; a, f : string; na, nf : int; e : Expand; (nil, a, na) = exec->getarg(argt, FALSE, TRUE); if(a != nil){ new(et, t, nil, flag1, flag2, a, na); if(narg == 0) return; } # loop condition: *arg is not a blank for(ndone=0; ; ndone++){ (a, na) = utils->findbl(arg, narg); if(a == arg){ if(ndone==0 && et.col!=nil) et.col.add(nil, nil, -1).settag(); break; } nf = narg-na; f = arg[0:nf]; # want a copy (f, nf) = dirname(et, f, nf); e.q0 = e.q1 = e.a0 = e.a1 = 0; e.at = nil; e.name = f; e.bname = f; e.jump = TRUE; (nil, e) = openfile(et, e); f = nil; e.bname = nil; (arg, narg) = utils->skipbl(a, na); } }