Examples/octave/operator/example.i


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

/* File : example.i */
%module swigexample

%feature("autodoc", 1);

#pragma SWIG nowarn=SWIGWARN_IGNORE_OPERATOR_EQ

%{
#include "example.h"
%}

/* Rename friend operator */
%rename(op_scalar_mul_ComplexVal) operator*(const double&, const ComplexVal&);

/* Now grab the original header file */
%include "example.h"

/* An output method that turns a complex into a short string */
%extend ComplexVal {
   char *__str__() {
       static char temp[512];
       sprintf(temp,"(%g,%g)", $self->re(), $self->im());
       return temp;
   }

   ComplexVal __paren__(int j) {
     return ComplexVal($self->re()*j,$self->im()*j);
   }
};