Changeset 336 for trunk/thune/math.c

Timestamp:

01/05/07 21:14:50 (2 years ago)

Author:

krobillard

Message:

Thune - Added lshift, rshift. Improved bitset!.

Files:

• trunk/thune/math.c (modified) (2 diffs)

trunk/thune/math.c

@@ -386 +386 @@
             break;
         default:
-            ur_throwErr( ur_thread, UR_EX_DATATYPE,
-                         "Invalid type for 'maximum" );
-            break;
-    }
+            ur_throwErr( UR_ERR_DATATYPE, "Invalid type for 'maximum" );
+            break;
+    }
+}
+
+
+// (int shift-count -- int)
+UR_CALL( uc_lshift )
+{
+    UCell* res = ur_s_prev(tos);
+    if( ur_is(res, UT_INT) && ur_is(tos, UT_INT) )
+    {
+        UR_S_DROP;
+        ur_int(res) <<= ur_int(tos);
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "Bit shift expected int! int!" );
+}
+
+
+// (int shift-count -- int)
+UR_CALL( uc_rshift )
+{
+    UCell* res = ur_s_prev(tos);
+    if( ur_is(res, UT_INT) && ur_is(tos, UT_INT) )
+    {
+        UR_S_DROP;
+        ur_int(res) >>= ur_int(tos);
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "Bit shift expected int! int!" );
 }
 
@@ -782 +809 @@
     { uc_minimum,      "minimum" },
     { uc_maximum,      "maximum" },
+    { uc_lshift,       "lshift" },
+    { uc_rshift,       "rshift" },
     { uc_to_deg,       "to-deg" },
     { uc_to_rad,       "to-rad" },