jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Turned on shadow classes by default.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5577 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-12-17 19:09:36 +00:00
commit 7e526a0b21
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
SWIG/Source/Modules/perl5.cxx
View file

@ -27,6 +27,7 @@ Perl5 Options (available with -perl5)\n\
-static - Omit code related to dynamic loading\n\
-nopm - Do not generate the .pm file\n\
-proxy - Create proxy classes\n\
-noproxy - Don't create proxy classes\n\
-const - Wrap constants as constants and not variables (implies -proxy)\n\
-compat - Compatibility mode\n\n";
@ -79,7 +80,7 @@ static int is_static = 0;
/* The following variables are used to manage Perl5 classes */
static int blessed = 0; /* Enable object oriented features */
static int blessed = 1; /* Enable object oriented features */
static int do_constants = 0; /* Constant wrapping */
static List *classlist = 0; /* List of classes */
static int have_constructor = 0;
@ -143,6 +144,9 @@ public:
} else if ((strcmp(argv[i],"-shadow") == 0) || ((strcmp(argv[i],"-proxy") == 0))) {
blessed = 1;
Swig_mark_arg(i);
} else if ((strcmp(argv[i],"-noproxy") == 0)) {
blessed =0;
Swig_mark_arg(i);
} else if (strcmp(argv[i],"-const") == 0) {
do_constants = 1;
blessed = 1;