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

Remove obscure mpointer example and replace with member_pointer.i testcase and runtime examples

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9887 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2007-08-09 23:47:13 +00:00
commit f5bdd056f7
38 changed files with 397 additions and 929 deletions
Download patch file Download diff file Expand all files Collapse all files

47
Examples/test-suite/perl5/member_pointer_runme.pl Normal file
View file

@ -0,0 +1,47 @@
# member_pointer using pointers to member functions
use member_pointer;
sub check($;$;$) {
my($what, $expected, $actual) = @_;
if ($expected != $actual) {
die ("Failed: $what Expected: $expected Actual: $actual");
}
}
# Get the pointers
$area_pt = member_pointer::areapt();
$perim_pt = member_pointer::perimeterpt();
# Create some objects
$s = new member_pointer::Square(10);
# Do some calculations
check "Square area ", 100.0, member_pointer::do_op($s,$area_pt);
check "Square perim", 40.0, member_pointer::do_op($s,$perim_pt);
$memberPtr = $member_pointer::areavar;
$memberPtr = $member_pointer::perimetervar;
# Try the variables
check "Square area ", 100.0, member_pointer::do_op($s,$member_pointer::areavar);
check "Square perim", 40.0, member_pointer::do_op($s,$member_pointer::perimetervar);
# Modify one of the variables
$member_pointer::areavar = $perim_pt;
check "Square perimeter", 40.0, member_pointer::do_op($s,$member_pointer::areavar);
# Try the constants
$memberPtr = $member_pointer::AREAPT;
$memberPtr = $member_pointer::PERIMPT;
$memberPtr = $member_pointer::NULLPT;
check "Square area ", 100.0, member_pointer::do_op($s,$member_pointer::AREAPT);
check "Square perim", 40.0, member_pointer::do_op($s,$member_pointer::PERIMPT);