ref: 50b5ed42a484cc88f24aa68c1ee35cf3e3d0ea46
dir: /sys/src/ape/lib/ap/stdio/sopenr.c/
/*
* pANS stdio -- sopenr
*/
#include "iolib.h"
#include <string.h>
FILE *_IO_sopenr(const char *s){
FILE *f;
if((f=_IO_newfile())==NULL)
return NULL;
f->buf=f->rp=(char *)s; /* what an annoyance const is */
f->bufl=strlen(s);
f->wp=f->buf+f->bufl;
f->state=RD;
f->flags=STRING;
f->fd=-1;
return f;
}