X-Git-Url: https://www.kengrimes.com/gitweb/?p=henge%2Fapc.git;a=blobdiff_plain;f=src%2Fir.c;h=ebb2545398acb124a698d4355496cd0e2800c71f;hp=0f8a46160f641c39ee696874e8fc041ba80fb23a;hb=25a23e5134b1d9649f0279a4028b887c9deb9987;hpb=6035780f8e8c7ba47ae517ad6cf7e47515e847fd

diff --git a/src/ir.c b/src/ir.c
index 0f8a461..ebb2545 100644
--- a/src/ir.c
+++ b/src/ir.c
@@ -23,6 +23,7 @@ void     ir_quit(void);
 int      ir_linker(void);
 int      ir_condenser(void);
 /* Memory allocation structures */
+enum dtype { FSDAT, MSDAT, ADAT, LDAT, FBDAT };
 struct pagenode_t;
 struct pagenode_header_t {
   struct pagenode_t* next;
@@ -100,17 +101,17 @@ struct ir_set_t
 static inline
 int                   init_pagelist(struct pagelist_t*,size_t);
 static inline
-struct ir_framebox_t* ir_set_add_framebox(struct ir_set_t*, uint8_t*);
+struct ir_framebox_t* ir_set_add_framebox(struct ir_set_t*,const uint8_t*);
 static
 void                  ir_free_pagenodes(struct pagenode_t*);
 static inline
-int                   bytes_identical(uint8_t*,uint8_t*);
+int                   bytes_identical(const uint8_t*,const uint8_t*);
 static
 void*                 stack_alloc(size_t);
 static
-uint8_t*              name_alloc(uint8_t*);
+uint8_t*              name_alloc(const uint8_t*);
 static inline
-union ir_setdata_t*   ir_framedata (enum dtype,uint8_t*,apc_facing,int,int);
+union ir_setdata_t*   ir_framedata (enum dtype,const uint8_t*,apc_facing,int,int);
 /* Function-Like Macros */
 #define do_warn() do {				\
   } while (0)
@@ -200,6 +201,11 @@ int ir_condenser
 ( void )
 { return 0; }
 
+/* Return the class's name string */
+uint8_t* ir_class_name
+( struct ir_class_t* class )
+{ return class->name; }
+
 /* Return a pointer to the root class */
 struct ir_class_t* ir_class_root
 ( void )
