1 files changed, 418 insertions, 0 deletions

diff --git a/private/crt32/stdio/tmpfile.c b/private/crt32/stdio/tmpfile.c
new file mode 100644
index 000000000..da6f15307
--- /dev/null
+++ b/private/crt32/stdio/tmpfile.c
@@ -0,0 +1,418 @@
+/***
+*tmpfile.c - create unique file name or file
+*
+*	Copyright (c) 1985-1993, 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.
+*
+*******************************************************************************/
+
+
+#include <cruntime.h>
+#ifdef	_POSIX_
+#include <unistd.h>
+#endif
+#include <errno.h>
+#include <process.h>
+#include <fcntl.h>
+#include <io.h>
+#include <os2dll.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>
+
+/*
+ * Pointers to buffers used by tmpnam() and tmpfile() to build filenames.
+ * Each is initialized on first use.
+ */
+#ifdef	MTHREAD
+
+/*
+ * The following macros ASSSUME that ptd is the name local _ptiddata variable
+ * in each frame!
+ */
+#define namebuf0    (ptd->_namebuf0)
+#define namebuf1    (ptd->_namebuf1)
+
+#else	/* not MTHREAD */
+
+static char *namebuf0 = NULL;		/* used by tmpnam()  */
+static char *namebuf1 = NULL;		/* used by tmpfile() */
+
+#endif	/* MTHREAD */
+
+/*
+ * Initializing function for namebuf0 and namebuf1.
+ */
+static int _CRTAPI3 init_namebuf(int, char **);
+
+/*
+ * Generator function that produces temporary filenames
+ */
+static int _CRTAPI3 genfname(char *);
+
+
+/***
+*char *tmpnam(char *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:
+*	char *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:
+*
+*******************************************************************************/
+
+char * _CRTAPI1 tmpnam (
+	char *s
+	)
+{
+#ifdef	MTHREAD
+	_ptiddata ptd = _getptd();
+#endif
+
+	_mlock(_TMPNAM_LOCK);
+
+	/*
+	 * Initialize namebuf0, if needed. Otherwise, call genfname() to
+	 * generate the next filename.
+	 */
+	if ( namebuf0 == NULL ) {
+		if ( init_namebuf(0, &namebuf0) )
+			goto tmpnam_err;
+	}
+	else if ( genfname(namebuf0) )
+		goto tmpnam_err;
+
+	/*
+	 * Generate a filename that doesn't already exist.
+	 */
+	while ( access(namebuf0, 0) == 0 )
+		if ( genfname(namebuf0) )
+			goto tmpnam_err;
+
+	/*
+	 * Filename has successfully been generated.
+	 */
+	if ( s == NULL )
+		s = namebuf0;
+	else
+		strcpy(s, namebuf0);
+
+	_munlock(_TMPNAM_LOCK);
+	return s;
+
+	/*
+	 * Error return path. All errors exit through here.
+	 */
+tmpnam_err:
+	_munlock(_TMPNAM_LOCK);
+	return NULL;
+}
+
+
+/***
+*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 * _CRTAPI1 tmpfile (
+	void
+	)
+{
+	FILE *stream;
+	int fh;
+#ifdef	MTHREAD
+	_ptiddata ptd = _getptd();
+#endif
+
+	_mlock(_TMPNAM_LOCK);
+
+	/*
+	 * Initialize namebuf1, if needed. Otherwise, call genfname() to
+	 * generate the next filename.
+	 */
+	if ( namebuf1 == NULL ) {
+		if ( init_namebuf(1, &namebuf1) )
+			goto tmpfile_err0;
+	}
+	else if ( genfname(namebuf1) )
+		goto tmpfile_err0;
+
+	/*
+	 * Get a free stream.
+	 *
+	 * Note: In multi-thread models, the stream obtained below is locked!
+	 */
+	if ( (stream = _getstream()) == NULL )
+		goto tmpfile_err0;
+
+	/*
+	 * 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_err1;
+
+	/*
+	 * Initialize stream
+	 */
+	if ( (stream->_tmpfname = _strdup(namebuf1)) == NULL ) {
+		/* close the file, then branch to error handling */
+#ifdef	_POSIX_
+		close(fh);
+#else
+		_close(fh);
+#endif
+		goto tmpfile_err1;
+	}
+	stream->_cnt = 0;
+	stream->_base = stream->_ptr = NULL;
+	stream->_flag = _commode | _IORW;
+	stream->_file = fh;
+
+	_unlock_str(_iob_index(stream));
+	_munlock(_TMPNAM_LOCK);
+	return stream;
+
+	/*
+	 * Error return. All errors paths branch to one of the two
+	 * labels below.
+	 */
+tmpfile_err1:
+	_unlock_str(_iob_index(stream));
+tmpfile_err0:
+	_munlock(_TMPNAM_LOCK);
+	return NULL;
+}
+
+
+/***
+*static int init_namebuf(flag, pnamebuf) - initializes the namebuf
+*	pointers
+*
+*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.
+*	char **pnamebuf     - pointer to namebuf0 iff flag is 0,
+*			      pointer to namebuf1 iff flag is 1
+*
+*Exit:
+*	Returns 0 if successful, nonzero (-1) otherwise.
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+static int _CRTAPI3 init_namebuf(
+	int flag,
+	char **pnamebuf
+	)
+{
+	char *p, *q;
+
+	/*
+	 * Allocate space to hold the filename stem
+	 */
+	if ( (p = malloc(L_tmpnam)) == NULL )
+		return -1;
+
+	/*
+	 * Put in the path prefix. Make sure it ends with a slash or
+	 * backslash character.
+	 */
+	strcpy(p, _P_tmpdir);
+	q = p + sizeof(_P_tmpdir) - 1;	    /* same as p + strlen(p) */
+
+#ifdef _POSIX_
+	if  ( *(q - 1) != '/' )
+		*(q++) = '/';
+#else
+	if  ( (*(q - 1) != '\\') && (*(q - 1) != '/') )
+		*(q++) = '\\';
+#endif
+
+	/*
+	 * Append the leading character of the filename.
+	 */
+	if ( flag )
+		/* for tmpfile() */
+		*(q++) = 't';
+	else
+		/* for tmpnam() */
+		*(q++) = '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_
+	_ultoa((unsigned long)getpid(), q, 32);
+#else
+	_ultoa((unsigned long)_getpid(), q, 32);
+#endif
+	strcat(p, ".");
+
+	*pnamebuf = p;
+
+	return(0);
+}
+
+
+/***
+*static int genfname(char *fname) -
+*
+*Purpose:
+*
+*Entry:
+*
+*Exit:
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+static int _CRTAPI3 genfname (
+	char *fname
+	)
+{
+	char *p;
+	char pext[4];
+	unsigned long extnum;
+
+	p = strrchr(fname, '.');
+
+	p++;
+
+	if ( (extnum = strtoul(p, NULL, 32) + 1) >= (unsigned long)TMP_MAX )
+		return -1;
+
+	strcpy(p, _ultoa(extnum, pext, 32));
+
+	return 0;
+}
+
+
+/***
+*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.
+*
+*	Yes, yes, I KNOW this is a hack...but it's quick and it works.
+*
+*Entry:
+*
+*Exit:
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+
+extern int _tmpoff;
+
+void __inc_tmpoff(
+	void
+	)
+{
+	_tmpoff++;
+}