1d5529bcfc
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5755 626c5289-ae23-0410-ae9c-e8d60b6d4f22
40 lines
853 B
OpenEdge ABL
40 lines
853 B
OpenEdge ABL
#ifndef __python_ccomplex_i__
|
|
#define __python_ccomplex_i__
|
|
|
|
%include "complex_common.i"
|
|
|
|
/*
|
|
* C complex wrap
|
|
* ISO C99: 7.3 Complex arithmetic <complex.h>
|
|
*/
|
|
|
|
%fragment("<complex.h>","header")
|
|
%{
|
|
#include <complex.h>
|
|
%}
|
|
|
|
/*
|
|
*** swig workaround ***
|
|
the %{}% around these typedefs must be removed once
|
|
swig parser supports 'float complex'...
|
|
*/
|
|
%{
|
|
typedef float complex float_complex;
|
|
typedef double complex double_complex;
|
|
%}
|
|
|
|
/* C complex constructor */
|
|
#define CCplxConst(r, i) ((r) + I*(i))
|
|
|
|
%swig_cplxflt_convn(float_complex, CCplxConst, creal, cimag);
|
|
%swig_cplxdbl_convn(double_complex, CCplxConst, creal, cimag);
|
|
|
|
/* declaring the typemaps */
|
|
%typemap_primitive(SWIG_TYPECHECK_CPLXFLT, float_complex);
|
|
%typemap_primitive(SWIG_TYPECHECK_CPLXDBL, double_complex);
|
|
|
|
%apply double_complex { complex };
|
|
|
|
|
|
|
|
#endif //__python_ccomplex_i__
|