shithub: gefs

ref: e02c31e598543f835be60a8fb47c4e20347bb5ef
dir: /fs.c/

#include <u.h>
#include <libc.h>
#include <fcall.h>
#include <avl.h>
#include <bio.h>
#include <pool.h>

#include "dat.h"
#include "fns.h"

int
okname(char *name)
{
	int i;

	if(name[0] == 0)
		return -1;
	if(strcmp(name, ".") == 0 || strcmp(name, "..") == 0)
		return -1;
	for(i = 0; i < Maxname; i++){
		if(name[i] == 0)
			return 0;
		if((name[i]&0xff) < 0x20 || name[i] == '/')
			return -1;
	}
	return -1;
}

static vlong
nextqid(void)
{
	vlong q;

	lock(&fs->qidlk);
	q = fs->nextqid++;
	unlock(&fs->qidlk);
	return q;
}

static char*
fslookup(Fid *f, Key *k, Kvp *kv, Blk **bp, int lk)
{
	char *e;
	Blk *b;

	if(f->root.bp.addr == -1)
		b = getroot(&fs->root, nil);
	else
		b = getblk(f->root.bp, 0);
	if(b == nil)
		return Efs;
	if(lk)
		rlock(f->dent);
	e = btlookupat(b, k, kv, bp);
	if(lk)
		runlock(f->dent);
	return e;
}

static Dent*
getdent(vlong root, vlong pqid, Dir *d)
{
	Dent *e;
	char *ek, *eb;
	u32int h;
	int err;

	h = (ihash(d->qid.path) ^ ihash(root)) % Ndtab;
	lock(&fs->dtablk);
	for(e = fs->dtab[h]; e != nil; e = e->next){
		if(e->qid.path == d->qid.path && e->rootb == root){
			dprint("found %p\n", e);
			ainc(&e->ref);
			unlock(&fs->dtablk);
			return e;
		}
	}

	err = 0;
	if((e = mallocz(sizeof(Dent), 1)) == nil)
		return nil;
	e->ref = 1;
	e->qid = d->qid;
	e->rootb = root;
	e->k = e->buf;
	e->nk = 9 + strlen(d->name) + 1;

	ek = e->buf;
	eb = ek + sizeof(e->buf);
	ek = pack8(&err, ek, eb, Kent);
	ek = pack64(&err, ek, eb, pqid);
	ek = packstr(&err, ek, eb, d->name);
	e->nk = ek - e->buf;
	e->next = fs->dtab[h];
	fs->dtab[h] = e;

	unlock(&fs->dtablk);
	return e;
}

static void
clunkdent(Dent *de)
{
	Dent *e, **pe;
	u32int h;

	if(adec(&de->ref) == 0){
		h = (ihash(de->qid.path) ^ ihash(de->rootb)) % Ndtab;
dprint("freeing dent, hash=%d, p=0x%p\n", h, de);
		lock(&fs->dtablk);
		pe = &fs->dtab[h];
		for(e = fs->dtab[h]; e != nil; e = e->next){
			if(e == de){
				*pe = e->next;
				unlock(&fs->dtablk);
				free(de);
				return;
			}
			pe = &e->next;
		}
		abort();
	}
}

void
showfids(int fd)
{
	int i;
	Fid *f;

	lock(&fs->fidtablk);
	fprint(fd, "fids:---\n");
	for(i = 0; i < Nfidtab; i++)
		for(f = fs->fidtab[i]; f != nil; f = f->next){
			rlock(f->dent);
			fprint(fd, "\tfid[%d]: %d [refs=%ld, k=%K]\n", i, f->fid, f->dent->ref, &f->dent->Key);
			runlock(f->dent);
		}
	unlock(&fs->fidtablk);
}

Fid*
getfid(u32int fid)
{
	u32int h;
	Fid *f;

	h = ihash(fid) % Nfidtab;
	lock(&fs->fidtablk);
	for(f = fs->fidtab[h]; f != nil; f = f->next)
		if(f->fid == fid)
			break;
	unlock(&fs->fidtablk);
	return f;
}

