signed char comps_objmrtree_cmp(COMPS_ObjMRTree *ort1, COMPS_ObjMRTree *ort2) {
COMPS_HSList *values1, *values2;
COMPS_HSListItem *it;
COMPS_Set *set1, *set2;
signed char ret;
values1 = comps_objmrtree_pairs(ort1);
values2 = comps_objmrtree_pairs(ort2);
set1 = comps_set_create();
comps_set_init(set1, NULL, NULL, NULL, &comps_objmrtree_paircmp);
set2 = comps_set_create();
comps_set_init(set2, NULL, NULL, NULL, &comps_objmrtree_paircmp);
for (it = values1->first; it != NULL; it = it->next) {
comps_set_add(set1, it->data);
}
for (it = values2->first; it != NULL; it = it->next) {
comps_set_add(set2, it->data);
}
ret = comps_set_cmp(set1, set2);
comps_set_destroy(&set1);
comps_set_destroy(&set2);
//printf("objmrtree cmp %d\n", !ret);
comps_hslist_destroy(&values1);
comps_hslist_destroy(&values2);
return !ret;
}
COMPS_DocGroup* comps_docgroup_intersect(COMPS_DocGroup *g1,
COMPS_DocGroup *g2) {
COMPS_DocGroup *res;
COMPS_ObjListIt *it;
COMPS_HSListItem *hsit;
COMPS_Set *set;
COMPS_DocGroupPackage *newpkg;
COMPS_HSList *pairs1, *pairs2;
res = COMPS_OBJECT_CREATE(COMPS_DocGroup, NULL);
set = comps_set_create();
//comps_objrtree_paircmp(void *obj1, void *obj2) {
comps_set_init(set, NULL, NULL, NULL, &comps_objrtree_paircmp);
pairs1 = comps_objdict_pairs(g1->properties);
for (hsit = pairs1->first; hsit != NULL; hsit = hsit->next) {
comps_set_add(set, hsit->data);
}
pairs2 = comps_objdict_pairs(g2->properties);
for (hsit = pairs2->first; hsit != NULL; hsit = hsit->next) {
if (comps_set_in(set, hsit->data)) {
comps_objdict_set(res->properties,
((COMPS_RTreePair*)hsit->data)->key,
((COMPS_RTreePair*)hsit->data)->data);
}
}
comps_hslist_destroy(&pairs1);
comps_hslist_destroy(&pairs2);
comps_set_clear(set);
//res->packages = (COMPS_ObjList*)comps_object_create(&COMPS_ObjList_ObjInfo,
// NULL);
//set = comps_set_create();
comps_set_init(set, NULL, NULL, NULL, &comps_docpackage_cmp_set);
for (it = g1->packages->first; it != NULL; it = it->next) {
comps_set_add(set, it->comps_obj);
}
for (it = g2->packages->first; it != NULL; it = it->next) {
if (comps_set_in(set, it->comps_obj)) {
newpkg = (COMPS_DocGroupPackage*)
comps_object_copy(it->comps_obj);
comps_docgroup_add_package(res, newpkg);
}
}
comps_set_destroy(&set);
return res;
}
COMPS_ObjList* comps_envs_union(COMPS_ObjList *envs1, COMPS_ObjList *envs2) {
COMPS_ObjListIt *it;
COMPS_Set *set;
COMPS_DocEnv *tmpenv;
COMPS_ObjList *ret;
void *data;
int index;
ret = COMPS_OBJECT_CREATE(COMPS_ObjList, NULL);
set = comps_set_create();
comps_set_init(set, NULL, NULL, &comps_object_destroy_v,
&__comps_docenv_idcmp);
for (it = envs1 ? envs1->first : NULL; it != NULL; it = it->next) {
tmpenv = (COMPS_DocEnv*) comps_object_copy(it->comps_obj);
comps_set_add(set, tmpenv);
comps_objlist_append(ret, (COMPS_Object*)tmpenv);
}
for (it = envs2 ? envs2->first : NULL; it != NULL; it = it->next) {
if ((data = comps_set_data_at(set, it->comps_obj)) != NULL) {
index = comps_objlist_index(ret, data);
comps_objlist_remove_at(ret, index);
tmpenv = comps_docenv_union((COMPS_DocEnv*)data,
(COMPS_DocEnv*)it->comps_obj);
comps_objlist_insert_at_x(ret, index, (COMPS_Object*)tmpenv);
} else {
comps_objlist_append(ret, it->comps_obj);
}
}
comps_set_destroy(&set);
return ret;
}
COMPS_DocCategory* comps_doccategory_intersect(COMPS_DocCategory *c1,
COMPS_DocCategory *c2) {
COMPS_DocCategory *res;
COMPS_ObjListIt *it;
COMPS_HSListItem *hsit;
COMPS_Set *set;
COMPS_HSList *pairs1, *pairs2;
res = COMPS_OBJECT_CREATE(COMPS_DocCategory, NULL);
set = comps_set_create();
comps_set_init(set, NULL, NULL, NULL, &comps_objrtree_paircmp);
pairs1 = comps_objdict_pairs(c1->properties);
for (hsit = pairs1->first; hsit != NULL; hsit = hsit->next) {
comps_set_add(set, hsit->data);
}
pairs2 = comps_objdict_pairs(c2->properties);
for (hsit = pairs2->first; hsit != NULL; hsit = hsit->next) {
if (comps_set_in(set, hsit->data)) {
comps_objdict_set(res->properties, ((COMPS_RTreePair*)hsit->data)->key,
((COMPS_RTreePair*)hsit->data)->data);
}
}
comps_hslist_destroy(&pairs1);
comps_hslist_destroy(&pairs2);
comps_set_clear(set);
comps_set_init(set, NULL, NULL, NULL, &__comps_docgroupid_cmp_set);
for (it = c1->group_ids->first; it != NULL; it = it->next) {
comps_set_add(set, it->comps_obj);
}
for (it = c2->group_ids->first; it != NULL; it = it->next) {
if (comps_set_in(set, it->comps_obj)) {
comps_doccategory_add_groupid(res,
(COMPS_DocGroupId*)comps_object_copy(it->comps_obj));
}
}
comps_set_destroy(&set);
return res;
}
signed char comps_objrtree_cmp(COMPS_ObjRTree *ort1, COMPS_ObjRTree *ort2) {
COMPS_HSList *values1, *values2;
COMPS_HSListItem *it;
COMPS_Set *set1, *set2;
signed char ret;
values1 = comps_objrtree_pairs(ort1);
values2 = comps_objrtree_pairs(ort2);
set1 = comps_set_create();
comps_set_init(set1, NULL, NULL, NULL, &comps_objrtree_paircmp);
set2 = comps_set_create();
comps_set_init(set2, NULL, NULL, NULL, &comps_objrtree_paircmp);
for (it = values1->first; it != NULL; it = it->next) {
comps_set_add(set1, it->data);
}
for (it = values2->first; it != NULL; it = it->next) {
comps_set_add(set2, it->data);
}
ret = comps_set_cmp(set1, set2);
comps_set_destroy(&set1);
comps_set_destroy(&set2);
//printf("objrtree cmp %d\n", !ret);
//char *str;
/*for (it = values1->first; it != NULL; it = it->next) {
str = comps_object_tostr(((COMPS_ObjRTreePair*)it->data)->data);
printf("dict item %s=%s\n", ((COMPS_ObjRTreePair*)it->data)->key, str);
free(str);
}
printf("----------\n");
for (it = values2->first; it != NULL; it = it->next) {
str = comps_object_tostr(((COMPS_ObjRTreePair*)it->data)->data);
printf("dict item %s=%s\n", ((COMPS_ObjRTreePair*)it->data)->key, str);
free(str);
}
printf("cmp objrtree ret:%d\n", ret);*/
comps_hslist_destroy(&values1);
comps_hslist_destroy(&values2);
return ret==0;
}
COMPS_ObjList* comps_groups_union(COMPS_ObjList *groups1,
COMPS_ObjList *groups2) {
COMPS_HSListItem *hsit;
COMPS_Set *set;
COMPS_ObjList *ret;
COMPS_DocGroup *tmpgroup;
COMPS_ObjListIt *it;
void *tmpdata;
ret = (COMPS_ObjList*)comps_object_create(&COMPS_ObjList_ObjInfo, NULL);
set = comps_set_create();
comps_set_init(set, NULL, NULL, NULL, &__comps_docgroup_idcmp);
for (it = groups1 ? groups1->first : NULL; it != NULL; it = it->next) {
comps_set_add(set, comps_object_copy(it->comps_obj));
}
for (it = groups2 ? groups2->first : NULL; it != NULL; it = it->next) {
if (comps_set_in(set, it->comps_obj)) {
tmpgroup = comps_docgroup_union(
(COMPS_DocGroup*)it->comps_obj,
(COMPS_DocGroup*)comps_set_data_at(set,
it->comps_obj));
tmpdata = comps_set_data_at(set, it->comps_obj);
comps_set_remove(set, it->comps_obj);
comps_object_destroy((COMPS_Object*)tmpdata);
comps_set_add(set, tmpgroup);
} else {
comps_set_add(set, comps_object_copy(it->comps_obj));
}
}
for (hsit = set->data->first; hsit != NULL; hsit = hsit->next) {
comps_objlist_append_x(ret, (COMPS_Object*)hsit->data);
}
comps_set_destroy(&set);
return ret;
}
COMPS_DocCategory* comps_doccategory_union(COMPS_DocCategory *c1,
COMPS_DocCategory *c2) {
COMPS_DocCategory *res;
COMPS_ObjListIt *it;
COMPS_Set *set;
COMPS_Object *obj;
void *data;
int index;
res = COMPS_OBJECT_CREATE(COMPS_DocCategory,NULL);
COMPS_OBJECT_DESTROY(res->properties);
res->properties = comps_objdict_union(c1->properties, c2->properties);
set = comps_set_create();
comps_set_init(set, NULL, NULL, &comps_object_destroy_v,
&__comps_docgroupid_cmp_set);
it = c1->group_ids?c1->group_ids->first:NULL;
for (; it != NULL; it = it->next) {
obj = comps_object_copy(it->comps_obj);
comps_set_add(set, (void*)comps_object_incref(obj));
comps_doccategory_add_groupid(res, (COMPS_DocGroupId*)obj);
}
it = c2->group_ids ? c2->group_ids->first : NULL;
for (; it != NULL; it = it->next) {
if ((data = comps_set_data_at(set, (void*)it->comps_obj)) != NULL) {
index = comps_objlist_index(res->group_ids, (COMPS_Object*)data);
comps_objlist_remove_at(res->group_ids, index);
comps_objlist_insert_at_x(res->group_ids, index,
comps_object_copy(it->comps_obj));
} else {
comps_doccategory_add_groupid(res, (COMPS_DocGroupId*)
comps_object_copy(it->comps_obj));
}
}
comps_set_destroy(&set);
COMPS_OBJECT_DESTROY(res->name_by_lang);
COMPS_OBJECT_DESTROY(res->desc_by_lang);
res->name_by_lang = comps_objdict_union(c1->name_by_lang, c2->name_by_lang);
res->desc_by_lang = comps_objdict_union(c1->desc_by_lang, c2->desc_by_lang);
return res;
}
COMPS_DocGroup* comps_docgroup_union(COMPS_DocGroup *g1, COMPS_DocGroup *g2) {
COMPS_DocGroup *res;
COMPS_ObjListIt *it;
COMPS_Set *set;
COMPS_DocGroupPackage *pkg;
res = COMPS_OBJECT_CREATE(COMPS_DocGroup, NULL);
COMPS_OBJECT_DESTROY(res->properties);
res->properties = comps_objdict_union(g1->properties, g2->properties);
set = comps_set_create();
comps_set_init(set, NULL, NULL, (void(*)(void*))&comps_object_destroy,
&comps_docpackage_cmp_set);
it = g1->packages?g1->packages->first:NULL;
for (; it != NULL; it = it->next) {
pkg = (COMPS_DocGroupPackage*) comps_object_copy(it->comps_obj);
comps_set_add(set, (void*)comps_object_incref((COMPS_Object*)pkg));
comps_docgroup_add_package(res, pkg);
}
void *data;
int index;
it = g2->packages?g2->packages->first:NULL;
for (; it != NULL; it = it->next) {
if ((data = comps_set_data_at(set, (void*)it->comps_obj)) != NULL) {
index = comps_objlist_index(res->packages, (COMPS_Object*)data);
comps_objlist_remove_at(res->packages, index);
comps_objlist_insert_at_x(res->packages, index,
comps_object_copy(it->comps_obj));
} else {
comps_docgroup_add_package(res, (COMPS_DocGroupPackage*)
comps_object_copy(it->comps_obj));
}
}
comps_set_destroy(&set);
comps_object_destroy((COMPS_Object*)res->name_by_lang);
comps_object_destroy((COMPS_Object*)res->desc_by_lang);
res->name_by_lang = comps_objdict_union(g1->name_by_lang, g2->name_by_lang);
res->desc_by_lang = comps_objdict_union(g1->desc_by_lang, g2->desc_by_lang);
return res;
}
void comps_hslist_unique(COMPS_HSList *hlist, char (*cmpf)(void*, void*)) {
COMPS_Set *set;
COMPS_HSListItem *it, *it2;
if (hlist == NULL) return;
set = comps_set_create();
comps_set_init(set, NULL, NULL, NULL, cmpf);
it2 = NULL;
for (it = hlist->first; it != NULL; it2 = it, it = it->next) {
if (!comps_set_in(set, it->data)) {
comps_set_add(set, it->data);
} else {
hlist->data_destructor(it->data);
}
free(it2);
}
free(it2);
hlist->first = set->data->first;
hlist->last = set->data->last;
free(set->data);
free(set);
}
