static void _add_rule(T_KRRule *krrule, cJSON *rules)
{
cJSON *rule = cJSON_CreateObject();
cJSON_AddNumberToObject(rule, "id", krrule->lRuleId);
cJSON_AddStringToObject(rule, "name", krrule->ptParamRuleDef->caRuleName);
U_KRValue *value = kr_calc_value(krrule->ptRuleCalc);
cJSON_AddNumberToObject(rule, "result", value->b);
cJSON_AddItemToArray(rules, rule);
}
int kr_output_handle_process(T_KROutputHandle *ptOutputHandle,
T_KROutputDefine *ptOutputDefine, size_t *size, char **buff,
T_KRContext *ptContext)
{
void *data = NULL;
if (ptOutputHandle->pfOutputPre) data=ptOutputHandle->pfOutputPre();
for (int fldno=0; fldno<ptOutputDefine->iFieldCnt; fldno++) {
T_KROutputFieldDef *ptFieldDef = &ptOutputDefine->ptFieldDef[fldno];
if (kr_calc_eval(ptFieldDef->calc, ptContext) != 0) {
KR_LOG(KR_LOGERROR, "kr_calc_eval field:[%d] failed!", fldno);
return -1;
}
void *fldval = kr_get_value(kr_calc_value(ptFieldDef->calc),
kr_calc_type(ptFieldDef->calc));
ptOutputHandle->pfOutput(data, fldno, ptFieldDef->length, fldval);
}
if (ptOutputHandle->pfOutputPost) ptOutputHandle->pfOutputPost(data, size, buff);
return 0;
}
int kr_data_item_ddi_aggr(T_KRDataItem *ptDataItem, T_KRContext *ptContext)
{
T_KRParamDdi *ptParamDdi = (T_KRParamDdi *)ptDataItem->ptDataItemDef;
T_KRDdi *ptDdi = (T_KRDdi *)ptDataItem->ptPrivate;
T_KRRecord *ptCurrRec = kr_context_get_data(ptContext, "curr_rec");
if (ptCurrRec == NULL) {
KR_LOG(KR_LOGERROR, "no current record in context");
return -1;
}
T_KRDB *ptDB = kr_context_get_data(ptContext, "db");
if (ptDB == NULL) {
KR_LOG(KR_LOGERROR, "no db in context");
return -1;
}
//get record list
ptDdi->ptRecList = kr_db_select(ptDB,
ptParamDdi->lStatisticsIndex,
NULL, //FIXME:key
ptParamDdi->lDdiId, //FIXME:tBeginTime
ptParamDdi->lDdiId, //FIXME:tEndTime
KR_FIELDID_TRANSTIME //FIXME:iSortFieldId
);
int iResult = -1, iAbsLoc = -1, iRelLoc = -1;
T_KRListNode *node = ptDdi->ptRecList->tail;
while(node)
{
T_KRRecord *ptTravRec = (T_KRRecord *)kr_list_value(node);
kr_context_add_data(ptContext, "trav_rec", ptTravRec);
iAbsLoc++;
if ((ptParamDdi->caStatisticsType[0] == \
KR_DDI_STATISTICS_EXCLUDE) && (ptTravRec == ptCurrRec)) {
node = node->prev;
continue;
}
if (ptParamDdi->lStatisticsDatasrc != \
kr_record_get_input_id(ptTravRec)) {
node = node->prev;
continue;
}
time_t tCurrTransTime = kr_record_get_transtime(ptCurrRec);
time_t tRecTransTime = kr_record_get_transtime(ptTravRec);
if ((tCurrTransTime - tRecTransTime) > ptParamDdi->lStatisticsValue ) {
node = node->prev;
continue;
}
iResult = kr_calc_eval(ptDdi->ptFilterCalc, ptContext);
if (iResult != 0) {
KR_LOG(KR_LOGERROR, "kr_calc_eval filter failed!");
return -1;
} else if (kr_calc_type(ptDdi->ptFilterCalc) != KR_TYPE_BOOL) {
KR_LOG(KR_LOGERROR, "filter calc type must be boolean!");
return -1;
} else if (kr_calc_ind(ptDdi->ptFilterCalc) != KR_VALUE_SETED ||
!kr_calc_value(ptDdi->ptFilterCalc)->b) {
node = node->prev;
continue;
}
iRelLoc++;
E_KRType type = kr_record_get_field_type(ptTravRec, ptParamDdi->lStatisticsField);
void *val = kr_record_get_field_value(ptTravRec, ptParamDdi->lStatisticsField);
U_KRValue stValue = {0};
switch(type)
{
case KR_TYPE_INT:
stValue.i = *(int *)val;
break;
case KR_TYPE_LONG:
stValue.l = *(long *)val;
break;
case KR_TYPE_DOUBLE:
stValue.d = *(double *)val;
break;
case KR_TYPE_STRING:
stValue.s = (char *)val;
break;
default:
KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!", type);
return -1;
}
/*
switch(ptParamDdi->caStatisticsMethod[0])
{
case KR_DDI_METHOD_SUM:
switch(ptDataItem->eValueType)
{
case KR_TYPE_INT:
ptDdi->uValue.i = ptDdi->uValue.i + stValue.i;
break;
case KR_TYPE_LONG:
ptDdi->uValue.l = ptDdi->uValue.l + stValue.l;
break;
case KR_TYPE_DOUBLE:
ptDdi->uValue.d = ptDdi->uValue.d + stValue.d;
break;
default:
KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!",
ptDdi->eValueType);
return -1;
}
break;
case KR_DDI_METHOD_MIN:
switch(ptDataItem->eValueType)
{
case KR_TYPE_INT:
ptDdi->uValue.i = MIN(ptDdi->uValue.i, stValue.i);
break;
case KR_TYPE_LONG:
ptDdi->uValue.l = MIN(ptDdi->uValue.l, stValue.l);
break;
case KR_TYPE_DOUBLE:
ptDdi->uValue.d = MIN(ptDdi->uValue.d, stValue.d);
break;
default:
KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!",
ptDdi->eValueType);
return -1;
}
break;
case KR_DDI_METHOD_MAX:
switch(ptDataItem->eValueType)
{
case KR_TYPE_INT:
ptDdi->uValue.i = MAX(ptDdi->uValue.i, stValue.i);
break;
case KR_TYPE_LONG:
ptDdi->uValue.l = MAX(ptDdi->uValue.l, stValue.l);
break;
case KR_TYPE_DOUBLE:
ptDdi->uValue.d = MAX(ptDdi->uValue.d, stValue.d);
break;
default:
KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!",
ptDdi->eValueType);
return -1;
}
break;
case KR_DDI_METHOD_COUNT:
switch(ptDataItem->eValueType)
{
case KR_TYPE_INT:
ptDdi->uValue.i = ptDdi->uValue.i + 1;
break;
case KR_TYPE_LONG:
ptDdi->uValue.l = ptDdi->uValue.l + 1;
break;
case KR_TYPE_DOUBLE:
ptDdi->uValue.d = ptDdi->uValue.d + 1;
break;
default:
KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!",
ptDdi->eValueType);
return -1;
}
break;
case KR_DDI_METHOD_CON_INC:
//TODO
break;
case KR_DDI_METHOD_CON_DEC:
//TODO
break;
case KR_DDI_METHOD_CNT_DIS:
//TODO
break;
default:
KR_LOG(KR_LOGERROR, "Bad Method [%c]!", \
ptDdi->ptParamDDIDef->caStatisticsMethod[0]);
return -1;
}
*/
/*add this record to related*/
kr_hashtable_insert(ptDdi->ptRelated, ptTravRec, ptTravRec);
node = node->prev;
}
/* This is what the difference between DDI and DDI:
* DDI only set once, while DDI still need to traversal all the list
*/
ptDataItem->eValueInd = KR_VALUE_SETED;
return 0;
}
