commit ee6d04f9feec5011da240a9e08704c775806c331
from: rsc <devnull@localhost>
date: Wed Apr 21 22:42:01 2004 UTC

undo the madness.

commit - 99f40290902d69956f7ef57b33599c4092021d01
commit + ee6d04f9feec5011da240a9e08704c775806c331
blob - cb9dc67d0444f32ba6770b6b8be48ee66d28d324
blob + 15b1467045b911a358ab3df19b7f1ae00906c4e1
--- src/cmd/acme/exec.c
+++ src/cmd/acme/exec.c
@@ -158,8 +158,6 @@ execute(Text *t, uint aq0, uint aq1, int external, Tex
 			while(q1<t->file->b.nc && isexecc(c=textreadc(t, q1)) && c!=':')
 				q1++;
 			while(q0>0 && isexecc(c=textreadc(t, q0-1)) && c!=':')
-				q0--;
-			if(q0>0 && textreadc(t, q0-1)=='$')
 				q0--;
 			if(q1 == q0)
 				return;
blob - ba3e1d1721f22e0eddcad4cf054ff5a34bfc5b51
blob + 2257d681a094ea3569e7af968285b005d7bf5d21
--- src/cmd/acme/fns.h
+++ src/cmd/acme/fns.h
@@ -92,9 +92,6 @@ char*	edittext(Window*, int, Rune*, int);
 void		flushwarnings(void);
 void		startplumbing(void);
 
-int		expandenv(Rune**, uint*);
-int		abbrevenv(Rune**, uint*);
-
 Runestr	runestr(Rune*, uint);
 Range range(int, int);
 
blob - 67f6c8969d454d3a5e02aa9f0ca37127dbcd1ea2
blob + fb4ae5c4e931ca72d8df0186622634c9524a1580
--- src/cmd/acme/fsys.c
+++ src/cmd/acme/fsys.c
@@ -145,8 +145,6 @@ fsysproc(void *v)
 		if(n <= 0){
 			if(closing)
 				break;
-			if(n == 0)
-				werrstr("short read");
 			error("i/o error on server channel");
 		}
 		if(x == nil){
blob - ce2f772fa55e854f4daf53fc0e1cc4eecbcee703
blob + f892640a27e28e1daceefd8555e14051fbafa9aa
--- src/cmd/acme/look.c
+++ src/cmd/acme/look.c
@@ -14,8 +14,6 @@
 #undef Fid
 #include "dat.h"
 #include "fns.h"
-
-#define debug 0
 
 FsFid *plumbsendfid;
 FsFid *plumbeditfid;
@@ -458,12 +456,10 @@ dirname(Text *t, Rune *r, int n)
 	b = nil;
 	if(t==nil || t->w==nil)
 		goto Rescue;
-	if(n>=1 && r[0]=='$')
-		expandenv(&r, &n);
 	nt = t->w->tag.file->b.nc;
 	if(nt == 0)
 		goto Rescue;
-	if(n>=1 && r[0]=='/')
+	if(n>=1 &&  r[0]=='/')
 		goto Rescue;
 	b = runemalloc(nt+n+1);
 	bufread(&t->w->tag.file->b, 0, b, nt);
@@ -477,12 +473,9 @@ dirname(Text *t, Rune *r, int n)
 	}
 	if(slash < 0)
 		goto Rescue;
-	slash++;
-	if(expandenv(&b, &slash))
-		b = runerealloc(b, slash+n);
-	runemove(b+slash, r, n);
+	runemove(b+slash+1, r, n);
 	free(r);
-	return cleanrname(runestr(b, slash+n));
+	return cleanrname(runestr(b, slash+1+n));
 
     Rescue:
 	free(b);
@@ -542,11 +535,9 @@ expandfile(Text *t, uint q0, uint q1, Expand *e)
 	n = q1-q0;
 	if(n == 0)
 		return FALSE;
-
 	/* see if it's a file name */
-	r = runemalloc(n+1);	/* +1 for $ below */
+	r = runemalloc(n);
 	bufread(&t->file->b, q0, r, n);
-
 	/* first, does it have bad chars? */
 	nname = -1;
 	for(i=0; i<n; i++){
@@ -561,13 +552,9 @@ expandfile(Text *t, uint q0, uint q1, Expand *e)
 	}
 	if(nname == -1)
 		nname = n;
-	for(i=0; i<nname; i++){
-		if(i==0 && r[0]=='$')
-			continue;
+	for(i=0; i<nname; i++)
 		if(!isfilec(r[i]))
 			goto Isntfile;
-	}
-
 	/*
 	 * 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
@@ -582,18 +569,10 @@ expandfile(Text *t, uint q0, uint q1, Expand *e)
 	else if(amin == q0)
 		goto Isfile;
 	else{
-		if(debug) fprint(2, "x1 %.*S\n", nname, r);
-		if(r[0] != '$'){
-			rs = dirname(t, r, nname);
-			r = rs.r;
-			nname = rs.nr;
-			if(debug) fprint(2, "x1.5 %.*S\n", nname, r);
-		}
-		if(r[0]=='$')
-			expandenv(&r, &nname);
-		if(debug) fprint(2, "x2 %.*S\n", nname, r);
+		rs = dirname(t, r, nname);
+		r = rs.r;
+		nname = rs.nr;
 	}
-
 	e->bname = runetobyte(r, nname);
 	/* if it's already a window name, it's a file */
 	w = lookfile(r, nname);
blob - f4747c623d4d4edef86230a057cbf068eab36b15
blob + f72a5bf90244e53039f21c9c7b9768c79aadea00
--- src/cmd/acme/util.c
+++ src/cmd/acme/util.c
@@ -454,4 +454,3 @@ makenewwindow(Text *t)
 		colgrow(w->col, w, 1);
 	return w;
 }