Fid*
dupfid(int new, Fid *f)
{
	Fid *n, *o;
	u32int h;

	h = ihash(new) % Nfidtab;
	if((n = malloc(sizeof(Fid))) == nil)
		return nil;

	*n = *f;
	n->fid = new;
	n->mode = -1;
	n->next = nil;

	lock(&fs->fidtablk);
	ainc(&n->dent->ref);
	for(o = fs->fidtab[h]; o != nil; o = o->next)
		if(o->fid == new)
			break;
	if(o == nil){
		n->next = fs->fidtab[h];
		fs->fidtab[h] = n;
	}
	unlock(&fs->fidtablk);

	if(o != nil){
		werrstr("fid in use: %d == %d", o->fid, new);
		abort();
		free(n);
		return nil;
	}
	return n;
}

void
clunkfid(Fid *fid)
{
	Fid *f, **pf;
	u32int h;

	lock(&fs->fidtablk);
	h = ihash(fid->fid) % Nfidtab;
	pf = &fs->fidtab[h];
	for(f = fs->fidtab[h]; f != nil; f = f->next){
		if(f == fid){
			*pf = f->next;
			goto Found;
		}
		pf = &f->next;
	}
	abort();
Found:
	clunkdent(fid->dent);
	unlock(&fs->fidtablk);
	free(fid);
}

void
fshangup(int fd, char *fmt, ...)
{
	va_list ap;

	va_start(ap, fmt);
	vfprint(2, fmt, ap);
	va_end(ap);
	close(fd);
	abort();
}

Fmsg*
readmsg(int fd, int max)
{
	char szbuf[4];
	int sz;
	Fmsg *m;

	if(readn(fd, szbuf, 4) != 4)
		return nil;
	sz = GBIT32(szbuf);
	if(sz > max)
		return nil;
	if((m = malloc(sizeof(Fmsg)+sz)) == nil)
		return nil;
	if(readn(fd, m->buf+4, sz-4) != sz-4){
		werrstr("short read: %r");
		free(m);
		return nil;
	}
	m->fd = fd;
	m->sz = sz;
	PBIT32(m->buf, sz);
	return m;
}

void
respond(Fmsg *m, Fcall *r)
{
	uchar buf[Max9p];
	int w, n;

	r->tag = m->tag;
	dprint("→ %F\n", r);
	if((n = convS2M(r, buf, sizeof(buf))) == 0)
		abort();
	qlock(m->wrlk);
	w = write(m->fd, buf, n);
	qunlock(m->wrlk);
	if(w != n)
		fshangup(m->fd, "failed write");
	free(m);
}

void
rerror(Fmsg *m, char *fmt, ...)
{
	char buf[128];
	va_list ap;
	Fcall r;

	va_start(ap, fmt);
	vsnprint(buf, sizeof(buf), fmt, ap);
	va_end(ap);
	r.type = Rerror;
	r.ename = buf;
	respond(m, &r);
}

Chan*
mkchan(int size)
{
	Chan *c;

	if((c = mallocz(sizeof(Chan) + size*sizeof(void*), 1)) == nil)
		sysfatal("create channel");
	c->size = size;
	c->avail = size;
	c->count = 0;
	c->rp = c->args;
	c->wp = c->args;
	return c;

}

Fmsg*
chrecv(Chan *c)
{
	void *a;
	long v;

	v = c->count;
	if(v == 0 || cas(&c->count, v, v-1) == 0)
		semacquire(&c->count, 1);
	lock(&c->rl);
	a = *c->rp;
	if(++c->rp >= &c->args[c->size])
		c->rp = c->args;
	unlock(&c->rl);
	semrelease(&c->avail, 1);
	return a;
}

void
chsend(Chan *c, Fmsg *m)
{
	long v;

	v = c->avail;
	if(v == 0 || cas(&c->avail, v, v-1) == 0)
		semacquire(&c->avail, 1);
	lock(&c->wl);
	*c->wp = m;
	if(++c->wp >= &c->args[c->size])
		c->wp = c->args;
	unlock(&c->wl);
	semrelease(&c->count, 1);

}

