shithub: riscv

ref: 347303b136c41ac5ca4408818fdd1a3fde89888a
dir: /sys/src/ape/lib/ap/stdio/tmpfile.c/

View raw version 
/*
 * 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;
}