Import sources from 2011-03-30 iso image

1 files changed, 22 insertions, 0 deletions

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;
+}