return linkdata->link.setld->ref;\r
}\r
\r
+/* Resolve and return the link's target set */\r
+struct ir_set_t* ir_linkdata_set\r
+( union ir_setdata_t* linkdata )\r
+{ struct ir_class_t* class_iter;\r
+ struct ir_namelist_t* namelist_iter;\r
+ struct ir_setld_t* setld;\r
+ struct ir_classld_t* classld;\r
+ struct ir_set_t* set;\r
+ set = NULL;\r
+ if (linkdata->header.type != LDAT)\r
+ eprintf("Data %s is not a link\n", linkdata->header.data_name);\r
+ setld = linkdata->link.setld;\r
+ if (linkdata->link.setld == NULL)\r
+ eprintf("Link data is invalid\n");\r
+ classld = linkdata->link.classld;\r
+ if (classld != NULL)\r
+ { namelist_iter = classld->namelist;\r
+ if (classld->root_class == NULL)\r
+ eprintf("No root class for classld\n");\r
+ for (class_iter = classld->root_class->nextchild;\r
+ class_iter != NULL;\r
+ class_iter = class_iter->nextsib)\r
+ { if (classnames_identical(class_iter->name, namelist_iter->name))\r
+ { if (namelist_iter == classld->namelist_head)\r
+ break;\r
+ class_iter = class_iter->nextchild;\r
+ namelist_iter = namelist_iter->nextsib;\r
+ }\r
+ }\r
+ if (class_iter == NULL)\r
+ eprintf("Class resolution failed\n");\r
+ set = class_iter->root_set;\r
+ }\r
+ else if (setld->ref)\r
+ set = ir_set_from_ref(setld->ref);\r
+ if (set == NULL)\r
+ eprintf("Initial set resolution failed\n");\r
+ namelist_iter = setld->namelist;\r
+ while (set != NULL)\r
+ { if (bytes_identical(set->name, namelist_iter->name))\r
+ { if (namelist_iter == setld->namelist_head)\r
+ break;\r
+ set = set->nextchild;\r
+ namelist_iter = namelist_iter->nextsib;\r
+ }\r
+ }\r
+ return set;\r
+}\r
+\r
/* Get a setdata's next sibling */\r
union ir_setdata_t* ir_setdata_nextsib\r
( union ir_setdata_t* setdata )\r