ref: ae61eb9381f6b0c70e1c52bf2c2b7f4cd0b5bb6f
dir: /sys/src/libstdio/fopen.c/
/*
* pANS stdio -- fopen
*/
#include "iolib.h"
FILE *fopen(const char *name, const char *mode){
FILE *f;
qlock(&_stdiolk);
for(f=_IO_stream;f!=&_IO_stream[FOPEN_MAX];f++) {
if(f->state==CLOSED) {
qunlock(&_stdiolk);
return freopen(name, mode, f);
}
}
qunlock(&_stdiolk);
return NULL;
}