| Index: swig/Lib/python/pycomplex.swg
|
| ===================================================================
|
| --- swig/Lib/python/pycomplex.swg (revision 0)
|
| +++ swig/Lib/python/pycomplex.swg (revision 0)
|
| @@ -0,0 +1,86 @@
|
| +/*
|
| + Defines the As/From converters for double/float complex, you need to
|
| + provide complex Type, the Name you want to use in the converters,
|
| + the complex Constructor method, and the Real and Imag complex
|
| + accessor methods.
|
| +
|
| + See the std_complex.i and ccomplex.i for concret examples.
|
| +*/
|
| +
|
| +/* the common from converter */
|
| +%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)
|
| +
|
| +
|
|
|