xref: /plan9-contrib/sys/src/ape/lib/ap/stdio/sopenw.c (revision 7dd7cddf99dd7472612f1413b4da293630e6b1bc)
13e12c5d1SDavid du Colombier /*
23e12c5d1SDavid du Colombier  * pANS stdio -- sopenw
33e12c5d1SDavid du Colombier  */
43e12c5d1SDavid du Colombier #include "iolib.h"
5*7dd7cddfSDavid du Colombier 
_IO_sopenw(void)6*7dd7cddfSDavid du Colombier FILE *_IO_sopenw(void){
73e12c5d1SDavid du Colombier 	FILE *f;
83e12c5d1SDavid du Colombier 	for(f=_IO_stream;f!=&_IO_stream[FOPEN_MAX];f++) if(f->state==CLOSED) break;
93e12c5d1SDavid du Colombier 	if(f==&_IO_stream[FOPEN_MAX]) return NULL;
103e12c5d1SDavid du Colombier 	f->buf=f->rp=f->wp=0;
113e12c5d1SDavid du Colombier 	f->state=OPEN;
123e12c5d1SDavid du Colombier 	f->flags=STRING;
133e12c5d1SDavid du Colombier 	f->fd=-1;
143e12c5d1SDavid du Colombier 	return f;
153e12c5d1SDavid du Colombier }
16