#############################################################################
## 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