void
fsversion(Fmsg *m, int *msz)
{
	Fcall r;

	memset(&r, 0, sizeof(Fcall));
	if(strcmp(m->version, "9P2000") == 0){
		if(m->msize < *msz)
			*msz = m->msize;
		r.type = Rversion;
		r.msize = *msz;
	}else{
		r.type = Rversion;
		r.version = "unknown";
	}
	respond(m, &r);
}

void
fsauth(Fmsg *m)
{
	Fcall r;

	r.type = Rerror;
	r.ename = "unimplemented auth";
	respond(m, &r);
}

void
fsattach(Fmsg *m, int iounit)
{
	char *p, *ep, buf[128];
	int err;
	Dent *e;
	Fcall r;
	Kvp kv;
	Key dk;
	Blk *b;
	Fid f;
	Dir d;

	err = 0;
	p = buf;
	ep = buf + sizeof(buf);
	p = pack8(&err, p, ep, Kent);
	p = pack64(&err, p, ep, -1ULL);
	p = packstr(&err, p, ep, "");
	dk.k = buf;
	dk.nk = p - buf;
showfs("attach");
	if(btlookup(&fs->root, &dk, &kv, &b) != nil){
		rerror(m, Efs);
		return;
	}
	r.type = Rattach;
	if(kv2dir(&kv, &d) == -1){
		rerror(m, Efs);
		putblk(b);
		return;
	}
	if((e = getdent(-1, -1, &d)) == nil){
		rerror(m, Efs);
		putblk(b);
		return;
	}
	putblk(b);

	/*
	 * A bit of a hack; we're duping a fid
	 * that doesn't exist, so we'd be off
	 * by one on the refcount. Adjust to
	 * compensate for the dup.
	 */
	adec(&e->ref);

	memset(&f, 0, sizeof(Fid));
	f.fid = NOFID;
	f.qpath = d.qid.path;
	f.mode = -1;
	f.root.bp.addr = -1;
	f.root.bp.hash = -1;
	f.iounit = iounit;
	f.dent = e;
	if(dupfid(m->fid, &f) == nil){
		rerror(m, Enomem);
		return;
	}
	r.qid = d.qid;
	respond(m, &r);
	return;
}

void
fswalk(Fmsg *m)
{
	char *p, *e, *estr, kbuf[Maxent];
	int i, err;
	vlong up, prev;
	Fid *o, *f;
	Dent *dent;
	Fcall r;
	Blk *b;
	Kvp kv;
	Key k;
	Dir d;

	if((o = getfid(m->fid)) == nil){
		rerror(m, Efid);
		return;
	}
	if(o->mode != -1){
		rerror(m, Einuse);
		return;
	}
	err = 0;
	estr = nil;
	up = o->qpath;
	prev = o->qpath;
	r.type = Rwalk;
	r.nwqid = 0;
	for(i = 0; i < m->nwname; i++){
		up = prev;
		p = kbuf;
		e = p + sizeof(kbuf);
		p = pack8(&err, p, e, Kent);
		p = pack64(&err, p, e, up);
		p = packstr(&err, p, e, m->wname[i]);
		if(err){
			rerror(m, "bad walk: %r");
			return;
		}
		k.k = kbuf;
		k.nk = p - kbuf;
//showfs("walking");
//dprint("looking up %K\n", &k);
		if((estr = fslookup(o, &k, &kv, &b, 0)) != nil)
			break;
		if(kv2dir(&kv, &d) == -1){
			rerror(m, Efs);
			putblk(b);
			return;
		}
		prev = d.qid.path;
		putblk(b);
		r.wqid[r.nwqid] = d.qid;
		r.nwqid++;
	}
	if(i == 0 && m->nwname != 0){
		rerror(m, estr);
		return;
	}
	f = o;
	if(m->fid != m->newfid){
		if((f = dupfid(m->newfid, o)) == nil){
			rerror(m, "%r");
			return;
		}
	}
	if(i > 0){
		d.name = m->wname[i-1];
		dent = getdent(f->root.bp.addr, up, &d);
		if(dent == nil){
			if(m->fid != m->newfid)
				clunkfid(f);
			rerror(m, Enomem);
			return;
		}
		f->qpath = r.wqid[r.nwqid-1].path;
		f->dent = dent;
	}
	respond(m, &r);
}

