1997/0327/port/devenv.c (diff list | history)

1997/0327/sys/src/9/port/devenv.c:1,304 – 1997/0408/sys/src/9/port/devenv.c:1,307 (short | long | prev | next)
1990/0227		#include "u.h"
1992/0321		#include "../port/lib.h"
1990/0227		#include "mem.h" #include "dat.h" #include "fns.h"
1992/0111		#include "../port/error.h"
1990/0227
1992/0623		enum
1990/0227		{
1992/0623		Maxenvsize = 16300,
1990/0227		};
1997/0327		static int
1995/0804		envgen(Chan *c, Dirtab*, int, int s, Dir *dp)
1990/0227		{
1991/0705		Egrp *eg;
1992/0623		Evalue *e;
1990/0227
1993/0501		eg = up->egrp;
1992/0623		qlock(eg); for(e = eg->entries; e && s; e = e->link) s--; if(e == 0) { qunlock(eg); return -1;
1990/0227		}
1992/0623		devdir(c, (Qid){e->path, 0}, e->name, e->len, eve, 0666, dp); qunlock(eg); return 1;
1990/0227		}
1997/0327		static Chan*
1990/0227		envattach(char *spec) { return devattach('e', spec); }
1997/0327		static int
1990/0227		envwalk(Chan *c, char *name) {
1991/1018		return devwalk(c, name, 0, 0, envgen);
1990/0227		}
1997/0327		static void
1990/0227		envstat(Chan *c, char *db) { devstat(c, db, 0, 0, envgen); }
1997/0327		static Chan*
1990/0227		envopen(Chan *c, int omode) {
1991/0705		Egrp *eg;
1992/0623		Evalue *e;
1993/0501		eg = up->egrp;
1992/0625		if(c->qid.path & CHDIR) {
1991/1018		if(omode != OREAD)
1990/11211		error(Eperm);
1992/0623		} else { qlock(eg); for(e = eg->entries; e; e = e->link) if(e->path == c->qid.path) break; if(e == 0) { qunlock(eg);
1991/1018		error(Enonexist);
1990/0227		}
1992/0623		if(omode == (OWRITE|OTRUNC) && e->value) { free(e->value); e->value = 0; e->len = 0;
1990/0227		}
1992/0623		qunlock(eg);
1990/0227		}
1992/0623		c->mode = openmode(omode);
1990/0227		c->flag |= COPEN; c->offset = 0; return c; }
1997/0327		static void
1995/0726		envcreate(Chan *c, char *name, int omode, ulong)
1990/0227		{
1991/0705		Egrp *eg;
1992/0623		Evalue *e;
1990/0227
1990/11211		if(c->qid.path != CHDIR) error(Eperm);
1992/0623
1991/1018		omode = openmode(omode);
1993/0501		eg = up->egrp;
1992/0623		qlock(eg); if(waserror()) { qunlock(eg); nexterror();
1990/0227		}
1992/0623		for(e = eg->entries; e; e = e->link) if(strcmp(e->name, name) == 0) error(Einuse); e = smalloc(sizeof(Evalue)); e->name = smalloc(strlen(name)+1); strcpy(e->name, name); e->path = ++eg->path; e->link = eg->entries; eg->entries = e; c->qid = (Qid){e->path, 0}; qunlock(eg); poperror();
1990/0227		c->offset = 0;
1991/1018		c->mode = omode;
1990/0227		c->flag |= COPEN; }
1997/0327		static void
1990/0227		envremove(Chan *c) {
1991/0705		Egrp *eg;
1992/0623		Evalue *e, **l;
1990/0227
1990/11211		if(c->qid.path & CHDIR) error(Eperm);
1992/0623
1993/0501		eg = up->egrp;
1992/0623		qlock(eg); l = &eg->entries; for(e = *l; e; e = e->link) { if(e->path == c->qid.path) break; l = &e->link; } if(e == 0) { qunlock(eg);
1990/11211		error(Enonexist);
1990/0227		}
1992/0623		*l = e->link; qunlock(eg); free(e->name); if(e->value) free(e->value); free(e);
1990/0227		}
1997/0327		static void
1995/0804		envclose(Chan*)
1990/0227		{
1991/1018		}
1990/0227
1997/0327		static long
1991/1018		envread(Chan *c, void *a, long n, ulong offset)
1990/0227		{
1991/1018		Egrp *eg;
1992/0623		Evalue *e;
1990/0227
1990/11211		if(c->qid.path & CHDIR)
1990/0227		return devdirread(c, a, n, 0, 0, envgen);
1992/0623
1993/0501		eg = up->egrp;
1992/0623		qlock(eg); for(e = eg->entries; e; e = e->link) if(e->path == c->qid.path) break; if(e == 0) { qunlock(eg);
1991/1018		error(Enonexist);
1990/0227		}
1992/0623		if(offset + n > e->len) n = e->len - offset;
1990/0227		if(n <= 0) n = 0; else
1992/0623		memmove(a, e->value+offset, n); qunlock(eg);
1990/0227		return n; }
1997/0327		static long
1991/1018		envwrite(Chan *c, void *a, long n, ulong offset)
1990/0227		{
1992/0623		char *s; int vend;
1991/1018		Egrp *eg;
1992/0623		Evalue *e;
1990/0227		if(n <= 0) return 0;
1992/0623		vend = offset+n; if(vend > Maxenvsize)
1991/1018		error(Etoobig);
1992/0623
1993/0501		eg = up->egrp;
1992/0623		qlock(eg); for(e = eg->entries; e; e = e->link) if(e->path == c->qid.path) break; if(e == 0) { qunlock(eg);
1991/1018		error(Enonexist);
1990/0227		}
1992/0623		if(vend > e->len) { s = smalloc(offset+n); memmove(s, e->value, e->len); if(e->value) free(e->value); e->value = s; e->len = vend;
1991/1018		}
1992/0623		memmove(e->value+offset, a, n); qunlock(eg); return n;
1995/0108		}
1997/0327		Dev envdevtab = {
1997/0408		'e', "env",
1997/0327		devreset, devinit, envattach, devclone, envwalk, envstat, envopen, envcreate, envclose, envread, devbread, envwrite, devbwrite, envremove, devwstat, };
1992/0625		void envcpy(Egrp *to, Egrp *from) { Evalue **l, *ne, *e; l = &to->entries; qlock(from); for(e = from->entries; e; e = e->link) { ne = smalloc(sizeof(Evalue)); ne->name = smalloc(strlen(e->name)+1); strcpy(ne->name, e->name); if(e->value) { ne->value = smalloc(e->len); memmove(ne->value, e->value, e->len); ne->len = e->len; } ne->path = ++to->path; *l = ne; l = &ne->link; } qunlock(from); } void closeegrp(Egrp *eg) { Evalue *e, *next; if(decref(eg) == 0) { for(e = eg->entries; e; e = next) { next = e->link; free(e->name); if(e->value) free(e->value); free(e); } free(eg); }
1991/1022		}
1991/0927		/* * to let the kernel set environment variables */ void ksetenv(char *ename, char *eval) { Chan *c; char buf[2*NAMELEN]; sprint(buf, "#e/%s", ename); c = namec(buf, Acreate, OWRITE, 0600);
1997/0327		devtab[c->type]->write(c, eval, strlen(eval), 0); cclose(c);
1991/1102		}