/tags/rel-1-3-26/SWIG/Examples/perl5/value/example.c

 1/* File : example.c */
 2
 3#include "example.h"
 4
 5double dot_product(Vector a, Vector b) {
 6  return (a.x*b.x + a.y*b.y + a.z*b.z);
 7}
 8
 9Vector vector_add(Vector a, Vector b) {
10  Vector r;
11  r.x = a.x + b.x;
12  r.y = a.y + b.y;
13  r.z = a.z + b.z;
14  return r;
15}