393391965c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10290 626c5289-ae23-0410-ae9c-e8d60b6d4f22
24 lines
489 B
OpenEdge ABL
24 lines
489 B
OpenEdge ABL
/* File : example.i */
|
|
%module example
|
|
#pragma SWIG nowarn=SWIGWARN_IGNORE_OPERATOR_EQ
|
|
%{
|
|
#include "example.h"
|
|
%}
|
|
|
|
/* 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);
|
|
}
|
|
};
|
|
|
|
|