dot divide
[scilab.git] / scilab / modules / ast / src / cpp / operations / types_divide.cpp
index 6089ef8..80a4739 100644 (file)
@@ -107,78 +107,6 @@ InternalType *GenericRDivide(InternalType *_pLeftOperand, InternalType *_pRightO
     return pResult;
 }
 
-InternalType *GenericDotRDivide(InternalType *_pLeftOperand, InternalType *_pRightOperand)
-{
-    InternalType *pResult       = NULL;
-    GenericType::ScilabType TypeL = _pLeftOperand->getType();
-    GenericType::ScilabType TypeR = _pRightOperand->getType();
-
-    int iResult = 0;
-
-    if (_pLeftOperand->isDouble() && _pLeftOperand->getAs<Double>()->isEmpty())
-    {
-        return Double::Empty();
-    }
-
-    if (_pRightOperand->isDouble() && _pRightOperand->getAs<Double>()->isEmpty())
-    {
-        return Double::Empty();
-    }
-
-    /*
-    ** DOUBLE ./ DOUBLE
-    */
-    if (TypeL == GenericType::ScilabDouble && TypeR == GenericType::ScilabDouble)
-    {
-        Double *pL  = _pLeftOperand->getAs<Double>();
-        Double *pR  = _pRightOperand->getAs<Double>();
-
-        iResult = DotRDivideDoubleByDouble(pL, pR, (Double**)&pResult);
-    }
-
-    if (TypeL == GenericType::ScilabPolynom && TypeR == GenericType::ScilabDouble)
-    {
-        Polynom *pL = _pLeftOperand->getAs<Polynom>();
-        Double *pR  = _pRightOperand->getAs<Double>();
-
-        // ou exclusif
-        if (pL->isScalar() ^ pR->isScalar())
-        {
-            // call overload
-            return NULL;
-        }
-
-        iResult = DotRDividePolyByDouble(pL, pR, (Polynom**)&pResult);
-    }
-
-    //manage errors
-    if (iResult)
-    {
-        switch (iResult)
-        {
-            case 1 :
-                throw ast::ScilabError(_W("Inconsistent row/column dimensions.\n"));
-            case 2 :
-                throw ast::ScilabError(_W("With NaN or Inf a division by scalar expected.\n"));
-            case 3 :
-                throw ast::ScilabError(_W("Division by zero...\n"));
-            case 4 :
-                if (getWarningMode())
-                {
-                    sciprint(_("Warning : Division by zero...\n"));
-                }
-                break;
-                //            default : throw ast::ScilabError(_W("Operator / : Error %d not yet managed.\n"), iResult);
-            default :
-                sciprint(_("Operator ./ : Error %d not yet managed.\n"), iResult);
-        }
-    }
-
-    /*
-    ** Default case : Return NULL will Call Overloading.
-    */
-    return pResult;
-}
 
 int RDivideDoubleByDouble(Double *_pDouble1, Double *_pDouble2, Double **_pDoubleOut)
 {