c28d0c6c80
- rename example modules from "example" to "swigexample", to avoid a warning from shadowing the Octave built-in function "example" - remove deprecated "static" Makefile targets: there is no longer an option to build static Octave modules in the Examples Makefile - emacs whitespace cleanup run on all files
25 lines
604 B
OpenEdge ABL
25 lines
604 B
OpenEdge ABL
/* File : example.i */
|
|
%module swigexample
|
|
#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);
|
|
}
|
|
};
|