Examples/perl5/value/example.c

   1 /* File : example.c */
   2
   3 #include "example.h"
   4
   5 double dot_product(Vector a, Vector b) {
   6   return (a.x*b.x + a.y*b.y + a.z*b.z);
   7 }
   8
   9 Vector 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 }