linkdata_set comments and debug statements

[henge/apc.git] / src / ir.c

diff --git a/src/ir.c b/src/ir.c
index c59441a..4ef2e5a 100644 (file)
--- a/src/ir.c
+++ b/src/ir.c
@@ -631,6 +631,83 @@ uint32_t ir_linkdata_ref
   return linkdata->link.setld->ref;\r
 }\r
 \r
+/* Resolve and return the link's target set\r
+   Fails on error, cannot return NULL\r
+*/\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,* namelist_iter_last;\r
+  struct ir_setld_t* setld;\r
+  struct ir_classld_t* classld;\r
+  struct ir_set_t* set;\r
+  set = NULL;\r
+  class_iter = 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
+      class_iter = classld->root_class->nextchild;\r
+      namelist_iter_last = NULL;\r
+      while (class_iter != NULL)\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_last = namelist_iter;\r
+             namelist_iter = namelist_iter->nextsib;\r
+           }\r
+         else\r
+           class_iter = class_iter->nextsib;\r
+       }\r
+      if (class_iter == NULL)\r
+       { if (namelist_iter_last)\r
+           eprintf("No such subclass \"%s\" of class \"%s\"\n",\r
+                   namelist_iter->name,\r
+                   namelist_iter_last->name);\r
+         else\r
+           eprintf("No such class \"%s\"\n", namelist_iter->name);\r
+       }\r
+      set = class_iter->root_set;\r
+    }\r
+  else\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
+  namelist_iter_last = NULL;\r
+  if (setld->namelist != NULL)\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_last = namelist_iter;\r
+             namelist_iter = namelist_iter->nextsib;\r
+           }\r
+         else\r
+           set = set->nextsib;\r
+       }\r
+      if (set == NULL)\r
+       { if (namelist_iter_last)\r
+           eprintf("No such subset \"%s\" of set \"%s\"\n",\r
+                   namelist_iter->name,\r
+                   namelist_iter_last->name);\r
+         else\r
+           eprintf("No such set \"%s\" in class \"%s\"\n",\r
+                   namelist_iter->name,\r
+                   class_iter->name);\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
@@ -679,13 +756,14 @@ union ir_setdata_t* ir_framebox_mapsheet
 }\r
 \r
 /* Return a framedata's frame info */\r
-struct ir_frameinfo_t* ir_framedata_mapsheet\r
+struct ir_frameinfo_t* ir_framedata_frameinfo\r
 ( union ir_setdata_t* framedata )\r
 { if (framedata->header.type != MSDAT && framedata->header.type != FSDAT)\r
     eprintf("Data %s is not a framedata\n", framedata->header.data_name);\r
   return &framedata->mapsheet.frameinfo;\r
 }\r
 \r
+\r
 /** Allocators **/\r
 static\r
 uint8_t* name_alloc\r