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

All the runtime scripts are called runme.pl now for easier testing

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5652 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-01-20 21:24:12 +00:00
commit 6f2e85b5c2
22 changed files with 31 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

38
SWIG/Examples/perl5/value/runme.pl Normal file
View file

@ -0,0 +1,38 @@
# file: runme.pl
use example;
# Create a couple of a vectors
$v = example::new_Vector(1,2,3);
$w = example::new_Vector(10,11,12);
print "I just created the following vectors\n";
example::vector_print($v);
example::vector_print($w);
# Now call some of our functions
print "\nNow I'm going to compute the dot product\n";
$d = example::dot_product($v,$w);
print "dot product = $d (should be 68)\n";
# Add the vectors together
print "\nNow I'm going to add the vectors together\n";
$r = example::vector_add($v,$w);
example::vector_print($r);
print "The value should be (11,13,15)\n";
# Now I'd better clean up the return result r
print "\nNow I'm going to clean up the return result\n";
example::free($r);
print "Good\n";