@@ -211,12 +217,17 @@ struct ir_class_t* ir_class_root
 */
 struct ir_class_t* ir_class_addchild
 ( struct ir_class_t* class,
-  uint8_t*           name
+  const uint8_t*     name
 )
 { struct ir_class_t* iter;
+  printf("Class %s, addchild %s\n", class->name, name);
   if (class->nextchild == NULL)
-    return class->nextchild = struct_alloc(ir_class_t);
+    goto alloc;
   iter = class->nextchild;
+  if (iter->name == NULL)
+    eprintf("Null name pointer in class %p\n", iter);
+  if (name == NULL)
+    eprintf("Null child added to class %s\n", iter->name);
  check:
   if (bytes_identical(iter->name, name))
     return iter;
@@ -224,6 +235,7 @@ struct ir_class_t* ir_class_addchild
     { iter = iter->nextsib;
       goto check;
     }
+ alloc:
   iter = struct_alloc(ir_class_t);
   iter->nextsib = class->nextchild;
   iter->name = name_alloc(name);
@@ -236,12 +248,17 @@ struct ir_class_t* ir_class_addchild
 */
 struct ir_set_t* ir_class_addset
 ( struct ir_class_t* class,
-  uint8_t*           name
+  const uint8_t*     name
 )
 { struct ir_set_t* iter;
+  printf("Class %s, addset %s\n", class->name, name);
   if (class->root_set == NULL)
-    return class->root_set = struct_alloc(ir_set_t);
+    goto alloc;
   iter = class->root_set;
+  if (iter->name == NULL)
+    eprintf("Null name pointer in class %p\n", iter);
+  if (name == NULL)
+    eprintf("Null set added to class %s\n", iter->name);
  check:
   if (bytes_identical(iter->name, name))
     return iter;
@@ -249,6 +266,7 @@ struct ir_set_t* ir_class_addset
     { iter = iter->nextsib;
       goto check;
     }
+ alloc:
   iter = struct_alloc(ir_set_t);
   iter->nextsib = class->root_set;
   iter->name = name_alloc(name);
@@ -261,12 +279,17 @@ struct ir_set_t* ir_class_addset
 */
 struct ir_set_t* ir_set_addchild
 ( struct ir_set_t* set,
-  uint8_t*         name
+  const uint8_t*   name
 )
 { struct ir_set_t* iter;
+  printf("Set %s, addchild %s\n", set->name, name);
   if (set->nextchild == NULL)
-    return set->nextchild = struct_alloc(ir_set_t);
+    goto alloc;
   iter = set->nextchild;
+  if (iter->name == NULL)
+    eprintf("Null name pointer in set %p\n", iter);
+  if (name == NULL)
+    eprintf("Null child added to set %s\n", iter->name);
  check:
   if (bytes_identical(iter->name, name))
     return iter;
@@ -274,6 +297,7 @@ struct ir_set_t* ir_set_addchild
     { iter = iter->nextsib;
       goto check;
     }
+ alloc:
   iter = struct_alloc(ir_set_t);
   iter->nextsib = set->nextchild;
   iter->name = name_alloc(name);
@@ -287,11 +311,11 @@ struct ir_set_t* ir_set_addchild
 static inline
 struct ir_framebox_t* ir_set_add_framebox
 ( struct ir_set_t* set,
-  uint8_t*         name
+  const uint8_t*   name
 )
 { struct ir_framebox_t* iter;
   if (set->frameboxes == NULL)
-    return set->frameboxes = struct_alloc(ir_framebox_t);
+    goto alloc;
   iter = set->frameboxes;
  check:
   if (bytes_identical(iter->header.data_name, name))
@@ -300,6 +324,7 @@ struct ir_framebox_t* ir_set_add_framebox
     { iter = (struct ir_framebox_t*) iter->header.nextsib;
       goto check;
     }
+ alloc:
   iter = struct_alloc(ir_framebox_t);
   iter->header.nextsib = (union ir_setdata_t*) set->frameboxes;
   iter->header.data_name = name_alloc(name);
@@ -311,14 +336,14 @@ struct ir_framebox_t* ir_set_add_framebox
 */
 static inline
 int bytes_identical
-( uint8_t* stra,
-  uint8_t* strb
+( const uint8_t* stra,
+  const uint8_t* strb
 )
 { int ca, cb;
   do {
     ca = *stra++;
     cb = *strb++;
-  } while (ca && ca == cb);
+  } while (ca && ca != '_' && ca == cb);
   return (ca == cb);
 }
 
@@ -387,39 +412,43 @@ void ir_set_assign_ref
 
 void ir_data_assign_path
 ( union ir_setdata_t* setdata,
-  uint8_t*            path
+  const uint8_t*      path
 )
-{ if (setdata->header.src_filename != NULL)
+{ if (path == NULL)
+    eprintf("Null path in data %s\n", setdata->header.data_name);
+  if (setdata->header.src_filename != NULL)
     wprintf("Path override: %s -> %s for setdata %s\n",
 	    setdata->header.src_filename, path, setdata->header.data_name);
   setdata->header.src_filename = name_alloc(path);
 }
 
 union ir_setdata_t* ir_framesheet
-( uint8_t*   name,
-  apc_facing d,
-  int        width,
-  int        height
+( const uint8_t* name,
+  apc_facing     d,
+  int            width,
+  int            height
 )
 { return ir_framedata(FSDAT, name, d, width, height); }
 
 union ir_setdata_t* ir_mapsheet
-( uint8_t*   name,
-  apc_facing d,
-  int        width,
-  int        height
+( const uint8_t* name,
+  apc_facing     d,
+  int            width,
+  int            height
 )
 { return ir_framedata(MSDAT, name, d, width, height); }
 
 static inline
 union ir_setdata_t* ir_framedata
-( enum dtype type,
-  uint8_t*   name,
-  apc_facing d,
-  int        width,
-  int        height
+( enum dtype     type,
+  const uint8_t* name,
+  apc_facing     d,
+  int            width,
+  int            height
 )
 { struct ir_framedata_t* framedata = struct_alloc(ir_framedata_t);
+  if (name == NULL)
+    eprint("Null name in set allocation\n");
   framedata->header.type = type;
   framedata->header.data_name = name_alloc(name);
   framedata->frameinfo.facing = d;
@@ -429,8 +458,10 @@ union ir_setdata_t* ir_framedata
 }
 
 union ir_setdata_t* ir_audio
-( uint8_t* name )
+( const uint8_t* name )
 { struct ir_simplex_t* audio = struct_alloc(ir_simplex_t);
+  if (name == NULL)
+    eprint("Null audio\n");
   audio->header.type = ADAT;
   audio->header.data_name = name_alloc(name);
   return (union ir_setdata_t*) audio;
@@ -441,6 +472,8 @@ union ir_setdata_t* ir_audio
 struct ir_classld_t* ir_classld_from_class
 ( struct ir_class_t* class )
 { struct ir_classld_t* classld;
+  if (class == NULL)
+    eprint("Null class in classld\n");
   classld = struct_alloc(ir_classld_t);
   classld->root_class = class;
   return classld;
@@ -456,7 +489,7 @@ struct ir_setld_t* ir_setld_from_ref
 
 struct ir_setld_t* ir_setld_from_classld
 ( struct ir_classld_t* classld,
-  uint8_t*             name
+  const uint8_t*       name
 )
 { struct ir_setld_t* setld;
   setld = struct_alloc(ir_setld_t);
@@ -469,7 +502,7 @@ struct ir_setld_t* ir_setld_from_classld
 
 struct ir_setld_t* ir_setld_addchild
 ( struct ir_setld_t* setld,
-  uint8_t*           name
+  const uint8_t*     name
 )
 { if (setld->namelist == NULL)
     { setld->namelist = struct_alloc(ir_namelist_t);
@@ -486,7 +519,7 @@ struct ir_setld_t* ir_setld_addchild
 union ir_setdata_t* ir_link
 ( enum ltype         link_type,
   struct ir_setld_t* setld,
-  uint8_t*           name
+  const uint8_t*     name
 )
 { struct ir_link_t* link;
   link = struct_alloc(ir_link_t);
@@ -518,13 +551,14 @@ void* stack_alloc
 
 static
 uint8_t* name_alloc
-( uint8_t* name_src )
-{ uint8_t* iter, * name;
-  int      head_mem;
+( const uint8_t* name_src )
+{ const uint8_t* iter;
+  uint8_t*       name;
+  int            head_mem;
  copy:
   name = (uint8_t*)namepages.head->header.head;
   iter = name_src;
-  for (head_mem = PL_HEADMEM(namepages); *iter && head_mem; head_mem--)
+  for (head_mem = PL_HEADMEM(namepages); *iter && *iter != '_' && head_mem; head_mem--)
     *(namepages.head->header.head)++ = *iter++;
   if (head_mem == 0) //not enough room
     { namepages.head->header.next = (struct pagenode_t*) calloc(namepages.pagesize,1);