520 lines
14 KiB
C
520 lines
14 KiB
C
/***
|
|
*tmpfile.c - create unique file name or file
|
|
*
|
|
* Copyright (c) 1985-2001, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* defines tmpnam() and tmpfile().
|
|
*
|
|
*Revision History:
|
|
* ??-??-?? TC initial version
|
|
* 04-17-86 JMB tmpnam - brought semantics in line with System V
|
|
* definition as follows: 1) if tmpnam paramter is NULL,
|
|
* store name in static buffer (do NOT use malloc); (2)
|
|
* use P_tmpdir as the directory prefix to the temp file
|
|
* name (do NOT use current working directory)
|
|
* 05-26-87 JCR fixed bug where tmpnam was modifying errno
|
|
* 08-10-87 JCR Added code to support P_tmpdir with or without trailing
|
|
* '\'.
|
|
* 11-09-87 JCR Multi-thread support
|
|
* 12-11-87 JCR Added "_LOAD_DS" to declaration
|
|
* 01-22-88 JCR Added per thread static namebuf area (mthread bug fix)
|
|
* 05-27-88 PHG Merged DLL/normal versions
|
|
* 11-14-88 GJF _openfile() now takes a file sharing flag, also some
|
|
* cleanup (now specific to the 386)
|
|
* 06-06-89 JCR 386 mthread support
|
|
* 11-28-89 JCR Added check to _tmpnam so it can't loop forever
|
|
* 02-16-90 GJF Fixed copyright and indents
|
|
* 03-19-90 GJF Replaced _LOAD_DS with _CALLTYPE1, added #include
|
|
* <cruntime.h> and removed #include <register.h>.
|
|
* 03-26-90 GJF Added #include <io.h>.
|
|
* 10-03-90 GJF New-style function declarators.
|
|
* 01-21-91 GJF ANSI naming.
|
|
* 07-22-91 GJF Multi-thread support for Win32 [_WIN32_].
|
|
* 03-17-92 GJF Completely rewrote Win32 version.
|
|
* 03-27-92 DJM POSIX support.
|
|
* 05-02-92 SRW Use _O_TEMPORARY flag for tmpfile routine.
|
|
* 05-04-92 GJF Force cinittmp.obj in for Win32.
|
|
* 08-26-92 GJF Fixed POSIX build.
|
|
* 08-28-92 GJF Oops, forgot about getpid...
|
|
* 11-06-92 GJF Use '/' for POSIX, '\\' otherwise, as the path
|
|
* separator. Also, backed out JHavens' bug fix of 6-14,
|
|
* which was itself a bug (albeit a less serious one).
|
|
* 02-26-93 GJF Put in per-thread buffers, purged Cruiser support.
|
|
* 04-06-93 SKS Replace _CRTAPI* with __cdecl
|
|
* 04-07-93 SKS Replace access() with ANSI-conforming _access()
|
|
* 04-22-93 GJF Fixed bug in multi-thread - multiple threads calling
|
|
* tmpnam would get the same names. Also, went to static
|
|
* namebufX buffers since failing due to a failed malloc
|
|
* would violate ANSI.
|
|
* 04-29-93 GJF Multi-thread bug in tmpnam() - forgot to copy the
|
|
* generated name to the per-thread buffer.
|
|
* 12-07-93 CFW Wide char enable.
|
|
* 04-01-94 GJF #ifdef-ed out __inc_tmpoff for msvcrt*.dll, it's
|
|
* unnecessary.
|
|
* 04-22-94 GJF Made definitions of namebuf0 and namebuf1 conditional
|
|
* on DLL_FOR_WIN32S.
|
|
* 01-10-95 CFW Debug CRT allocs.
|
|
* 01-18-95 GJF Must replace _tcsdup with _malloc_crt/_tcscpy for
|
|
* _DEBUG build.
|
|
* 02-21-95 GJF Appended Mac version of source file (somewhat cleaned
|
|
* up), with appropriate #ifdef-s. Also replaced WPRFLAG
|
|
* with _UNICODE.
|
|
* 03-07-95 GJF _[un]lock_str macros now take FILE * arg.
|
|
* 08-08-97 GJF Removed initialized-but-unused local variable from
|
|
* tmpfile(). Also, detab-ed.
|
|
* 03-03-98 GJF Exception-safe locking.
|
|
* 05-13-99 PML Remove Win32s
|
|
* 05-17-99 PML Remove all Macintosh support.
|
|
* 10-06-99 PML Set errno EMFILE when out of streams.
|
|
* 07-03-01 BWT Fix genfname to use the correct buffer size to encode a dword (7 bytes + NULL).
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#ifdef _POSIX_
|
|
#include <unistd.h>
|
|
#endif
|
|
#include <errno.h>
|
|
#include <process.h>
|
|
#include <fcntl.h>
|
|
#include <io.h>
|
|
#include <mtdll.h>
|
|
#include <share.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <file2.h>
|
|
#include <internal.h>
|
|
#include <tchar.h>
|
|
#include <dbgint.h>
|
|
|
|
/*
|
|
* Buffers used by tmpnam() and tmpfile() to build filenames.
|
|
*/
|
|
static _TSCHAR namebuf0[L_tmpnam] = { 0 }; /* used by tmpnam() */
|
|
static _TSCHAR namebuf1[L_tmpnam] = { 0 }; /* used by tmpfile() */
|
|
|
|
/*
|
|
* Initializing function for namebuf0 and namebuf1.
|
|
*/
|
|
#ifdef _UNICODE
|
|
static void __cdecl winit_namebuf(int);
|
|
#else
|
|
static void __cdecl init_namebuf(int);
|
|
#endif
|
|
|
|
/*
|
|
* Generator function that produces temporary filenames
|
|
*/
|
|
#ifdef _UNICODE
|
|
static int __cdecl wgenfname(wchar_t *);
|
|
#else
|
|
static int __cdecl genfname(char *);
|
|
#endif
|
|
|
|
|
|
/***
|
|
*_TSCHAR *tmpnam(_TSCHAR *s) - generate temp file name
|
|
*
|
|
*Purpose:
|
|
* Creates a file name that is unique in the directory specified by
|
|
* _P_tmpdir in stdio.h. Places file name in string passed by user or
|
|
* in static mem if pass NULL.
|
|
*
|
|
*Entry:
|
|
* _TSCHAR *s - ptr to place to put temp name
|
|
*
|
|
*Exit:
|
|
* returns pointer to constructed file name (s or address of static mem)
|
|
* returns NULL if fails
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
_TSCHAR * __cdecl _ttmpnam (
|
|
_TSCHAR *s
|
|
)
|
|
{
|
|
_TSCHAR *pfnam = NULL;
|
|
#ifdef _MT
|
|
_ptiddata ptd;
|
|
|
|
if ( !_mtinitlocknum( _TMPNAM_LOCK ))
|
|
return NULL;
|
|
|
|
_mlock(_TMPNAM_LOCK);
|
|
|
|
__try {
|
|
#endif
|
|
|
|
/*
|
|
* Initialize namebuf0, if needed. Otherwise, call genfname() to
|
|
* generate the next filename.
|
|
*/
|
|
if ( *namebuf0 == 0 ) {
|
|
#ifdef _UNICODE
|
|
winit_namebuf(0);
|
|
#else
|
|
init_namebuf(0);
|
|
#endif
|
|
}
|
|
#ifdef _UNICODE
|
|
else if ( wgenfname(namebuf0) )
|
|
#else
|
|
else if ( genfname(namebuf0) )
|
|
#endif
|
|
goto tmpnam_err;
|
|
|
|
/*
|
|
* Generate a filename that doesn't already exist.
|
|
*/
|
|
while ( _taccess(namebuf0, 0) == 0 )
|
|
#ifdef _UNICODE
|
|
if ( wgenfname(namebuf0) )
|
|
#else
|
|
if ( genfname(namebuf0) )
|
|
#endif
|
|
goto tmpnam_err;
|
|
|
|
/*
|
|
* Filename has successfully been generated.
|
|
*/
|
|
if ( s == NULL )
|
|
#ifdef _MT
|
|
{
|
|
/*
|
|
* Use a per-thread buffer to hold the generated file name.
|
|
* If there isn't one, and one cannot be created, just use
|
|
* namebuf0.
|
|
*/
|
|
ptd = _getptd();
|
|
#ifdef _UNICODE
|
|
if ( (ptd->_wnamebuf0 != NULL) || ((ptd->_wnamebuf0 =
|
|
_malloc_crt(L_tmpnam * sizeof(wchar_t))) != NULL) )
|
|
{
|
|
s = ptd->_wnamebuf0;
|
|
wcscpy(s, namebuf0);
|
|
}
|
|
#else
|
|
if ( (ptd->_namebuf0 != NULL) || ((ptd->_namebuf0 =
|
|
_malloc_crt(L_tmpnam)) != NULL) )
|
|
{
|
|
s = ptd->_namebuf0;
|
|
strcpy(s, namebuf0);
|
|
}
|
|
#endif
|
|
else
|
|
s = namebuf0;
|
|
}
|
|
#else
|
|
s = namebuf0;
|
|
#endif
|
|
else
|
|
_tcscpy(s, namebuf0);
|
|
|
|
pfnam = s;
|
|
|
|
/*
|
|
* All errors come here.
|
|
*/
|
|
tmpnam_err:
|
|
|
|
#ifdef _MT
|
|
; }
|
|
__finally {
|
|
_munlock(_TMPNAM_LOCK);
|
|
}
|
|
#endif
|
|
|
|
return pfnam;
|
|
}
|
|
|
|
#ifndef _UNICODE
|
|
|
|
/***
|
|
*FILE *tmpfile() - create a temporary file
|
|
*
|
|
*Purpose:
|
|
* Creates a temporary file with the file mode "w+b". The file
|
|
* will be automatically deleted when closed or the program terminates
|
|
* normally.
|
|
*
|
|
*Entry:
|
|
* None.
|
|
*
|
|
*Exit:
|
|
* Returns stream pointer to opened file.
|
|
* Returns NULL if fails
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
FILE * __cdecl tmpfile (
|
|
void
|
|
)
|
|
{
|
|
FILE *stream;
|
|
FILE *return_stream = NULL;
|
|
int fh;
|
|
|
|
#ifdef _MT
|
|
int stream_lock_held = 0;
|
|
|
|
if ( !_mtinitlocknum( _TMPNAM_LOCK ))
|
|
return NULL;
|
|
|
|
_mlock(_TMPNAM_LOCK);
|
|
|
|
__try {
|
|
#endif
|
|
|
|
/*
|
|
* Initialize namebuf1, if needed. Otherwise, call genfname() to
|
|
* generate the next filename.
|
|
*/
|
|
if ( *namebuf1 == 0 ) {
|
|
init_namebuf(1);
|
|
}
|
|
else if ( genfname(namebuf1) )
|
|
goto tmpfile_err;
|
|
|
|
/*
|
|
* Get a free stream.
|
|
*
|
|
* Note: In multi-thread models, the stream obtained below is locked!
|
|
*/
|
|
if ( (stream = _getstream()) == NULL ) {
|
|
errno = EMFILE;
|
|
goto tmpfile_err;
|
|
}
|
|
|
|
#ifdef _MT
|
|
stream_lock_held = 1;
|
|
#endif
|
|
/*
|
|
* Create a temporary file.
|
|
*
|
|
* Note: The loop below will only create a new file. It will NOT
|
|
* open and truncate an existing file. Either behavior is probably
|
|
* legal under ANSI (4.9.4.3 says tmpfile "creates" the file, but
|
|
* also says it is opened with mode "wb+"). However, the behavior
|
|
* implemented below is compatible with prior versions of MS-C and
|
|
* makes error checking easier.
|
|
*/
|
|
#ifdef _POSIX_
|
|
while ( ((fh = open(namebuf1,
|
|
O_CREAT | O_EXCL | O_RDWR,
|
|
S_IRUSR | S_IWUSR
|
|
))
|
|
== -1) && (errno == EEXIST) )
|
|
#else
|
|
while ( ((fh = _sopen(namebuf1,
|
|
_O_CREAT | _O_EXCL | _O_RDWR | _O_BINARY |
|
|
_O_TEMPORARY,
|
|
_SH_DENYNO,
|
|
_S_IREAD | _S_IWRITE
|
|
))
|
|
== -1) && (errno == EEXIST) )
|
|
#endif
|
|
if ( genfname(namebuf1) )
|
|
break;
|
|
|
|
/*
|
|
* Check that the loop above did indeed create a temporary
|
|
* file.
|
|
*/
|
|
if ( fh == -1 )
|
|
goto tmpfile_err;
|
|
|
|
/*
|
|
* Initialize stream
|
|
*/
|
|
#ifdef _DEBUG
|
|
if ( (stream->_tmpfname = _malloc_crt( (_tcslen( namebuf1 ) + 1) *
|
|
sizeof(_TSCHAR) )) == NULL )
|
|
#else /* ndef _DEBUG */
|
|
if ( (stream->_tmpfname = _tcsdup( namebuf1 )) == NULL )
|
|
#endif /* _DEBUG */
|
|
{
|
|
/* close the file, then branch to error handling */
|
|
#ifdef _POSIX_
|
|
close(fh);
|
|
#else
|
|
_close(fh);
|
|
#endif
|
|
goto tmpfile_err;
|
|
}
|
|
#ifdef _DEBUG
|
|
_tcscpy( stream->_tmpfname, namebuf1 );
|
|
#endif /* _DEBUG */
|
|
stream->_cnt = 0;
|
|
stream->_base = stream->_ptr = NULL;
|
|
stream->_flag = _commode | _IORW;
|
|
stream->_file = fh;
|
|
|
|
return_stream = stream;
|
|
|
|
/*
|
|
* All errors branch to the label below.
|
|
*/
|
|
tmpfile_err:
|
|
|
|
#ifdef _MT
|
|
; }
|
|
__finally {
|
|
if ( stream_lock_held )
|
|
_unlock_str(stream);
|
|
_munlock(_TMPNAM_LOCK);
|
|
}
|
|
#endif
|
|
|
|
return return_stream;
|
|
}
|
|
|
|
#endif /* _UNICODE */
|
|
|
|
/***
|
|
*static void init_namebuf(flag) - initializes the namebuf arrays
|
|
*
|
|
*Purpose:
|
|
* Called once each for namebuf0 and namebuf1, to initialize
|
|
* them.
|
|
*
|
|
*Entry:
|
|
* int flag - flag set to 0 if namebuf0 is to be initialized,
|
|
* non-zero (1) if namebuf1 is to be initialized.
|
|
*Exit:
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef _UNICODE
|
|
static void __cdecl winit_namebuf(
|
|
#else
|
|
static void __cdecl init_namebuf(
|
|
#endif
|
|
int flag
|
|
)
|
|
{
|
|
_TSCHAR *p, *q;
|
|
|
|
if ( flag == 0 )
|
|
p = namebuf0;
|
|
else
|
|
p = namebuf1;
|
|
|
|
/*
|
|
* Put in the path prefix. Make sure it ends with a slash or
|
|
* backslash character.
|
|
*/
|
|
#ifdef _UNICODE
|
|
wcscpy(p, _wP_tmpdir);
|
|
#else
|
|
strcpy(p, _P_tmpdir);
|
|
#endif
|
|
q = p + sizeof(_P_tmpdir) - 1; /* same as p + _tcslen(p) */
|
|
|
|
#ifdef _POSIX_
|
|
if ( *(q - 1) != _T('/') )
|
|
*(q++) = _T('/');
|
|
#else
|
|
if ( (*(q - 1) != _T('\\')) && (*(q - 1) != _T('/')) )
|
|
*(q++) = _T('\\');
|
|
#endif
|
|
|
|
/*
|
|
* Append the leading character of the filename.
|
|
*/
|
|
if ( flag )
|
|
/* for tmpfile() */
|
|
*(q++) = _T('t');
|
|
else
|
|
/* for tmpnam() */
|
|
*(q++) = _T('s');
|
|
|
|
/*
|
|
* Append the process id, encoded in base 32. Note this makes
|
|
* p back into a string again (i.e., terminated by a '\0').
|
|
*/
|
|
#ifdef _POSIX_
|
|
_ultot((unsigned long)getpid(), q, 32);
|
|
#else
|
|
_ultot((unsigned long)_getpid(), q, 32);
|
|
#endif
|
|
_tcscat(p, _T("."));
|
|
}
|
|
|
|
|
|
/***
|
|
*static int genfname(_TSCHAR *fname) -
|
|
*
|
|
*Purpose:
|
|
*
|
|
*Entry:
|
|
*
|
|
*Exit:
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef _UNICODE
|
|
static int __cdecl wgenfname (
|
|
#else
|
|
static int __cdecl genfname (
|
|
#endif
|
|
_TSCHAR *fname
|
|
)
|
|
{
|
|
_TSCHAR *p;
|
|
_TSCHAR pext[8]; // 7 positions for base 32 ulong + null terminator
|
|
unsigned long extnum;
|
|
|
|
p = _tcsrchr(fname, _T('.'));
|
|
|
|
p++;
|
|
|
|
if ( (extnum = _tcstoul(p, NULL, 32) + 1) >= (unsigned long)TMP_MAX )
|
|
return -1;
|
|
|
|
_tcscpy(p, _ultot(extnum, pext, 32));
|
|
|
|
return 0;
|
|
}
|
|
|
|
#if !defined(_UNICODE) && !defined(CRTDLL)
|
|
|
|
/***
|
|
*void __inc_tmpoff(void) - force external reference for _tmpoff
|
|
*
|
|
*Purpose:
|
|
* Forces an external reference to be generate for _tmpoff, which is
|
|
* is defined in cinittmp.obj. This has the forces cinittmp.obj to be
|
|
* pulled in, making a call to rmtmp part of the termination.
|
|
*
|
|
*Entry:
|
|
*
|
|
*Exit:
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
|
|
extern int _tmpoff;
|
|
|
|
void __inc_tmpoff(
|
|
void
|
|
)
|
|
{
|
|
_tmpoff++;
|
|
}
|
|
|
|
#endif /* _UNICODE */
|