Boolification support for bigints.

Author: jnthn

src/6model/sixmodelobject.h

@@ -48,6 +48,7 @@ typedef struct {
 #define BOOL_MODE_UNBOX_STR_NOT_EMPTY           3
 #define BOOL_MODE_UNBOX_STR_NOT_EMPTY_OR_ZERO   4
 #define BOOL_MODE_NOT_TYPE_OBJECT               5
+#define BOOL_MODE_BIGINT                        6
 
 /* Controls the way that type checks are performed. By default, if there is
  * a type check cache we treat it as definitive. However, it's possible to

src/pmc/sixmodelobject.pmc

@@ -24,6 +24,12 @@
 
 #include "../6model/sixmodelobject.h"
 
+/* We need to know how to boolify bigints. Really need something better,
+ * but this will do for now. */
+#include "../../3rdparty/libtommath/tommath.h"
+#include "../6model/reprs/P6bigint.h"
+#define bigint_repr_id 7
+
 PMC * decontainerize(PARROT_INTERP, PMC *var) {
     ContainerSpec *spec = STABLE(var)->container_spec;
     if (spec && IS_CONCRETE(var)) {
@@ -251,6 +257,16 @@ pmclass SixModelObject manual_attrs dynpmc group nqp {
                         !Parrot_str_equal(interp, unstr, CONST_STRING(interp, "0"));
                 case BOOL_MODE_NOT_TYPE_OBJECT:
                     return IS_CONCRETE(decont);
+                case BOOL_MODE_BIGINT:
+                    if (IS_CONCRETE(decont)) {
+                        struct SixModel_REPROps *r = REPR(decont);
+                        if (r->ID == bigint_repr_id)
+                            return !mp_iszero(&((P6bigintInstance *)PMC_data(decont))->body.i);
+                        else
+                            return !mp_iszero(&((P6bigintBody *)r->get_boxed_ref(interp,
+                                STABLE(decont), OBJECT_BODY(decont), bigint_repr_id))->i);
+                    }
+                    return 0;
                 default:
                     return SUPER();
             }

tools/build/Makefile.in

@@ -670,7 +670,7 @@ $(DYNPMC): $(PMC_SOURCES) $(METAMODEL_SOURCE)
 	$(PMC2C) --no-lines --c $(PMC2C_INCLUDES) $(PMC_SOURCES)
 	$(PMC2C) --no-lines --library $(GROUP) --c $(PMC_SOURCES)
 	$(CC) -c @cc_o_out@$(GROUP)$(O) -I$(PMC_DIR) $(CINCLUDES) $(CFLAGS) $(GROUP).c
-	cd $(PMC_DIR) && $(CC) -c $(CINCLUDES) $(CFLAGS) *.c
+	cd $(PMC_DIR) && $(CC) -c $(CINCLUDES) -I../../3rdparty/libtommath $(CFLAGS) *.c
 	$(LD) @ld_out@$(DYNPMC) $(GROUP)$(O) src/pmc/*$(O) $(LINKARGS)
 
 $(OPS_DIR)/$(OPS)$(LOAD_EXT): $(OPS_DIR)/$(OPS_SOURCE) $(DYNPMC)