ref: 5c448c618a89ab8933838da1b5b97ed7c4a42e08
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; }