summaryrefslogtreecommitdiff
path: root/Examples/octave/operator/example.i
blob: 937e8d39d03b7acd8877110a6223e66c6a6fdcd4 (plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
/* 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);
   }

   double __float__() {
     return (double) $self->re();
   }

   double __real__() {
     return $self->re();
   }
   double __imag__() {
     return $self->im();
   }
   double __abs__() {
     return sqrt($self->re()*$self->re() + $self->im()*$self->im());
   }
   ComplexVal __conj__() {
     return ComplexVal($self->re(), -$self->im());
   }
   ComplexVal __exp__() {
     return exp($self->re()) * ComplexVal(cos($self->im()), sin($self->im()));
   }

};