#include	"all.h"#include	"9p1.h" voidfcall9p1(Chan *cp, Oldfcall *in, Oldfcall *ou){	int t; 	rlock(&mainlock);	t = in->type;	if(t < 0 || t >= MAXSYSCALL || (t&1) || !call9p1[t]) {		print("bad message type %d\n", t);		panic("");	}	ou->type = t+1;	ou->err = 0; 	rlock(&cp->reflock);	(*call9p1[t])(cp, in, ou);	runlock(&cp->reflock); 	if(ou->err)		if(CHAT(cp))			print("	error: %s\n", errstring[ou->err]);	cons.work.count++;	runlock(&mainlock);} intcon_session(void){	Oldfcall in, ou; 	in.type = Tsession9p1;	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_attach(int fid, char *uid, char *arg){	Oldfcall in, ou; 	in.type = Tattach9p1;	in.fid = fid;	strncpy(in.uname, uid, NAMELEN);	strncpy(in.aname, arg, NAMELEN);	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_clone(int fid1, int fid2){	Oldfcall in, ou; 	in.type = Tclone9p1;	in.fid = fid1;	in.newfid = fid2;	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_path(int fid, char *path){	Oldfcall in, ou;	char *p; 	in.type = Twalk9p1;	in.fid = fid; loop:	if(*path == 0)		return 0;	strncpy(in.name, path, NAMELEN);	if(p = strchr(path, '/')) {		path = p+1;		if(p = strchr(in.name, '/'))			*p = 0;	} else		path = strchr(path, 0);	if(in.name[0]) {		fcall9p1(cons.chan, &in, &ou);		if(ou.err)			return ou.err;	}	goto loop;} intcon_walk(int fid, char *name){	Oldfcall in, ou; 	in.type = Twalk9p1;	in.fid = fid;	strncpy(in.name, name, NAMELEN);	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_stat(int fid, char *data){	Oldfcall in, ou; 	in.type = Tstat9p1;	in.fid = fid;	fcall9p1(cons.chan, &in, &ou);	if(ou.err == 0)		memmove(data, ou.stat, sizeof ou.stat);	return ou.err;} intcon_wstat(int fid, char *data){	Oldfcall in, ou; 	in.type = Twstat9p1;	in.fid = fid;	memmove(in.stat, data, sizeof in.stat);	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_open(int fid, int mode){	Oldfcall in, ou; 	in.type = Topen9p1;	in.fid = fid;	in.mode = mode;	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_read(int fid, char *data, long offset, int count){	Oldfcall in, ou; 	in.type = Tread9p1;	in.fid = fid;	in.offset = offset;	in.count = count;	ou.data = data;	fcall9p1(cons.chan, &in, &ou);	if(ou.err)		return 0;	return ou.count;} intcon_write(int fid, char *data, long offset, int count){	Oldfcall in, ou; 	in.type = Twrite9p1;	in.fid = fid;	in.data = data;	in.offset = offset;	in.count = count;	fcall9p1(cons.chan, &in, &ou);	if(ou.err)		return 0;	return ou.count;} intcon_remove(int fid){	Oldfcall in, ou; 	in.type = Tremove9p1;	in.fid = fid;	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intcon_create(int fid, char *name, int uid, int gid, long perm, int mode){	Oldfcall in, ou; 	in.type = Tcreate9p1;	in.fid = fid;	strncpy(in.name, name, NAMELEN);	in.perm = perm;	in.mode = mode;	cons.uid = uid;			/* beyond ugly */	cons.gid = gid;	fcall9p1(cons.chan, &in, &ou);	return ou.err;} intdoclri(File *f){	Iobuf *p, *p1;	Dentry *d, *d1;	int err; 	err = 0;	p = 0;	p1 = 0;	if(isro(f->fs->dev)) {		err = Eronly;		goto out;	}	/*	 * check on parent directory of file to be deleted	 */	if(f->wpath == 0 || f->wpath->addr == f->addr) {		err = Ephase;		goto out;	}	p1 = getbuf(f->fs->dev, f->wpath->addr, Bread);	d1 = getdir(p1, f->wpath->slot);	if(!d1 || checktag(p1, Tdir, QPNONE) || !(d1->mode & DALLOC)) {		err = Ephase;		goto out;	} 	accessdir(p1, d1, FWRITE);	putbuf(p1);	p1 = 0; 	/*	 * check on file to be deleted	 */	p = getbuf(f->fs->dev, f->addr, Bread);	d = getdir(p, f->slot);  	/*	 * do it	 */	memset(d, 0, sizeof(Dentry));	settag(p, Tdir, QPNONE);	freewp(f->wpath);	freefp(f); out:	if(p1)		putbuf(p1);	if(p)		putbuf(p);	return err;} voidf_clri(Chan *cp, Oldfcall *in, Oldfcall *ou){	File *f; 	if(CHAT(cp)) {		print("c_clri %d\n", cp->chan);		print("	fid = %ud\n", in->fid);	} 	f = filep(cp, in->fid, 0);	if(!f) {		ou->err = Efid;		goto out;	}	ou->err = doclri(f); out:	ou->fid = in->fid;	if(f)		qunlock(f);} intcon_clri(int fid){	Oldfcall in, ou;	Chan *cp; 	in.type = Tremove9p1;	in.fid = fid;	cp = cons.chan; 	rlock(&mainlock);	ou.type = Tremove9p1+1;	ou.err = 0; 	rlock(&cp->reflock); 	f_clri(cp, &in, &ou); 	runlock(&cp->reflock); 	cons.work.count++;	runlock(&mainlock);	return ou.err;} intcon_swap(int fid1, int fid2){	int err;	Iobuf *p1, *p2;	File *f1, *f2;	Dentry *d1, *d2;	Dentry dt1, dt2;	Chan *cp; 	cp = cons.chan;	err = 0;	rlock(&mainlock);	rlock(&cp->reflock); 	f2 = nil;	p1 = p2 = nil;	f1 = filep(cp, fid1, 0);	if(!f1){		err = Efid;		goto out;	}	p1 = getbuf(f1->fs->dev, f1->addr, Bread|Bmod);	d1 = getdir(p1, f1->slot);	if(!d1 || !(d1->mode&DALLOC)){		err = Ealloc;		goto out;	} 	f2 = filep(cp, fid2, 0);	if(!f2){		err = Efid;		goto out;	}	if(memcmp(&f1->fs->dev, &f2->fs->dev, 4)==0	&& f2->addr == f1->addr)		p2 = p1;	else		p2 = getbuf(f2->fs->dev, f2->addr, Bread|Bmod);	d2 = getdir(p2, f2->slot);	if(!d2 || !(d2->mode&DALLOC)){		err = Ealloc;		goto out;	} 	dt1 = *d1;	dt2 = *d2;	*d1 = dt2;	*d2 = dt1;	memmove(d1->name, dt1.name, NAMELEN);	memmove(d2->name, dt2.name, NAMELEN); 	mkqid(&f1->qid, d1, 1);	mkqid(&f2->qid, d2, 1);out:	if(f1)		qunlock(f1);	if(f2)		qunlock(f2);	if(p1)		putbuf(p1);	if(p2 && p2!=p1)		putbuf(p2); 	runlock(&cp->reflock);	cons.work.count++;	runlock(&mainlock); 	return err;}