void
fsstat(Fmsg *m)
{
	char buf[STATMAX];
	Fcall r;
	Fid *f;
	Kvp kv;
	Blk *b;
	int n;

	if((f = getfid(m->fid)) == nil){
		rerror(m, "no such fid");
		return;
	}
	if(btlookup(&fs->root, f->dent, &kv, &b) != nil){
		rerror(m, Eexist);
		return;
	}
	if((n = kv2statbuf(&kv, buf, sizeof(buf))) == -1){
		rerror(m, "stat: %r");
		return;
	}
	r.type = Rstat;
	r.stat = (uchar*)buf;
	r.nstat = n;
	respond(m, &r);
	putblk(b);
}

void
fswstat(Fmsg *m)
{
	USED(m);
	rerror(m, "wstat unimplemented");
}

void
fsclunk(Fmsg *m)
{
	Fcall r;
	Fid *f;

	if((f = getfid(m->fid)) == nil){
		rerror(m, "no such fid");
		return;
	}
	clunkfid(f);
	r.type = Rclunk;
	respond(m, &r);
}

void
fscreate(Fmsg *m)
{
	char buf[Kvmax];
	Dent *dent;
	Fcall r;
	Msg mb;
	Fid *f;
	Dir d;

	if(okname(m->name) == -1){
		rerror(m, Ename);
		return;
	}
	if((f = getfid(m->fid)) == nil){
		rerror(m, "no such fid");
		return;
	}
	if(m->perm & (DMMOUNT|DMAUTH)){
		rerror(m, "unknown permission");
		return;
	}
	d.qid.type = 0;
	if(m->perm & DMDIR)
		d.qid.type |= QTDIR;
	if(m->perm & DMAPPEND)
		d.qid.type |= QTAPPEND;
	if(m->perm & DMEXCL)
		d.qid.type |= QTEXCL;
	if(m->perm & DMTMP)
		d.qid.type |= QTTMP;
	d.qid.path = nextqid();
	d.qid.vers = 0;
	d.mode = m->perm;
	d.name = m->name;
	d.atime = nsec();
	d.mtime = d.atime;
	d.length = 0;
	d.uid = "glenda";
	d.gid = "glenda";
	d.muid = "glenda";
	mb.op = Oinsert;
	if(dir2kv(f->qpath, &d, &mb, buf, sizeof(buf)) == -1){
		rerror(m, "%r");
		return;
	}
	if(btupsert(&fs->root, &mb, 1) == -1){
		rerror(m, "%r");
		return;
	}
	dent = getdent(f->root.bp.addr, f->qpath, &d);
	if(dent == nil){
		if(m->fid != m->newfid)
			clunkfid(f);
		rerror(m, Enomem);
		return;
	}

	lock(f);
	if(f->mode != -1){
		unlock(f);
		clunkdent(dent);
		rerror(m, Einuse);
		return;
	}
	f->mode = m->mode;
	f->qpath = d.qid.path;
	f->dent = dent;
	wlock(f->dent);
//	freeb(dent, 0, dent->length);
	dent->length = 0;
	wunlock(f->dent);
	unlock(f);

	r.type = Rcreate;
	r.qid = d.qid;
	r.iounit = f->iounit;
	respond(m, &r);
		
}

void
fsremove(Fmsg *m)
{
	Fcall r;
	Msg mb;
	Fid *f;

	if((f = getfid(m->fid)) == nil){
		rerror(m, "no such fid");
		return;
	}

	rlock(f->dent);
	mb.op = Odelete;
	mb.k = f->dent->k;
	mb.nk = f->dent->nk;
	mb.nv = 0;
//showfs("preremove");
	if(btupsert(&fs->root, &mb, 1) == -1){
		runlock(f->dent);
		rerror(m, "remove: %r");
		return;
	}
	runlock(f->dent);
	clunkfid(f);

	r.type = Rremove;
	respond(m, &r);
}

int
fsaccess(Dir*, int)
{
	/* all is permitted */
	return 0;
}

