1990/1113/port/devpipe.c (diff list | history)

port/devpipe.c on 1990/0227
1990/0227		#include "u.h" #include "lib.h" #include "mem.h" #include "dat.h" #include "fns.h" #include "errno.h" #include "devtab.h" #include "fcall.h"
1990/1009		typedef struct Pipe Pipe; struct Pipe { Ref; int debug; Pipe *next; }; struct Pipealloc { Lock; Pipe *pipe; Pipe *free; } pipealloc;
1990/0227		static void pipeiput(Queue*, Block*); static void pipeoput(Queue*, Block*); static void pipestclose(Queue *);
1990/1113		Qinfo pipeinfo = { pipeiput, pipeoput, 0, pipestclose, "pipe" };
1990/0227
1990/1009		Dirtab pipedir[]={ "data", Sdataqid, 0, 0600, "ctl", Sctlqid, 0, 0600, "data1", Sdataqid, 0, 0600, "ctl1", Sctlqid, 0, 0600, }; #define NPIPEDIR 4
1990/0227		void pipeinit(void) { }
1990/1009		/* * allocate structures for conf.npipe pipes */
1990/0227		void pipereset(void) {
1990/1009		Pipe *p, *ep; pipealloc.pipe = ialloc(conf.npipe * sizeof(Pipe), 0); ep = &pipealloc.pipe[conf.npipe-1]; for(p = pipealloc.pipe; p < ep; p++) p->next = p+1; pipealloc.free = pipealloc.pipe;
1990/0227		} /*
1990/1009		* create a pipe, no streams are created until an open
1990/0227		*/ Chan* pipeattach(char *spec) {
1990/1009		Pipe *p;
1990/0227		Chan *c;
1990/0629
1990/0227		c = devattach('|', spec);
1990/1009		lock(&pipealloc); if(pipealloc.free == 0){ unlock(&pipealloc); error(0, Enopipe); } p = pipealloc.free; pipealloc.free = p->next;
1990/1104		if(++(p->ref) != 1){ print("pipattach pipe half %d ref %d\n", p - pipealloc.pipe, p->ref);
1990/1013		panic("pipeattach");
1990/1104		}
1990/1009		unlock(&pipealloc); c->qid = CHDIR|STREAMQID(2*(p - pipealloc.pipe), 0);
1990/0227		return c; } Chan* pipeclone(Chan *c, Chan *nc) {
1990/1009		Pipe *p; p = &pipealloc.pipe[STREAMID(c->qid)/2];
1990/0227		nc = devclone(c, nc);
1990/1013		if(incref(p) <= 1) panic("pipeclone");
1990/1009		return nc; }
1990/0227
1990/1009		int pipegen(Chan *c, Dirtab *tab, int ntab, int i, Dir *dp) { int id;
1990/0629
1990/1009		id = STREAMID(c->qid); if(i > 1) id++; if(tab==0 || i>=ntab) return -1; tab += i; devdir(c, STREAMQID(id, tab->qid), tab->name, tab->length, tab->perm, dp); return 1;
1990/0227		}
1990/1009
1990/0227		int pipewalk(Chan *c, char *name) {
1990/1009		return devwalk(c, name, pipedir, NPIPEDIR, pipegen);
1990/0227		} void pipestat(Chan *c, char *db) {
1990/0801		streamstat(c, db, "pipe");
1990/0227		}
1990/1009		/* * if the stream doesn't exist, create it */
1990/0227		Chan * pipeopen(Chan *c, int omode) {
1990/1009		Pipe *p; Stream *local, *remote; if(CHDIR & c->qid){ if(omode != OREAD) error(0, Ebadarg); c->mode = omode; c->flag |= COPEN; c->offset = 0; return c; } p = &pipealloc.pipe[STREAMID(c->qid)/2]; remote = 0; if(waserror()){ unlock(p); if(remote) streamclose1(remote); nexterror(); } lock(p); streamopen(c, &pipeinfo); local = c->stream; if(local->devq->ptr == 0){ /* * First stream opened, create the other end also */ remote = streamnew(c->type, c->dev, STREAMID(c->qid)^1, &pipeinfo, 1); /* * connect the device ends of both streams */ local->devq->ptr = remote; remote->devq->ptr = local; local->devq->other->next = remote->devq; remote->devq->other->next = local->devq; /* * increment the inuse count to reflect the * pointer from the other stream. */ if(streamenter(local)<0) panic("pipeattach"); } unlock(p); poperror(); c->mode = omode&~OTRUNC;
1990/0227		c->flag |= COPEN; c->offset = 0; return c; } void pipecreate(Chan *c, char *name, int omode, ulong perm) { error(0, Egreg); } void piperemove(Chan *c) { error(0, Egreg); } void pipewstat(Chan *c, char *db) {
1990/0617		error(0, Eperm);
1990/0227		} void pipeclose(Chan *c) {
1990/1009		Stream *remote; Stream *local; Pipe *p;
1990/0629
1990/1009		p = &pipealloc.pipe[STREAMID(c->qid)/2];
1990/0629
1990/1009		/*
1990/1011		* take care of associated streams
1990/1009		*/ if(local = c->stream){ remote = (Stream *)c->stream->devq->ptr; streamclose(c); /* close this stream */ streamexit(remote, 0); /* release stream for other half of pipe */
1990/0629		}
1990/1104		lock(p); if(--(p->ref) < 0) panic("pipeexit"); if(p->ref == 0){ lock(&pipealloc); p->next = pipealloc.free; pipealloc.free = p; unlock(&pipealloc); } unlock(p);
1990/0227		} long piperead(Chan *c, void *va, long n) {
1990/1009		if(CHDIR&c->qid) return devdirread(c, va, n, pipedir, NPIPEDIR, pipegen); else return streamread(c, va, n);
1990/0227		}
1990/1009		/* * a write to a closed pipe causes a note to be sent to * the process. */
1990/0227		long pipewrite(Chan *c, void *va, long n) { if(waserror()){ postnote(u->p, 1, "sys: write on closed pipe", NExit); error(0, Egreg); }
1990/0513		n = streamwrite(c, va, n, 0); poperror(); return n;
1990/0227		} void pipeuserstr(Error *e, char *buf) { consuserstr(e, buf); } void pipeerrstr(Error *e, char *buf) { rooterrstr(e, buf); } /* * stream stuff */ /* * send a block up stream to the process. * sleep untill there's room upstream. */ static void pipeiput(Queue *q, Block *bp) {
1990/0403		FLOWCTL(q);
1990/0227		PUTNEXT(q, bp); } /* * send the block to the other side without letting the connection * disappear in mid put. */ static void pipeoput(Queue *q, Block *bp) {
1990/0629		PUTNEXT(q, bp);
1990/0227		} /* * send a hangup and disconnect the streams */ static void pipestclose(Queue *q) { Block *bp; /* * point to the bit-bucket and let any in-progress * write's finish. */ q->put = nullput; wakeup(&q->r); /* * send a hangup */ q = q->other;
1990/0629		bp = allocb(0); bp->type = M_HANGUP; PUTNEXT(q, bp);
1990/0227		}