mirror of https://github.com/swig/swig
93 lines
2.3 KiB
Plaintext
93 lines
2.3 KiB
Plaintext
/*
|
|
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
|
|
accessor methods.
|
|
|
|
See the std_complex.i and ccomplex.i for concrete examples.
|
|
*/
|
|
|
|
/* the common from conversor */
|
|
%define %swig_fromcplx_conv(Type, OctConstructor, Real, Imag)
|
|
%fragment(SWIG_From_frag(Type),"header")
|
|
{
|
|
SWIGINTERNINLINE octave_value
|
|
SWIG_From(Type)(const Type& c)
|
|
{
|
|
return octave_value(OctConstructor(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) (const octave_value& ov, Type* val)
|
|
{
|
|
if (ov.is_complex_scalar()) {
|
|
if (val) {
|
|
Complex c(ov.complex_value());
|
|
*val=Constructor(c.real(),c.imag());
|
|
}
|
|
return SWIG_OK;
|
|
} else {
|
|
double d;
|
|
int res = SWIG_AddCast(SWIG_AsVal(double)(ov, &d));
|
|
if (SWIG_IsOK(res)) {
|
|
if (val)
|
|
*val = Constructor(d, 0.0);
|
|
return res;
|
|
}
|
|
}
|
|
return SWIG_TypeError;
|
|
}
|
|
}
|
|
%swig_fromcplx_conv(Type, Complex, 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) (const octave_value& ov, Type* val)
|
|
{
|
|
if (ov.is_complex_scalar()) {
|
|
if (val) {
|
|
Complex c(ov.complex_value());
|
|
double re = c.real();
|
|
double im = c.imag();
|
|
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 d;
|
|
int res = SWIG_AddCast(SWIG_AsVal(float)(ov, &d));
|
|
if (SWIG_IsOK(res)) {
|
|
if (val)
|
|
*val = Constructor(d, 0.0f);
|
|
return res;
|
|
}
|
|
}
|
|
return SWIG_TypeError;
|
|
}
|
|
}
|
|
|
|
%swig_fromcplx_conv(Type, FloatComplex, 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)
|