factor/native/arithmetic.h

#include "factor.h"

INLINE BIGNUM* fixnum_to_bignum(CELL n)
{
	return bignum((BIGNUM_2)untag_fixnum_fast(n));
}

INLINE FIXNUM bignum_to_fixnum(CELL tagged)
{
	return (FIXNUM)(untag_bignum(tagged)->n);
}

#define CELL_TO_INTEGER(result) \
	FIXNUM _result = (result); \
	if(_result < FIXNUM_MIN || _result > FIXNUM_MAX) \
		return tag_bignum(fixnum_to_bignum(_result)); \
	else \
		return tag_fixnum(_result);

#define BIGNUM_2_TO_INTEGER(result) \
        BIGNUM_2 _result = (result); \
        if(_result < FIXNUM_MIN || _result > FIXNUM_MAX) \
                return tag_bignum(bignum(_result)); \
        else \
                return tag_fixnum(_result);

#define BINARY_OP(OP,anytype) \
CELL OP(CELL x, CELL y) \
{ \
	switch(TAG(x)) \
	{ \
	case FIXNUM_TYPE: \
\
		switch(TAG(y)) \
		{ \
		case FIXNUM_TYPE: \
			return OP##_fixnum(x,y); \
		case OBJECT_TYPE: \
			switch(object_type(y)) \
			{ \
			case BIGNUM_TYPE: \
				return OP##_bignum((CELL)fixnum_to_bignum(x),y); \
			default: \
				if(anytype) \
					return OP##_anytype(x,y); \
				else \
					type_error(FIXNUM_TYPE,y); \
				break; \
			} \
			break; \
		default: \
			if(anytype) \
				return OP##_anytype(x,y); \
			else \
				type_error(FIXNUM_TYPE,y); \
			break; \
		} \
\
		break; \
\
	case OBJECT_TYPE: \
\
		switch(object_type(x)) \
		{ \
	 \
		case BIGNUM_TYPE: \
		 \
			switch(TAG(y)) \
			{ \
			case FIXNUM_TYPE: \
				return OP##_bignum(x,(CELL)fixnum_to_bignum(y)); \
			case OBJECT_TYPE: \
\
				switch(object_type(y)) \
				{ \
				case BIGNUM_TYPE: \
					return OP##_bignum(x,y); \
					break; \
				default: \
					type_error(BIGNUM_TYPE,y); \
					break; \
				} \
				break; \
			default: \
				if(anytype) \
					return OP##_anytype(x,y); \
				else \
					type_error(BIGNUM_TYPE,y); \
				break; \
			} \
			break; \
\
		default: \
\
			if(anytype) \
				return OP##_anytype(x,y); \
			else \
				type_error(FIXNUM_TYPE,x); \
			break; \
		} \
\
		break; \
\
	default: \
\
		if(anytype) \
			return OP##_anytype(x,y); \
		else \
			type_error(FIXNUM_TYPE,x); \
		break; \
	} \
} \
\
void primitive_##OP(void) \
{ \
	CELL x = dpop(), y = env.dt; \
	env.dt = OP(x,y); \
}

void primitive_numberp(void);
FIXNUM to_fixnum(CELL tagged);
void primitive_to_fixnum(void);
BIGNUM* to_bignum(CELL tagged);
void primitive_to_bignum(void);

void primitive_number_eq(void);
void primitive_add(void);
void primitive_subtract(void);
void primitive_multiply(void);
void primitive_divmod(void);
void primitive_less(void);
void primitive_lesseq(void);
void primitive_greater(void);
void primitive_greatereq(void);
void primitive_mod(void);
void primitive_and(void);
void primitive_or(void);
void primitive_xor(void);
void primitive_shiftleft(void);
void primitive_shiftright(void);