FEAT: added infix shift operators: << and >>

Author: Oldes

src/boot/natives.r

@@ -823,6 +823,9 @@ shift: native [
 
 ;-- New, hackish stuff:
 
+;shift-left:  ;@@ defined in n-math.c
+;shift-right: ;@@ defined in n-math.c
+
 ++: native [
 	{Increment an integer or series index. Return its prior value.}
 	'word [word!] "Integer or series variable"

src/boot/ops.r

@@ -35,3 +35,5 @@ REBOL [
 and and~
 or  or~
 xor xor~
+<< shift-left
+>> shift-right

src/core/n-math.c

@@ -450,6 +450,46 @@ enum {SINE, COSINE, TANGENT};
 #pragma warning (default : 4146)
 #endif
 
+/***********************************************************************
+**
+*/	REBNATIVE(shift_left)
+/*
+//  shift-left: native [
+//		"Shift bits to the left (unsigned)."
+//		data [integer!]
+//		bits [integer!]
+//  ]
+***********************************************************************/
+{
+	REBVAL *a = D_ARG(1);
+	REBVAL *b = D_ARG(2);
+
+	if (!IS_INTEGER(a)) Trap2(RE_EXPECT_VAL, Get_Type_Word(REB_INTEGER), a);
+	if (!IS_INTEGER(b)) Trap2(RE_EXPECT_VAL, Get_Type_Word(REB_INTEGER), b);
+	if (VAL_INT64(b) > (uint)0L) VAL_INT64(a) <<= VAL_INT64(b);
+	return R_ARG1;
+}
+
+/***********************************************************************
+**
+*/	REBNATIVE(shift_right)
+/*
+//  shift-right: native [
+//		"Shift bits to the right (unsigned)."
+//		data [integer!]
+//		bits [integer!]
+//  ]
+***********************************************************************/
+{
+	REBVAL *a = D_ARG(1);
+	REBVAL *b = D_ARG(2);
+	
+	if (!IS_INTEGER(a)) Trap2(RE_EXPECT_VAL, Get_Type_Word(REB_INTEGER), a);
+	if (!IS_INTEGER(b)) Trap2(RE_EXPECT_VAL, Get_Type_Word(REB_INTEGER), b);
+	if (VAL_INT64(b) > (uint)0L) VAL_INT64(a) >>= VAL_INT64(b);
+	return R_ARG1;
+}
+
 
 /***********************************************************************
 **

src/tests/run-tests.r3

@@ -11,7 +11,7 @@ dt [ ;- delta time
 	wrap load %units/lexer-test.r3
 	wrap load %units/enbase-test.r3
 	wrap load %units/map-test.r3
-	;wrap load %units/integer-test.r3
+	wrap load %units/integer-test.r3
 	wrap load %units/power-test.r3
 	wrap load %units/mezz-crypt-test.r3
 	wrap load %units/rc4-test.r3