#include "wx/config.h" // for wxExpandEnvVars
#include "wx/utils.h"
#include "wx/file.h"
-//#include "wx/dynlib.h" // see GetLongPath below, code disabled.
+#include "wx/dynlib.h"
// For GetShort/LongPathName
#ifdef __WIN32__
#include "wx/msw/winundef.h"
#endif
+#if defined(__WXMAC__)
+ #include "wx/mac/private.h" // includes mac headers
+#endif
+
// utime() is POSIX so should normally be available on all Unices
#ifdef __UNIX_LIKE__
#include <sys/types.h>
class wxFileHandle
{
public:
- wxFileHandle(const wxString& filename)
+ enum OpenMode
+ {
+ Read,
+ Write
+ };
+
+ wxFileHandle(const wxString& filename, OpenMode mode)
{
m_hFile = ::CreateFile
(
- filename, // name
- GENERIC_READ, // access mask
- 0, // no sharing
- NULL, // no secutity attr
- OPEN_EXISTING, // creation disposition
- 0, // no flags
- NULL // no template file
+ filename, // name
+ mode == Read ? GENERIC_READ // access mask
+ : GENERIC_WRITE,
+ 0, // no sharing
+ NULL, // no secutity attr
+ OPEN_EXISTING, // creation disposition
+ 0, // no flags
+ NULL // no template file
);
if ( m_hFile == INVALID_HANDLE_VALUE )
{
- wxLogSysError(_("Failed to open '%s' for reading"),
- filename.c_str());
+ wxLogSysError(_("Failed to open '%s' for %s"),
+ filename.c_str(),
+ mode == Read ? _("reading") : _("writing"));
}
}
// convert between wxDateTime and FILETIME which is a 64-bit value representing
// the number of 100-nanosecond intervals since January 1, 1601.
-// the number of milliseconds between the Unix Epoch (January 1, 1970) and the
-// FILETIME reference point (January 1, 1601)
-static const wxLongLong FILETIME_EPOCH_OFFSET = wxLongLong(0xa97, 0x30b66800);
-
static void ConvertFileTimeToWx(wxDateTime *dt, const FILETIME &ft)
{
- wxLongLong ll(ft.dwHighDateTime, ft.dwLowDateTime);
-
- // convert 100ns to ms
- ll /= 10000;
+ FILETIME ftcopy = ft;
+ FILETIME ftLocal;
+ if ( !::FileTimeToLocalFileTime(&ftcopy, &ftLocal) )
+ {
+ wxLogLastError(_T("FileTimeToLocalFileTime"));
+ }
- // move it to our Epoch
- ll -= FILETIME_EPOCH_OFFSET;
+ SYSTEMTIME st;
+ if ( !::FileTimeToSystemTime(&ftLocal, &st) )
+ {
+ wxLogLastError(_T("FileTimeToSystemTime"));
+ }
- *dt = wxDateTime(ll);
+ dt->Set(st.wDay, wxDateTime::Month(st.wMonth - 1), st.wYear,
+ st.wHour, st.wMinute, st.wSecond, st.wMilliseconds);
}
static void ConvertWxToFileTime(FILETIME *ft, const wxDateTime& dt)
{
- // do the reverse of ConvertFileTimeToWx()
- wxLongLong ll = dt.GetValue();
- ll *= 10000;
- ll += FILETIME_EPOCH_OFFSET;
+ SYSTEMTIME st;
+ st.wDay = dt.GetDay();
+ st.wMonth = dt.GetMonth() + 1;
+ st.wYear = dt.GetYear();
+ st.wHour = dt.GetHour();
+ st.wMinute = dt.GetMinute();
+ st.wSecond = dt.GetSecond();
+ st.wMilliseconds = dt.GetMillisecond();
+
+ FILETIME ftLocal;
+ if ( !::SystemTimeToFileTime(&st, &ftLocal) )
+ {
+ wxLogLastError(_T("SystemTimeToFileTime"));
+ }
- ft->dwHighDateTime = ll.GetHi();
- ft->dwLowDateTime = ll.GetLo();
+ if ( !::LocalFileTimeToFileTime(&ftLocal, ft) )
+ {
+ wxLogLastError(_T("LocalFileTimeToFileTime"));
+ }
}
#endif // __WIN32__
+// return a string with the volume par
+static wxString wxGetVolumeString(const wxString& volume, wxPathFormat format)
+{
+ wxString path;
+
+ if ( !volume.empty() )
+ {
+ format = wxFileName::GetFormat(format);
+
+ // Special Windows UNC paths hack, part 2: undo what we did in
+ // SplitPath() and make an UNC path if we have a drive which is not a
+ // single letter (hopefully the network shares can't be one letter only
+ // although I didn't find any authoritative docs on this)
+ if ( format == wxPATH_DOS && volume.length() > 1 )
+ {
+ path << wxFILE_SEP_PATH_DOS << wxFILE_SEP_PATH_DOS << volume;
+ }
+ else if ( format == wxPATH_DOS || format == wxPATH_VMS )
+ {
+ path << volume << wxFileName::GetVolumeSeparator(format);
+ }
+ // else ignore
+ }
+
+ return path;
+}
+
// ============================================================================
// implementation
// ============================================================================
m_dirs = filepath.GetDirs();
m_name = filepath.GetName();
m_ext = filepath.GetExt();
- m_relative = filepath.IsRelative();
+ m_relative = filepath.m_relative;
}
void wxFileName::Assign(const wxString& volume,
void wxFileName::SetPath( const wxString &path, wxPathFormat format )
{
- wxPathFormat my_format = GetFormat( format );
- wxString my_path = path;
-
m_dirs.Clear();
- if (!my_path.empty())
+ if ( !path.empty() )
{
+ wxPathFormat my_format = GetFormat( format );
+ wxString my_path = path;
+
// 1) Determine if the path is relative or absolute.
+ wxChar leadingChar = my_path[0u];
switch (my_format)
{
case wxPATH_MAC:
- m_relative = ( my_path[0u] == wxT(':') );
+ m_relative = leadingChar == wxT(':');
+
// We then remove a leading ":". The reason is in our
// storage form for relative paths:
// ":dir:file.txt" actually means "./dir/file.txt" in
// actually means <UP>, whereas under DOS, double
// slashes can be ignored: "\\\\" is the same as "\\".
if (m_relative)
- my_path.Remove( 0, 1 );
+ my_path.erase( 0, 1 );
break;
+
case wxPATH_VMS:
// TODO: what is the relative path format here?
m_relative = FALSE;
break;
+
case wxPATH_UNIX:
- m_relative = ( my_path[0u] != wxT('/') );
+ // the paths of the form "~" or "~username" are absolute
+ m_relative = leadingChar != wxT('/') && leadingChar != _T('~');
break;
+
case wxPATH_DOS:
- m_relative = ( (my_path[0u] != wxT('/')) && (my_path[0u] != wxT('\\')) );
+ m_relative = !IsPathSeparator(leadingChar, my_format);
break;
+
default:
wxFAIL_MSG( wxT("error") );
break;
}
}
}
- else
+ else // no path at all
{
m_relative = TRUE;
}
wxString fullpath = fullpathOrig;
if ( !wxEndsWithPathSeparator(fullpath) )
{
- fullpath += GetPathSeparators(format)[0u];
+ fullpath += GetPathSeparator(format);
}
wxString volume, path, name, ext;
dir = _T('.');
}
}
+ else // we have a dir to create the file in
+ {
+ // ensure we use only the back slashes as GetTempFileName(), unlike all
+ // the other APIs, is picky and doesn't accept the forward ones
+ dir.Replace(_T("/"), _T("\\"));
+ }
if ( !::GetTempFileName(dir, name, 0, wxStringBuffer(path, MAX_PATH + 1)) )
{
#else // !Windows, !OS/2
if ( dir.empty() )
{
+#if defined(__WXMAC__) && !defined(__DARWIN__)
+ dir = wxMacFindFolder( (short) kOnSystemDisk, kTemporaryFolderType, kCreateFolder ) ;
+#else // !Mac
dir = wxGetenv(_T("TMP"));
- if ( path.empty() )
+ if ( dir.empty() )
{
dir = wxGetenv(_T("TEMP"));
}
{
// default
#ifdef __DOS__
- dir = _T(".");
+ dir = _T(".");
#else
- dir = _T("/tmp");
+ dir = _T("/tmp");
#endif
}
+#endif // Mac/!Mac
}
path = dir;
// directory operations
// ----------------------------------------------------------------------------
-bool wxFileName::Mkdir( int perm, bool full )
+bool wxFileName::Mkdir( int perm, int flags )
{
- return wxFileName::Mkdir( GetFullPath(), perm, full );
+ return wxFileName::Mkdir( GetFullPath(), perm, flags );
}
-bool wxFileName::Mkdir( const wxString &dir, int perm, bool full )
+bool wxFileName::Mkdir( const wxString& dir, int perm, int flags )
{
- if (full)
+ if ( flags & wxPATH_MKDIR_FULL )
{
- wxFileName filename(dir);
- wxArrayString dirs = filename.GetDirs();
- dirs.Add(filename.GetName());
+ // split the path in components
+ wxFileName filename;
+ filename.AssignDir(dir);
- size_t count = dirs.GetCount();
- size_t i;
wxString currPath;
- int noErrors = 0;
- for ( i = 0; i < count; i++ )
+ if ( filename.HasVolume())
{
- currPath += dirs[i];
+ currPath << wxGetVolumeString(filename.GetVolume(), wxPATH_NATIVE);
+ }
- if (currPath.Last() == wxT(':'))
- {
- // Can't create a root directory so continue to next dir
+ wxArrayString dirs = filename.GetDirs();
+ size_t count = dirs.GetCount();
+ for ( size_t i = 0; i < count; i++ )
+ {
+ if ( i > 0 || filename.IsAbsolute() )
currPath += wxFILE_SEP_PATH;
- continue;
- }
+ currPath += dirs[i];
if (!DirExists(currPath))
+ {
if (!wxMkdir(currPath, perm))
- noErrors ++;
-
- if ( (i < (count-1)) )
- currPath += wxFILE_SEP_PATH;
+ {
+ // no need to try creating further directories
+ return FALSE;
+ }
+ }
}
- return (noErrors == 0);
+ return TRUE;
}
- else
- return ::wxMkdir( dir, perm );
+
+ return ::wxMkdir( dir, perm );
}
bool wxFileName::Rmdir()
// path normalization
// ----------------------------------------------------------------------------
-bool wxFileName::Normalize(wxPathNormalize flags,
+bool wxFileName::Normalize(int flags,
const wxString& cwd,
wxPathFormat format)
{
format = GetFormat(format);
// make the path absolute
- if ( (flags & wxPATH_NORM_ABSOLUTE) && m_relative )
+ if ( (flags & wxPATH_NORM_ABSOLUTE) && !IsAbsolute(format) )
{
if ( cwd.empty() )
{
curDir.AssignDir(cwd);
}
-#if 0
// the path may be not absolute because it doesn't have the volume name
// but in this case we shouldn't modify the directory components of it
// but just set the current volume
{
SetVolume(curDir.GetVolume());
- if ( IsAbsolute() )
+ if ( !m_relative )
{
// yes, it was the case - we don't need curDir then
curDir.Clear();
}
}
-#endif
- m_relative = FALSE;
}
// handle ~ stuff under Unix only
m_ext.MakeLower();
}
+ // we do have the path now
+ //
+ // NB: need to do this before (maybe) calling Assign() below
+ m_relative = FALSE;
+
#if defined(__WIN32__)
if ( (flags & wxPATH_NORM_LONG) && (format == wxPATH_DOS) )
{
return TRUE;
}
+// ----------------------------------------------------------------------------
+// absolute/relative paths
+// ----------------------------------------------------------------------------
+
+bool wxFileName::IsAbsolute(wxPathFormat format) const
+{
+ // if our path doesn't start with a path separator, it's not an absolute
+ // path
+ if ( m_relative )
+ return FALSE;
+
+ if ( !GetVolumeSeparator(format).empty() )
+ {
+ // this format has volumes and an absolute path must have one, it's not
+ // enough to have the full path to bean absolute file under Windows
+ if ( GetVolume().empty() )
+ return FALSE;
+ }
+
+ return TRUE;
+}
+
bool wxFileName::MakeRelativeTo(const wxString& pathBase, wxPathFormat format)
{
wxFileName fnBase(pathBase, format);
m_dirs.Insert(wxT(".."), 0u);
}
+ if ( format == wxPATH_UNIX || format == wxPATH_DOS )
+ {
+ // a directory made relative with respect to itself is '.' under Unix
+ // and DOS, by definition (but we don't have to insert "./" for the
+ // files)
+ if ( m_dirs.IsEmpty() && IsDir() )
+ {
+ m_dirs.Add(_T('.'));
+ }
+ }
+
m_relative = TRUE;
// we were modified
return GetPathSeparators(format).Find(ch) != wxNOT_FOUND;
}
-bool wxFileName::IsWild( wxPathFormat format )
-{
- // FIXME: this is probably false for Mac and this is surely wrong for most
- // of Unix shells (think about "[...]")
- (void)format;
- return m_name.find_first_of(_T("*?")) != wxString::npos;
-}
-
// ----------------------------------------------------------------------------
// path components manipulation
// ----------------------------------------------------------------------------
return fullname;
}
-wxString wxFileName::GetPath( bool add_separator, wxPathFormat format ) const
+wxString wxFileName::GetPath( int flags, wxPathFormat format ) const
{
format = GetFormat( format );
wxString fullpath;
- // the leading character
- if ( format == wxPATH_MAC && m_relative )
+ // return the volume with the path as well if requested
+ if ( flags & wxPATH_GET_VOLUME )
{
- fullpath += wxFILE_SEP_PATH_MAC;
- }
- else if ( format == wxPATH_DOS )
- {
- if (!m_relative)
- fullpath += wxFILE_SEP_PATH_DOS;
- }
- else if ( format == wxPATH_UNIX )
- {
- if (!m_relative)
- fullpath += wxFILE_SEP_PATH_UNIX;
+ fullpath += wxGetVolumeString(GetVolume(), format);
}
- // then concatenate all the path components using the path separator
- size_t dirCount = m_dirs.GetCount();
- if ( dirCount )
+ // the leading character
+ switch ( format )
{
- if ( format == wxPATH_VMS )
- {
- fullpath += wxT('[');
- }
+ case wxPATH_MAC:
+ if ( m_relative )
+ fullpath += wxFILE_SEP_PATH_MAC;
+ break;
+ case wxPATH_DOS:
+ if (!m_relative)
+ fullpath += wxFILE_SEP_PATH_DOS;
+ break;
- for ( size_t i = 0; i < dirCount; i++ )
- {
- // TODO: What to do with ".." under VMS
+ default:
+ wxFAIL_MSG( _T("unknown path format") );
+ // fall through
- switch (format)
+ case wxPATH_UNIX:
+ if ( !m_relative )
{
- case wxPATH_MAC:
- {
- if (m_dirs[i] == wxT("."))
- break;
- if (m_dirs[i] != wxT("..")) // convert back from ".." to nothing
- fullpath += m_dirs[i];
- fullpath += wxT(':');
- break;
- }
- case wxPATH_DOS:
- {
- fullpath += m_dirs[i];
- fullpath += wxT('\\');
- break;
- }
- case wxPATH_UNIX:
+ // normally the absolute file names starts with a slash with
+ // one exception: file names like "~/foo.bar" don't have it
+ if ( m_dirs.IsEmpty() || m_dirs[0u] != _T('~') )
{
- fullpath += m_dirs[i];
- fullpath += wxT('/');
- break;
- }
- case wxPATH_VMS:
- {
- if (m_dirs[i] != wxT("..")) // convert back from ".." to nothing
- fullpath += m_dirs[i];
- if (i == dirCount-1)
- fullpath += wxT(']');
- else
- fullpath += wxT('.');
- break;
- }
- default:
- {
- wxFAIL_MSG( wxT("error") );
+ fullpath += wxFILE_SEP_PATH_UNIX;
}
}
- }
- }
-
-
-
- return fullpath;
-}
-
-wxString wxFileName::GetFullPath( wxPathFormat format ) const
-{
- format = GetFormat(format);
-
- wxString fullpath;
-
- // first put the volume
- if ( !m_volume.empty() )
- {
- {
- // Special Windows UNC paths hack, part 2: undo what we did in
- // SplitPath() and make an UNC path if we have a drive which is not a
- // single letter (hopefully the network shares can't be one letter only
- // although I didn't find any authoritative docs on this)
- if ( format == wxPATH_DOS && m_volume.length() > 1 )
- {
- fullpath << wxFILE_SEP_PATH_DOS << wxFILE_SEP_PATH_DOS << m_volume;
- }
- else if ( format == wxPATH_DOS || format == wxPATH_VMS )
- {
- fullpath << m_volume << GetVolumeSeparator(format);
- }
- // else ignore
- }
- }
+ break;
- // the leading character
- if ( format == wxPATH_MAC && m_relative )
- {
- fullpath += wxFILE_SEP_PATH_MAC;
- }
- else if ( format == wxPATH_DOS )
- {
- if (!m_relative)
- fullpath += wxFILE_SEP_PATH_DOS;
- }
- else if ( format == wxPATH_UNIX )
- {
- if (!m_relative)
- fullpath += wxFILE_SEP_PATH_UNIX;
+ case wxPATH_VMS:
+ // no leading character here but use this place to unset
+ // wxPATH_GET_SEPARATOR flag: under VMS it doesn't make sense as,
+ // if I understand correctly, there should never be a dot before
+ // the closing bracket
+ flags &= ~wxPATH_GET_SEPARATOR;
}
// then concatenate all the path components using the path separator
fullpath += wxT('[');
}
-
for ( size_t i = 0; i < dirCount; i++ )
{
- // TODO: What to do with ".." under VMS
-
switch (format)
{
case wxPATH_MAC:
- {
- if (m_dirs[i] == wxT("."))
- break;
- if (m_dirs[i] != wxT("..")) // convert back from ".." to nothing
+ if ( m_dirs[i] == wxT(".") )
+ {
+ // skip appending ':', this shouldn't be done in this
+ // case as "::" is interpreted as ".." under Unix
+ continue;
+ }
+
+ // convert back from ".." to nothing
+ if ( m_dirs[i] != wxT("..") )
fullpath += m_dirs[i];
- fullpath += wxT(':');
break;
- }
+
+ default:
+ wxFAIL_MSG( wxT("unexpected path format") );
+ // still fall through
+
case wxPATH_DOS:
- {
- fullpath += m_dirs[i];
- fullpath += wxT('\\');
- break;
- }
case wxPATH_UNIX:
- {
fullpath += m_dirs[i];
- fullpath += wxT('/');
break;
- }
+
case wxPATH_VMS:
- {
- if (m_dirs[i] != wxT("..")) // convert back from ".." to nothing
+ // TODO: What to do with ".." under VMS
+
+ // convert back from ".." to nothing
+ if ( m_dirs[i] != wxT("..") )
fullpath += m_dirs[i];
- if (i == dirCount-1)
- fullpath += wxT(']');
- else
- fullpath += wxT('.');
break;
- }
- default:
- {
- wxFAIL_MSG( wxT("error") );
- }
}
+
+ if ( (flags & wxPATH_GET_SEPARATOR) || (i != dirCount - 1) )
+ fullpath += GetPathSeparator(format);
+ }
+
+ if ( format == wxPATH_VMS )
+ {
+ fullpath += wxT(']');
}
}
- // finally add the file name and extension
+ return fullpath;
+}
+
+wxString wxFileName::GetFullPath( wxPathFormat format ) const
+{
+ // we already have a function to get the path
+ wxString fullpath = GetPath(wxPATH_GET_VOLUME | wxPATH_GET_SEPARATOR,
+ format);
+
+ // now just add the file name and extension to it
fullpath += GetFullName();
return fullpath;
#if defined(__WIN32__) && !defined(__WXMICROWIN__)
bool success = FALSE;
- // VZ: this code was disabled, why?
-#if 0 // wxUSE_DYNAMIC_LOADER
- typedef DWORD (*GET_LONG_PATH_NAME)(const wxChar *, wxChar *, DWORD);
+#if wxUSE_DYNAMIC_LOADER
+ typedef DWORD (WINAPI *GET_LONG_PATH_NAME)(const wxChar *, wxChar *, DWORD);
static bool s_triedToLoad = FALSE;
if ( !s_triedToLoad )
{
+ // suppress the errors about missing GetLongPathName[AW]
+ wxLogNull noLog;
+
s_triedToLoad = TRUE;
wxDynamicLibrary dllKernel(_T("kernel32"));
if ( dllKernel.IsLoaded() )
}
}
}
+
if (success)
return pathOut;
#endif // wxUSE_DYNAMIC_LOADER
// the path equal to something like '/', not empty, for the files
// immediately under root directory
size_t len = posLastSlash;
- if ( !len )
+
+ // this rule does not apply to mac since we do not start with colons (sep)
+ // except for relative paths
+ if ( !len && format != wxPATH_MAC)
len++;
*pstrPath = fullpath.Left(len);
wxString volume;
SplitPath(fullpath, &volume, path, name, ext, format);
- if ( path && !volume.empty() )
+ if ( path )
{
- path->Prepend(volume + GetVolumeSeparator(format));
+ path->Prepend(wxGetVolumeString(volume, format));
}
}
// time functions
// ----------------------------------------------------------------------------
-bool wxFileName::SetTimes(const wxDateTime *dtCreate,
- const wxDateTime *dtAccess,
- const wxDateTime *dtMod)
+bool wxFileName::SetTimes(const wxDateTime *dtAccess,
+ const wxDateTime *dtMod,
+ const wxDateTime *dtCreate)
{
#if defined(__UNIX_LIKE__) || (defined(__DOS__) && defined(__WATCOMC__))
if ( !dtAccess && !dtMod )
return TRUE;
}
#elif defined(__WIN32__)
- wxFileHandle fh(GetFullPath());
+ wxFileHandle fh(GetFullPath(), wxFileHandle::Write);
if ( fh.IsOk() )
{
FILETIME ftAccess, ftCreate, ftWrite;
#else // other platform
wxDateTime dtNow = wxDateTime::Now();
- return SetTimes(NULL /* don't change create time */, &dtNow, &dtNow);
+ return SetTimes(&dtNow, &dtNow, NULL /* don't change create time */);
#endif // platforms
}
bool wxFileName::GetTimes(wxDateTime *dtAccess,
wxDateTime *dtMod,
- wxDateTime *dtChange) const
+ wxDateTime *dtCreate) const
{
#if defined(__UNIX_LIKE__) || defined(__WXMAC__) || (defined(__DOS__) && defined(__WATCOMC__))
wxStructStat stBuf;
dtAccess->Set(stBuf.st_atime);
if ( dtMod )
dtMod->Set(stBuf.st_mtime);
- if ( dtChange )
- dtChange->Set(stBuf.st_ctime);
+ if ( dtCreate )
+ dtCreate->Set(stBuf.st_ctime);
return TRUE;
}
#elif defined(__WIN32__)
- wxFileHandle fh(GetFullPath());
+ wxFileHandle fh(GetFullPath(), wxFileHandle::Read);
if ( fh.IsOk() )
{
FILETIME ftAccess, ftCreate, ftWrite;
if ( ::GetFileTime(fh,
- dtMod ? &ftCreate : NULL,
+ dtCreate ? &ftCreate : NULL,
dtAccess ? &ftAccess : NULL,
- dtChange ? &ftWrite : NULL) )
+ dtMod ? &ftWrite : NULL) )
{
- if ( dtMod )
- ConvertFileTimeToWx(dtMod, ftCreate);
+ if ( dtCreate )
+ ConvertFileTimeToWx(dtCreate, ftCreate);
if ( dtAccess )
ConvertFileTimeToWx(dtAccess, ftAccess);
- if ( dtChange )
- ConvertFileTimeToWx(dtChange, ftWrite);
+ if ( dtMod )
+ ConvertFileTimeToWx(dtMod, ftWrite);
return TRUE;
}
return FALSE;
}
+#ifdef __WXMAC__
+
+const short kMacExtensionMaxLength = 16 ;
+class MacDefaultExtensionRecord
+{
+public :
+ MacDefaultExtensionRecord()
+ {
+ m_ext[0] = 0 ;
+ m_type = m_creator = NULL ;
+ }
+ MacDefaultExtensionRecord( const MacDefaultExtensionRecord& from )
+ {
+ strcpy( m_ext , from.m_ext ) ;
+ m_type = from.m_type ;
+ m_creator = from.m_creator ;
+ }
+ MacDefaultExtensionRecord( char * extension , OSType type , OSType creator )
+ {
+ strncpy( m_ext , extension , kMacExtensionMaxLength ) ;
+ m_ext[kMacExtensionMaxLength] = 0 ;
+ m_type = type ;
+ m_creator = creator ;
+ }
+ char m_ext[kMacExtensionMaxLength] ;
+ OSType m_type ;
+ OSType m_creator ;
+} ;
+
+#include "wx/dynarray.h"
+WX_DECLARE_OBJARRAY(MacDefaultExtensionRecord, MacDefaultExtensionArray) ;
+
+bool gMacDefaultExtensionsInited = false ;
+
+#include "wx/arrimpl.cpp"
+
+WX_DEFINE_EXPORTED_OBJARRAY(MacDefaultExtensionArray) ;
+
+MacDefaultExtensionArray gMacDefaultExtensions ;
+
+static void MacEnsureDefaultExtensionsLoaded()
+{
+ if ( !gMacDefaultExtensionsInited )
+ {
+
+ // load the default extensions
+ MacDefaultExtensionRecord defaults[1] =
+ {
+ MacDefaultExtensionRecord( "txt" , 'TEXT' , 'ttxt' ) ,
+
+ } ;
+ // we could load the pc exchange prefs here too
+
+ for ( int i = 0 ; i < WXSIZEOF( defaults ) ; ++i )
+ {
+ gMacDefaultExtensions.Add( defaults[i] ) ;
+ }
+ gMacDefaultExtensionsInited = true ;
+ }
+}
+bool wxFileName::MacSetTypeAndCreator( wxUint32 type , wxUint32 creator )
+{
+ FInfo fndrInfo ;
+ FSSpec spec ;
+ wxMacFilename2FSSpec(GetFullPath(),&spec) ;
+ OSErr err = FSpGetFInfo( &spec , &fndrInfo ) ;
+ wxCHECK( err == noErr , false ) ;
+
+ fndrInfo.fdType = type ;
+ fndrInfo.fdCreator = creator ;
+ FSpSetFInfo( &spec , &fndrInfo ) ;
+ return true ;
+}
+
+bool wxFileName::MacGetTypeAndCreator( wxUint32 *type , wxUint32 *creator )
+{
+ FInfo fndrInfo ;
+ FSSpec spec ;
+ wxMacFilename2FSSpec(GetFullPath(),&spec) ;
+ OSErr err = FSpGetFInfo( &spec , &fndrInfo ) ;
+ wxCHECK( err == noErr , false ) ;
+
+ *type = fndrInfo.fdType ;
+ *creator = fndrInfo.fdCreator ;
+ return true ;
+}
+
+bool wxFileName::MacSetDefaultTypeAndCreator()
+{
+ wxUint32 type , creator ;
+ if ( wxFileName::MacFindDefaultTypeAndCreator(GetExt() , &type ,
+ &creator ) )
+ {
+ return MacSetTypeAndCreator( type , creator ) ;
+ }
+ return false;
+}
+
+bool wxFileName::MacFindDefaultTypeAndCreator( const wxString& ext , wxUint32 *type , wxUint32 *creator )
+{
+ MacEnsureDefaultExtensionsLoaded() ;
+ wxString extl = ext.Lower() ;
+ for( int i = gMacDefaultExtensions.Count() - 1 ; i >= 0 ; --i )
+ {
+ if ( gMacDefaultExtensions.Item(i).m_ext == extl )
+ {
+ *type = gMacDefaultExtensions.Item(i).m_type ;
+ *creator = gMacDefaultExtensions.Item(i).m_creator ;
+ return true ;
+ }
+ }
+ return false ;
+}
+
+void wxFileName::MacRegisterDefaultTypeAndCreator( const wxString& ext , wxUint32 type , wxUint32 creator )
+{
+ MacEnsureDefaultExtensionsLoaded() ;
+ MacDefaultExtensionRecord rec ;
+ rec.m_type = type ;
+ rec.m_creator = creator ;
+ strncpy( rec.m_ext , ext.Lower().c_str() , kMacExtensionMaxLength ) ;
+ gMacDefaultExtensions.Add( rec ) ;
+}
+#endif