5 # First create some objects using the pointer library.
7 print "Testing the pointer library\n";
11 $c = ""; // $c must be defined and not null.
17 # Call the add() function wuth some pointers
20 print " $a + $b = $c\n";
22 # Now try the typemap library
23 # This should be much easier. Now how it is no longer
24 # necessary to manufacture pointers.
26 print "Trying the typemap library\n";
28 print " 37 - 42 = $r\n";
30 # Now try the version with multiple return values
31 # print "Testing multiple return values\n";
32 # ($q,$r) = divide(42,37);
33 # print " 42/37 = $q remainder $r\n";