Avoid dependency on GLIBC_2.4 (__realpath_chk)
[scilab.git] / 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 /*--------------------------------------------------------------------------*/