linkdata_set implementation

diff --git a/src/ir.c b/src/ir.c
index d6ad16f..5f5ba21 100644 (file)
--- a/src/ir.c
+++ b/src/ir.c
@@ -631,6 +631,55 @@ uint32_t ir_linkdata_ref
   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