ref: ea413b4a62be9993e4b63bf237f0b1d482f4aafa
dir: /sys/src/ape/lib/ap/stdio/tmpfile.c/
/*
* This file not used on plan9: see ../plan9/tmpfile.c
*/
/*
* pANS stdio -- tmpfile
*
* Bug: contains a critical section. Two executions by the same
* user could interleave as follows, both yielding the same file:
* access fails
* access fails
* fopen succeeds
* fopen succeeds
* unlink succeeds
* unlink fails
* As I read the pANS, this can't reasonably use tmpnam to generate
* the name, so that code is duplicated.
*/
#include "iolib.h"
FILE *tmpfile(void){
FILE *f;
static char name[]="/tmp/tf000000000000";
char *p;
while(access(name, 0)==0){
p=name+7;
while(*p=='9') *p++='0';
if(*p=='\0') return NULL;
++*p;
}
f=fopen(name, "wb+");
unlink(name);
return f;
}