git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/filesys/XS/FSFile.xs

   1 #############################################################################
   2 ## Name:        ext/filesys/XS/FSFile.xs
   3 ## Purpose:     XS for Wx::FileSystem
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     28/04/2001
   7 ## RCS-ID:      $Id: FSFile.xs 2057 2007-06-18 23:03:00Z mbarbon $
   8 ## Copyright:   (c) 2001-2002, 2004, 2006 Mattia Barbon
   9 ## Licence:     This program is free software; you can redistribute it and/or
  10 ##              modify it under the same terms as Perl itself
  11 #############################################################################
  12
  13 #include <wx/filesys.h>
  14
  15 MODULE=Wx PACKAGE=Wx::FSFile
  16
  17 static void
  18 wxFSFile::CLONE()
  19   CODE:
  20     wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
  21
  22 ## // thread OK
  23 void
  24 wxFSFile::DESTROY()
  25   CODE:
  26     wxPli_thread_sv_unregister( aTHX_ wxPli_get_class( aTHX_ ST(0) ), THIS, ST(0) );
  27     delete THIS;
  28
  29 wxString
  30 wxFSFile::GetAnchor()
  31
  32 wxString
  33 wxFSFile::GetLocation()
  34
  35 wxString
  36 wxFSFile::GetMimeType()
  37
  38 # wxDateTime
  39 # wxFSFile::GetModificationTime()
  40
  41 wxInputStream*
  42 wxFSFile::GetStream()
  43
  44 MODULE=Wx PACKAGE=Wx::FSFile
  45
  46 #include "cpp/fshandler.h"
  47
  48 wxPlFSFile*
  49 wxPlFSFile::new( fh, loc, mimetype, anchor )
  50     SV* fh
  51     wxString loc
  52     wxString mimetype
  53     wxString anchor
  54   CODE:
  55     RETVAL = new wxPlFSFile( fh, loc, mimetype, anchor );
  56   OUTPUT:
  57     RETVAL