-
blob - 96e2fb706db26a188c0307a4548fba8c14a1d175
blob + 90c440707ddd2fb77f95c7d9ab83ca782d276fa8
--- src/cmd/acme/wind.c
+++ src/cmd/acme/wind.c
@@ -258,7 +258,6 @@ winsetname(Window *w, Rune *name, int n)
 	int i;
 	static Rune Lslashguide[] = { '/', 'g', 'u', 'i', 'd', 'e', 0 };
 	static Rune Lpluserrors[] = { '+', 'E', 'r', 'r', 'o', 'r', 's', 0 };
-
 	t = &w->body;
 	if(runeeq(t->file->name, t->file->nname, name, n) == TRUE)
 		return;
@@ -319,8 +318,8 @@ wincleartag(Window *w)
 void
 winsettag1(Window *w)
 {
-	int i, j, k, n, ntagname, bar, dirty;
-	Rune *new, *old, *tagname, *r;
+	int i, j, k, n, bar, dirty;
+	Rune *new, *old, *r;
 	Image *b;
 	uint q0, q1;
 	Rectangle br;
@@ -332,7 +331,6 @@ winsettag1(Window *w)
 	static Rune Lput[] = { ' ', 'P', 'u', 't', 0 };
 	static Rune Llook[] = { ' ', 'L', 'o', 'o', 'k', ' ', 0 };
 	static Rune Lpipe[] = { ' ', '|', 0 };
-
 	/* there are races that get us here with stuff in the tag cache, so we take extra care to sync it */
 	if(w->tag.ncache!=0 || w->tag.file->mod)
 		wincommit(w, &w->tag);	/* check file name; also guarantees we can modify tag contents */
@@ -342,27 +340,18 @@ winsettag1(Window *w)
 	for(i=0; i<w->tag.file->b.nc; i++)
 		if(old[i]==' ' || old[i]=='\t')
 			break;
-
-	/* make sure the file name is set correctly in the tag */
-	ntagname = w->body.file->nname;
-	tagname = runemalloc(ntagname);
-	runemove(tagname, w->body.file->name, ntagname);
-	abbrevenv(&tagname, &ntagname);
-
-	if(runeeq(old, i, tagname, ntagname) == FALSE){
+	if(runeeq(old, i, w->body.file->name, w->body.file->nname) == FALSE){
 		textdelete(&w->tag, 0, i, TRUE);
-		textinsert(&w->tag, 0, tagname, ntagname, TRUE);
+		textinsert(&w->tag, 0, w->body.file->name, w->body.file->nname, TRUE);
 		free(old);
 		old = runemalloc(w->tag.file->b.nc+1);
 		bufread(&w->tag.file->b, 0, old, w->tag.file->b.nc);
 		old[w->tag.file->b.nc] = '\0';
 	}
-
-	/* compute the text for the whole tag, replacing current only if it differs */
-	new = runemalloc(ntagname+100);
+	new = runemalloc(w->body.file->nname+100);
 	i = 0;
-	runemove(new+i, tagname, ntagname);
-	i += ntagname;
+	runemove(new+i, w->body.file->name, w->body.file->nname);
+	i += w->body.file->nname;
 	runemove(new+i, Ldelsnarf, 10);
 	i += 10;
 	if(w->filemenu){
@@ -400,8 +389,6 @@ winsettag1(Window *w)
 	if(runestrlen(new) != i)
 		fprint(2, "s '%S' len not %d\n", new, i);
 	assert(i==runestrlen(new));
-
-	/* replace tag if the new one is different */
 	if(runeeq(new, i, old, k) == FALSE){
 		n = k;
 		if(n > i)
@@ -424,7 +411,6 @@ winsettag1(Window *w)
 			}
 		}
 	}
-	free(tagname);
 	free(old);
 	free(new);
 	w->tag.file->mod = FALSE;
@@ -477,7 +463,6 @@ wincommit(Window *w, Text *t)
 	for(i=0; i<w->tag.file->b.nc; i++)
 		if(r[i]==' ' || r[i]=='\t')
 			break;
-	expandenv(&r, &i);
 	if(runeeq(r, i, w->body.file->name, w->body.file->nname) == FALSE){
 		seq++;
 		filemark(w->body.file);
@@ -596,153 +581,3 @@ winevent(Window *w, char *fmt, ...)
 		sendp(x->c, nil);
 	}
 }
