X-Git-Url: https://www.kengrimes.com/gitweb/?p=henge%2Fapc.git;a=blobdiff_plain;f=src%2Fir.c;h=10c053efd498bfe25aff8c6f195a42867dcf33dd;hp=3577d48e00ae705eed3a3631429236cd8752ab37;hb=2adb4f588fa1a6a16876af1bfaeebebc8bbbc748;hpb=e4ad1c1a9499babb6804823e60377a14b6a0b583

diff --git a/src/ir.c b/src/ir.c
index 3577d48..10c053e 100644
--- a/src/ir.c
+++ b/src/ir.c
@@ -17,12 +17,11 @@
 #include <unistr.h>   //u32_cpy
 #include <unistdio.h> //ulc_fprintf
 /* Local */
+#define  eprintf_callback(...) exit(EXIT_FAILURE)
 #include "print.h"
 #include "apc.h"
 #include "ir.h"
 #include "pagenode.h"
-#undef  do_error
-#define do_error(...) exit(-1)
 #define XXH_PRIVATE_API
 #include "../xxHash/xxhash.h"
 /* Public */
@@ -723,6 +722,16 @@ void ir_linkdata_resolve_set
   linkdata->link.trg_set = set;
 }
 
+/* Assign a linkdatas trg_set */
+void ir_linkdata_assign_set
+( struct ir_link_t* link, struct ir_set_t* set )
+{ link->trg_set = set; }
+
+/* Assign a linkdatas type */
+void ir_linkdata_assign_type
+( struct ir_link_t* link, ltype type; )
+{ link->type = type; }
+
 /* Get a setdata's next sibling */
 union ir_setdata_t* ir_setdata_nextsib
 ( union ir_setdata_t* setdata )
@@ -750,6 +759,11 @@ void ir_setdata_assign_fpos
 )
 { setdata->header.filepos = newpos; }
 
+/* Assign a setdatas name */
+void ir_setdata_assign_name
+( union ir_setdata_t* setdata, uint8_t* name )
+{ setdata->header.data_name = name;}
+
 /* Return a framebox's specified framesheet */
 union ir_setdata_t* ir_framebox_framesheet
 ( union ir_setdata_t* fbox,