projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
correction to last commit: Korean and Romanian translations will only be in 2.9.1...
[wxWidgets.git] / src / common / filefn.cpp
0 / 2144 (  0%)
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/common/filefn.cpp
3// Purpose: File- and directory-related functions
4// Author: Julian Smart
5// Modified by:
6// Created: 29/01/98
7// RCS-ID: $Id$
8// Copyright: (c) 1998 Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
19
20// For compilers that support precompilation, includes "wx.h".
21#include "wx/wxprec.h"
22
23#ifdef __BORLANDC__
24 #pragma hdrstop
25#endif
26
27#include "wx/filefn.h"
28
29#ifndef WX_PRECOMP
30 #include "wx/intl.h"
31 #include "wx/log.h"
32 #include "wx/utils.h"
33 #include "wx/crt.h"
34#endif
35
36#include "wx/dynarray.h"
37#include "wx/file.h"
38#include "wx/filename.h"
39#include "wx/dir.h"
40
41#include "wx/tokenzr.h"
42
43// there are just too many of those...
44#ifdef __VISUALC__
45 #pragma warning(disable:4706) // assignment within conditional expression
46#endif // VC++
47
48#include <ctype.h>
49#include <stdio.h>
50#include <stdlib.h>
51#include <string.h>
52#if !wxONLY_WATCOM_EARLIER_THAN(1,4)
53 #if !(defined(_MSC_VER) && (_MSC_VER > 800))
54 #include <errno.h>
55 #endif
56#endif
57
58#if defined(__WXMAC__)
59 #include "wx/osx/private.h" // includes mac headers
60#endif
61
62#ifdef __WINDOWS__
63 #include "wx/msw/private.h"
64 #include "wx/msw/mslu.h"
65
66 // sys/cygwin.h is needed for cygwin_conv_to_full_win32_path()
67 //
68 // note that it must be included after <windows.h>
69 #ifdef __GNUWIN32__
70 #ifdef __CYGWIN__
71 #include <sys/cygwin.h>
72 #endif
73 #endif // __GNUWIN32__
74
75 // io.h is needed for _get_osfhandle()
76 // Already included by filefn.h for many Windows compilers
77 #if defined __MWERKS__ || defined __CYGWIN__
78 #include <io.h>
79 #endif
80#endif // __WINDOWS__
81
82#if defined(__VMS__)
83 #include <fab.h>
84#endif
85
86// TODO: Borland probably has _wgetcwd as well?
87#ifdef _MSC_VER
88 #define HAVE_WGETCWD
89#endif
90
91// ----------------------------------------------------------------------------
92// constants
93// ----------------------------------------------------------------------------
94
95#ifndef _MAXPATHLEN
96 #define _MAXPATHLEN 1024
97#endif
98
99#ifndef INVALID_FILE_ATTRIBUTES
100 #define INVALID_FILE_ATTRIBUTES ((DWORD)-1)
101#endif
102
103// ----------------------------------------------------------------------------
104// private globals
105// ----------------------------------------------------------------------------
106
107#if WXWIN_COMPATIBILITY_2_8
108static wxChar wxFileFunctionsBuffer[4*_MAXPATHLEN];
109#endif
110
111#if defined(__VISAGECPP__) && __IBMCPP__ >= 400
112//
113// VisualAge C++ V4.0 cannot have any external linkage const decs
114// in headers included by more than one primary source
115//
116const int wxInvalidOffset = -1;
117#endif
118
119// ============================================================================
120// implementation
121// ============================================================================
122
123// ----------------------------------------------------------------------------
124// wrappers around standard POSIX functions
125// ----------------------------------------------------------------------------
126
127#if wxUSE_UNICODE && defined __BORLANDC__ \
128 && __BORLANDC__ >= 0x550 && __BORLANDC__ <= 0x551
129
130// BCC 5.5 and 5.5.1 have a bug in _wopen where files are created read only
131// regardless of the mode parameter. This hack works around the problem by
132// setting the mode with _wchmod.
133//
134int wxCRT_Open(const wchar_t *pathname, int flags, mode_t mode)
135{
136 int moreflags = 0;
137
138 // we only want to fix the mode when the file is actually created, so
139 // when creating first try doing it O_EXCL so we can tell if the file
140 // was already there.
141 if ((flags & O_CREAT) && !(flags & O_EXCL) && (mode & wxS_IWUSR) != 0)
142 moreflags = O_EXCL;
143
144 int fd = _wopen(pathname, flags | moreflags, mode);
145
146 // the file was actually created and needs fixing
147 if (fd != -1 && (flags & O_CREAT) != 0 && (mode & wxS_IWUSR) != 0)
148 {
149 close(fd);
150 _wchmod(pathname, mode);
151 fd = _wopen(pathname, flags & ~(O_EXCL | O_CREAT));
152 }
153 // the open failed, but it may have been because the added O_EXCL stopped
154 // the opening of an existing file, so try again without.
155 else if (fd == -1 && moreflags != 0)
156 {
157 fd = _wopen(pathname, flags & ~O_CREAT);
158 }
159
160 return fd;
161}
162
163#endif
164
165// ----------------------------------------------------------------------------
166// wxPathList
167// ----------------------------------------------------------------------------
168
169bool wxPathList::Add(const wxString& path)
170{
171 // add a path separator to force wxFileName to interpret it always as a directory
172 // (i.e. if we are called with '/home/user' we want to consider it a folder and
173 // not, as wxFileName would consider, a filename).
174 wxFileName fn(path + wxFileName::GetPathSeparator());
175
176 // add only normalized relative/absolute paths
177 // NB: we won't do wxPATH_NORM_DOTS in order to avoid problems when trying to
178 // normalize paths which starts with ".." (which can be normalized only if
179 // we use also wxPATH_NORM_ABSOLUTE - which we don't want to use).
180 if (!fn.Normalize(wxPATH_NORM_TILDE|wxPATH_NORM_LONG|wxPATH_NORM_ENV_VARS))
181 return false;
182
183 wxString toadd = fn.GetPath();
184 if (Index(toadd) == wxNOT_FOUND)
185 wxArrayString::Add(toadd); // do not add duplicates
186
187 return true;
188}
189
190void wxPathList::Add(const wxArrayString &arr)
191{
192 for (size_t j=0; j < arr.GetCount(); j++)
193 Add(arr[j]);
194}
195
196// Add paths e.g. from the PATH environment variable
197void wxPathList::AddEnvList (const wxString& WXUNUSED_IN_WINCE(envVariable))
198{
199 // No environment variables on WinCE
200#ifndef __WXWINCE__
201
202 // The space has been removed from the tokenizers, otherwise a
203 // path such as "C:\Program Files" would be split into 2 paths:
204 // "C:\Program" and "Files"; this is true for both Windows and Unix.
205
206 static const wxChar PATH_TOKS[] =
207#if defined(__WINDOWS__) || defined(__OS2__)
208 wxT(";"); // Don't separate with colon in DOS (used for drive)
209#else
210 wxT(":;");
211#endif
212
213 wxString val;
214 if ( wxGetEnv(envVariable, &val) )
215 {
216 // split into an array of string the value of the env var
217 wxArrayString arr = wxStringTokenize(val, PATH_TOKS);
218 WX_APPEND_ARRAY(*this, arr);
219 }
220#endif // !__WXWINCE__
221}
222
223// Given a full filename (with path), ensure that that file can
224// be accessed again USING FILENAME ONLY by adding the path
225// to the list if not already there.
226bool wxPathList::EnsureFileAccessible (const wxString& path)
227{
228 return Add(wxPathOnly(path));
229}
230
231#if WXWIN_COMPATIBILITY_2_6
232bool wxPathList::Member (const wxString& path) const
233{
234 return Index(path) != wxNOT_FOUND;
235}
236#endif
237
238wxString wxPathList::FindValidPath (const wxString& file) const
239{
240 // normalize the given string as it could be a path + a filename
241 // and not only a filename
242 wxFileName fn(file);
243 wxString strend;
244
245 // NB: normalize without making absolute otherwise calling this function with
246 // e.g. "b/c.txt" would result in removing the directory 'b' and the for loop
247 // below would only add to the paths of this list the 'c.txt' part when doing
248 // the existence checks...
249 // NB: we don't use wxPATH_NORM_DOTS here, too (see wxPathList::Add for more info)
250 if (!fn.Normalize(wxPATH_NORM_TILDE|wxPATH_NORM_LONG|wxPATH_NORM_ENV_VARS))
251 return wxEmptyString;
252
253 wxASSERT_MSG(!fn.IsDir(), wxT("Cannot search for directories; only for files"));
254 if (fn.IsAbsolute())
255 strend = fn.GetFullName(); // search for the file name and ignore the path part
256 else
257 strend = fn.GetFullPath();
258
259 for (size_t i=0; i<GetCount(); i++)
260 {
261 wxString strstart = Item(i);
262 if (!strstart.IsEmpty() && strstart.Last() != wxFileName::GetPathSeparator())
263 strstart += wxFileName::GetPathSeparator();
264
265 if (wxFileExists(strstart + strend))
266 return strstart + strend; // Found!
267 }
268
269 return wxEmptyString; // Not found
270}
271
272wxString wxPathList::FindAbsoluteValidPath (const wxString& file) const
273{
274 wxString f = FindValidPath(file);
275 if ( f.empty() || wxIsAbsolutePath(f) )
276 return f;
277
278 wxString buf = ::wxGetCwd();
279
280 if ( !wxEndsWithPathSeparator(buf) )
281 {
282 buf += wxFILE_SEP_PATH;
283 }
284 buf += f;
285
286 return buf;
287}
288
289// ----------------------------------------------------------------------------
290// miscellaneous global functions
291// ----------------------------------------------------------------------------
292
293#if WXWIN_COMPATIBILITY_2_8
294static inline wxChar* MYcopystring(const wxString& s)
295{
296 wxChar* copy = new wxChar[s.length() + 1];
297 return wxStrcpy(copy, s.c_str());
298}
299
300template<typename CharType>
301static inline CharType* MYcopystring(const CharType* s)
302{
303 CharType* copy = new CharType[wxStrlen(s) + 1];
304 return wxStrcpy(copy, s);
305}
306#endif
307
308
309bool
310wxFileExists (const wxString& filename)
311{
312#if defined(__WXPALMOS__)
313 return false;
314#elif defined(__WIN32__) && !defined(__WXMICROWIN__)
315 // we must use GetFileAttributes() instead of the ANSI C functions because
316 // it can cope with network (UNC) paths unlike them
317 DWORD ret = ::GetFileAttributes(filename.fn_str());
318
319 return (ret != INVALID_FILE_ATTRIBUTES) && !(ret & FILE_ATTRIBUTE_DIRECTORY);
320#else // !__WIN32__
321 #ifndef S_ISREG
322 #define S_ISREG(mode) ((mode) & S_IFREG)
323 #endif
324 wxStructStat st;
325#ifndef wxNEED_WX_UNISTD_H
326 return (wxStat( filename.fn_str() , &st) == 0 && S_ISREG(st.st_mode))
327#ifdef __OS2__
328 || (errno == EACCES) // if access is denied something with that name
329 // exists and is opened in exclusive mode.
330#endif
331 ;
332#else
333 return wxStat( filename , &st) == 0 && S_ISREG(st.st_mode);
334#endif
335#endif // __WIN32__/!__WIN32__
336}
337
338bool
339wxIsAbsolutePath (const wxString& filename)
340{
341 if (!filename.empty())
342 {
343 // Unix like or Windows
344 if (filename[0] == wxT('/'))
345 return true;
346#ifdef __VMS__
347 if ((filename[0] == wxT('[') && filename[1] != wxT('.')))
348 return true;
349#endif
350#if defined(__WINDOWS__) || defined(__OS2__)
351 // MSDOS like
352 if (filename[0] == wxT('\\') || (wxIsalpha (filename[0]) && filename[1] == wxT(':')))
353 return true;
354#endif
355 }
356 return false ;
357}
358
359#if WXWIN_COMPATIBILITY_2_8
360/*
361 * Strip off any extension (dot something) from end of file,
362 * IF one exists. Inserts zero into buffer.
363 *
364 */
365
366template<typename T>
367static void wxDoStripExtension(T *buffer)
368{
369 int len = wxStrlen(buffer);
370 int i = len-1;
371 while (i > 0)
372 {
373 if (buffer[i] == wxT('.'))
374 {
375 buffer[i] = 0;
376 break;
377 }
378 i --;
379 }
380}
381
382void wxStripExtension(char *buffer) { wxDoStripExtension(buffer); }
383void wxStripExtension(wchar_t *buffer) { wxDoStripExtension(buffer); }
384
385void wxStripExtension(wxString& buffer)
386{
387 buffer = wxFileName::StripExtension(buffer);
388}
389
390// Destructive removal of /./ and /../ stuff
391template<typename CharType>
392static CharType *wxDoRealPath (CharType *path)
393{
394 static const CharType SEP = wxFILE_SEP_PATH;
395#ifdef __WXMSW__
396 wxUnix2DosFilename(path);
397#endif
398 if (path[0] && path[1]) {
399 /* MATTHEW: special case "/./x" */
400 CharType *p;
401 if (path[2] == SEP && path[1] == wxT('.'))
402 p = &path[0];
403 else
404 p = &path[2];
405 for (; *p; p++)
406 {
407 if (*p == SEP)
408 {
409 if (p[1] == wxT('.') && p[2] == wxT('.') && (p[3] == SEP || p[3] == wxT('\0')))
410 {
411 CharType *q;
412 for (q = p - 1; q >= path && *q != SEP; q--)
413 {
414 // Empty
415 }
416
417 if (q[0] == SEP && (q[1] != wxT('.') || q[2] != wxT('.') || q[3] != SEP)
418 && (q - 1 <= path || q[-1] != SEP))
419 {
420 wxStrcpy (q, p + 3);
421 if (path[0] == wxT('\0'))
422 {
423 path[0] = SEP;
424 path[1] = wxT('\0');
425 }
426#if defined(__WXMSW__) || defined(__OS2__)
427 /* Check that path[2] is NULL! */
428 else if (path[1] == wxT(':') && !path[2])
429 {
430 path[2] = SEP;
431 path[3] = wxT('\0');
432 }
433#endif
434 p = q - 1;
435 }
436 }
437 else if (p[1] == wxT('.') && (p[2] == SEP || p[2] == wxT('\0')))
438 wxStrcpy (p, p + 2);
439 }
440 }
441 }
442 return path;
443}
444
445char *wxRealPath(char *path)
446{
447 return wxDoRealPath(path);
448}
449
450wchar_t *wxRealPath(wchar_t *path)
451{
452 return wxDoRealPath(path);
453}
454
455wxString wxRealPath(const wxString& path)
456{
457 wxChar *buf1=MYcopystring(path);
458 wxChar *buf2=wxRealPath(buf1);
459 wxString buf(buf2);
460 delete [] buf1;
461 return buf;
462}
463
464
465// Must be destroyed
466wxChar *wxCopyAbsolutePath(const wxString& filename)
467{
468 if (filename.empty())
469 return NULL;
470
471 if (! wxIsAbsolutePath(wxExpandPath(wxFileFunctionsBuffer, filename)))
472 {
473 wxString buf = ::wxGetCwd();
474 wxChar ch = buf.Last();
475#ifdef __WXMSW__
476 if (ch != wxT('\\') && ch != wxT('/'))
477 buf << wxT("\\");
478#else
479 if (ch != wxT('/'))
480 buf << wxT("/");
481#endif
482 buf << wxFileFunctionsBuffer;
483 buf = wxRealPath( buf );
484 return MYcopystring( buf );
485 }
486 return MYcopystring( wxFileFunctionsBuffer );
487}
488
489/*-
490 Handles:
491 ~/ => home dir
492 ~user/ => user's home dir
493 If the environment variable a = "foo" and b = "bar" then:
494 Unix:
495 $a => foo
496 $a$b => foobar
497 $a.c => foo.c
498 xxx$a => xxxfoo
499 ${a}! => foo!
500 $(b)! => bar!
501 \$a => \$a
502 MSDOS:
503 $a ==> $a
504 $(a) ==> foo
505 $(a)$b ==> foo$b
506 $(a)$(b)==> foobar
507 test.$$ ==> test.$$
508 */
509
510/* input name in name, pathname output to buf. */
511
512template<typename CharType>
513static CharType *wxDoExpandPath(CharType *buf, const wxString& name)
514{
515 register CharType *d, *s, *nm;
516 CharType lnm[_MAXPATHLEN];
517 int q;
518
519 // Some compilers don't like this line.
520// const CharType trimchars[] = wxT("\n \t");
521
522 CharType trimchars[4];
523 trimchars[0] = wxT('\n');
524 trimchars[1] = wxT(' ');
525 trimchars[2] = wxT('\t');
526 trimchars[3] = 0;
527
528 static const CharType SEP = wxFILE_SEP_PATH;
529#ifdef __WXMSW__
530 //wxUnix2DosFilename(path);
531#endif
532
533 buf[0] = wxT('\0');
534 if (name.empty())
535 return buf;
536 nm = ::MYcopystring(static_cast<const CharType*>(name.c_str())); // Make a scratch copy
537 CharType *nm_tmp = nm;
538
539 /* Skip leading whitespace and cr */
540 while (wxStrchr(trimchars, *nm) != NULL)
541 nm++;
542 /* And strip off trailing whitespace and cr */
543 s = nm + (q = wxStrlen(nm)) - 1;
544 while (q-- && wxStrchr(trimchars, *s) != NULL)
545 *s = wxT('\0');
546
547 s = nm;
548 d = lnm;
549#ifdef __WXMSW__
550 q = FALSE;
551#else
552 q = nm[0] == wxT('\\') && nm[1] == wxT('~');
553#endif
554
555 /* Expand inline environment variables */
556#ifdef __VISAGECPP__
557 while (*d)
558 {
559 *d++ = *s;
560 if(*s == wxT('\\'))
561 {
562 *(d - 1) = *++s;
563 if (*d)
564 {
565 s++;
566 continue;
567 }
568 else
569 break;
570 }
571 else
572#else
573 while ((*d++ = *s) != 0) {
574# ifndef __WXMSW__
575 if (*s == wxT('\\')) {
576 if ((*(d - 1) = *++s)!=0) {
577 s++;
578 continue;
579 } else
580 break;
581 } else
582# endif
583#endif
584 // No env variables on WinCE
585#ifndef __WXWINCE__
586#ifdef __WXMSW__
587 if (*s++ == wxT('$') && (*s == wxT('{') || *s == wxT(')')))
588#else
589 if (*s++ == wxT('$'))
590#endif
591 {
592 register CharType *start = d;
593 register int braces = (*s == wxT('{') || *s == wxT('('));
594 register CharType *value;
595 while ((*d++ = *s) != 0)
596 if (braces ? (*s == wxT('}') || *s == wxT(')')) : !(wxIsalnum(*s) || *s == wxT('_')) )
597 break;
598 else
599 s++;
600 *--d = 0;
601 value = wxGetenv(braces ? start + 1 : start);
602 if (value) {
603 for ((d = start - 1); (*d++ = *value++) != 0;)
604 {
605 // Empty
606 }
607
608 d--;
609 if (braces && *s)
610 s++;
611 }
612 }
613#endif
614 // __WXWINCE__
615 }
616
617 /* Expand ~ and ~user */
618 wxString homepath;
619 nm = lnm;
620 if (nm[0] == wxT('~') && !q)
621 {
622 /* prefix ~ */
623 if (nm[1] == SEP || nm[1] == 0)
624 { /* ~/filename */
625 homepath = wxGetUserHome(wxEmptyString);
626 if (!homepath.empty()) {
627 s = (CharType*)(const CharType*)homepath.c_str();
628 if (*++nm)
629 nm++;
630 }
631 } else
632 { /* ~user/filename */
633 register CharType *nnm;
634 for (s = nm; *s && *s != SEP; s++)
635 {
636 // Empty
637 }
638 int was_sep; /* MATTHEW: Was there a separator, or NULL? */
639 was_sep = (*s == SEP);
640 nnm = *s ? s + 1 : s;
641 *s = 0;
642 homepath = wxGetUserHome(wxString(nm + 1));
643 if (homepath.empty())
644 {
645 if (was_sep) /* replace only if it was there: */
646 *s = SEP;
647 s = NULL;
648 }
649 else
650 {
651 nm = nnm;
652 s = (CharType*)(const CharType*)homepath.c_str();
653 }
654 }
655 }
656
657 d = buf;
658 if (s && *s) { /* MATTHEW: s could be NULL if user '~' didn't exist */
659 /* Copy home dir */
660 while (wxT('\0') != (*d++ = *s++))
661 /* loop */;
662 // Handle root home
663 if (d - 1 > buf && *(d - 2) != SEP)
664 *(d - 1) = SEP;
665 }
666 s = nm;
667 while ((*d++ = *s++) != 0)
668 {
669 // Empty
670 }
671 delete[] nm_tmp; // clean up alloc
672 /* Now clean up the buffer */
673 return wxRealPath(buf);
674}
675
676char *wxExpandPath(char *buf, const wxString& name)
677{
678 return wxDoExpandPath(buf, name);
679}
680
681wchar_t *wxExpandPath(wchar_t *buf, const wxString& name)
682{
683 return wxDoExpandPath(buf, name);
684}
685
686
687/* Contract Paths to be build upon an environment variable
688 component:
689
690 example: "/usr/openwin/lib", OPENWINHOME --> ${OPENWINHOME}/lib
691
692 The call wxExpandPath can convert these back!
693 */
694wxChar *
695wxContractPath (const wxString& filename,
696 const wxString& WXUNUSED_IN_WINCE(envname),
697 const wxString& user)
698{
699 static wxChar dest[_MAXPATHLEN];
700
701 if (filename.empty())
702 return NULL;
703
704 wxStrcpy (dest, filename);
705#ifdef __WXMSW__
706 wxUnix2DosFilename(dest);
707#endif
708
709 // Handle environment
710 wxString val;
711#ifndef __WXWINCE__
712 wxChar *tcp;
713 if (!envname.empty() && !(val = wxGetenv (envname)).empty() &&
714 (tcp = wxStrstr (dest, val)) != NULL)
715 {
716 wxStrcpy (wxFileFunctionsBuffer, tcp + val.length());
717 *tcp++ = wxT('$');
718 *tcp++ = wxT('{');
719 wxStrcpy (tcp, envname);
720 wxStrcat (tcp, wxT("}"));
721 wxStrcat (tcp, wxFileFunctionsBuffer);
722 }
723#endif
724
725 // Handle User's home (ignore root homes!)
726 val = wxGetUserHome (user);
727 if (val.empty())
728 return dest;
729
730 const size_t len = val.length();
731 if (len <= 2)
732 return dest;
733
734 if (wxStrncmp(dest, val, len) == 0)
735 {
736 wxStrcpy(wxFileFunctionsBuffer, wxT("~"));
737 if (!user.empty())
738 wxStrcat(wxFileFunctionsBuffer, user);
739 wxStrcat(wxFileFunctionsBuffer, dest + len);
740 wxStrcpy (dest, wxFileFunctionsBuffer);
741 }
742
743 return dest;
744}
745
746#endif // #if WXWIN_COMPATIBILITY_2_8
747
748// Return just the filename, not the path (basename)
749wxChar *wxFileNameFromPath (wxChar *path)
750{
751 wxString p = path;
752 wxString n = wxFileNameFromPath(p);
753
754 return path + p.length() - n.length();
755}
756
757wxString wxFileNameFromPath (const wxString& path)
758{
759 wxString name, ext;
760 wxFileName::SplitPath(path, NULL, &name, &ext);
761
762 wxString fullname = name;
763 if ( !ext.empty() )
764 {
765 fullname << wxFILE_SEP_EXT << ext;
766 }
767
768 return fullname;
769}
770
771// Return just the directory, or NULL if no directory
772wxChar *
773wxPathOnly (wxChar *path)
774{
775 if (path && *path)
776 {
777 static wxChar buf[_MAXPATHLEN];
778
779 // Local copy
780 wxStrcpy (buf, path);
781
782 int l = wxStrlen(path);
783 int i = l - 1;
784
785 // Search backward for a backward or forward slash
786 while (i > -1)
787 {
788 // Unix like or Windows
789 if (path[i] == wxT('/') || path[i] == wxT('\\'))
790 {
791 buf[i] = 0;
792 return buf;
793 }
794#ifdef __VMS__
795 if (path[i] == wxT(']'))
796 {
797 buf[i+1] = 0;
798 return buf;
799 }
800#endif
801 i --;
802 }
803
804#if defined(__WXMSW__) || defined(__OS2__)
805 // Try Drive specifier
806 if (wxIsalpha (buf[0]) && buf[1] == wxT(':'))
807 {
808 // A:junk --> A:. (since A:.\junk Not A:\junk)
809 buf[2] = wxT('.');
810 buf[3] = wxT('\0');
811 return buf;
812 }
813#endif
814 }
815 return NULL;
816}
817
818// Return just the directory, or NULL if no directory
819wxString wxPathOnly (const wxString& path)
820{
821 if (!path.empty())
822 {
823 wxChar buf[_MAXPATHLEN];
824
825 // Local copy
826 wxStrcpy(buf, path);
827
828 int l = path.length();
829 int i = l - 1;
830
831 // Search backward for a backward or forward slash
832 while (i > -1)
833 {
834 // Unix like or Windows
835 if (path[i] == wxT('/') || path[i] == wxT('\\'))
836 {
837 // Don't return an empty string
838 if (i == 0)
839 i ++;
840 buf[i] = 0;
841 return wxString(buf);
842 }
843#ifdef __VMS__
844 if (path[i] == wxT(']'))
845 {
846 buf[i+1] = 0;
847 return wxString(buf);
848 }
849#endif
850 i --;
851 }
852
853#if defined(__WXMSW__) || defined(__OS2__)
854 // Try Drive specifier
855 if (wxIsalpha (buf[0]) && buf[1] == wxT(':'))
856 {
857 // A:junk --> A:. (since A:.\junk Not A:\junk)
858 buf[2] = wxT('.');
859 buf[3] = wxT('\0');
860 return wxString(buf);
861 }
862#endif
863 }
864 return wxEmptyString;
865}
866
867// Utility for converting delimiters in DOS filenames to UNIX style
868// and back again - or we get nasty problems with delimiters.
869// Also, convert to lower case, since case is significant in UNIX.
870
871#if defined(__WXMAC__) && !defined(__WXOSX_IPHONE__)
872
873#define kDefaultPathStyle kCFURLPOSIXPathStyle
874
875wxString wxMacFSRefToPath( const FSRef *fsRef , CFStringRef additionalPathComponent )
876{
877 CFURLRef fullURLRef;
878 fullURLRef = CFURLCreateFromFSRef(NULL, fsRef);
879 if ( additionalPathComponent )
880 {
881 CFURLRef parentURLRef = fullURLRef ;
882 fullURLRef = CFURLCreateCopyAppendingPathComponent(NULL, parentURLRef,
883 additionalPathComponent,false);
884 CFRelease( parentURLRef ) ;
885 }
886 CFStringRef cfString = CFURLCopyFileSystemPath(fullURLRef, kDefaultPathStyle);
887 CFRelease( fullURLRef ) ;
888 CFMutableStringRef cfMutableString = CFStringCreateMutableCopy(NULL, 0, cfString);
889 CFRelease( cfString );
890 CFStringNormalize(cfMutableString,kCFStringNormalizationFormC);
891 return wxCFStringRef(cfMutableString).AsString();
892}
893
894OSStatus wxMacPathToFSRef( const wxString&path , FSRef *fsRef )
895{
896 OSStatus err = noErr ;
897 CFMutableStringRef cfMutableString = CFStringCreateMutableCopy(NULL, 0, wxCFStringRef(path));
898 CFStringNormalize(cfMutableString,kCFStringNormalizationFormD);
899 CFURLRef url = CFURLCreateWithFileSystemPath(kCFAllocatorDefault, cfMutableString , kDefaultPathStyle, false);
900 CFRelease( cfMutableString );
901 if ( NULL != url )
902 {
903 if ( CFURLGetFSRef(url, fsRef) == false )
904 err = fnfErr ;
905 CFRelease( url ) ;
906 }
907 else
908 {
909 err = fnfErr ;
910 }
911 return err ;
912}
913
914wxString wxMacHFSUniStrToString( ConstHFSUniStr255Param uniname )
915{
916 CFStringRef cfname = CFStringCreateWithCharacters( kCFAllocatorDefault,
917 uniname->unicode,
918 uniname->length );
919 CFMutableStringRef cfMutableString = CFStringCreateMutableCopy(NULL, 0, cfname);
920 CFRelease( cfname );
921 CFStringNormalize(cfMutableString,kCFStringNormalizationFormC);
922 return wxCFStringRef(cfMutableString).AsString() ;
923}
924
925#ifndef __LP64__
926
927wxString wxMacFSSpec2MacFilename( const FSSpec *spec )
928{
929 FSRef fsRef ;
930 if ( FSpMakeFSRef( spec , &fsRef) == noErr )
931 {
932 return wxMacFSRefToPath( &fsRef ) ;
933 }
934 return wxEmptyString ;
935}
936
937void wxMacFilename2FSSpec( const wxString& path , FSSpec *spec )
938{
939 OSStatus err = noErr;
940 FSRef fsRef;
941 wxMacPathToFSRef( path , &fsRef );
942 err = FSGetCatalogInfo(&fsRef, kFSCatInfoNone, NULL, NULL, spec, NULL);
943 verify_noerr( err );
944}
945#endif
946
947#endif // __WXMAC__
948
949
950#if WXWIN_COMPATIBILITY_2_8
951
952template<typename T>
953static void wxDoDos2UnixFilename(T *s)
954{
955 if (s)
956 while (*s)
957 {
958 if (*s == _T('\\'))
959 *s = _T('/');
960#ifdef __WXMSW__
961 else
962 *s = wxTolower(*s); // Case INDEPENDENT
963#endif
964 s++;
965 }
966}
967
968void wxDos2UnixFilename(char *s) { wxDoDos2UnixFilename(s); }
969void wxDos2UnixFilename(wchar_t *s) { wxDoDos2UnixFilename(s); }
970
971template<typename T>
972static void
973#if defined(__WXMSW__) || defined(__OS2__)
974wxDoUnix2DosFilename(T *s)
975#else
976wxDoUnix2DosFilename(T *WXUNUSED(s) )
977#endif
978{
979// Yes, I really mean this to happen under DOS only! JACS
980#if defined(__WXMSW__) || defined(__OS2__)
981 if (s)
982 while (*s)
983 {
984 if (*s == wxT('/'))
985 *s = wxT('\\');
986 s++;
987 }
988#endif
989}
990
991void wxUnix2DosFilename(char *s) { wxDoUnix2DosFilename(s); }
992void wxUnix2DosFilename(wchar_t *s) { wxDoUnix2DosFilename(s); }
993
994#endif // #if WXWIN_COMPATIBILITY_2_8
995
996// Concatenate two files to form third
997bool
998wxConcatFiles (const wxString& file1, const wxString& file2, const wxString& file3)
999{
1000#if wxUSE_FILE
1001
1002 wxFile in1(file1), in2(file2);
1003 wxTempFile out(file3);
1004
1005 if ( !in1.IsOpened() || !in2.IsOpened() || !out.IsOpened() )
1006 return false;
1007
1008 ssize_t ofs;
1009 unsigned char buf[1024];
1010
1011 for( int i=0; i<2; i++)
1012 {
1013 wxFile *in = i==0 ? &in1 : &in2;
1014 do{
1015 if ( (ofs = in->Read(buf,WXSIZEOF(buf))) == wxInvalidOffset ) return false;
1016 if ( ofs > 0 )
1017 if ( !out.Write(buf,ofs) )
1018 return false;
1019 } while ( ofs == (ssize_t)WXSIZEOF(buf) );
1020 }
1021
1022 return out.Commit();
1023
1024#else
1025
1026 wxUnusedVar(file1);
1027 wxUnusedVar(file2);
1028 wxUnusedVar(file3);
1029 return false;
1030
1031#endif
1032}
1033
1034// helper of generic implementation of wxCopyFile()
1035#if !(defined(__WIN32__) || defined(__OS2__) || defined(__PALMOS__)) && \
1036 wxUSE_FILE
1037
1038static bool
1039wxDoCopyFile(wxFile& fileIn,
1040 const wxStructStat& fbuf,
1041 const wxString& filenameDst,
1042 bool overwrite)
1043{
1044 // reset the umask as we want to create the file with exactly the same
1045 // permissions as the original one
1046 wxCHANGE_UMASK(0);
1047
1048 // create file2 with the same permissions than file1 and open it for
1049 // writing
1050
1051 wxFile fileOut;
1052 if ( !fileOut.Create(filenameDst, overwrite, fbuf.st_mode & 0777) )
1053 return false;
1054
1055 // copy contents of file1 to file2
1056 char buf[4096];
1057 for ( ;; )
1058 {
1059 ssize_t count = fileIn.Read(buf, WXSIZEOF(buf));
1060 if ( count == wxInvalidOffset )
1061 return false;
1062
1063 // end of file?
1064 if ( !count )
1065 break;
1066
1067 if ( fileOut.Write(buf, count) < (size_t)count )
1068 return false;
1069 }
1070
1071 // we can expect fileIn to be closed successfully, but we should ensure
1072 // that fileOut was closed as some write errors (disk full) might not be
1073 // detected before doing this
1074 return fileIn.Close() && fileOut.Close();
1075}
1076
1077#endif // generic implementation of wxCopyFile
1078
1079// Copy files
1080bool
1081wxCopyFile (const wxString& file1, const wxString& file2, bool overwrite)
1082{
1083#if defined(__WIN32__) && !defined(__WXMICROWIN__)
1084 // CopyFile() copies file attributes and modification time too, so use it
1085 // instead of our code if available
1086 //
1087 // NB: 3rd parameter is bFailIfExists i.e. the inverse of overwrite
1088 if ( !::CopyFile(file1.fn_str(), file2.fn_str(), !overwrite) )
1089 {
1090 wxLogSysError(_("Failed to copy the file '%s' to '%s'"),
1091 file1.c_str(), file2.c_str());
1092
1093 return false;
1094 }
1095#elif defined(__OS2__)
1096 if ( ::DosCopy(file1.c_str(), file2.c_str(), overwrite ? DCPY_EXISTING : 0) != 0 )
1097 return false;
1098#elif defined(__PALMOS__)
1099 // TODO with http://www.palmos.com/dev/support/docs/protein_books/Memory_Databases_Files/
1100 return false;
1101#elif wxUSE_FILE // !Win32
1102
1103 wxStructStat fbuf;
1104 // get permissions of file1
1105 if ( wxStat( file1.c_str(), &fbuf) != 0 )
1106 {
1107 // the file probably doesn't exist or we haven't the rights to read
1108 // from it anyhow
1109 wxLogSysError(_("Impossible to get permissions for file '%s'"),
1110 file1.c_str());
1111 return false;
1112 }
1113
1114 // open file1 for reading
1115 wxFile fileIn(file1, wxFile::read);
1116 if ( !fileIn.IsOpened() )
1117 return false;
1118
1119 // remove file2, if it exists. This is needed for creating
1120 // file2 with the correct permissions in the next step
1121 if ( wxFileExists(file2) && (!overwrite || !wxRemoveFile(file2)))
1122 {
1123 wxLogSysError(_("Impossible to overwrite the file '%s'"),
1124 file2.c_str());
1125 return false;
1126 }
1127
1128 wxDoCopyFile(fileIn, fbuf, file2, overwrite);
1129
1130#if defined(__WXMAC__) || defined(__WXCOCOA__)
1131 // copy the resource fork of the file too if it's present
1132 wxString pathRsrcOut;
1133 wxFile fileRsrcIn;
1134
1135 {
1136 // suppress error messages from this block as resource forks don't have
1137 // to exist
1138 wxLogNull noLog;
1139
1140 // it's not enough to check for file existence: it always does on HFS
1141 // but is empty for files without resources
1142 if ( fileRsrcIn.Open(file1 + wxT("/..namedfork/rsrc")) &&
1143 fileRsrcIn.Length() > 0 )
1144 {
1145 // we must be using HFS or another filesystem with resource fork
1146 // support, suppose that destination file system also is HFS[-like]
1147 pathRsrcOut = file2 + wxT("/..namedfork/rsrc");
1148 }
1149 else // check if we have resource fork in separate file (non-HFS case)
1150 {
1151 wxFileName fnRsrc(file1);
1152 fnRsrc.SetName(wxT("._") + fnRsrc.GetName());
1153
1154 fileRsrcIn.Close();
1155 if ( fileRsrcIn.Open( fnRsrc.GetFullPath() ) )
1156 {
1157 fnRsrc = file2;
1158 fnRsrc.SetName(wxT("._") + fnRsrc.GetName());
1159
1160 pathRsrcOut = fnRsrc.GetFullPath();
1161 }
1162 }
1163 }
1164
1165 if ( !pathRsrcOut.empty() )
1166 {
1167 if ( !wxDoCopyFile(fileRsrcIn, fbuf, pathRsrcOut, overwrite) )
1168 return false;
1169 }
1170#endif // wxMac || wxCocoa
1171
1172#if !defined(__VISAGECPP__) && !defined(__WXMAC__) || defined(__UNIX__)
1173 // no chmod in VA. Should be some permission API for HPFS386 partitions
1174 // however
1175 if ( chmod(file2.fn_str(), fbuf.st_mode) != 0 )
1176 {
1177 wxLogSysError(_("Impossible to set permissions for the file '%s'"),
1178 file2.c_str());
1179 return false;
1180 }
1181#endif // OS/2 || Mac
1182
1183#else // !Win32 && ! wxUSE_FILE
1184
1185 // impossible to simulate with wxWidgets API
1186 wxUnusedVar(file1);
1187 wxUnusedVar(file2);
1188 wxUnusedVar(overwrite);
1189 return false;
1190
1191#endif // __WXMSW__ && __WIN32__
1192
1193 return true;
1194}
1195
1196bool
1197wxRenameFile(const wxString& file1, const wxString& file2, bool overwrite)
1198{
1199 if ( !overwrite && wxFileExists(file2) )
1200 {
1201 wxLogSysError
1202 (
1203 _("Failed to rename the file '%s' to '%s' because the destination file already exists."),
1204 file1.c_str(), file2.c_str()
1205 );
1206
1207 return false;
1208 }
1209
1210#if !defined(__WXWINCE__) && !defined(__WXPALMOS__)
1211 // Normal system call
1212 if ( wxRename (file1, file2) == 0 )
1213 return true;
1214#endif
1215
1216 // Try to copy
1217 if (wxCopyFile(file1, file2, overwrite)) {
1218 wxRemoveFile(file1);
1219 return true;
1220 }
1221 // Give up
1222 return false;
1223}
1224
1225bool wxRemoveFile(const wxString& file)
1226{
1227#if defined(__VISUALC__) \
1228 || defined(__BORLANDC__) \
1229 || defined(__WATCOMC__) \
1230 || defined(__DMC__) \
1231 || defined(__GNUWIN32__) \
1232 || (defined(__MWERKS__) && defined(__MSL__))
1233 int res = wxRemove(file);
1234#elif defined(__WXMAC__)
1235 int res = unlink(file.fn_str());
1236#elif defined(__WXPALMOS__)
1237 int res = 1;
1238 // TODO with VFSFileDelete()
1239#else
1240 int res = unlink(file.fn_str());
1241#endif
1242
1243 return res == 0;
1244}
1245
1246bool wxMkdir(const wxString& dir, int perm)
1247{
1248#if defined(__WXPALMOS__)
1249 return false;
1250#else
1251#if defined(__WXMAC__) && !defined(__UNIX__)
1252 if ( mkdir(dir.fn_str(), 0) != 0 )
1253
1254 // assume mkdir() has 2 args on non Windows-OS/2 platforms and on Windows too
1255 // for the GNU compiler
1256#elif (!(defined(__WXMSW__) || defined(__OS2__) || defined(__DOS__))) || \
1257 (defined(__GNUWIN32__) && !defined(__MINGW32__)) || \
1258 defined(__WINE__) || defined(__WXMICROWIN__)
1259 const wxChar *dirname = dir.c_str();
1260 #if defined(MSVCRT)
1261 wxUnusedVar(perm);
1262 if ( mkdir(wxFNCONV(dirname)) != 0 )
1263 #else
1264 if ( mkdir(wxFNCONV(dirname), perm) != 0 )
1265 #endif
1266#elif defined(__OS2__)
1267 wxUnusedVar(perm);
1268 if (::DosCreateDir(dir.c_str(), NULL) != 0) // enhance for EAB's??
1269#elif defined(__DOS__)
1270 const wxChar *dirname = dir.c_str();
1271 #if defined(__WATCOMC__)
1272 (void)perm;
1273 if ( wxMkDir(wxFNSTRINGCAST wxFNCONV(dirname)) != 0 )
1274 #elif defined(__DJGPP__)
1275 if ( mkdir(wxFNCONV(dirname), perm) != 0 )
1276 #else
1277 #error "Unsupported DOS compiler!"
1278 #endif
1279#else // !MSW, !DOS and !OS/2 VAC++
1280 wxUnusedVar(perm);
1281 #ifdef __WXWINCE__
1282 if ( CreateDirectory(dir, NULL) == 0 )
1283 #else
1284 if ( wxMkDir(dir.fn_str()) != 0 )
1285 #endif
1286#endif // !MSW/MSW
1287 {
1288 wxLogSysError(_("Directory '%s' couldn't be created"), dir);
1289 return false;
1290 }
1291
1292 return true;
1293#endif // PALMOS/!PALMOS
1294}
1295
1296bool wxRmdir(const wxString& dir, int WXUNUSED(flags))
1297{
1298#if defined(__VMS__)
1299 return false; //to be changed since rmdir exists in VMS7.x
1300#elif defined(__WXPALMOS__)
1301 // TODO with VFSFileRename()
1302 return false;
1303#else
1304 #if defined(__OS2__)
1305 if ( ::DosDeleteDir(dir.c_str()) != 0 )
1306 #elif defined(__WXWINCE__)
1307 if ( RemoveDirectory(dir) == 0 )
1308 #else
1309 if ( wxRmDir(dir.fn_str()) != 0 )
1310 #endif
1311 {
1312 wxLogSysError(_("Directory '%s' couldn't be deleted"), dir);
1313 return false;
1314 }
1315
1316 return true;
1317#endif // PALMOS/!PALMOS
1318}
1319
1320// does the path exists? (may have or not '/' or '\\' at the end)
1321bool wxDirExists(const wxString& pathName)
1322{
1323 wxString strPath(pathName);
1324
1325#if defined(__WINDOWS__) || defined(__OS2__)
1326 // Windows fails to find directory named "c:\dir\" even if "c:\dir" exists,
1327 // so remove all trailing backslashes from the path - but don't do this for
1328 // the paths "d:\" (which are different from "d:") nor for just "\"
1329 while ( wxEndsWithPathSeparator(strPath) )
1330 {
1331 size_t len = strPath.length();
1332 if ( len == 1 || (len == 3 && strPath[len - 2] == _T(':')) )
1333 break;
1334
1335 strPath.Truncate(len - 1);
1336 }
1337#endif // __WINDOWS__
1338
1339#ifdef __OS2__
1340 // OS/2 can't handle "d:", it wants either "d:\" or "d:."
1341 if (strPath.length() == 2 && strPath[1u] == _T(':'))
1342 strPath << _T('.');
1343#endif
1344
1345#if defined(__WXPALMOS__)
1346 return false;
1347#elif defined(__WIN32__) && !defined(__WXMICROWIN__)
1348 // stat() can't cope with network paths
1349 DWORD ret = ::GetFileAttributes(strPath.fn_str());
1350
1351 return (ret != INVALID_FILE_ATTRIBUTES) && (ret & FILE_ATTRIBUTE_DIRECTORY);
1352#elif defined(__OS2__)
1353 FILESTATUS3 Info = {{0}};
1354 APIRET rc = ::DosQueryPathInfo((PSZ)(WXSTRINGCAST strPath), FIL_STANDARD,
1355 (void*) &Info, sizeof(FILESTATUS3));
1356
1357 return ((rc == NO_ERROR) && (Info.attrFile & FILE_DIRECTORY)) ||
1358 (rc == ERROR_SHARING_VIOLATION);
1359 // If we got a sharing violation, there must be something with this name.
1360#else // !__WIN32__
1361
1362 wxStructStat st;
1363#ifndef __VISAGECPP__
1364 return wxStat(strPath.c_str(), &st) == 0 && ((st.st_mode & S_IFMT) == S_IFDIR);
1365#else
1366 // S_IFMT not supported in VA compilers.. st_mode is a 2byte value only
1367 return wxStat(strPath.c_str(), &st) == 0 && (st.st_mode == S_IFDIR);
1368#endif
1369
1370#endif // __WIN32__/!__WIN32__
1371}
1372
1373#if WXWIN_COMPATIBILITY_2_8
1374
1375// Get a temporary filename, opening and closing the file.
1376wxChar *wxGetTempFileName(const wxString& prefix, wxChar *buf)
1377{
1378 wxString filename;
1379 if ( !wxGetTempFileName(prefix, filename) )
1380 return NULL;
1381
1382 if ( buf )
1383#ifdef _PACC_VER
1384 // work around the PalmOS pacc compiler bug
1385 wxStrcpy(buf, filename.data());
1386#else
1387 wxStrcpy(buf, filename);
1388#endif
1389 else
1390 buf = MYcopystring(filename);
1391
1392 return buf;
1393}
1394
1395bool wxGetTempFileName(const wxString& prefix, wxString& buf)
1396{
1397#if wxUSE_FILE
1398 buf = wxFileName::CreateTempFileName(prefix);
1399
1400 return !buf.empty();
1401#else // !wxUSE_FILE
1402 wxUnusedVar(prefix);
1403 wxUnusedVar(buf);
1404
1405 return false;
1406#endif // wxUSE_FILE/!wxUSE_FILE
1407}
1408
1409#endif // #if WXWIN_COMPATIBILITY_2_8
1410
1411// Get first file name matching given wild card.
1412
1413static wxDir *gs_dir = NULL;
1414static wxString gs_dirPath;
1415
1416wxString wxFindFirstFile(const wxString& spec, int flags)
1417{
1418 wxFileName::SplitPath(spec, &gs_dirPath, NULL, NULL);
1419 if ( gs_dirPath.empty() )
1420 gs_dirPath = wxT(".");
1421 if ( !wxEndsWithPathSeparator(gs_dirPath ) )
1422 gs_dirPath << wxFILE_SEP_PATH;
1423
1424 delete gs_dir; // can be NULL, this is ok
1425 gs_dir = new wxDir(gs_dirPath);
1426
1427 if ( !gs_dir->IsOpened() )
1428 {
1429 wxLogSysError(_("Can not enumerate files '%s'"), spec);
1430 return wxEmptyString;
1431 }
1432
1433 int dirFlags;
1434 switch (flags)
1435 {
1436 case wxDIR: dirFlags = wxDIR_DIRS; break;
1437 case wxFILE: dirFlags = wxDIR_FILES; break;
1438 default: dirFlags = wxDIR_DIRS | wxDIR_FILES; break;
1439 }
1440
1441 wxString result;
1442 gs_dir->GetFirst(&result, wxFileNameFromPath(spec), dirFlags);
1443 if ( result.empty() )
1444 {
1445 wxDELETE(gs_dir);
1446 return result;
1447 }
1448
1449 return gs_dirPath + result;
1450}
1451
1452wxString wxFindNextFile()
1453{
1454 wxCHECK_MSG( gs_dir, "", "You must call wxFindFirstFile before!" );
1455
1456 wxString result;
1457 gs_dir->GetNext(&result);
1458
1459 if ( result.empty() )
1460 {
1461 wxDELETE(gs_dir);
1462 return result;
1463 }
1464
1465 return gs_dirPath + result;
1466}
1467
1468
1469// Get current working directory.
1470// If buf is NULL, allocates space using new, else copies into buf.
1471// wxGetWorkingDirectory() is obsolete, use wxGetCwd()
1472// wxDoGetCwd() is their common core to be moved
1473// to wxGetCwd() once wxGetWorkingDirectory() will be removed.
1474// Do not expose wxDoGetCwd in headers!
1475
1476wxChar *wxDoGetCwd(wxChar *buf, int sz)
1477{
1478#if defined(__WXPALMOS__)
1479 // TODO
1480 if(buf && sz>0) buf[0] = _T('\0');
1481 return buf;
1482#elif defined(__WXWINCE__)
1483 // TODO
1484 if(buf && sz>0) buf[0] = _T('\0');
1485 return buf;
1486#else
1487 if ( !buf )
1488 {
1489 buf = new wxChar[sz + 1];
1490 }
1491
1492 bool ok wxDUMMY_INITIALIZE(false);
1493
1494 // for the compilers which have Unicode version of _getcwd(), call it
1495 // directly, for the others call the ANSI version and do the translation
1496#if !wxUSE_UNICODE
1497 #define cbuf buf
1498#else // wxUSE_UNICODE
1499 bool needsANSI = true;
1500
1501 #if !defined(HAVE_WGETCWD) || wxUSE_UNICODE_MSLU
1502 char cbuf[_MAXPATHLEN];
1503 #endif
1504
1505 #ifdef HAVE_WGETCWD
1506 #if wxUSE_UNICODE_MSLU
1507 if ( wxGetOsVersion() != wxOS_WINDOWS_9X )
1508 #else
1509 char *cbuf = NULL; // never really used because needsANSI will always be false
1510 #endif
1511 {
1512 ok = _wgetcwd(buf, sz) != NULL;
1513 needsANSI = false;
1514 }
1515 #endif
1516
1517 if ( needsANSI )
1518#endif // wxUSE_UNICODE
1519 {
1520 #if defined(_MSC_VER) || defined(__MINGW32__)
1521 ok = _getcwd(cbuf, sz) != NULL;
1522 #elif defined(__OS2__)
1523 APIRET rc;
1524 ULONG ulDriveNum = 0;
1525 ULONG ulDriveMap = 0;
1526 rc = ::DosQueryCurrentDisk(&ulDriveNum, &ulDriveMap);
1527 ok = rc == 0;
1528 if (ok)
1529 {
1530 sz -= 3;
1531 rc = ::DosQueryCurrentDir( 0 // current drive
1532 ,(PBYTE)cbuf + 3
1533 ,(PULONG)&sz
1534 );
1535 cbuf[0] = char('A' + (ulDriveNum - 1));
1536 cbuf[1] = ':';
1537 cbuf[2] = '\\';
1538 ok = rc == 0;
1539 }
1540 #else // !Win32/VC++ !Mac !OS2
1541 ok = getcwd(cbuf, sz) != NULL;
1542 #endif // platform
1543
1544 #if wxUSE_UNICODE
1545 // finally convert the result to Unicode if needed
1546 wxConvFile.MB2WC(buf, cbuf, sz);
1547 #endif // wxUSE_UNICODE
1548 }
1549
1550 if ( !ok )
1551 {
1552 wxLogSysError(_("Failed to get the working directory"));
1553
1554 // VZ: the old code used to return "." on error which didn't make any
1555 // sense at all to me - empty string is a better error indicator
1556 // (NULL might be even better but I'm afraid this could lead to
1557 // problems with the old code assuming the return is never NULL)
1558 buf[0] = _T('\0');
1559 }
1560 else // ok, but we might need to massage the path into the right format
1561 {
1562#ifdef __DJGPP__
1563 // VS: DJGPP is a strange mix of DOS and UNIX API and returns paths
1564 // with / deliminers. We don't like that.
1565 for (wxChar *ch = buf; *ch; ch++)
1566 {
1567 if (*ch == wxT('/'))
1568 *ch = wxT('\\');
1569 }
1570#endif // __DJGPP__
1571
1572// MBN: we hope that in the case the user is compiling a GTK+/Motif app,
1573// he needs Unix as opposed to Win32 pathnames
1574#if defined( __CYGWIN__ ) && defined( __WINDOWS__ )
1575 // another example of DOS/Unix mix (Cygwin)
1576 wxString pathUnix = buf;
1577#if wxUSE_UNICODE
1578 char bufA[_MAXPATHLEN];
1579 cygwin_conv_to_full_win32_path(pathUnix.mb_str(wxConvFile), bufA);
1580 wxConvFile.MB2WC(buf, bufA, sz);
1581#else
1582 cygwin_conv_to_full_win32_path(pathUnix, buf);
1583#endif // wxUSE_UNICODE
1584#endif // __CYGWIN__
1585 }
1586
1587 return buf;
1588
1589#if !wxUSE_UNICODE
1590 #undef cbuf
1591#endif
1592
1593#endif
1594 // __WXWINCE__
1595}
1596
1597#if WXWIN_COMPATIBILITY_2_6
1598wxChar *wxGetWorkingDirectory(wxChar *buf, int sz)
1599{
1600 return wxDoGetCwd(buf,sz);
1601}
1602#endif // WXWIN_COMPATIBILITY_2_6
1603
1604wxString wxGetCwd()
1605{
1606 wxString str;
1607 wxDoGetCwd(wxStringBuffer(str, _MAXPATHLEN), _MAXPATHLEN);
1608 return str;
1609}
1610
1611bool wxSetWorkingDirectory(const wxString& d)
1612{
1613#if defined(__OS2__)
1614 if (d[1] == ':')
1615 {
1616 ::DosSetDefaultDisk(wxToupper(d[0]) - _T('A') + 1);
1617 // do not call DosSetCurrentDir when just changing drive,
1618 // since it requires e.g. "d:." instead of "d:"!
1619 if (d.length() == 2)
1620 return true;
1621 }
1622 return (::DosSetCurrentDir(d.c_str()) == 0);
1623#elif defined(__UNIX__) || defined(__WXMAC__) || defined(__DOS__)
1624 return (chdir(wxFNSTRINGCAST d.fn_str()) == 0);
1625#elif defined(__WINDOWS__)
1626
1627#ifdef __WIN32__
1628#ifdef __WXWINCE__
1629 // No equivalent in WinCE
1630 wxUnusedVar(d);
1631 return false;
1632#else
1633 return (bool)(SetCurrentDirectory(d.fn_str()) != 0);
1634#endif
1635#else
1636 // Must change drive, too.
1637 bool isDriveSpec = ((strlen(d) > 1) && (d[1] == ':'));
1638 if (isDriveSpec)
1639 {
1640 wxChar firstChar = d[0];
1641
1642 // To upper case
1643 if (firstChar > 90)
1644 firstChar = firstChar - 32;
1645
1646 // To a drive number
1647 unsigned int driveNo = firstChar - 64;
1648 if (driveNo > 0)
1649 {
1650 unsigned int noDrives;
1651 _dos_setdrive(driveNo, &noDrives);
1652 }
1653 }
1654 bool success = (chdir(WXSTRINGCAST d) == 0);
1655
1656 return success;
1657#endif
1658
1659#endif
1660}
1661
1662// Get the OS directory if appropriate (such as the Windows directory).
1663// On non-Windows platform, probably just return the empty string.
1664wxString wxGetOSDirectory()
1665{
1666#ifdef __WXWINCE__
1667 return wxString(wxT("\\Windows"));
1668#elif defined(__WINDOWS__) && !defined(__WXMICROWIN__)
1669 wxChar buf[256];
1670 GetWindowsDirectory(buf, 256);
1671 return wxString(buf);
1672#elif defined(__WXMAC__) && wxOSX_USE_CARBON
1673 return wxMacFindFolder(kOnSystemDisk, 'macs', false);
1674#else
1675 return wxEmptyString;
1676#endif
1677}
1678
1679bool wxEndsWithPathSeparator(const wxString& filename)
1680{
1681 return !filename.empty() && wxIsPathSeparator(filename.Last());
1682}
1683
1684// find a file in a list of directories, returns false if not found
1685bool wxFindFileInPath(wxString *pStr, const wxString& szPath, const wxString& szFile)
1686{
1687 // we assume that it's not empty
1688 wxCHECK_MSG( !szFile.empty(), false,
1689 _T("empty file name in wxFindFileInPath"));
1690
1691 // skip path separator in the beginning of the file name if present
1692 wxString szFile2;
1693 if ( wxIsPathSeparator(szFile[0u]) )
1694 szFile2 = szFile.Mid(1);
1695 else
1696 szFile2 = szFile;
1697
1698 wxStringTokenizer tkn(szPath, wxPATH_SEP);
1699
1700 while ( tkn.HasMoreTokens() )
1701 {
1702 wxString strFile = tkn.GetNextToken();
1703 if ( !wxEndsWithPathSeparator(strFile) )
1704 strFile += wxFILE_SEP_PATH;
1705 strFile += szFile2;
1706
1707 if ( wxFileExists(strFile) )
1708 {
1709 *pStr = strFile;
1710 return true;
1711 }
1712 }
1713
1714 return false;
1715}
1716
1717#if WXWIN_COMPATIBILITY_2_8
1718void WXDLLIMPEXP_BASE wxSplitPath(const wxString& fileName,
1719 wxString *pstrPath,
1720 wxString *pstrName,
1721 wxString *pstrExt)
1722{
1723 wxFileName::SplitPath(fileName, pstrPath, pstrName, pstrExt);
1724}
1725#endif // #if WXWIN_COMPATIBILITY_2_8
1726
1727#if wxUSE_DATETIME
1728
1729time_t WXDLLIMPEXP_BASE wxFileModificationTime(const wxString& filename)
1730{
1731 wxDateTime mtime;
1732 if ( !wxFileName(filename).GetTimes(NULL, &mtime, NULL) )
1733 return (time_t)-1;
1734
1735 return mtime.GetTicks();
1736}
1737
1738#endif // wxUSE_DATETIME
1739
1740
1741// Parses the filterStr, returning the number of filters.
1742// Returns 0 if none or if there's a problem.
1743// filterStr is in the form: "All files (*.*)|*.*|JPEG Files (*.jpeg)|*.jpeg"
1744
1745int WXDLLIMPEXP_BASE wxParseCommonDialogsFilter(const wxString& filterStr,
1746 wxArrayString& descriptions,
1747 wxArrayString& filters)
1748{
1749 descriptions.Clear();
1750 filters.Clear();
1751
1752 wxString str(filterStr);
1753
1754 wxString description, filter;
1755 int pos = 0;
1756 while( pos != wxNOT_FOUND )
1757 {
1758 pos = str.Find(wxT('|'));
1759 if ( pos == wxNOT_FOUND )
1760 {
1761 // if there are no '|'s at all in the string just take the entire
1762 // string as filter and make description empty for later autocompletion
1763 if ( filters.IsEmpty() )
1764 {
1765 descriptions.Add(wxEmptyString);
1766 filters.Add(filterStr);
1767 }
1768 else
1769 {
1770 wxFAIL_MSG( _T("missing '|' in the wildcard string!") );
1771 }
1772
1773 break;
1774 }
1775
1776 description = str.Left(pos);
1777 str = str.Mid(pos + 1);
1778 pos = str.Find(wxT('|'));
1779 if ( pos == wxNOT_FOUND )
1780 {
1781 filter = str;
1782 }
1783 else
1784 {
1785 filter = str.Left(pos);
1786 str = str.Mid(pos + 1);
1787 }
1788
1789 descriptions.Add(description);
1790 filters.Add(filter);
1791 }
1792
1793#if defined(__WXMOTIF__)
1794 // split it so there is one wildcard per entry
1795 for( size_t i = 0 ; i < descriptions.GetCount() ; i++ )
1796 {
1797 pos = filters[i].Find(wxT(';'));
1798 if (pos != wxNOT_FOUND)
1799 {
1800 // first split only filters
1801 descriptions.Insert(descriptions[i],i+1);
1802 filters.Insert(filters[i].Mid(pos+1),i+1);
1803 filters[i]=filters[i].Left(pos);
1804
1805 // autoreplace new filter in description with pattern:
1806 // C/C++ Files(*.cpp;*.c;*.h)|*.cpp;*.c;*.h
1807 // cause split into:
1808 // C/C++ Files(*.cpp)|*.cpp
1809 // C/C++ Files(*.c;*.h)|*.c;*.h
1810 // and next iteration cause another split into:
1811 // C/C++ Files(*.cpp)|*.cpp
1812 // C/C++ Files(*.c)|*.c
1813 // C/C++ Files(*.h)|*.h
1814 for ( size_t k=i;k<i+2;k++ )
1815 {
1816 pos = descriptions[k].Find(filters[k]);
1817 if (pos != wxNOT_FOUND)
1818 {
1819 wxString before = descriptions[k].Left(pos);
1820 wxString after = descriptions[k].Mid(pos+filters[k].Len());
1821 pos = before.Find(_T('('),true);
1822 if (pos>before.Find(_T(')'),true))
1823 {
1824 before = before.Left(pos+1);
1825 before << filters[k];
1826 pos = after.Find(_T(')'));
1827 int pos1 = after.Find(_T('('));
1828 if (pos != wxNOT_FOUND && (pos<pos1 || pos1==wxNOT_FOUND))
1829 {
1830 before << after.Mid(pos);
1831 descriptions[k] = before;
1832 }
1833 }
1834 }
1835 }
1836 }
1837 }
1838#endif
1839
1840 // autocompletion
1841 for( size_t j = 0 ; j < descriptions.GetCount() ; j++ )
1842 {
1843 if ( descriptions[j].empty() && !filters[j].empty() )
1844 {
1845 descriptions[j].Printf(_("Files (%s)"), filters[j].c_str());
1846 }
1847 }
1848
1849 return filters.GetCount();
1850}
1851
1852#if defined(__WINDOWS__) && !(defined(__UNIX__) || defined(__OS2__))
1853static bool wxCheckWin32Permission(const wxString& path, DWORD access)
1854{
1855 // quoting the MSDN: "To obtain a handle to a directory, call the
1856 // CreateFile function with the FILE_FLAG_BACKUP_SEMANTICS flag", but this
1857 // doesn't work under Win9x/ME but then it's not needed there anyhow
1858 const DWORD dwAttr = ::GetFileAttributes(path.fn_str());
1859 if ( dwAttr == INVALID_FILE_ATTRIBUTES )
1860 {
1861 // file probably doesn't exist at all
1862 return false;
1863 }
1864
1865 if ( wxGetOsVersion() == wxOS_WINDOWS_9X )
1866 {
1867 // FAT directories always allow all access, even if they have the
1868 // readonly flag set, and FAT files can only be read-only
1869 return (dwAttr & FILE_ATTRIBUTE_DIRECTORY) ||
1870 (access != GENERIC_WRITE ||
1871 !(dwAttr & FILE_ATTRIBUTE_READONLY));
1872 }
1873
1874 HANDLE h = ::CreateFile
1875 (
1876 path.t_str(),
1877 access,
1878 FILE_SHARE_READ | FILE_SHARE_WRITE | FILE_SHARE_DELETE,
1879 NULL,
1880 OPEN_EXISTING,
1881 dwAttr & FILE_ATTRIBUTE_DIRECTORY
1882 ? FILE_FLAG_BACKUP_SEMANTICS
1883 : 0,
1884 NULL
1885 );
1886 if ( h != INVALID_HANDLE_VALUE )
1887 CloseHandle(h);
1888
1889 return h != INVALID_HANDLE_VALUE;
1890}
1891#endif // __WINDOWS__
1892
1893bool wxIsWritable(const wxString &path)
1894{
1895#if defined( __UNIX__ ) || defined(__OS2__)
1896 // access() will take in count also symbolic links
1897 return wxAccess(path.c_str(), W_OK) == 0;
1898#elif defined( __WINDOWS__ )
1899 return wxCheckWin32Permission(path, GENERIC_WRITE);
1900#else
1901 wxUnusedVar(path);
1902 // TODO
1903 return false;
1904#endif
1905}
1906
1907bool wxIsReadable(const wxString &path)
1908{
1909#if defined( __UNIX__ ) || defined(__OS2__)
1910 // access() will take in count also symbolic links
1911 return wxAccess(path.c_str(), R_OK) == 0;
1912#elif defined( __WINDOWS__ )
1913 return wxCheckWin32Permission(path, GENERIC_READ);
1914#else
1915 wxUnusedVar(path);
1916 // TODO
1917 return false;
1918#endif
1919}
1920
1921bool wxIsExecutable(const wxString &path)
1922{
1923#if defined( __UNIX__ ) || defined(__OS2__)
1924 // access() will take in count also symbolic links
1925 return wxAccess(path.c_str(), X_OK) == 0;
1926#elif defined( __WINDOWS__ )
1927 return wxCheckWin32Permission(path, GENERIC_EXECUTE);
1928#else
1929 wxUnusedVar(path);
1930 // TODO
1931 return false;
1932#endif
1933}
1934
1935// Return the type of an open file
1936//
1937// Some file types on some platforms seem seekable but in fact are not.
1938// The main use of this function is to allow such cases to be detected
1939// (IsSeekable() is implemented as wxGetFileKind() == wxFILE_KIND_DISK).
1940//
1941// This is important for the archive streams, which benefit greatly from
1942// being able to seek on a stream, but which will produce corrupt archives
1943// if they unknowingly seek on a non-seekable stream.
1944//
1945// wxFILE_KIND_DISK is a good catch all return value, since other values
1946// disable features of the archive streams. Some other value must be returned
1947// for a file type that appears seekable but isn't.
1948//
1949// Known examples:
1950// * Pipes on Windows
1951// * Files on VMS with a record format other than StreamLF
1952//
1953wxFileKind wxGetFileKind(int fd)
1954{
1955#if defined __WXMSW__ && !defined __WXWINCE__ && defined wxGetOSFHandle
1956 switch (::GetFileType(wxGetOSFHandle(fd)) & ~FILE_TYPE_REMOTE)
1957 {
1958 case FILE_TYPE_CHAR:
1959 return wxFILE_KIND_TERMINAL;
1960 case FILE_TYPE_DISK:
1961 return wxFILE_KIND_DISK;
1962 case FILE_TYPE_PIPE:
1963 return wxFILE_KIND_PIPE;
1964 }
1965
1966 return wxFILE_KIND_UNKNOWN;
1967
1968#elif defined(__UNIX__)
1969 if (isatty(fd))
1970 return wxFILE_KIND_TERMINAL;
1971
1972 struct stat st;
1973 fstat(fd, &st);
1974
1975 if (S_ISFIFO(st.st_mode))
1976 return wxFILE_KIND_PIPE;
1977 if (!S_ISREG(st.st_mode))
1978 return wxFILE_KIND_UNKNOWN;
1979
1980 #if defined(__VMS__)
1981 if (st.st_fab_rfm != FAB$C_STMLF)
1982 return wxFILE_KIND_UNKNOWN;
1983 #endif
1984
1985 return wxFILE_KIND_DISK;
1986
1987#else
1988 #define wxFILEKIND_STUB
1989 (void)fd;
1990 return wxFILE_KIND_DISK;
1991#endif
1992}
1993
1994wxFileKind wxGetFileKind(FILE *fp)
1995{
1996 // Note: The watcom rtl dll doesn't have fileno (the static lib does).
1997 // Should be fixed in version 1.4.
1998#if defined(wxFILEKIND_STUB) || wxONLY_WATCOM_EARLIER_THAN(1,4)
1999 (void)fp;
2000 return wxFILE_KIND_DISK;
2001#elif defined(__WINDOWS__) && !defined(__CYGWIN__) && !defined(__WATCOMC__) && !defined(__WINE__)
2002 return fp ? wxGetFileKind(_fileno(fp)) : wxFILE_KIND_UNKNOWN;
2003#else
2004 return fp ? wxGetFileKind(fileno(fp)) : wxFILE_KIND_UNKNOWN;
2005#endif
2006}
2007
2008
2009//------------------------------------------------------------------------
2010// wild character routines
2011//------------------------------------------------------------------------
2012
2013bool wxIsWild( const wxString& pattern )
2014{
2015 for ( wxString::const_iterator p = pattern.begin(); p != pattern.end(); ++p )
2016 {
2017 switch ( (*p).GetValue() )
2018 {
2019 case wxT('?'):
2020 case wxT('*'):
2021 case wxT('['):
2022 case wxT('{'):
2023 return true;
2024
2025 case wxT('\\'):
2026 if ( ++p == pattern.end() )
2027 return false;
2028 }
2029 }
2030 return false;
2031}
2032
2033/*
2034* Written By Douglas A. Lewis <dalewis@cs.Buffalo.EDU>
2035*
2036* The match procedure is public domain code (from ircII's reg.c)
2037* but modified to suit our tastes (RN: No "%" syntax I guess)
2038*/
2039
2040bool wxMatchWild( const wxString& pat, const wxString& text, bool dot_special )
2041{
2042 if (text.empty())
2043 {
2044 /* Match if both are empty. */
2045 return pat.empty();
2046 }
2047
2048 const wxChar *m = pat.c_str(),
2049 *n = text.c_str(),
2050 *ma = NULL,
2051 *na = NULL;
2052 int just = 0,
2053 acount = 0,
2054 count = 0;
2055
2056 if (dot_special && (*n == wxT('.')))
2057 {
2058 /* Never match so that hidden Unix files
2059 * are never found. */
2060 return false;
2061 }
2062
2063 for (;;)
2064 {
2065 if (*m == wxT('*'))
2066 {
2067 ma = ++m;
2068 na = n;
2069 just = 1;
2070 acount = count;
2071 }
2072 else if (*m == wxT('?'))
2073 {
2074 m++;
2075 if (!*n++)
2076 return false;
2077 }
2078 else
2079 {
2080 if (*m == wxT('\\'))
2081 {
2082 m++;
2083 /* Quoting "nothing" is a bad thing */
2084 if (!*m)
2085 return false;
2086 }
2087 if (!*m)
2088 {
2089 /*
2090 * If we are out of both strings or we just
2091 * saw a wildcard, then we can say we have a
2092 * match
2093 */
2094 if (!*n)
2095 return true;
2096 if (just)
2097 return true;
2098 just = 0;
2099 goto not_matched;
2100 }
2101 /*
2102 * We could check for *n == NULL at this point, but
2103 * since it's more common to have a character there,
2104 * check to see if they match first (m and n) and
2105 * then if they don't match, THEN we can check for
2106 * the NULL of n
2107 */
2108 just = 0;
2109 if (*m == *n)
2110 {
2111 m++;
2112 count++;
2113 n++;
2114 }
2115 else
2116 {
2117
2118 not_matched:
2119
2120 /*
2121 * If there are no more characters in the
2122 * string, but we still need to find another
2123 * character (*m != NULL), then it will be
2124 * impossible to match it
2125 */
2126 if (!*n)
2127 return false;
2128
2129 if (ma)
2130 {
2131 m = ma;
2132 n = ++na;
2133 count = acount;
2134 }
2135 else
2136 return false;
2137 }
2138 }
2139 }
2140}
2141
2142#ifdef __VISUALC__
2143 #pragma warning(default:4706) // assignment within conditional expression
2144#endif // VC++
wxWidgets (Impactor)