xref: /plan9/sys/src/ape/lib/ap/stdio/sopenr.c (revision 7dd7cddf99dd7472612f1413b4da293630e6b1bc)
1 /*
2  * pANS stdio -- sopenr
3  */
4 #include "iolib.h"
5 #include <string.h>
6 
_IO_sopenr(const char * s)7 FILE *_IO_sopenr(const char *s){
8 	FILE *f;
9 	for(f=_IO_stream;f!=&_IO_stream[FOPEN_MAX];f++) if(f->state==CLOSED) break;
10 	if(f==&_IO_stream[FOPEN_MAX]) return NULL;
11 	f->buf=f->rp=(char *)s;	/* what an annoyance const is */
12 	f->bufl=strlen(s);
13 	f->wp=f->buf+f->bufl;
14 	f->state=RD;
15 	f->flags=STRING;
16 	f->fd=-1;
17 	return f;
18 }
19