removing (outdated) drawterm

drawterm is much better maintained by russ cox,
so removing this outdated copy.

for a more recent version, go to:

http://swtch.com/drawterm/

1 files changed, 0 insertions, 938 deletions

diff --git a/sys/src/cmd/unix/drawterm/kern/devip.c b/sys/src/cmd/unix/drawterm/kern/devip.c
deleted file mode 100644
index f192aebcb..000000000
--- a/sys/src/cmd/unix/drawterm/kern/devip.c
+++ /dev/null
@@ -1,938 +0,0 @@
-#include "u.h"
-#include "lib.h"
-#include "dat.h"
-#include "fns.h"
-#include "error.h"
-
-#include "devip.h"
-
-void		hnputl(void *p, unsigned long v);
-void		hnputs(void *p, unsigned short v);
-unsigned long	nhgetl(void *p);
-unsigned short	nhgets(void *p);
-unsigned long	parseip(char *to, char *from);
-void	csclose(Chan*);
-long	csread(Chan*, void*, long, vlong);
-long	cswrite(Chan*, void*, long, vlong);
-
-void osipinit(void);
-
-enum
-{
-	Qtopdir		= 1,	/* top level directory */
-	Qcs,
-	Qprotodir,		/* directory for a protocol */
-	Qclonus,
-	Qconvdir,		/* directory for a conversation */
-	Qdata,
-	Qctl,
-	Qstatus,
-	Qremote,
-	Qlocal,
-	Qlisten,
-
-	MAXPROTO	= 4
-};
-#define TYPE(x) 	((int)((x).path & 0xf))
-#define CONV(x) 	((int)(((x).path >> 4)&0xfff))
-#define PROTO(x) 	((int)(((x).path >> 16)&0xff))
-#define QID(p, c, y) 	(((p)<<16) | ((c)<<4) | (y))
-
-typedef struct Proto	Proto;
-typedef struct Conv	Conv;
-struct Conv
-{
-	int	x;
-	Ref	r;
-	int	sfd;
-	int	perm;
-	char	owner[KNAMELEN];
-	char*	state;
-	ulong	laddr;
-	ushort	lport;
-	ulong	raddr;
-	ushort	rport;
-	int	restricted;
-	char	cerr[KNAMELEN];
-	Proto*	p;
-};
-
-struct Proto
-{
-	Lock	l;
-	int	x;
-	int	stype;
-	char	name[KNAMELEN];
-	int	nc;
-	int	maxconv;
-	Conv**	conv;
-	Qid	qid;
-};
-
-static	int	np;
-static	Proto	proto[MAXPROTO];
-int	eipfmt(Fmt*);
-
-static	Conv*	protoclone(Proto*, char*, int);
-static	void	setladdr(Conv*);
-
-int
-ipgen(Chan *c, char *nname, Dirtab *d, int nd, int s, Dir *dp)
-{
-	Qid q;
-	Conv *cv;
-	char *p;
-
-	USED(nname);
-	q.vers = 0;
-	q.type = 0;
-	switch(TYPE(c->qid)) {
-	case Qtopdir:
-		if(s >= 1+np)
-			return -1;
-
-		if(s == 0){
-			q.path = QID(s, 0, Qcs);
-			devdir(c, q, "cs", 0, "network", 0666, dp);
-		}else{
-			s--;
-			q.path = QID(s, 0, Qprotodir);
-			q.type = QTDIR;
-			devdir(c, q, proto[s].name, 0, "network", DMDIR|0555, dp);
-		}
-		return 1;
-	case Qprotodir:
-		if(s < proto[PROTO(c->qid)].nc) {
-			cv = proto[PROTO(c->qid)].conv[s];
-			sprint(up->genbuf, "%d", s);
-			q.path = QID(PROTO(c->qid), s, Qconvdir);
-			q.type = QTDIR;
-			devdir(c, q, up->genbuf, 0, cv->owner, DMDIR|0555, dp);
-			return 1;
-		}
-		s -= proto[PROTO(c->qid)].nc;
-		switch(s) {
-		default:
-			return -1;
-		case 0:
-			p = "clone";
-			q.path = QID(PROTO(c->qid), 0, Qclonus);
-			break;
-		}
-		devdir(c, q, p, 0, "network", 0555, dp);
-		return 1;
-	case Qconvdir:
-		cv = proto[PROTO(c->qid)].conv[CONV(c->qid)];
-		switch(s) {
-		default:
-			return -1;
-		case 0:
-			q.path = QID(PROTO(c->qid), CONV(c->qid), Qdata);
-			devdir(c, q, "data", 0, cv->owner, cv->perm, dp);
-			return 1;
-		case 1:
-			q.path = QID(PROTO(c->qid), CONV(c->qid), Qctl);
-			devdir(c, q, "ctl", 0, cv->owner, cv->perm, dp);
-			return 1;
-		case 2:
-			p = "status";
-			q.path = QID(PROTO(c->qid), CONV(c->qid), Qstatus);
-			break;
-		case 3:
-			p = "remote";
-			q.path = QID(PROTO(c->qid), CONV(c->qid), Qremote);
-			break;
-		case 4:
-			p = "local";
-			q.path = QID(PROTO(c->qid), CONV(c->qid), Qlocal);
-			break;
-		case 5:
-			p = "listen";
-			q.path = QID(PROTO(c->qid), CONV(c->qid), Qlisten);
-			break;
-		}
-		devdir(c, q, p, 0, cv->owner, 0444, dp);
-		return 1;
-	}
-	return -1;
-}
-
-static void
-newproto(char *name, int type, int maxconv)
-{
-	int l;
-	Proto *p;
-
-	if(np >= MAXPROTO) {
-		print("no %s: increase MAXPROTO", name);
-		return;
-	}
-
-	p = &proto[np];
-	strcpy(p->name, name);
-	p->stype = type;
-	p->qid.path = QID(np, 0, Qprotodir);
-	p->qid.type = QTDIR;
-	p->x = np++;
-	p->maxconv = maxconv;
-	l = sizeof(Conv*)*(p->maxconv+1);
-	p->conv = mallocz(l, 1);
-	if(p->conv == 0)
-		panic("no memory");
-}
-
-void
-ipinit(void)
-{
-	osipinit();
-
-	newproto("udp", S_UDP, 10);
-	newproto("tcp", S_TCP, 30);
-
-	fmtinstall('I', eipfmt);
-	fmtinstall('E', eipfmt);
-	
-}
-
-Chan *
-ipattach(char *spec)
-{
-	Chan *c;
-
-	c = devattach('I', spec);
-	c->qid.path = QID(0, 0, Qtopdir);
-	c->qid.type = QTDIR;
-	c->qid.vers = 0;
-	return c;
-}
-
-static Walkqid*
-ipwalk(Chan *c, Chan *nc, char **name, int nname)
-{
-	return devwalk(c, nc, name, nname, 0, 0, ipgen);
-}
-
-int
-ipstat(Chan *c, uchar *dp, int n)
-{
-	return devstat(c, dp, n, 0, 0, ipgen);
-}
-
-Chan *
-ipopen(Chan *c, int omode)
-{
-	Proto *p;
-	ulong raddr;
-	ushort rport;
-	int perm, sfd;
-	Conv *cv, *lcv;
-
-	omode &= 3;
-	perm = 0;
-	switch(omode) {
-	case OREAD:
-		perm = 4;
-		break;
-	case OWRITE:
-		perm = 2;
-		break;
-	case ORDWR:
-		perm = 6;
-		break;
-	}
-
-	switch(TYPE(c->qid)) {
-	default:
-		break;
-	case Qtopdir:
-	case Qprotodir:
-	case Qconvdir:
-	case Qstatus:
-	case Qremote:
-	case Qlocal:
-		if(omode != OREAD)
-			error(Eperm);
-		break;
-	case Qclonus:
-		p = &proto[PROTO(c->qid)];
-		cv = protoclone(p, up->user, -1);
-		if(cv == 0)
-			error(Enodev);
-		c->qid.path = QID(p->x, cv->x, Qctl);
-		c->qid.vers = 0;
-		break;
-	case Qdata:
-	case Qctl:
-		p = &proto[PROTO(c->qid)];
-		lock(&p->l);
-		cv = p->conv[CONV(c->qid)];
-		lock(&cv->r.lk);
-		if((perm & (cv->perm>>6)) != perm) {
-			if(strcmp(up->user, cv->owner) != 0 ||
-		 	  (perm & cv->perm) != perm) {
-				unlock(&cv->r.lk);
-				unlock(&p->l);
-				error(Eperm);
-			}
-		}
-		cv->r.ref++;
-		if(cv->r.ref == 1) {
-			memmove(cv->owner, up->user, KNAMELEN);
-			cv->perm = 0660;
-		}
-		unlock(&cv->r.lk);
-		unlock(&p->l);
-		break;
-	case Qlisten:
-		p = &proto[PROTO(c->qid)];
-		lcv = p->conv[CONV(c->qid)];
-		sfd = so_accept(lcv->sfd, &raddr, &rport);
-		cv = protoclone(p, up->user, sfd);
-		if(cv == 0) {
-			close(sfd);
-			error(Enodev);
-		}
-		cv->raddr = raddr;
-		cv->rport = rport;
-		setladdr(cv);
-		cv->state = "Established";
-		c->qid.path = QID(p->x, cv->x, Qctl);
-		break;
-	}
-	c->mode = openmode(omode);
-	c->flag |= COPEN;
-	c->offset = 0;
-	return c;
-}
-
-void
-ipclose(Chan *c)
-{
-	Conv *cc;
-
-	switch(TYPE(c->qid)) {
-	case Qcs:
-		csclose(c);
-		break;
-	case Qdata:
-	case Qctl:
-		if((c->flag & COPEN) == 0)
-			break;
-		cc = proto[PROTO(c->qid)].conv[CONV(c->qid)];
-		if(decref(&cc->r) != 0)
-			break;
-		strcpy(cc->owner, "network");
-		cc->perm = 0666;
-		cc->state = "Closed";
-		cc->laddr = 0;
-		cc->raddr = 0;
-		cc->lport = 0;
-		cc->rport = 0;
-		close(cc->sfd);
-		break;
-	}
-}
-
-long
-ipread(Chan *ch, void *a, long n, vlong offset)
-{
-	int r;
-	Conv *c;
-	Proto *x;
-	uchar ip[4];
-	char buf[128], *p;
-
-/*print("ipread %s %lux\n", c2name(ch), (long)ch->qid.path);*/
-	p = a;
-	switch(TYPE(ch->qid)) {
-	default:
-		error(Eperm);
-	case Qcs:
-		return csread(ch, a, n, offset);
-	case Qprotodir:
-	case Qtopdir:
-	case Qconvdir:
-		return devdirread(ch, a, n, 0, 0, ipgen);
-	case Qctl:
-		sprint(buf, "%d", CONV(ch->qid));
-		return readstr(offset, p, n, buf);
-	case Qremote:
-		c = proto[PROTO(ch->qid)].conv[CONV(ch->qid)];
-		hnputl(ip, c->raddr);
-		sprint(buf, "%I!%d\n", ip, c->rport);
-		return readstr(offset, p, n, buf);
-	case Qlocal:
-		c = proto[PROTO(ch->qid)].conv[CONV(ch->qid)];
-		hnputl(ip, c->laddr);
-		sprint(buf, "%I!%d\n", ip, c->lport);
-		return readstr(offset, p, n, buf);
-	case Qstatus:
-		x = &proto[PROTO(ch->qid)];
-		c = x->conv[CONV(ch->qid)];
-		sprint(buf, "%s/%d %d %s \n",
-			c->p->name, c->x, c->r.ref, c->state);
-		return readstr(offset, p, n, buf);
-	case Qdata:
-		c = proto[PROTO(ch->qid)].conv[CONV(ch->qid)];
-		r = so_recv(c->sfd, a, n, 0);
-		if(r < 0){
-			oserrstr();
-			nexterror();
-		}
-		return r;
-	}
-}
-
-static void
-setladdr(Conv *c)
-{
-	so_getsockname(c->sfd, &c->laddr, &c->lport);
-}
-
-static void
-setlport(Conv *c)
-{
-	if(c->restricted == 0 && c->lport == 0)
-		return;
-
-	so_bind(c->sfd, c->restricted, c->lport);
-}
-
-static void
-setladdrport(Conv *c, char *str)
-{
-	char *p, addr[4];
-
-	p = strchr(str, '!');
-	if(p == 0) {
-		p = str;
-		c->laddr = 0;
-	}
-	else {
-		*p++ = 0;
-		parseip(addr, str);
-		c->laddr = nhgetl((uchar*)addr);
-	}
-	if(*p == '*')
-		c->lport = 0;
-	else
-		c->lport = atoi(p);
-
-	setlport(c);
-}
-
-static char*
-setraddrport(Conv *c, char *str)
-{
-	char *p, addr[4];
-
-	p = strchr(str, '!');
-	if(p == 0)
-		return "malformed address";
-	*p++ = 0;
-	parseip(addr, str);
-	c->raddr = nhgetl((uchar*)addr);
-	c->rport = atoi(p);
-	p = strchr(p, '!');
-	if(p) {
-		if(strcmp(p, "!r") == 0)
-			c->restricted = 1;
-	}
-	return 0;
-}
-
-long
-ipwrite(Chan *ch, void *a, long n, vlong offset)
-{
-	Conv *c;
-	Proto *x;
-	int r, nf;
-	char *p, *fields[3], buf[128];
-
-	switch(TYPE(ch->qid)) {
-	default:
-		error(Eperm);
-	case Qcs:
-		return cswrite(ch, a, n, offset);
-	case Qctl:
-		x = &proto[PROTO(ch->qid)];
-		c = x->conv[CONV(ch->qid)];
-		if(n > sizeof(buf)-1)
-			n = sizeof(buf)-1;
-		memmove(buf, a, n);
-		buf[n] = '\0';
-
-		nf = tokenize(buf, fields, 3);
-		if(strcmp(fields[0], "connect") == 0){
-			switch(nf) {
-			default:
-				error("bad args to connect");
-			case 2:
-				p = setraddrport(c, fields[1]);
-				if(p != 0)
-					error(p);
-				break;
-			case 3:
-				p = setraddrport(c, fields[1]);
-				if(p != 0)
-					error(p);
-				c->lport = atoi(fields[2]);
-				setlport(c);
-				break;
-			}
-			so_connect(c->sfd, c->raddr, c->rport);
-			setladdr(c);
-			c->state = "Established";
-			return n;
-		}
-		if(strcmp(fields[0], "announce") == 0) {
-			switch(nf){
-			default:
-				error("bad args to announce");
-			case 2:
-				setladdrport(c, fields[1]);
-				break;
-			}
-			so_listen(c->sfd);
-			c->state = "Announced";
-			return n;
-		}
-		if(strcmp(fields[0], "bind") == 0){
-			switch(nf){
-			default:
-				error("bad args to bind");
-			case 2:
-				c->lport = atoi(fields[1]);
-				break;
-			}
-			setlport(c);
-			return n;
-		}
-		error("bad control message");
-	case Qdata:
-		x = &proto[PROTO(ch->qid)];
-		c = x->conv[CONV(ch->qid)];
-		r = so_send(c->sfd, a, n, 0);
-		if(r < 0){
-			oserrstr();
-			nexterror();
-		}
-		return r;
-	}
-	return n;
-}
-
-static Conv*
-protoclone(Proto *p, char *user, int nfd)
-{
-	Conv *c, **pp, **ep;
-
-	c = 0;
-	lock(&p->l);
-	if(waserror()) {
-		unlock(&p->l);
-		nexterror();
-	}
-	ep = &p->conv[p->maxconv];
-	for(pp = p->conv; pp < ep; pp++) {
-		c = *pp;
-		if(c == 0) {
-			c = mallocz(sizeof(Conv), 1);
-			if(c == 0)
-				error(Enomem);
-			lock(&c->r.lk);
-			c->r.ref = 1;
-			c->p = p;
-			c->x = pp - p->conv;
-			p->nc++;
-			*pp = c;
-			break;
-		}
-		lock(&c->r.lk);
-		if(c->r.ref == 0) {
-			c->r.ref++;
-			break;
-		}
-		unlock(&c->r.lk);
-	}
-	if(pp >= ep) {
-		unlock(&p->l);
-		poperror();
-		return 0;
-	}
-
-	strcpy(c->owner, user);
-	c->perm = 0660;
-	c->state = "Closed";
-	c->restricted = 0;
-	c->laddr = 0;
-	c->raddr = 0;
-	c->lport = 0;
-	c->rport = 0;
-	c->sfd = nfd;
-	if(nfd == -1)
-		c->sfd = so_socket(p->stype);
-
-	unlock(&c->r.lk);
-	unlock(&p->l);
-	poperror();
-	return c;
-}
-
-enum
-{
-	Isprefix= 16,
-};
-
-uchar prefixvals[256] =
-{
-/*0x00*/ 0 | Isprefix,
-		   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x10*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x20*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x30*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x40*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x50*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x60*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x70*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x80*/ 1 | Isprefix,
-		   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0x90*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0xA0*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0xB0*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0xC0*/ 2 | Isprefix,
-		   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0xD0*/	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0xE0*/ 3 | Isprefix,
-		   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
-/*0xF0*/ 4 | Isprefix,
-		   0, 0, 0, 0, 0, 0, 0, 
-/*0xF8*/ 5 | Isprefix,
-		   0, 0, 0, 
-/*0xFC*/ 6 | Isprefix,
-		   0,
-/*0xFE*/ 7 | Isprefix,
-/*0xFF*/ 8 | Isprefix,
-};
-
-int
-eipfmt(Fmt *f)
-{
-	char buf[5*8];
-	static char *efmt = "%.2lux%.2lux%.2lux%.2lux%.2lux%.2lux";
-	static char *ifmt = "%d.%d.%d.%d";
-	uchar *p, ip[16];
-	ulong ul;
-
-	switch(f->r) {
-	case 'E':		/* Ethernet address */
-		p = va_arg(f->args, uchar*);
-		snprint(buf, sizeof buf, efmt, p[0], p[1], p[2], p[3], p[4], p[5]);
-		return fmtstrcpy(f, buf);
-
-	case 'I':
-		ul = va_arg(f->args, ulong);
-		hnputl(ip, ul);
-		snprint(buf, sizeof buf, ifmt, ip[0], ip[1], ip[2], ip[3]);
-		return fmtstrcpy(f, buf);
-	}
-	return fmtstrcpy(f, "(eipfmt)");
-}
-
-void
-hnputl(void *p, unsigned long v)
-{
-	unsigned char *a;
-
-	a = p;
-	a[0] = v>>24;
-	a[1] = v>>16;
-	a[2] = v>>8;
-	a[3] = v;
-}
-
-void
-hnputs(void *p, unsigned short v)
-{
-	unsigned char *a;
-
-	a = p;
-	a[0] = v>>8;
-	a[1] = v;
-}
-
-unsigned long
-nhgetl(void *p)
-{
-	unsigned char *a;
-	a = p;
-	return (a[0]<<24)|(a[1]<<16)|(a[2]<<8)|(a[3]<<0);
-}
-
-unsigned short
-nhgets(void *p)
-{
-	unsigned char *a;
-	a = p;
-	return (a[0]<<8)|(a[1]<<0);
-}
-
-#define CLASS(p) ((*(unsigned char*)(p))>>6)
-
-unsigned long
-parseip(char *to, char *from)
-{
-	int i;
-	char *p;
-
-	p = from;
-	memset(to, 0, 4);
-	for(i = 0; i < 4 && *p; i++){
-		to[i] = strtoul(p, &p, 10);
-		if(*p != '.' && *p != 0){
-			memset(to, 0, 4);
-			return 0;
-		}
-		if(*p == '.')
-			p++;
-	}
-	switch(CLASS(to)){
-	case 0:	/* class A - 1 byte net */
-	case 1:
-		if(i == 3){
-			to[3] = to[2];
-			to[2] = to[1];
-			to[1] = 0;
-		} else if (i == 2){
-			to[3] = to[1];
-			to[1] = 0;
-		}
-		break;
-	case 2:	/* class B - 2 byte net */
-		if(i == 3){
-			to[3] = to[2];
-			to[2] = 0;
-		}
-		break;
-	}
-	return nhgetl(to);
-}
-
-void
-csclose(Chan *c)
-{
-	free(c->aux);
-}
-
-long
-csread(Chan *c, void *a, long n, vlong offset)
-{
-	if(c->aux == nil)
-		return 0;
-	return readstr(offset, a, n, c->aux);
-}
-
-static struct
-{
-	char *name;
-	uint num;
-} tab[] = {
-	"cs", 1,
-	"echo", 7,
-	"discard", 9,
-	"systat", 11,
-	"daytime", 13,
-	"netstat", 15,
-	"chargen", 19,
-	"ftp-data", 20,
-	"ftp", 21,
-	"ssh", 22,
-	"telnet", 23,
-	"smtp", 25,
-	"time", 37,
-	"whois", 43,
-	"dns", 53,
-	"domain", 53,
-	"uucp", 64,
-	"gopher", 70,
-	"rje", 77,
-	"finger", 79,
-	"http", 80,
-	"link", 87,
-	"supdup", 95,
-	"hostnames", 101,
-	"iso-tsap", 102,
-	"x400", 103,
-	"x400-snd", 104,
-	"csnet-ns", 105,
-	"pop-2", 109,
-	"pop3", 110,
-	"portmap", 111,
-	"uucp-path", 117,
-	"nntp", 119,
-	"netbios", 139,
-	"imap4", 143,
-	"NeWS", 144,
-	"print-srv", 170,
-	"z39.50", 210,
-	"fsb", 400,
-	"sysmon", 401,
-	"proxy", 402,
-	"proxyd", 404,
-	"https", 443,
-	"cifs", 445,
-	"ssmtp", 465,
-	"rexec", 512,
-	"login", 513,
-	"shell", 514,
-	"printer", 515,
-	"courier", 530,
-	"cscan", 531,
-	"uucp", 540,
-	"snntp", 563,
-	"9fs", 564,
-	"whoami", 565,
-	"guard", 566,
-	"ticket", 567,
-	"dlsftp", 666,
-	"fmclient", 729,
-	"imaps", 993,
-	"pop3s", 995,
-	"ingreslock", 1524,
-	"pptp", 1723,
-	"nfs", 2049,
-	"webster", 2627,
-	"weather", 3000,
-	"secstore", 5356,
-	"Xdisplay", 6000,
-	"styx", 6666,
-	"mpeg", 6667,
-	"rstyx", 6668,
-	"infdb", 6669,
-	"infsigner", 6671,
-	"infcsigner", 6672,
-	"inflogin", 6673,
-	"bandt", 7330,
-	"face", 32000,
-	"dhashgate", 11978,
-	"exportfs", 17007,
-	"rexexec", 17009,
-	"ncpu", 17010,
-	"cpu", 17013,
-	"glenglenda1", 17020,
-	"glenglenda2", 17021,
-	"glenglenda3", 17022,
-	"glenglenda4", 17023,
-	"glenglenda5", 17024,
-	"glenglenda6", 17025,
-	"glenglenda7", 17026,
-	"glenglenda8", 17027,
-	"glenglenda9", 17028,
-	"glenglenda10", 17029,
-	"flyboy", 17032,
-	"dlsftp", 17033,
-	"venti", 17034,
-	"wiki", 17035,
-	"vica", 17036,
-	0
-};
-
-static int
-lookupport(char *s)
-{
-	int i;
-	char buf[10], *p;
-
-	i = strtol(s, &p, 0);
-	if(*s && *p == 0)
-		return i;
-
-	i = so_getservbyname(s, "tcp", buf);
-	if(i != -1)
-		return atoi(buf);
-	for(i=0; tab[i].name; i++)
-		if(strcmp(s, tab[i].name) == 0)
-			return tab[i].num;
-	return 0;
-}
-
-static ulong
-lookuphost(char *s)
-{
-	char to[4];
-	ulong ip;
-
-	memset(to, 0, sizeof to);
-	parseip(to, s);
-	ip = nhgetl(to);
-	if(ip != 0)
-		return ip;
-	if((s = hostlookup(s)) == nil)
-		return 0;
-	parseip(to, s);
-	ip = nhgetl(to);
-	free(s);
-	return ip;
-}
-
-long
-cswrite(Chan *c, void *a, long n, vlong offset)
-{
-	char *f[4];
-	char *s, *ns;
-	ulong ip;
-	int nf, port;
-
-	s = malloc(n+1);
-	if(s == nil)
-		error(Enomem);
-	if(waserror()){
-		free(s);
-		nexterror();
-	}
-	memmove(s, a, n);
-	s[n] = 0;
-	nf = getfields(s, f, nelem(f), 0, "!");
-	if(nf != 3)
-		error("can't translate");
-
-	port = lookupport(f[2]);
-	if(port <= 0)
-		error("no translation for port found");
-
-	ip = lookuphost(f[1]);
-	if(ip == 0)
-		error("no translation for host found");
-
-	ns = smprint("/net/%s/clone %I!%d", f[0], ip, port);
-	if(ns == nil)
-		error(Enomem);
-	free(c->aux);
-	c->aux = ns;
-	poperror();
-	free(s);
-	return n;
-}
-
-Dev ipdevtab = 
-{
-	'I',
-	"ip",
-
-	devreset,
-	ipinit,
-	devshutdown,
-	ipattach,
-	ipwalk,
-	ipstat,
-	ipopen,
-	devcreate,
-	ipclose,
-	ipread,
-	devbread,
-	ipwrite,
-	devbwrite,
-	devremove,
-	devwstat,
-};
-