/* add an element * return 0 while success, -1 for else */ int kr_hashset_add(T_KRHashSet *krset, void *element) { KRDupFunc dup_func = kr_get_dup_func(krset->type); void *dup_key = dup_func(element); kr_hashtable_insert(krset->set, dup_key, dup_key); return 0; }
T_KRHDITable *kr_hdi_table_construct(T_KRParamHDI *ptParamHDI, T_KRModule *ptModule) { T_KRHDITable *ptHdiTable = kr_calloc(sizeof(T_KRHDITable)); if (ptHdiTable == NULL) { KR_LOG(KR_LOGERROR, "kr_calloc ptHdiTable failed!"); return NULL; } ptHdiTable->ptParamHDI = ptParamHDI; ptHdiTable->lHDICnt = ptParamHDI->lHDIDefCnt; ptHdiTable->ptHDITable = \ kr_hashtable_new_full(kr_long_hash, kr_long_equal, \ NULL, (KRDestroyNotify )kr_hdi_destruct); int i = 0; T_KRHDI *ptHDI = NULL; for (i=0; i<ptParamHDI->lHDIDefCnt; ++i) { ptHDI = kr_hdi_construct(&ptParamHDI->stParamHDIDef[i], ptModule); if (ptHDI == NULL) { KR_LOG(KR_LOGERROR, "kr_hdi_construct [%d] failed!", i); kr_hashtable_destroy(ptHdiTable->ptHDITable); kr_free(ptHdiTable); return NULL; } kr_hashtable_insert(ptHdiTable->ptHDITable, &ptHDI->lHDIId, ptHDI); } ptHdiTable->tConstructTime = ptParamHDI->tLastLoadTime; return ptHdiTable; }
static void kr_rebuild_index_ins(T_KRIndexTable *ptIndextable, T_KRRecord *ptRecord) { void *key = kr_field_get_value(ptRecord, ptIndextable->iIndexFieldId); T_KRHashTable *pHashTable = ptIndextable->ptIndex->pHashTable; T_KRIndexSolt *ptIndexSlot = kr_hashtable_lookup(pHashTable, key); if (ptIndexSlot == NULL) { /*create slot if not found*/ ptIndexSlot = kr_calloc(sizeof(*ptIndexSlot)); ptIndexSlot->eKeyType = kr_field_get_type(ptRecord, ptIndextable->iIndexFieldId); KRDupFunc pfKeyDup = kr_get_dup_func(ptIndexSlot->eKeyType); ptIndexSlot->pKeyValue = pfKeyDup(key); ptIndexSlot->tLocMinProcTime = kr_get_proctime(ptRecord); ptIndexSlot->tLocMinTransTime = kr_get_transtime(ptRecord); ptIndexSlot->tExtMaxProcTime = kr_get_proctime(ptRecord); ptIndexSlot->tExtMaxTransTime = kr_get_transtime(ptRecord); ptIndexSlot->pRecList = kr_list_new(); kr_hashtable_insert(pHashTable, ptIndexSlot->pKeyValue, ptIndexSlot); } /*modify statistical fields of local*/ if (kr_get_proctime(ptRecord) < ptIndexSlot->tLocMinProcTime) { ptIndexSlot->tLocMinProcTime = kr_get_proctime(ptRecord); } if (kr_get_transtime(ptRecord) < ptIndexSlot->tLocMinTransTime) { ptIndexSlot->tLocMinTransTime = kr_get_transtime(ptRecord); } /*add record to list*/ kr_list_add_tail(ptIndexSlot->pRecList, ptRecord); }
T_KRHDITable *kr_hdi_table_construct(T_KRShmHDI *shm_hdi, T_KRModule *datamodule) { T_KRHDITable *krhditable = kr_calloc(sizeof(T_KRHDITable)); if (krhditable == NULL) { KR_LOG(KR_LOGERROR, "kr_calloc krhditable failed!"); return NULL; } krhditable->ptShmHDIs = shm_hdi; krhditable->lHDICnt = shm_hdi->lHDIDefCnt; krhditable->ptHDITable = \ kr_hashtable_new_full(kr_long_hash, kr_long_equal, \ NULL, (KRDestroyNotify )kr_hdi_destruct); int i = 0; T_KRHDI *krhdi = NULL; for (i=0; i<shm_hdi->lHDIDefCnt; ++i) { krhdi = kr_hdi_construct(&shm_hdi->stShmHDIDef[i], datamodule); if (krhdi == NULL) { KR_LOG(KR_LOGERROR, "kr_hdi_construct [%d] failed!", i); kr_hashtable_destroy(krhditable->ptHDITable); kr_free(krhditable); return NULL; } kr_hashtable_insert(krhditable->ptHDITable, &krhdi->lHDIId, krhdi); } krhditable->tConstructTime = shm_hdi->tLastLoadTime; return krhditable; }
int kr_ddi_aggr_func(T_KRDDI *krddi, T_KRContext *krcontext) { int iResult = -1; int iAbsLoc = -1; int iRelLoc = -1; time_t tCurrTransTime = kr_get_transtime(krcontext->ptCurrRec); time_t tRecTransTime; T_KRListNode *node = krcontext->ptRecList->tail; while(node) { krcontext->ptRecord = (T_KRRecord *)kr_list_value(node); iAbsLoc++; /*绝对位置加一*/ /*当笔是否包含校验*/ if ((krddi->ptShmDDIDef->caStatisticsType[0] == \ KR_DDI_STATISTICS_EXCLUDE) && (krcontext->ptRecord == krcontext->ptCurrRec)) { node = node->prev; continue; } /*统计数据源校验*/ if (((T_KRTable *)krcontext->ptRecord->ptTable)->iTableId != \ krddi->ptShmDDIDef->lStatisticsDatasrc) { node = node->prev; continue; } /*时间窗口校验*/ tRecTransTime = kr_get_transtime(krcontext->ptRecord); if ((tCurrTransTime - tRecTransTime) > krddi->ptShmDDIDef->lStatisticsValue ) { node = node->prev; continue; } /*过滤器校验*/ iResult = kr_calc_eval(krddi->ptDDICalc, krcontext); if (iResult != 0) { KR_LOG(KR_LOGERROR, "kr_calc_eval[%ld] failed!", krddi->lDDIId); return -1; } else if (krddi->ptDDICalc->result_type != KR_TYPE_BOOL) { KR_LOG(KR_LOGERROR, "result_type of ddi_calc must be boolean!"); return -1; } else if (krddi->ptDDICalc->result_ind != KR_VALUE_SETED || !krddi->ptDDICalc->result_value.b) { node = node->prev; continue; } iRelLoc++; /*相对位置加一*/ /*获取数据项值*/ E_KRType type = kr_get_field_type(krcontext->ptRecord, krddi->ptShmDDIDef->lStatisticsField); void *val = kr_get_field_value(krcontext->ptRecord, krddi->ptShmDDIDef->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(krddi->ptShmDDIDef->caStatisticsMethod[0]) { case KR_DDI_METHOD_SUM: switch(krddi->eValueType) { case KR_TYPE_INT: krddi->uValue.i = krddi->uValue.i + stValue.i; break; case KR_TYPE_LONG: krddi->uValue.l = krddi->uValue.l + stValue.l; break; case KR_TYPE_DOUBLE: krddi->uValue.d = krddi->uValue.d + stValue.d; break; default: KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!", krddi->eValueType); return -1; } break; case KR_DDI_METHOD_MIN: switch(krddi->eValueType) { case KR_TYPE_INT: krddi->uValue.i = MIN(krddi->uValue.i, stValue.i); break; case KR_TYPE_LONG: krddi->uValue.l = MIN(krddi->uValue.l, stValue.l); break; case KR_TYPE_DOUBLE: krddi->uValue.d = MIN(krddi->uValue.d, stValue.d); break; default: KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!", krddi->eValueType); return -1; } break; case KR_DDI_METHOD_MAX: switch(krddi->eValueType) { case KR_TYPE_INT: krddi->uValue.i = MAX(krddi->uValue.i, stValue.i); break; case KR_TYPE_LONG: krddi->uValue.l = MAX(krddi->uValue.l, stValue.l); break; case KR_TYPE_DOUBLE: krddi->uValue.d = MAX(krddi->uValue.d, stValue.d); break; default: KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!", krddi->eValueType); return -1; } break; case KR_DDI_METHOD_COUNT: switch(krddi->eValueType) { case KR_TYPE_INT: krddi->uValue.i = krddi->uValue.i + 1; break; case KR_TYPE_LONG: krddi->uValue.l = krddi->uValue.l + 1; break; case KR_TYPE_DOUBLE: krddi->uValue.d = krddi->uValue.d + 1; break; default: KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!", krddi->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]!", \ krddi->ptShmDDIDef->caStatisticsMethod[0]); return -1; } /*add this record to related*/ kr_hashtable_insert(krddi->ptRelated, \ krcontext->ptRecord, krcontext->ptRecord); /* This is what the difference between SDI and DDI: * SDI only set once, while DDI still need to traversal all the list */ krddi->eValueInd = KR_VALUE_SETED; node = node->prev; } return 0; }
int kr_sdi_aggr_func(T_KRSDI *krsdi, T_KRContext *krcontext) { int iResult = -1; int iAbsLoc = -1; int iRelLoc = -1; T_KRListNode *node = krcontext->ptRecList->tail; while(node) { krcontext->ptRecord = (T_KRRecord *)kr_list_value(node); iAbsLoc++; /*绝对位置加一*/ /*数据项绝对统计定位校验*/ if (krsdi->ptShmSDIDef->caLocationProperty[0] == KR_LOC_ABSOLUTE) { if (krsdi->ptShmSDIDef->lStatisticsLocation != iAbsLoc) { node = node->prev; continue; } } /*统计数据源校验*/ if (((T_KRTable *)krcontext->ptRecord->ptTable)->iTableId != \ krsdi->ptShmSDIDef->lStatisticsDatasrc) { node = node->prev; continue; } /*过滤器校验*/ iResult = kr_calc_eval(krsdi->ptSDICalc, krcontext); if (iResult != 0) { KR_LOG(KR_LOGERROR, "kr_calc_eval [%ld] failed!", krsdi->lSDIId); return -1; } else if (krsdi->ptSDICalc->result_type != KR_TYPE_BOOL) { KR_LOG(KR_LOGERROR, "result_type of sdi_calc must be boolean!"); return -1; } else if (krsdi->ptSDICalc->result_ind != KR_VALUE_SETED || !krsdi->ptSDICalc->result_value.b) { node = node->prev; continue; } iRelLoc++; /*相对位置加一*/ /*数据项相对统计定位校验*/ if (krsdi->ptShmSDIDef->caLocationProperty[0] == KR_LOC_RELATIVE) { if (krsdi->ptShmSDIDef->lStatisticsLocation != iRelLoc) { node = node->prev; continue; } } /*获取数据项值*/ void *val = kr_get_field_value(krcontext->ptRecord, \ krsdi->ptShmSDIDef->lStatisticsField); switch(krsdi->eValueType) { case KR_TYPE_INT: krsdi->uValue.i = *(int *)val; break; case KR_TYPE_LONG: krsdi->uValue.l = *(long *)val; break; case KR_TYPE_DOUBLE: krsdi->uValue.d = *(double *)val; break; case KR_TYPE_STRING: krsdi->uValue.s = kr_strdup(val); break; default: KR_LOG(KR_LOGERROR, "Bad FieldType [%c]!", krsdi->eValueType); return -1; } /*add this record to related*/ kr_hashtable_insert(krsdi->ptRelated, \ krcontext->ptRecord, krcontext->ptRecord); /* This is what the difference between SDI and DDI: * SDI only set once, while DDI still need to traversal all the list */ krsdi->eValueInd = KR_VALUE_SETED; break; node = node->prev; } 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; }