From e5888a1ffdae813d7575f5fb02275c6bb07e5199 Mon Sep 17 00:00:00 2001 From: Taru Karttunen Date: Wed, 30 Mar 2011 15:46:40 +0300 Subject: Import sources from 2011-03-30 iso image --- sys/src/libstdio/sopenr.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100755 sys/src/libstdio/sopenr.c (limited to 'sys/src/libstdio/sopenr.c') diff --git a/sys/src/libstdio/sopenr.c b/sys/src/libstdio/sopenr.c new file mode 100755 index 000000000..bbd377602 --- /dev/null +++ b/sys/src/libstdio/sopenr.c @@ -0,0 +1,22 @@ +/* + * pANS stdio -- sopenr + */ +#include "iolib.h" + +FILE *sopenr(const char *s){ + FILE *f; + qlock(&_stdiolk); + for(f=_IO_stream;f!=&_IO_stream[FOPEN_MAX];f++) if(f->state==CLOSED) break; + if(f==&_IO_stream[FOPEN_MAX]) { + qunlock(&_stdiolk); + 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; + qunlock(&_stdiolk); + return f; +} -- cgit v1.2.3