29 lines
631 B
OpenEdge ABL
29 lines
631 B
OpenEdge ABL
/* 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);
|
|
}
|
|
};
|