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

# · C · 15 lines · 11 code · 3 blank · 1 comment · 0 complexity · 670fcd025a3c2903e92b066aff521adf MD5 · raw file 

    

  1. /* File : example.c */
    2. 

  2. 

  3. #include "example.h"
    4. 

  4. 

  5. double dot_product(Vector a, Vector b) {
    6. 

  6.   return (a.x*b.x + a.y*b.y + a.z*b.z);
    7. 

  7. }
    8. 

  8. 

  9. Vector vector_add(Vector a, Vector b) {
    10. 

  10.   Vector r;
    11. 

  11.   r.x = a.x + b.x;
    12. 

  12.   r.y = a.y + b.y;
    13. 

  13.   r.z = a.z + b.z;
    14. 

  14.   return r;
    15. 

  15. }
    16.