Files
Arquivotheca.SunOS-4.1.3/lib/libc/stdio/common/tmpfile.c
seta75D 2e8a93c394 Init
2021-10-11 18:20:23 -03:00

31 lines
600 B
C

#if !defined(lint) && defined(SCCSIDS)
static char sccsid[] = "@(#)tmpfile.c 1.1 92/07/30 SMI"; /* from S5R2 1.3 */
#endif
/*LINTLIBRARY*/
/*
* tmpfile - return a pointer to an update file that can be
* used for scratch. The file will automatically
* go away if the program using it terminates.
*/
#include <stdio.h>
extern FILE *fopen();
extern int unlink();
extern char *tmpnam();
extern void perror();
FILE *
tmpfile()
{
char tfname[L_tmpnam];
register FILE *p;
(void) tmpnam(tfname);
if((p = fopen(tfname, "w+")) == NULL)
return NULL;
else
(void) unlink(tfname);
return(p);
}