From 4862cd1c7c4df4f308331167a0ba3ca75974364b Mon Sep 17 00:00:00 2001 From: unknown Date: Wed, 4 Oct 2000 23:20:16 +0300 Subject: 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 --- mysys/mf_tempfile.c | 173 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 173 insertions(+) create mode 100644 mysys/mf_tempfile.c (limited to 'mysys/mf_tempfile.c') 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 +#include "my_static.h" +#include "mysys_err.h" +#include +#ifdef HAVE_PATH_H +#include +#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); +} -- cgit v1.2.1