void
fsopen(Fmsg *m)
{
	Fcall r;
	char *e;
	Dir d;
	Fid *f;
	Blk *b;
	Kvp kv;

	if((f = getfid(m->fid)) == nil){
		rerror(m, Efid);
		return;
	}
	if((e = fslookup(f, f->dent, &kv, &b, 0)) != nil){
		rerror(m, e);
		return;
	}
	if(kv2dir(&kv, &d) == -1){
		rerror(m, Efs);
		putblk(b);
	}
	if(fsaccess(&d, m->mode) == -1){
		rerror(m, Eperm);
		putblk(b);
		return;
	}
	wlock(f->dent);
	f->dent->length = d.length;
	wunlock(f->dent);
	r.type = Ropen;
	r.qid = d.qid;
	r.iounit = f->iounit;
	putblk(b);

	lock(f);
	if(f->mode != -1){
		rerror(m, Einuse);
		unlock(f);
		return;
	}
	f->mode = m->mode;
	if((f->mode & 0x7) == OEXEC){
		lock(&fs->root.lk);
		f->root = fs->root;
//		refblk(fs->root.bp);
		unlock(&fs->root.lk);
	}
	if(f->mode & OTRUNC){
		wlock(f->dent);
//		freeb(f->dent, 0, dent->length);
		f->dent->length = 0;
		wunlock(f->dent);
	}
	unlock(f);
	respond(m, &r);
}

char*
fsreaddir(Fmsg *m, Fid *f, Fcall *r)
{
	char pfx[9], *p, *e;
	int n, ns, done;
	Tree *t;
	Scan *s;

	s = f->scan;
	if(s != nil && s->offset != 0 && s->offset != m->offset)
		return Edscan;
	if(s == nil || m->offset == 0){
		print("scan starting\n");
		if((s = mallocz(sizeof(Scan), 1)) == nil)
			return "out of memory";

		pfx[0] = Kent;
		PBIT64(pfx+1, f->qpath);
		t = (f->root.bp.addr != -1) ? &f->root : &fs->root;
		if((e = btscan(t, s, pfx, sizeof(pfx))) != nil){
			free(r->data);
			btdone(s);
			return e;
		}

		lock(f);
		if(f->scan != nil)
			btdone(f->scan);
		f->scan = s;
		unlock(f);
	}
	if(s->done){
		fprint(2, "early done...\n");
		r->count = 0;
		return nil;
	}
	p = r->data;
	n = m->count;
	if(s->overflow){
		if((ns = convD2M(&s->dir, (uchar*)p, n)) <= BIT16SZ)
			return Edscan;
		s->overflow = 0;
		p += ns;
		n -= ns;
	}
	while(1){
		if((e = btnext(s, &s->kv, &done)) != nil)
			return e;
		if(done)
			break;
		if((ns = convD2M(&s->dir, (uchar*)p, n)) <= BIT16SZ){
			s->overflow = 1;
			break;
		}
		fprint(2, "*** nscan: %d\n", ns);
		p += ns;
		n -= ns;
	}
	r->count = p - r->data;
	return nil;
}

int
readb(Fid *f, char *d, vlong o, vlong n, int sz)
{
	char *e, buf[17];
	vlong fb, fo;
	Bptr bp;
	Blk *b;
	Key k;
	Kvp kv;

	if(o >= sz)
		return 0;

	fb = o & ~(Blksz-1);
	fo = o & (Blksz-1);

	k.k = buf;
	k.nk = sizeof(buf);
	k.k[0] = Kdat;
	PBIT64(k.k+1, f->qpath);
	PBIT64(k.k+9, fb);

	e = fslookup(f, &k, &kv, &b, 0);
	if(e != nil && e != Eexist){
		fprint(2, "!!! error: %s", e);
		werrstr(e);
		return -1;
	}
	fprint(2, "\treadb: key=%K, val=%P\n", &k, &kv);
	bp.addr = GBIT64(kv.v+0);
	bp.hash = GBIT64(kv.v+8);
	putblk(b);

	if((b = getblk(bp, GBraw)) == nil)
		return -1;
	if(fo+n > Blksz)
		n = Blksz-fo;
	if(b != nil){
		fprint(2, "\tcopying %lld to resp %p\n", n, d);
		memcpy(d, b->buf+fo, n);
		putblk(b);
	}else
		memset(d, 0, n);
	return n;
}

