Esempio n. 1
0
void DBMiscTrimWhiteSpaces(char *str) {
    DBInt i, j, strLen;

    strLen = (int) strlen(str);
    for (i = strLen - 1; i >= 0; --i) if (DBMiscTestWhiteChar(str[i])) str[i] = '\0'; else break;

    strLen = (int) strlen(str);
    for (j = 0; j < strLen; ++j) if (DBMiscTestWhiteChar(str[j]) == false) break;
    if (j > 0) {
        for (i = 0; i < strLen - j; ++i) str[i] = str[i + j];
        str[i] = '\0';
    }

}
Esempio n. 2
0
DBInt DBMathOperand::Expand(DBObjectLIST<DBObject> *variables) {
    char *expression = Var.String, *exprPtr;
    DBInt i, strLen = expression != (char *) NULL ? (int) strlen(expression) : 0, bracketNum = 0;
    DBInt operPos = DBFault, oper, operLen, nonWhite;
    long intVal;
    double floatVal;
    void *function;

    if (expression == (char *) NULL) return (DBFault);

    for (i = 0; i < strLen; ++i) {
        if (expression[i] == '(') {
            bracketNum = 0;
            for (; i < strLen; ++i) {
                if (expression[i] == '(') bracketNum++;
                if (expression[i] == ')') {
                    bracketNum--;
                    if (bracketNum == 0) break;
                }
            }
            if (i == strLen) return (DBFault);
        }
        if (strncmp(expression + i, " ? ", 3) == 0) {
            DBMathExpression *expr;
            DBInt condPos = i + 1, condNum;

            condNum = 0;
            for (; i < strLen; ++i) {
                if (strncmp(expression + i, " ? ", 3) == 0) {
                    condNum++;
                    i += 2;
                }
                if (strncmp(expression + i, " : ", 3) == 0) {
                    condNum--;
                    if (condNum == 0) break;
                }
            }
            if (i == strLen) return (DBFault);

            OprTypeVAR = DBMathOperandCond;
            expression[condPos] = '\0';
            expression[i + 1] = '\0';
            i += 2;
//			CMmsgPrint (CMmsgDebug,"if %s then %s else %s",expression,expression + condPos + 1,expression + i + 1);
            expr = new DBMathExpression(expression + condPos + 1, expression + i + 1);
            if (expr->Expand(variables) == DBFault) return (DBFault);
            Var.ExpPTR = new DBMathExpression(expression, expr);
            return (Var.ExpPTR->Expand(variables));
        }
    }

    nonWhite = false;
    for (i = 0; i < strLen; ++i) {
        if (expression[i] == '(') {
            bracketNum = 0;
            for (; i < strLen; ++i) {
                if (expression[i] == '(') bracketNum++;
                if (expression[i] == ')') {
                    bracketNum--;
                    if (bracketNum == 0) break;
                }
            }
            if (i == strLen) return (DBFault);
        }
        if (((oper = _DBMathOperator(expression + i, &operLen)) != DBFault) && nonWhite) {
            if (operPos == DBFault) operPos = i;
            else { if (_DBMathOperator(expression + operPos) <= oper) operPos = i; }
            for (; operLen > 1; --operLen) ++i;
            nonWhite = false;
        }
        else if (DBMiscTestWhiteChar(expression[i]) != true) nonWhite = true;
    }

    if (operPos != DBFault) {
        OprTypeVAR = DBMathOperandExpr;
        VarTypeVAR = DBFault;

        oper = _DBMathOperator(expression + operPos, &operLen);
        expression[operPos] = '\0';
        for (; operLen > 1; --operLen) ++operPos;
//		CMmsgPrint (CMmsgDebug,"%s and %s", expression, expression + operPos + 1);
        Var.ExpPTR = new DBMathExpression(expression, expression + operPos + 1, oper);
        free(expression);
        return (Var.ExpPTR->Expand(variables));
    }

    if ((function = _DBMathFunction(expression, &operPos)) != (void *) NULL) {
        OprTypeVAR = DBMathOperandExpr;
        VarTypeVAR = DBFault;

        expression[operPos] = '\0';
//		CMmsgPrint (CMmsgDebug,"%s of %s", expression, expression + operPos + 1);
        Var.ExpPTR = new DBMathExpression(expression + operPos + 1, DBVariableFloat, function);
        free(expression);
        return (Var.ExpPTR->Expand(variables));
    }

    intVal = strtol(expression, &exprPtr, 10);
    if (expression + strlen(expression) == exprPtr) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableInt;

        Var.Int = intVal;
//		CMmsgPrint (CMmsgDebug,"Constant integer: %d",(int) intVal);
        free(expression);
        return (DBSuccess);
    }

    floatVal = strtod(expression, &exprPtr);
    if (expression + strlen(expression) == exprPtr) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableFloat;

        Var.Float = floatVal;
//		CMmsgPrint (CMmsgDebug,"Constant float: %f",floatVal);
        free(expression);
        return (DBSuccess);
    }

    if (DBMiscTrimQuotes(expression) > 0) {
        floatVal = strtod(expression, &exprPtr);
        if (expression + strlen(expression) != exprPtr) {
            OprTypeVAR = DBMathOperandConst;
            VarTypeVAR = DBVariableString;
//			CMmsgPrint (CMmsgDebug,"Constant string: %s",expression);
            if ((Var.String = (char *) malloc(strlen(expression) + 1)) == (char *) NULL) {
                CMmsgPrint(CMmsgSysError, "Memory allocation error in: %s %d", __FILE__, __LINE__);
                return (DBFault);
            }
            strcpy(Var.String, expression);
            free(expression);
            return (DBSuccess);
        }
    }

    if (strcmp(expression, "M_PI") == 0) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableFloat;

        Var.Float = M_PI;
//		CMmsgPrint (CMmsgDebug,"Constant float: %f",floatVal);
        free(expression);
        return (DBSuccess);
    }

    if (strcmp(expression, "M_E") == 0) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableFloat;

        Var.Float = M_E;
//		CMmsgPrint (CMmsgDebug,"Constant float: %f",floatVal);
        free(expression);
        return (DBSuccess);
    }

    if (strcmp(expression, "nodata") == 0) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableInt;

        Var.Int = DBDefaultMissingIntVal;
//		CMmsgPrint (CMmsgDebug,"Nodata");
        free(expression);
        return (DBSuccess);
    }

    if (strcmp(expression, "true") == 0) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableInt;

        Var.Int = true;
//		CMmsgPrint (CMmsgDebug,"True");
        free(expression);
        return (DBSuccess);
    }

    if (strcmp(expression, "rowID") == 0) {
        OprTypeVAR = DBMathOperandRowID;
        VarTypeVAR = DBVariableInt;

        Var.Int = 1;
//		CMmsgPrint (CMmsgDebug,"True");
        free(expression);
        return (DBSuccess);
    }

    if (strcmp(expression, "false") == 0) {
        OprTypeVAR = DBMathOperandConst;
        VarTypeVAR = DBVariableInt;

        Var.Int = false;
//		CMmsgPrint (CMmsgDebug,"False");
        free(expression);
        return (DBSuccess);
    }

    OprTypeVAR = DBMathOperandVar;
    VarTypeVAR = DBFault;
    if ((Var.ObjPTR = variables->Item(expression)) == (DBObject *) NULL) {
        Var.ObjPTR = new DBObject(expression);
        variables->Add(Var.ObjPTR);
    }

//	CMmsgPrint (CMmsgDebug,"Variable: %s(%d)",expression,Var.ObjPTR->RowID ());
    free(expression);
    return (DBSuccess);
}