#############################################################################
## Name:        ext/filesys/XS/FileSystem.xs
## Purpose:     XS for Wx::FileSystem
## Author:      Mattia Barbon
## Modified by:
## Created:     28/04/2001
## RCS-ID:      $Id: FileSystem.xs 2299 2007-11-25 17:30:04Z mbarbon $
## Copyright:   (c) 2001-2002, 2004, 2006-2007 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

#include <wx/filesys.h>

MODULE=Wx PACKAGE=Wx::FileSystem

wxFileSystem*
wxFileSystem::new()

static void
wxFileSystem::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxFileSystem::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::FileSystem", THIS, ST(0) );
    if( wxPli_object_is_deleteable( aTHX_ ST(0) ) )
        delete THIS;

void
AddHandler( handler )
    wxFileSystemHandler* handler
  CODE:
    wxFileSystem::AddHandler( handler );

#if WXPERL_W_VERSION_GE( 2, 7, 2 )

bool
HasHandlerForPath( location )
    wxString location
  CODE:
    RETVAL = wxFileSystem::HasHandlerForPath( location );
  OUTPUT: RETVAL

#endif

void
wxFileSystem::ChangePathTo( location, is_dir = false )
    wxString location
    bool is_dir

wxString
wxFileSystem::GetPath()

wxString
wxFileSystem::FindFirst( wildcard, flags = 0 )
    wxString wildcard
    int flags

wxString
wxFileSystem::FindNext()

#if WXPERL_W_VERSION_GE( 2, 7, 2 )

wxString
wxFileSystem::FindFileInPath( path, file )
    wxString path
    wxString file
  CODE:
    bool ret = THIS->FindFileInPath( &RETVAL, path, file );
    if( !ret )
        XSRETURN_UNDEF;
  OUTPUT: RETVAL

#endif

#if WXPERL_W_VERSION_GE( 2, 7, 2 )

wxFSFile*
wxFileSystem::OpenFile( location, flags = wxFS_READ )
    wxString location
    int flags 

#else

wxFSFile*
wxFileSystem::OpenFile( location )
    wxString location

#endif