From 2824b0cbb66e715490e1ef13250bd675d87b32d9 Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Wed, 2 Jun 2010 20:53:17 +0000 Subject: rel-2.0.0 git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/tags/rel-2.0.0@12089 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- trunk/Examples/perl5/value/example.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 trunk/Examples/perl5/value/example.c (limited to 'trunk/Examples/perl5/value/example.c') diff --git a/trunk/Examples/perl5/value/example.c b/trunk/Examples/perl5/value/example.c new file mode 100644 index 000000000..4ed2fe10a --- /dev/null +++ b/trunk/Examples/perl5/value/example.c @@ -0,0 +1,15 @@ +/* File : example.c */ + +#include "example.h" + +double dot_product(Vector a, Vector b) { + return (a.x*b.x + a.y*b.y + a.z*b.z); +} + +Vector vector_add(Vector a, Vector b) { + Vector r; + r.x = a.x + b.x; + r.y = a.y + b.y; + r.z = a.z + b.z; + return r; +} -- cgit v1.2.1