1 /* Utility to pick a temporary filename prefix.
2 Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
4 This file is part of the libiberty library.
5 Libiberty is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public
7 License as published by the Free Software Foundation; either
8 version 2 of the License, or (at your option) any later version.
10 Libiberty is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with libiberty; see the file COPYING.LIB. If not,
17 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
20 /* This file exports two functions: choose_temp_base and make_temp_file. */
26 #include <stdio.h> /* May get P_tmpdir. */
27 #include <sys/types.h>
37 #ifdef HAVE_SYS_FILE_H
38 #include <sys/file.h> /* May get R_OK, etc. on some systems. */
47 #include "libiberty.h"
48 extern int mkstemps ();
51 #if defined (__MSDOS__) || (defined (_WIN32) && ! defined (__CYGWIN__) && ! defined (_UWIN))
52 #define DIR_SEPARATOR '\\'
57 #define DIR_SEPARATOR '/'
60 /* On MSDOS, write temp files in current dir
61 because there's no place else we can expect to use. */
62 /* ??? Although the current directory is tried as a last resort,
63 this is left in so that on MSDOS it is preferred to /tmp on the
64 off chance that someone requires this, since that was the previous
72 /* Name of temporary file.
73 mktemp requires 6 trailing X's. */
74 #define TEMP_FILE "ccXXXXXX"
76 /* Subroutine of choose_temp_base.
77 If BASE is non-NULL, return it.
78 Otherwise it checks if DIR is a usable directory.
79 If success, DIR is returned.
80 Otherwise NULL is returned. */
89 && access (dir
, R_OK
| W_OK
| X_OK
) == 0)
94 /* Return a prefix for temporary file names or NULL if unable to find one.
95 The current directory is chosen if all else fails so the program is
96 exited if a temporary directory can't be found (mktemp fails).
97 The buffer for the result is obtained with xmalloc.
99 This function is provided for backwards compatability only. It use
100 is not recommended. */
108 static char tmp
[] = { DIR_SEPARATOR
, 't', 'm', 'p', 0 };
109 static char usrtmp
[] = { DIR_SEPARATOR
, 'u', 's', 'r', DIR_SEPARATOR
, 't', 'm', 'p', 0 };
111 base
= try (getenv ("TMPDIR"), base
);
112 base
= try (getenv ("TMP"), base
);
113 base
= try (getenv ("TEMP"), base
);
116 base
= try (P_tmpdir
, base
);
119 /* Try /usr/tmp, then /tmp. */
120 base
= try (usrtmp
, base
);
121 base
= try (tmp
, base
);
123 /* If all else fails, use the current directory! */
128 temp_filename
= xmalloc (len
+ 1 /*DIR_SEPARATOR*/
129 + strlen (TEMP_FILE
) + 1);
130 strcpy (temp_filename
, base
);
133 && temp_filename
[len
-1] != '/'
134 && temp_filename
[len
-1] != DIR_SEPARATOR
)
135 temp_filename
[len
++] = DIR_SEPARATOR
;
136 strcpy (temp_filename
+ len
, TEMP_FILE
);
138 mktemp (temp_filename
);
139 if (strlen (temp_filename
) == 0)
141 return temp_filename
;
143 /* Return a temporary file name (as a string) or NULL if unable to create
147 make_temp_file (suffix
)
152 int base_len
, suffix_len
;
154 static char tmp
[] = { DIR_SEPARATOR
, 't', 'm', 'p', 0 };
155 static char usrtmp
[] = { DIR_SEPARATOR
, 'u', 's', 'r', DIR_SEPARATOR
, 't', 'm', 'p', 0 };
157 base
= try (getenv ("TMPDIR"), base
);
158 base
= try (getenv ("TMP"), base
);
159 base
= try (getenv ("TEMP"), base
);
162 base
= try (P_tmpdir
, base
);
165 /* Try /usr/tmp, then /tmp. */
166 base
= try (usrtmp
, base
);
167 base
= try (tmp
, base
);
169 /* If all else fails, use the current directory! */
173 base_len
= strlen (base
);
176 suffix_len
= strlen (suffix
);
180 temp_filename
= xmalloc (base_len
+ 1 /*DIR_SEPARATOR*/
183 strcpy (temp_filename
, base
);
186 && temp_filename
[base_len
-1] != '/'
187 && temp_filename
[base_len
-1] != DIR_SEPARATOR
)
188 temp_filename
[base_len
++] = DIR_SEPARATOR
;
189 strcpy (temp_filename
+ base_len
, TEMP_FILE
);
192 strcat (temp_filename
, suffix
);
194 fd
= mkstemps (temp_filename
, suffix_len
);
195 /* If mkstemps failed, then something bad is happening. Maybe we should
196 issue a message about a possible security attack in progress? */
199 /* Similarly if we can not close the file. */
202 return temp_filename
;
This page took 0.036038 seconds and 4 git commands to generate.