1 /* 2 * pANS stdio -- sopenw 3 */ 4 #include "iolib.h" 5 FILE *sopenw(void){ 6 FILE *f; 7 for(f=_IO_stream;f!=&_IO_stream[FOPEN_MAX];f++) if(f->state==CLOSED) break; 8 if(f==&_IO_stream[FOPEN_MAX]) return NULL; 9 f->buf=f->rp=f->wp=0; 10 f->state=OPEN; 11 f->flags=STRING; 12 f->fd=-1; 13 return f; 14 } 15