Remove old splash screen
[synfig.git] / ETL / ETL / _stringf.h
1 /* =========================================================================
2 ** Extended Template and Library
3 ** stringf Procedure Implementation
4 ** $Id$
5 **
6 ** Copyright (c) 2002 Robert B. Quattlebaum Jr.
7 ** Copyright (c) 2007 Chris Moore
8 **
9 ** This package is free software; you can redistribute it and/or
10 ** modify it under the terms of the GNU General Public License as
11 ** published by the Free Software Foundation; either version 2 of
12 ** the License, or (at your option) any later version.
13 **
14 ** This package is distributed in the hope that it will be useful,
15 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 ** General Public License for more details.
18 **
19 ** === N O T E S ===========================================================
20 **
21 ** This is an internal header file, included by other ETL headers.
22 ** You should not attempt to use it directly.
23 **
24 ** ========================================================================= */
25
26 /* === S T A R T =========================================================== */
27
28 #ifndef __ETL__STRINGF_H
29 #define __ETL__STRINGF_H
30
31 /* === H E A D E R S ======================================================= */
32
33 #ifndef _GNU_SOURCE
34 #define _GNU_SOURCE
35 #endif
36
37 #include <string>
38 #include <cstdarg>
39 #include <cstdlib>
40 #include <cstdio>
41
42 /* === M A C R O S ========================================================= */
43
44 #ifndef ETL_STRPRINTF_MAX_LENGTH
45 #define ETL_STRPRINTF_MAX_LENGTH        (800)
46 #endif
47
48 #ifdef WIN32
49 #define POPEN_BINARY_READ_TYPE "rb"
50 #define POPEN_BINARY_WRITE_TYPE "wb"
51 #else
52 #define POPEN_BINARY_READ_TYPE "r"
53 #define POPEN_BINARY_WRITE_TYPE "w"
54 #endif
55
56 /* === T Y P E D E F S ===================================================== */
57
58 _ETL_BEGIN_CDECLS
59
60 #if defined(__APPLE__) || defined(__CYGWIN__) || defined(_WIN32)
61 #define ETL_NO_THROW
62 #else
63 #define ETL_NO_THROW throw()
64 #endif
65
66 // Prefer prototypes from glibc headers, since defining them ourselves
67 // works around glibc security mechanisms
68
69 #ifdef HAVE_VASPRINTF   // This is the preferred method
70  #ifndef __GLIBC__
71   extern int vasprintf(char **,const char *,va_list)ETL_NO_THROW;
72  #endif
73 #else
74
75 # ifdef HAVE_VSNPRINTF  // This is the secondary method
76  #ifndef __GLIBC__
77   extern int vsnprintf(char *,size_t,const char*,va_list)ETL_NO_THROW;
78  #endif
79 # endif
80
81 #endif
82
83 #ifdef HAVE_VSSCANF
84  #ifndef __GLIBC__
85   extern int vsscanf(const char *,const char *,va_list)ETL_NO_THROW;
86  #endif
87 #else
88 #define ETL_NO_VSTRSCANF
89 #ifdef HAVE_SSCANF
90  #ifndef __GLIBC__
91   extern int sscanf(const char *buf, const char *format, ...)ETL_NO_THROW;
92  #endif
93 #endif
94 #endif
95
96 #include <unistd.h>
97
98 _ETL_END_CDECLS
99
100 /* === C L A S S E S & S T R U C T S ======================================= */
101
102 _ETL_BEGIN_NAMESPACE
103
104 inline std::string
105 vstrprintf(const char *format, va_list args)
106 {
107 #ifdef HAVE_VASPRINTF   // This is the preferred method (and safest)
108         char *buffer;
109         std::string ret;
110         int i=vasprintf(&buffer,format,args);
111         if (i>-1)
112         {
113                 ret=buffer;
114                 free(buffer);
115         }
116         return ret;
117 #else
118 #ifdef HAVE_VSNPRINTF   // This is the secondary method (Safe, but bulky)
119 #warning etl::vstrprintf() has a maximum size of ETL_STRPRINTF_MAX_LENGTH in this configuration.
120 #ifdef ETL_THREAD_SAFE
121         char buffer[ETL_STRPRINTF_MAX_LENGTH];
122 #else
123         static char buffer[ETL_STRPRINTF_MAX_LENGTH];
124 #endif
125         vsnprintf(buffer,sizeof(buffer),format,args);
126         return buffer;
127 #else                                   // This is the worst method (UNSAFE, but "works")
128 #warning Potential for Buffer-overflow bug using vsprintf
129 #define ETL_UNSAFE_STRPRINTF    (true)
130 // Here, we are doubling the size of the buffer to make this case
131 // slightly more safe.
132 #ifdef ETL_THREAD_SAFE
133         char buffer[ETL_STRPRINTF_MAX_LENGTH*2];
134 #else
135         static char buffer[ETL_STRPRINTF_MAX_LENGTH*2];
136 #endif
137         vsprintf(buffer,format,args);
138         return buffer;
139 #endif
140 #endif
141 }
142
143 inline std::string
144 strprintf(const char *format, ...)
145 {
146         va_list args;
147         va_start(args,format);
148         return vstrprintf(format,args);
149 }
150
151 #ifndef ETL_NO_VSTRSCANF
152 inline int
153 vstrscanf(const std::string &data, const char*format, va_list args)
154 {
155     return vsscanf(data.c_str(),format,args);
156 }
157
158 inline int
159 strscanf(const std::string &data, const char*format, ...)
160 {
161         va_list args;
162         va_start(args,format);
163         return vstrscanf(data, format,args);
164 }
165 #else
166
167 #if defined (HAVE_SSCANF) && defined (__GNUC__)
168 #define strscanf(data,format,...) sscanf(data.c_str(),format,__VA_ARGS__)
169 #endif
170 #endif
171
172
173 #define stratof(X) (atof((X).c_str()))
174 #define stratoi(X) (atoi((X).c_str()))
175
176 inline std::string
177 basename(const std::string &str)
178 {
179         std::string::const_iterator iter;
180
181         if(str.size() == 1 && str[0] == ETL_DIRECTORY_SEPARATOR)
182                 return str;
183
184         if(str.end()[-1]==ETL_DIRECTORY_SEPARATOR)
185                 iter=str.end()-2;
186         else
187                 iter=str.end()-1;
188
189         for(;iter!=str.begin();iter--)
190                 if(*iter==ETL_DIRECTORY_SEPARATOR)
191                         break;
192
193         if (*iter==ETL_DIRECTORY_SEPARATOR)
194                 iter++;
195
196         if(str.end()[-1]==ETL_DIRECTORY_SEPARATOR)
197                 return std::string(iter,str.end()-1);
198
199         return std::string(iter,str.end());
200 }
201
202 inline std::string
203 dirname(const std::string &str)
204 {
205         std::string::const_iterator iter;
206
207         if(str.size() == 1 && str[0] == ETL_DIRECTORY_SEPARATOR)
208                 return str;
209
210         if(str.end()[-1]==ETL_DIRECTORY_SEPARATOR)
211                 iter=str.end()-2;
212         else
213                 iter=str.end()-1;
214
215         for(;iter!=str.begin();iter--)
216                 if(*iter==ETL_DIRECTORY_SEPARATOR)
217                         break;
218
219         if(iter==str.begin())
220         {
221            if (*iter==ETL_DIRECTORY_SEPARATOR)
222                    return "/";
223            else
224                    return ".";
225         }
226
227         return std::string(str.begin(),iter);
228 }
229
230 // filename_extension("/f.e/d.c") => ".c"
231 inline std::string
232 filename_extension(const std::string &str)
233 {
234         std::string base = basename(str);
235         std::string::size_type pos = base.find_last_of('.');
236         if (pos == std::string::npos) return std::string();
237         return base.substr(pos);
238 }
239
240 // filename_sans_extension("/f.e/d.c") => "/f.e/d"
241 inline std::string
242 filename_sans_extension(const std::string &str)
243 {
244         std::string base = basename(str);
245         std::string::size_type pos = base.find_last_of('.');
246         if (pos == std::string::npos) return str;
247         std::string dir = dirname(str);
248         if (dir == ".") return base.substr(0,pos);
249         return dir + ETL_DIRECTORY_SEPARATOR + base.substr(0,pos);
250 }
251
252 inline bool
253 is_absolute_path(const std::string &path)
254 {
255 #ifdef WIN32
256         if(path.size()>=3 && path[1]==':' && (path[2]=='\\' || path[2]=='/'))
257                 return true;
258 #endif
259         if(!path.empty() && path[0]==ETL_DIRECTORY_SEPARATOR)
260                 return true;
261         return false;
262 }
263
264 inline std::string
265 unix_to_local_path(const std::string &path)
266 {
267         std::string ret;
268         std::string::const_iterator iter;
269         for(iter=path.begin();iter!=path.end();iter++)
270                 switch(*iter)
271                 {
272                 case '/':
273                         ret+=ETL_DIRECTORY_SEPARATOR;
274                         break;
275                 case '~':
276                         ret+='~';
277                         break;
278                 default:
279                         ret+=*iter;
280                         break;
281                 }
282         return ret;
283 }
284
285 inline std::string
286 current_working_directory()
287 {
288         char dir[256];
289         std::string ret(getcwd(dir,sizeof(dir)));
290         return ret;
291 }
292
293 inline std::string
294 get_root_from_path(std::string path)
295 {
296         std::string ret;
297         std::string::const_iterator iter;
298
299         for(iter=path.begin();iter!=path.end();++iter)
300         {
301                 if(*iter==ETL_DIRECTORY_SEPARATOR)
302                         break;
303                 ret+=*iter;
304         }
305         //if(iter!=path.end())
306                 ret+=ETL_DIRECTORY_SEPARATOR;
307         return ret;
308 }
309
310 inline std::string
311 remove_root_from_path(std::string path)
312 {
313         while(!path.empty())
314         {
315                 if(path[0]==ETL_DIRECTORY_SEPARATOR)
316                 {
317                         path.erase(path.begin());
318                         return path;
319                 }
320                 path.erase(path.begin());
321         }
322         return path;
323 }
324
325 inline std::string
326 cleanup_path(std::string path)
327 {
328         std::string ret;
329
330         while(basename(path)=="."&&path.size()!=1)path=dirname(path);
331
332         while(!path.empty())
333         {
334                 std::string dir(get_root_from_path(path));
335                 if((dir=="../" || dir=="..\\") && ret.size())
336                 {
337                         ret=dirname(ret);
338                         if (*(ret.end()-1)!=ETL_DIRECTORY_SEPARATOR)
339                                 ret+=ETL_DIRECTORY_SEPARATOR;
340                 }
341                 else if((dir!="./" && dir!=".\\") && dir!=".")
342                         ret+=dir;
343                 path=remove_root_from_path(path);
344         }
345         if (ret.size()==0)ret+='.';
346
347         // Remove any trailing directory separators
348         if(ret.size() && ret[ret.size()-1]==ETL_DIRECTORY_SEPARATOR)
349                 ret.erase(ret.begin()+ret.size()-1);
350         return ret;
351 }
352
353 inline std::string
354 absolute_path(std::string path)
355 {
356         std::string ret(current_working_directory());
357
358         if(path.empty())
359                 return cleanup_path(ret);
360         if(is_absolute_path(path))
361                 return cleanup_path(path);
362         return cleanup_path(ret+ETL_DIRECTORY_SEPARATOR+path);
363 }
364
365 inline std::string
366 relative_path(std::string curr_path,std::string dest_path)
367 {
368         // If dest_path is already a relative path,
369         // then there is no need to do anything.
370         if(!is_absolute_path(dest_path))
371                 dest_path=absolute_path(dest_path);
372         else
373                 dest_path=cleanup_path(dest_path);
374
375         if(!is_absolute_path(curr_path))
376                 curr_path=absolute_path(curr_path);
377         else
378                 curr_path=cleanup_path(curr_path);
379
380 #ifdef WIN32
381         // If we are on windows and the dest path is on a different drive,
382         // then there is no way to make a relative path to it.
383         if(dest_path.size()>=3 && dest_path[1]==':' && dest_path[0]!=curr_path[0])
384                 return dest_path;
385 #endif
386
387         if(curr_path==dirname(dest_path))
388                 return basename(dest_path);
389
390         while(!dest_path.empty() && !curr_path.empty() && get_root_from_path(dest_path)==get_root_from_path(curr_path))
391         {
392                 dest_path=remove_root_from_path(dest_path);
393                 curr_path=remove_root_from_path(curr_path);
394         }
395
396         while(!curr_path.empty())
397         {
398                 dest_path=std::string("..")+ETL_DIRECTORY_SEPARATOR+dest_path;
399                 curr_path=remove_root_from_path(curr_path);
400         }
401
402         return dest_path;
403 }
404
405 _ETL_END_NAMESPACE
406
407 /* === E N D =============================================================== */
408
409 #endif