-
-int
-expandenv(Rune **rp, uint *np)
-{
-	char *s, *t;
-	Rune *p, *r, *q;
-	uint n, pref;
-	int nb, nr, slash;
-	Runestr rs;
-
-	r = *rp;
-	n = *np;
-	if(n == 0 || r[0] != '$')
-		return FALSE;
-	for(p=r+1; *p && *p != '/'; p++)
-		;
-	pref = p-r;
-	s = runetobyte(r+1, pref-1);
-	if((t = getenv(s)) == nil){
-		free(s);
-		return FALSE;
-	}
-
-	q = runemalloc(utflen(t)+(n-pref));
-	cvttorunes(t, strlen(t), q, &nb, &nr, nil);
-	assert(nr==utflen(t));
-	runemove(q+nr, p, n-pref);
-	free(r);
-	rs = runestr(q, nr+(n-pref));
-	slash = rs.nr>0 && q[rs.nr-1] == '/';
-	rs = cleanrname(rs);
-	if(slash){
-		rs.r = runerealloc(rs.r, rs.nr+1);
-		rs.r[rs.nr++] = '/';
-	}
-	*rp = rs.r;
-	*np = rs.nr;
-	return TRUE;
-}
-
-extern char **environ;
-Rune **runeenv;
-
-/*
- * Weird sort order -- shorter names first, 
- * prefer lowercase over uppercase ($home over $HOME),
- * then do normal string comparison.
- */
-int
-runeenvcmp(const void *va, const void *vb)
-{
-	Rune *a, *b;
-	int na, nb;
-
-	a = *(Rune**)va;
-	b = *(Rune**)vb;
-	na = runestrchr(a, '=') - a;
-	nb = runestrchr(b, '=') -  b;
-	if(na < nb)
-		return -1;
-	if(nb > na)
-		return 1;
-	if(na == 0)
-		return 0;
-	if(islowerrune(a[0]) && !islowerrune(b[0]))
-		return -1;
-	if(islowerrune(b[0]) && !islowerrune(a[0]))
-		return 1;
-	return runestrncmp(a, b, na);
-}
-
-void
-mkruneenv(void)
-{
-	int i, bad, n, nr;
-	char *p;
-	Rune *r, *q;
-
-	n = 0;
-	for(i=0; environ[i]; i++){
-		/*
-		 * Ignore some pollution.
-		 */
-		if(environ[i][0] == '_')
-			continue;
-		if(strncmp(environ[i], "PWD=", 4) == 0)
-			continue;
-		if(strncmp(environ[i], "OLDPWD=", 7) == 0)
-			continue;
-
-		/*
-		 * Must be a rooted path.
-		 */
-		if((p = strchr(environ[i], '=')) == nil || *(p+1) != '/')
-			continue;
-
-		/*
-		 * Only use the ones that we accept in look - all isfilec
-		 */
-		bad = 0;
-		r = bytetorune(environ[i], &nr);
-		for(q=r; *q != '='; q++)
-			if(!isfilec(*q)){
-				free(r);
-				bad = 1;
-				break;
-			}
-		if(!bad){
-			runeenv = erealloc(runeenv, (n+1)*sizeof(runeenv[0]));
-			runeenv[n++] = r;
-		}
-	}
-	runeenv = erealloc(runeenv, (n+1)*sizeof(runeenv[0]));
-	runeenv[n] = nil;
-	qsort(runeenv, n, sizeof(runeenv[0]), runeenvcmp);
-}
-
-int
-abbrevenv(Rune **rp, uint *np)
-{
-	int i, len, alen;
-	Rune *r, *p, *q;
-	uint n;
-
-	r = *rp;
-	n = *np;
-	if(n == 0 || r[0] != '/')
-		return FALSE;
-
-	if(runeenv == nil)
-		mkruneenv();
-
-	for(i=0; runeenv[i]; i++){
-		p = runestrchr(runeenv[i], '=')+1;
-		len = runestrlen(p);
-		if(len <= n && (r[len]==0 || r[len]=='/') && runeeq(r, len, p, len)==TRUE){
-			alen = (p-1) - runeenv[i];
-			q = runemalloc(1+alen+n-len);
-			q[0] = '$';
-			runemove(q+1, runeenv[i], alen);
-			runemove(q+1+alen, r+len, n-len);
-			free(r);
-			*rp = q;
-			*np = 1+alen+n-len;
-			return TRUE;
-		}
-	}
-	return FALSE;
-}
-