/tags/rel-1.3.35/Examples/octave/operator/example.i

 1/* File : example.i */
 2%module example
 3#pragma SWIG nowarn=SWIGWARN_IGNORE_OPERATOR_EQ
 4%{
 5#include "example.h"
 6%}
 7
 8/* Now grab the original header file */
 9%include "example.h"
10
11/* An output method that turns a complex into a short string */
12%extend ComplexVal {
13   char *__str() {
14       static char temp[512];
15       sprintf(temp,"(%g,%g)", $self->re(), $self->im());
16       return temp;
17   }
18
19   ComplexVal __paren(int j) {
20     return ComplexVal($self->re()*j,$self->im()*j);
21   }
22};
23
24