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