1 files changed, 116 insertions, 0 deletions
diff --git a/Lib/javascript/napi/javascriptcomplex.swg b/Lib/javascript/napi/javascriptcomplex.swg
new file mode 100644
index 000000000..3b0864408
--- /dev/null
+++ b/Lib/javascript/napi/javascriptcomplex.swg
@@ -0,0 +1,116 @@
+/*
+  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 concrete examples.
+*/
+
+/* the common from converter */
+%define %swig_fromcplx_conv(Type, Real, Imag)
+%fragment(SWIG_From_frag(Type),"header",
+          fragment=SWIG_From_frag(double))
+{
+SWIGINTERNINLINE Napi::Value
+SWIG_From_dec(Type)(%ifcplusplus(const Type&, Type) c)
+{
+  Napi::Array vals = Napi::Array::New(0);
+
+  vals.Set(0, SWIG_From(double)(Real(c)));
+  vals.Set(1, SWIG_From(double)(Imag(c)));
+  return vals;
+}
+}
+%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_dec(Type) (Napi::Value o, Type* val)
+{
+  if (o.IsArray()) {
+    Napi::Array array = Napi::Array::Cast(o);
+    
+    if (array->Length() != 2) SWIG_Error(SWIG_TypeError, "Illegal argument for complex: must be array[2].");
+    double re, im;
+    Napi::Value r;
+
+    r = array.Get(0);
+    if (!r.IsNumber()) {
+      return SWIG_TypeError;
+    }
+    re = r.ToNumber().DoubleValue();
+    
+    r = array.Get(1);
+    if (!r.IsNumber()) {
+      return SWIG_TypeError;
+    }
+    im = r.ToNumber().DoubleValue();
+    
+    if (val) *val = Constructor(re, im);
+    return SWIG_OK;
+  } else if (o.IsNumber()) {
+    double d = o.ToNumber().DoubleValue();
+    if (val) *val = Constructor(d, 0.0);
+    return SWIG_OK;
+  }
+  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_dec(Type) (Napi::Value o, Type* val)
+{
+  if (o.IsArray()) {
+    Napi::Array array = o.As<Napi::Array>();
+    
+    if (array.Length() != 2) SWIG_Error(SWIG_TypeError, "Illegal argument for complex: must be array[2].");
+    double re, im;
+    Napi::Value r;
+    
+    r = array.Get(0);
+    if (!r.IsNumber()) {
+      return SWIG_TypeError;
+    }
+    re = r.ToNumber().DoubleValue();
+    
+    r = array.Get(1);
+    if (!r.IsNumber()) {
+      return SWIG_TypeError;
+    }
+    im = r.ToNumber().DoubleValue();
+    
+    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 if (o.IsNumber()) {
+    float f = static_cast<float>(o.ToNumber().DoubleValue());
+    if (val) *val = Constructor(f, 0.0);
+    return SWIG_OK;
+  }
+  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)