diff options
author | Dave Beazley <dave-swig@dabeaz.com> | 2002-11-30 22:01:28 +0000 |
---|---|---|
committer | Dave Beazley <dave-swig@dabeaz.com> | 2002-11-30 22:01:28 +0000 |
commit | 12a43edc2df8853e8e0315f742e57be88f0c4269 (patch) | |
tree | e3237f5f8c0a67c9bfa9bb5d6d095a739a49e4b2 /Examples/perl5/pointer | |
parent | 5fcae5eb66d377e1c3f81da7465c44a62295a72b (diff) | |
download | swig-12a43edc2df8853e8e0315f742e57be88f0c4269.tar.gz |
The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/perl5/pointer')
-rw-r--r-- | Examples/perl5/pointer/.cvsignore | 10 | ||||
-rw-r--r-- | Examples/perl5/pointer/Makefile | 2 | ||||
-rw-r--r-- | Examples/perl5/pointer/example.i | 3 | ||||
-rw-r--r-- | Examples/perl5/pointer/example.pl | 16 |
4 files changed, 22 insertions, 9 deletions
diff --git a/Examples/perl5/pointer/.cvsignore b/Examples/perl5/pointer/.cvsignore new file mode 100644 index 000000000..618145e24 --- /dev/null +++ b/Examples/perl5/pointer/.cvsignore @@ -0,0 +1,10 @@ +example.pm +*_wrap.c +*_wrap.cxx +example.dll +example.dsw +example.ncb +example.opt +example.plg +Release +Debug diff --git a/Examples/perl5/pointer/Makefile b/Examples/perl5/pointer/Makefile index e5944f9af..ef644a35f 100644 --- a/Examples/perl5/pointer/Makefile +++ b/Examples/perl5/pointer/Makefile @@ -13,6 +13,6 @@ static:: SWIGOPT='$(SWIGOPT)' TARGET='myperl' INTERFACE='$(INTERFACE)' perl5_static clean:: - rm -f *_wrap* *.o core *~ *.so *.pm myperl + $(MAKE) -f $(TOP)/Makefile perl5_clean check: all diff --git a/Examples/perl5/pointer/example.i b/Examples/perl5/pointer/example.i index 2ed2b5bbf..4483b0f77 100644 --- a/Examples/perl5/pointer/example.i +++ b/Examples/perl5/pointer/example.i @@ -6,7 +6,8 @@ /* First we'll use the pointer library */ extern void add(int *x, int *y, int *result); -%include pointer.i +%include cpointer.i +%pointer_functions(int, intp); /* Next we'll use some typemaps */ diff --git a/Examples/perl5/pointer/example.pl b/Examples/perl5/pointer/example.pl index dc18144cf..9d9711dd0 100644 --- a/Examples/perl5/pointer/example.pl +++ b/Examples/perl5/pointer/example.pl @@ -4,9 +4,11 @@ use example; # First create some objects using the pointer library. print "Testing the pointer library\n"; -$a = example::ptrcreate("int",37); -$b = example::ptrcreate("int",42); -$c = example::ptrcreate("int"); +$a = example::new_intp(); +$b = example::new_intp(); +$c = example::new_intp(); +example::intp_assign($a,37); +example::intp_assign($b,42); print " a = $a\n"; print " b = $b\n"; @@ -16,13 +18,13 @@ print " c = $c\n"; example::add($a,$b,$c); # Now get the result -$r = example::ptrvalue($c); +$r = example::intp_value($c); print " 37 + 42 = $r\n"; # Clean up the pointers -example::ptrfree($a); -example::ptrfree($b); -example::ptrfree($c); +example::delete_intp($a); +example::delete_intp($b); +example::delete_intp($c); # Now try the typemap library # This should be much easier. Now how it is no longer |