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