char*
fsreadfile(Fmsg *m, Fid *f, Fcall *r)
{
	vlong n, c, o;
	char *p;
	Dent *e;

	r->type = Rread;
	r->count = 0;
	e = f->dent;
	rlock(e);
	if(m->offset > e->length){
		runlock(e);
		return nil;
	}
	if((r->data = malloc(m->count)) == nil){
		runlock(e);
		return Enomem;
	}
	p = r->data;
	c = m->count;
	o = m->offset;
	if(m->offset + m->count > e->length)
		c = e->length - m->offset;
	while(c != 0){
		n = readb(f, p, o, c, e->length);
		if(n == -1){
			fprint(2, "read: %r\n");
			runlock(e);
			return Efs;
		}
		r->count += n;
		if(n == 0)
			break;
		p += n;
		o += n;
		c -= n;
	}
	runlock(e);
	return nil;
}

void
fsread(Fmsg *m)
{
	char *e;
	Fcall r;
	Fid *f;

	if((f = getfid(m->fid)) == nil){
		rerror(m, Efid);
		return;
	}
//showfs("fs contents before read");
	fprint(2, "\n");
	r.type = Rread;
	r.count = 0;
	if((r.data = malloc(m->count)) == nil){
		rerror(m, Emem);
		return;
	}
	fprint(2, "\nread{{{{\n");
	if(f->dent->qid.type & QTDIR)
		e = fsreaddir(m, f, &r);
	else
		e = fsreadfile(m, f, &r);
	if(e != nil){
		rerror(m, e);
		return;
	}else{
		respond(m, &r);
		free(r.data);
	}
	fprint(2, "\n}}}read\n");
}

int
writeb(Fid *f, Msg *m, char *s, vlong o, vlong n, vlong sz)
{
	vlong fb, fo;
	uvlong bh;
	Bptr bp;
	Blk *b, *t;
	Kvp kv;

	fb = o & ~(Blksz-1);
	fo = o & (Blksz-1);

	m->k[0] = Kdat;
	PBIT64(m->k+1, f->qpath);
	PBIT64(m->k+9, fb);


	b = newblk(Traw);
	if(b == nil)
		return -1;
	if(fb < sz && (fo != 0 || n != Blksz)){
		fprint(2, "\tappending to block %llx\n", b->off);
		if(fslookup(f, m, &kv, &t, 0) != nil){
			putblk(b);
			return -1;
		}
		bp.addr = GBIT64(kv.v+0);
		bp.hash = GBIT64(kv.v+8);
		putblk(t);

		if((t = getblk(bp, GBraw)) == nil){
			putblk(b);
			return -1;
		}
		memcpy(b->buf, t->buf, Blksz);
		putblk(t);
	}
	if(fo+n > Blksz)
		n = Blksz-fo;
	memcpy(b->buf+fo, s, n);
	enqueue(b);

	bh = blkhash(b);
	PBIT64(m->v+0, b->off);
	PBIT64(m->v+8, bh);
	putblk(b);
	checkfs();
	poolcheck(mainmem);
	return n;
}

void
fswrite(Fmsg *m)
{
	char sbuf[8], offbuf[4][Ptrsz+Offsz], *p;
	vlong n, o, c;
	Msg kv[4];
	Fcall r;
	Fid *f;
	int i;

	if((f = getfid(m->fid)) == nil){
		rerror(m, Efid);
		return;
	}
	if((f->mode&0x7) != OWRITE){
		dprint("f->mode: %x\n", f->mode);
		rerror(m, Einuse);
		return;
	}

	wlock(f->dent);
	p = m->data;
	o = m->offset;
	c = m->count;
	for(i = 0; i < nelem(kv)-1 && c != 0; i++){
		kv[i].op = Oinsert;
		kv[i].k = offbuf[i];
		kv[i].nk = Offsz;
		kv[i].v = offbuf[i]+Offsz;
		kv[i].nv = 16;
		n = writeb(f, &kv[i], p, o, c, f->dent->length);
		if(n == -1){
			// badwrite(f, i);
			// FIXME: free pages
			rerror(m, "%r");
		}
		p += n;
		o += n;
		c -= n;
	}

	kv[i].op = Owstat;
	kv[i].k = f->dent->k;
	kv[i].nk = f->dent->nk;
	kv[i].v = sbuf;
	kv[i].nv = 0;
	if(m->offset+m->count > f->dent->length){
		kv[i].op |= Owsize;
		kv[i].nv += 8;
		PBIT64(kv[i].v, m->offset+m->count);
		f->dent->length = m->offset+m->count;
	}
	btupsert(&fs->root, kv, i+1);
	wunlock(f->dent);

	r.type = Rwrite;
	r.count = m->count;
	respond(m, &r);
}

