vcs.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/xrc/cpp/xr_constants.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        ext/xrc/cpp/xr_constants.cpp
   3 // Purpose:     constants for XRC
   4 // Author:      Mattia Barbon
   5 // Modified by:
   6 // Created:     04/04/2002
   7 // RCS-ID:      $Id: xr_constants.cpp 2057 2007-06-18 23:03:00Z mbarbon $
   8 // Copyright:   (c) 2002-2005 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 "cpp/constants.h"
  14
  15 #include "wx/xrc/xmlres.h"
  16
  17 double xrc_constant( const char* name, int arg )
  18 {
  19     // !package: Wx
  20     // !parser: sub { $_[0] =~ m<^\s*r\w*\(\s*(\w+)\s*\);\s*(?://(.*))?$> }
  21     // !tag: xrc
  22 #define r( n ) \
  23     if( strEQ( name, #n ) ) \
  24         return n;
  25
  26     WX_PL_CONSTANT_INIT();
  27
  28     switch( fl )
  29     {
  30     case 'X':
  31         r( wxXRC_USE_LOCALE );
  32         r( wxXRC_NO_SUBCLASSING );
  33 #if WXPERL_W_VERSION_GE( 2, 5, 3 )
  34         r( wxXRC_NO_RELOADING );
  35 #endif
  36
  37         r( wxXML_ELEMENT_NODE );
  38         r( wxXML_ATTRIBUTE_NODE );
  39         r( wxXML_TEXT_NODE );
  40         r( wxXML_CDATA_SECTION_NODE );
  41         r( wxXML_ENTITY_REF_NODE );
  42         r( wxXML_ENTITY_NODE );
  43         r( wxXML_PI_NODE );
  44         r( wxXML_COMMENT_NODE );
  45         r( wxXML_DOCUMENT_NODE );
  46         r( wxXML_DOCUMENT_TYPE_NODE );
  47         r( wxXML_DOCUMENT_FRAG_NODE );
  48         r( wxXML_NOTATION_NODE );
  49         r( wxXML_HTML_DOCUMENT_NODE );
  50         break;
  51     }
  52 #undef r
  53
  54     WX_PL_CONSTANT_CLEANUP();
  55 }
  56
  57 wxPlConstants xrc_module( &xrc_constant );
  58