summaryrefslogtreecommitdiff
path: root/mysys/mf_tempfile.c
diff options
context:
space:
mode:
authorunknown <monty@donna.mysql.com>2000-10-04 23:20:16 +0300
committerunknown <monty@donna.mysql.com>2000-10-04 23:20:16 +0300
commitfc78fef7968a652d2bf96ac5ee6d5f35faf7fcd9 (patch)
treef355b0229e2ae229e8311da676b61658f1b0a052 /mysys/mf_tempfile.c
parent63b7b45ff7f79a08a673e8b759a69f5ee7e67902 (diff)
downloadmariadb-git-fc78fef7968a652d2bf96ac5ee6d5f35faf7fcd9.tar.gz
Portability fixes
Docs/manual.texi: Updates in the links sections config.guess: Added fixes for Darwin config.sub: Added fixes for Darwin configure.in: Added fixes for Darwin extra/my_print_defaults.c: Fixed typo include/my_pthread.h: Added fixes for Darwin ltconfig: Portability fix myisam/mi_check.c: Make myisamchk more silent mysys/Makefile.am: Added mf_tempfile.c mysys/mf_cache.c: Remove not used parts mysys/mf_tempfile.c: Fix for Solaris sql/log.cc: Fix for Windows sql/sql_cache.cc: Fix for Darwin sql/sql_show.cc: Fix for temporary tables strings/strtol.c: Fix for Darwin support-files/mysql.spec.sh: Fix for documentation files that are installed compressed BitKeeper/etc/logging_ok: Logging to logging@openlogging.org accepted
Diffstat (limited to 'mysys/mf_tempfile.c')
-rw-r--r--mysys/mf_tempfile.c173
1 files changed, 173 insertions, 0 deletions
diff --git a/mysys/mf_tempfile.c b/mysys/mf_tempfile.c
new file mode 100644
index 00000000000..a202dd13d8b
--- /dev/null
+++ b/mysys/mf_tempfile.c
@@ -0,0 +1,173 @@
+/* Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public
+ License along with this library; if not, write to the Free
+ Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+ MA 02111-1307, USA */
+
+#include "mysys_priv.h"
+#include <m_string.h>
+#include "my_static.h"
+#include "mysys_err.h"
+#include <errno.h>
+#ifdef HAVE_PATH_H
+#include <paths.h>
+#endif
+
+#ifdef HAVE_TEMPNAM
+#ifndef MSDOS
+extern char **environ;
+#endif
+#endif
+
+/*
+ Create a temporary file in a given directory
+ This function should be used instead of my_tempnam() !
+*/
+
+File create_temp_file(char *to, const char *dir, const char *prefix,
+ int mode, myf MyFlags)
+{
+ File file= -1;
+ DBUG_ENTER("open_temp_file");
+#if defined(_MSC_VER)
+ {
+ char *end,*res,**old_env,*temp_env[1];
+ old_env=environ;
+ if (dir)
+ {
+ end=strend(dir)-1;
+ if (!dir[0])
+ { /* Change empty string to current dir */
+ to[0]= FN_CURLIB;
+ to[1]= 0;
+ dir=to;
+ }
+ else if (*end == FN_DEVCHAR)
+ { /* Get current dir for drive */
+ _fullpath(temp,dir,FN_REFLEN);
+ dir=to;
+ }
+ else if (*end == FN_LIBCHAR && dir < end && end[-1] != FN_DEVCHAR)
+ {
+ strmake(to,dir,(uint) (end-dir)); /* Copy and remove last '\' */
+ dir=to;
+ }
+ environ=temp_env; /* Force use of dir (dir not checked) */
+ temp_env[0]=0;
+ }
+ if ((res=tempnam((char*) dir,(char *) prefix)))
+ {
+ strnmov(to,res,FN_REFLEN);
+ (*free)(res);
+ file=my_create(to,0, mode, MyFlags);
+ }
+ environ=old_env;
+ }
+#elif defined(_ZTC__)
+ if (!dir)
+ dir=getenv("TMPDIR");
+ if ((res=tempnam((char*) dir,(char *) prefix)))
+ {
+ strnmov(to,res,FN_REFLEN);
+ (*free)(res);
+ file=my_create(to, 0, mode, MyFlags);
+ }
+#elif defined(HAVE_MKSTEMP)
+ {
+ char prefix[30];
+ uint pfx_len;
+
+ pfx_len=(strmov(strnmov(prefix,
+ prefix ? prefix : "tmp.",
+ sizeof(prefix)-7),"XXXXXX") - prefix);
+ if (!dir && ! (dir =getenv("TMPDIR")))
+ dir=P_tmpdir;
+ if (strlen(dir)+ pfx_len > FN_REFLEN-2)
+ {
+ errno=my_errno= ENAMETOOLONG;
+ return 1;
+ }
+ strmov(to,dir);
+ strmov(convert_dirname(to),prefix);
+ file=mkstemp(to);
+ }
+#elif defined(HAVE_TEMPNAM)
+ {
+ char *res,**old_env,*temp_env[1];
+ if (dir && !dir[0])
+ { /* Change empty string to current dir */
+ to[0]= FN_CURLIB;
+ to[1]= 0;
+ dir=to;
+ }
+ old_env=environ;
+ if (dir)
+ { /* Don't use TMPDIR if dir is given */
+ environ=temp_env;
+ temp_env[0]=0;
+ }
+ if ((res=tempnam((char*) dir, (char*) prefix)))
+ {
+ strnmov(to,res,FN_REFLEN);
+ (*free)(res);
+ file=my_create(to,0,
+ (int) (O_RDWR | O_BINARY | O_TRUNC |
+ O_TEMPORARY | O_SHORT_LIVED),
+ MYF(MY_WME));
+
+ }
+ else
+ {
+ DBUG_PRINT("error",("Got error: %d from tempnam",errno));
+ }
+ environ=old_env;
+ }
+#else
+ {
+ register long uniq;
+ register int length;
+ my_string pos,end_pos;
+ /* Make an unique number */
+ pthread_mutex_lock(&THR_LOCK_open);
+ uniq= ((long) getpid() << 20) + (long) _my_tempnam_used++ ;
+ pthread_mutex_unlock(&THR_LOCK_open);
+ if (!dir && !(dir=getenv("TMPDIR"))) /* Use this if possibly */
+ dir=P_tmpdir; /* Use system default */
+ length=strlen(dir)+strlen(pfx)+1;
+
+ DBUG_PRINT("test",("mallocing %d byte",length+8+sizeof(TMP_EXT)+1));
+ if (length+8+sizeof(TMP_EXT)+1 > FN_REFLENGTH)
+ errno=my_errno= ENAMETOOLONG;
+ else
+ {
+ end_pos=strmov(to,dir);
+ if (end_pos != to && end_pos[-1] != FN_LIBCHAR)
+ *end_pos++=FN_LIBCHAR;
+ end_pos=strmov(end_pos,pfx);
+
+ for (length=0 ; length < 8 && uniq ; length++)
+ {
+ *end_pos++= _dig_vec[(int) (uniq & 31)];
+ uniq >>= 5;
+ }
+ (void) strmov(end_pos,TMP_EXT);
+ file=my_create(to,0,
+ (int) (O_RDWR | O_BINARY | O_TRUNC |
+ O_TEMPORARY | O_SHORT_LIVED),
+ MYF(MY_WME));
+ }
+ }
+#endif
+ DBUG_RETURN(file);
+}