void
runfs(void *pfd)
{
	int fd, msgmax;
	char err[128];
	QLock *wrlk;
	Fcall r;
	Fmsg *m;

	fd = (uintptr)pfd;
	msgmax = Max9p;
	if((wrlk = mallocz(sizeof(QLock), 1)) == nil)
		fshangup(fd, "alloc wrlk: %r");
	while(1){
		if((m = readmsg(fd, msgmax)) == nil){
			fshangup(fd, "truncated message: %r");
			return;
		}
		if(convM2S(m->buf, m->sz, m) == 0){
			fshangup(fd, "invalid message: %r");
			return;
		}
/*
		if(m->type != Tversion && !versioned){
			fshangup(fd, "version required");
			return;
		}
*/
		m->wrlk = wrlk;
		dprint("← %F\n", &m->Fcall);
		switch(m->type){
		/* sync setup */
		case Tversion:	fsversion(m, &msgmax);	break;
		case Tauth:	fsauth(m);		break;
		case Tclunk:	fsclunk(m);		break;
		case Topen:	fsopen(m);		break;
		case Tattach:	fsattach(m, msgmax);	break;

		/* mutators */
		case Tflush:	chsend(fs->wrchan, m);	break;
		case Tcreate:	chsend(fs->wrchan, m);	break;
		case Twrite:	chsend(fs->wrchan, m);	break;
		case Twstat:	chsend(fs->wrchan, m);	break;
		case Tremove:	chsend(fs->wrchan, m);	break;

		/* reads */
		case Twalk:	chsend(fs->rdchan, m);	break;
		case Tread:	chsend(fs->rdchan, m);	break;
		case Tstat:	chsend(fs->rdchan, m);	break;
		default:
			fprint(2, "unknown message %F\n", &m->Fcall);
			snprint(err, sizeof(err), "unknown message: %F", &m->Fcall);
			r.type = Rerror;
			r.ename = err;
			respond(m, &r);
			break;
		}
	}
}

void
runwrite(void *)
{
	Fmsg *m;

	while(1){
		m = chrecv(fs->wrchan);
		switch(m->type){
		case Tflush:	rerror(m, "unimplemented flush");	break;
		case Tcreate:	fscreate(m);	break;
		case Twrite:	fswrite(m);	break;
		case Twstat:	fswstat(m);	break;
		case Tremove:	fsremove(m);	break;
		}
	}
}

void
runread(void *)
{
	Fmsg *m;

	while(1){
		m = chrecv(fs->rdchan);
		switch(m->type){
		case Twalk:	fswalk(m);	break;
		case Tread:	fsread(m);	break;
		case Tstat:	fsstat(m);	break;
		}
	}
}

void
runctl(void *pfd)
{
	char buf[256], *arg[4];
	int fd, n, narg;

	fd = (uintptr)pfd;
	while(1){
		if((n = read(fd, buf, sizeof(buf)-1)) == -1)
			break;
		buf[n] = 0;
		narg = tokenize(buf, arg, nelem(arg));
		if(narg == 0 || strlen(arg[0]) == 0)
			continue;
		if(strcmp(arg[0], "show") == 0){
			if(narg == 0)
				fshowfs(fd, "show");
			if(narg == 2 && strcmp(arg[1], "fid") == 0)
				showfids(fd);
			else
				fprint(fd, "show me yours first");
		}else if(strcmp(arg[0], "check") == 0)
			checkfs();
		else if(strcmp(arg[0], "dbg") && narg == 2)
			debug = atoi(arg[1]);
		else
			fprint(fd, "unknown command %s\n", arg[0]);
	}
}