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

Set wrap:name for variables for use in special variable

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10270 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2008-02-27 15:29:55 +00:00
commit 2bef4d6b0c
8 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Source/Modules/perl5.cxx
View file

@ -782,6 +782,7 @@ public:
/* Create a Perl function for setting the variable value */
if (!GetFlag(n, "feature:immutable")) {
Setattr(n, "wrap:name", set_name);
Printf(setf->def, "SWIGCLASS_STATIC int %s(pTHX_ SV* sv, MAGIC * SWIGUNUSEDPARM(mg)) {\n", set_name);
Printv(setf->code, tab4, "MAGIC_PPERL\n", NIL);
@ -804,6 +805,7 @@ public:
}
/* Now write a function to evaluate the variable */
Setattr(n, "wrap:name", get_name);
int addfail = 0;
Printf(getf->def, "SWIGCLASS_STATIC int %s(pTHX_ SV *sv, MAGIC *SWIGUNUSEDPARM(mg)) {\n", get_name);
Printv(getf->code, tab4, "MAGIC_PPERL\n", NIL);