PR fortran/18375
[official-gcc.git] / libiberty / tmpnam.c
blob406878c49a3eadcac4772f55a4c7bb4bffcbef53
1 /*
3 @deftypefn Supplemental char* tmpnam (char *@var{s})
5 This function attempts to create a name for a temporary file, which
6 will be a valid file name yet not exist when @code{tmpnam} checks for
7 it. @var{s} must point to a buffer of at least @code{L_tmpnam} bytes,
8 or be @code{NULL}. Use of this function creates a security risk, and it must
9 not be used in new projects. Use @code{mkstemp} instead.
11 @end deftypefn
15 #include <stdio.h>
17 #ifndef L_tmpnam
18 #define L_tmpnam 100
19 #endif
20 #ifndef P_tmpdir
21 #define P_tmpdir "/usr/tmp"
22 #endif
24 static char tmpnam_buffer[L_tmpnam];
25 static int tmpnam_counter;
27 extern int getpid ();
29 char *
30 tmpnam (s)
31 char *s;
33 int pid = getpid ();
35 if (s == NULL)
36 s = tmpnam_buffer;
38 /* Generate the filename and make sure that there isn't one called
39 it already. */
41 while (1)
43 FILE *f;
44 sprintf (s, "%s/%s%x.%x", P_tmpdir, "t", pid, tmpnam_counter);
45 f = fopen (s, "r");
46 if (f == NULL)
47 break;
48 tmpnam_counter++;
49 fclose (f);
52 return s;