f5bdd056f7
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9887 626c5289-ae23-0410-ae9c-e8d60b6d4f22
47 lines
1.2 KiB
Raku
47 lines
1.2 KiB
Raku
|
|
# 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);
|
|
|