scilab/modules/core/src/c/tmpdir.c

   1 /*
   2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3  * Copyright (C) INRIA
   4  * Copyright (C) DIGITEO - 2009 - Allan CORNET
   5  * Copyright (C) DIGITEO - 2010 - Sylvestre LEDRU
   6  *
   7  * This file must be used under the terms of the CeCILL.
   8  * This source file is licensed as described in the file COPYING, which
   9  * you should have received as part of this distribution. The terms
  10  * are also available at
  11  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  12  *
  13  */
  14 #include <stdio.h>
  15 #include <string.h>
  16
  17 #ifdef _MSC_VER
  18 #include <windows.h>
  19 #include <process.h>
  20 #endif
  21
  22 #if defined(__STDC__) || defined(_MSC_VER)
  23 #if defined(__linux__)
  24 #define __USE_FORTIFY_LEVEL 0 /* Avoid dependency on GLIBC_2.4 (__realpath_chk) */
  25 #endif
  26 #include <stdlib.h>
  27 #ifndef _MSC_VER
  28 #include <sys/types.h>
  29 #include <unistd.h>
  30 #endif
  31 #else
  32 extern  char  *getenv();
  33 #endif
  34
  35 #include <errno.h>
  36
  37 #ifdef _MSC_VER
  38 #include <process.h>
  39 #include "strdup_windows.h"
  40 #endif
  41 #include "MALLOC.h" /* MALLOC */
  42 #include "tmpdir.h"
  43 #include "localization.h"
  44 #include "charEncoding.h"
  45 #include "MALLOC.h"
  46 #include "PATH_MAX.h"
  47 #include "removedir.h"
  48 #include "createdirectory.h"
  49 /*--------------------------------------------------------------------------*/
  50 static char tmp_dir[PATH_MAX + FILENAME_MAX + 1];
  51 static int alreadyCreated = 0;
  52 /*--------------------------------------------------------------------------*/
  53 #ifdef _MSC_VER
  54 void createScilabTMPDIR(void)
  55 {
  56     wchar_t wcTmpDirDefault[PATH_MAX];
  57     if (!GetTempPathW(PATH_MAX, wcTmpDirDefault))
  58     {
  59         MessageBox(NULL, _("Cannot find Windows temporary directory (1)."), _("Error"), MB_ICONERROR);
  60         exit(1);
  61     }
  62     else
  63     {
  64         wchar_t wctmp_dir[PATH_MAX + FILENAME_MAX + 1];
  65         static wchar_t bufenv[PATH_MAX + 16];
  66         char *TmpDir = NULL;
  67         swprintf(wctmp_dir, PATH_MAX + FILENAME_MAX + 1, L"%sSCI_TMP_%d_", wcTmpDirDefault, (int) _getpid());
  68         if ( CreateDirectoryW(wctmp_dir, NULL) == FALSE)
  69         {
  70             DWORD attribs = GetFileAttributesW (wctmp_dir);
  71             if (attribs & FILE_ATTRIBUTE_DIRECTORY)
  72             {
  73                 /* Repertoire existant */
  74             }
  75             else
  76             {
  77 #ifdef _DEBUG
  78                 {
  79                     char MsgErr[1024];
  80                     wsprintf(MsgErr, _("Impossible to create : %s"), tmp_dir);
  81                     MessageBox(NULL, MsgErr, _("Error"), MB_ICONERROR);
  82                     exit(1);
  83                 }
  84 #else
  85                 {
  86                     GetTempPathW(PATH_MAX, wcTmpDirDefault);
  87                     wcscpy(wctmp_dir, wcTmpDirDefault);
  88                     wctmp_dir[wcslen(wctmp_dir) - 1] = '\0'; /* Remove last \ */
  89                 }
  90 #endif
  91             }
  92         }
  93
  94         swprintf(bufenv, PATH_MAX + 16, L"TMPDIR=%s", wctmp_dir);
  95         _wputenv(bufenv);
  96
  97         TmpDir = wide_string_to_UTF8(wctmp_dir);
  98         if (TmpDir)
  99         {
 100             strcpy(tmp_dir, TmpDir);
 101             FREE(TmpDir);
 102         }
 103         else
 104         {
 105             strcpy(tmp_dir, "");
 106         }
 107     }
 108 }
 109 #else
 110
 111 void createScilabTMPDIR(void)
 112 {
 113     char *tmpdir;
 114
 115     if ( alreadyCreated == 0 )
 116     {
 117         static char bufenv[PATH_MAX + 16];
 118         alreadyCreated++;
 119         /* If the env variable TMPDIR is set, honor this preference */
 120         if ((tmpdir = getenv("TMPDIR")) != NULL &&
 121                 strlen(tmpdir) < (PATH_MAX) && strstr(tmpdir, "SCI_TMP_") == NULL)
 122         {
 123             /* TMPDIR does not contains SCI_TMP. Using TMPDIR */
 124             strcpy(tmp_dir, tmpdir);
 125         }
 126         else
 127         {
 128             /* Two cases where we can be here:
 129              *  - When TMPDIR is not set (all cases)
 130              *  - If SCI_TMP_* is in the TMPDIR variable, switch to the default
 131             */
 132             strcpy(tmp_dir, "/tmp");
 133         }
 134
 135         /* XXXXXX will be randomized by mkdtemp */
 136
 137         char *tmp_dir_strdup[PATH_MAX];
 138         char *res = realpath(tmp_dir, tmp_dir_strdup);
 139         if (!res)
 140         {
 141             fprintf(stderr, _("Warning: Could not resolve the realpath of %s.\n"), tmp_dir);
 142         }
 143         sprintf(tmp_dir, "%s/SCI_TMP_%d_XXXXXX", tmp_dir_strdup, (int) getpid());
 144
 145         if (mkdtemp(tmp_dir) == NULL)
 146         {
 147             fprintf(stderr, _("Error: Could not create %s: %s\n"), tmp_dir, strerror(errno));
 148         }
 149
 150         sprintf(bufenv, "TMPDIR=%s", tmp_dir);
 151         putenv(bufenv);
 152     }
 153 }
 154 #endif
 155 /*--------------------------------------------------------------------------*/
 156 /**
 157 * creates a tmp dir for a scilab session
 158 * and fixes the TMPDIR env variable
 159 */
 160 void C2F(settmpdir)(void)
 161 {
 162     createScilabTMPDIR();
 163 }
 164 /*--------------------------------------------------------------------------*/
 165 char *getTMPDIR(void)
 166 {
 167     return strdup(tmp_dir);
 168 }
 169 /*--------------------------------------------------------------------------*/
 170 /**
 171 * remove TMPDIR directory
 172 */
 173 void C2F(tmpdirc)(void)
 174 {
 175     removedir(tmp_dir);
 176 }
 177 /*--------------------------------------------------------------------------*/
 178 wchar_t *getTMPDIRW(void)
 179 {
 180     return to_wide_string(tmp_dir);
 181 }
 182 /*--------------------------------------------------------------------------*/