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

Perl added to the Unified typemap library, cleaner way to use the library, and 'normalized' macro names

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7707 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-10-24 14:59:05 +00:00
commit 3c65cea431
112 changed files with 3262 additions and 3375 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Lib/typemaps/cpointer.swg
View file

@ -55,10 +55,10 @@ typedef struct {
%extend NAME {
NAME() {
return SWIG_new(TYPE);
return %new_instance(TYPE);
}
~NAME() {
if (self) SWIG_delete(self);
if (self) %delete(self);
}
}
@ -109,15 +109,15 @@ typedef struct {
%define %pointer_functions(TYPE,NAME)
%{
static TYPE *new_##NAME() {
return SWIG_new(TYPE);
return %new_instance(TYPE);
}
static TYPE *copy_##NAME(TYPE value) {
return SWIG_new_copy(value, TYPE);
return %new_copy(value, TYPE);
}
static void delete_##NAME(TYPE *self) {
if (self) SWIG_delete(self);
if (self) %delete(self);
}
static void NAME ##_assign(TYPE *self, TYPE value) {
@ -146,7 +146,7 @@ TYPE NAME##_value(TYPE *self);
%define %pointer_cast(TYPE1,TYPE2,NAME)
%inline %{
TYPE2 NAME(TYPE1 x) {
return SWIG_static_cast(x, TYPE2);
return %static_cast(x, TYPE2);
}
%}
%enddef