signal_processing plugged.
[scilab.git] / scilab / modules / api_scilab / src / cpp / api_common.cpp
index bffc262..0bf0e6e 100644 (file)
@@ -15,7 +15,8 @@
 
 
 #include "internal.hxx"
-#include "arrayof.hxx"
+#include "double.hxx"
+#include "polynom.hxx"
 #include "function.hxx"
 
 extern "C"
@@ -307,20 +308,19 @@ int isVarComplex(void* _pvCtx, int* _piAddress)
         return 0;
     }
 
-/*
-  getVarType(_pvCtx, _piAddress, &iType);
-  switch(iType)
-  {
-  case sci_matrix :
-  iComplex = ((types::InternalType*)(_piAddress))->getAsDouble()->isComplex();
-  break;
-  case sci_poly :
-  iComplex = ((types::InternalType*)_piAddress)->getAs<types::Polynom>()->isComplex();
-  case sci_sparse :
-  //iComplex = ((InternalType*)_piAddress)->getAsSparse()->isComplex();
-  break;
-  }
-*/
+
+    getVarType(_pvCtx, _piAddress, &iType);
+    switch(iType)
+    {
+    case sci_matrix :
+        iComplex = ((types::InternalType*)_piAddress)->getAs<Double>()->isComplex();
+        break;
+    case sci_poly :
+        iComplex = ((types::InternalType*)_piAddress)->getAs<Polynom>()->isComplex();
+    case sci_sparse :
+        //iComplex = ((InternalType*)_piAddress)->getAsSparse()->isComplex();
+        break;
+    }
     return iComplex;
 }
 /*--------------------------------------------------------------------------*/