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

The great merge

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2002-11-30 22:01:28 +00:00
commit 516036631c
1508 changed files with 125983 additions and 44037 deletions
Download patch file Download diff file Expand all files Collapse all files

16
SWIG/Examples/perl5/pointer/example.pl
View file

@ -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