You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
86 lines
2.2 KiB
86 lines
2.2 KiB
/* |
|
Defines the As/From conversors for double/float complex, you need to |
|
provide complex Type, the Name you want to use in the conversors, |
|
the complex Constructor method, and the Real and Imag complex |
|
accesor methods. |
|
|
|
See the std_complex.i and ccomplex.i for concret examples. |
|
*/ |
|
|
|
/* the common from conversor */ |
|
%define %swig_fromcplx_conv(Type, Real, Imag) |
|
%fragment(SWIG_From_frag(Type),"header") |
|
{ |
|
SWIGINTERNINLINE PyObject* |
|
SWIG_From(Type)(%ifcplusplus(const Type&, Type) c) |
|
{ |
|
return PyComplex_FromDoubles(Real(c), Imag(c)); |
|
} |
|
} |
|
%enddef |
|
|
|
/* the double case */ |
|
%define %swig_cplxdbl_conv(Type, Constructor, Real, Imag) |
|
%fragment(SWIG_AsVal_frag(Type),"header", |
|
fragment=SWIG_AsVal_frag(double)) |
|
{ |
|
SWIGINTERN int |
|
SWIG_AsVal(Type) (PyObject *o, Type* val) |
|
{ |
|
if (PyComplex_Check(o)) { |
|
if (val) *val = Constructor(PyComplex_RealAsDouble(o), PyComplex_ImagAsDouble(o)); |
|
return SWIG_OK; |
|
} else { |
|
double d; |
|
int res = SWIG_AddCast(SWIG_AsVal(double)(o, &d)); |
|
if (SWIG_IsOK(res)) { |
|
if (val) *val = Constructor(d, 0.0); |
|
return res; |
|
} |
|
} |
|
return SWIG_TypeError; |
|
} |
|
} |
|
%swig_fromcplx_conv(Type, Real, Imag); |
|
%enddef |
|
|
|
/* the float case */ |
|
%define %swig_cplxflt_conv(Type, Constructor, Real, Imag) |
|
%fragment(SWIG_AsVal_frag(Type),"header", |
|
fragment=SWIG_AsVal_frag(float)) { |
|
SWIGINTERN int |
|
SWIG_AsVal(Type)(PyObject *o, Type *val) |
|
{ |
|
if (PyComplex_Check(o)) { |
|
double re = PyComplex_RealAsDouble(o); |
|
double im = PyComplex_ImagAsDouble(o); |
|
if ((-FLT_MAX <= re && re <= FLT_MAX) && (-FLT_MAX <= im && im <= FLT_MAX)) { |
|
if (val) *val = Constructor(%numeric_cast(re, float), |
|
%numeric_cast(im, float)); |
|
return SWIG_OK; |
|
} else { |
|
return SWIG_OverflowError; |
|
} |
|
} else { |
|
float re; |
|
int res = SWIG_AddCast(SWIG_AsVal(float)(o, &re)); |
|
if (SWIG_IsOK(res)) { |
|
if (val) *val = Constructor(re, 0.0); |
|
return res; |
|
} |
|
} |
|
return SWIG_TypeError; |
|
} |
|
} |
|
|
|
%swig_fromcplx_conv(Type, Real, Imag); |
|
%enddef |
|
|
|
#define %swig_cplxflt_convn(Type, Constructor, Real, Imag) \ |
|
%swig_cplxflt_conv(Type, Constructor, Real, Imag) |
|
|
|
|
|
#define %swig_cplxdbl_convn(Type, Constructor, Real, Imag) \ |
|
%swig_cplxdbl_conv(Type, Constructor, Real, Imag) |
|
|
|
|
|
|