Changeset 394

Timestamp:

05/20/07 01:05:39 (1 year ago)

Author:

krobillard

Message:

Thune - Added 'set-stride.

Files:

• branches/thune/thread_safe/math.c (modified) (1 diff)
• branches/thune/thread_safe/math3d.c (modified) (1 diff)
• trunk/thune/math.c (modified) (1 diff)
• trunk/thune/math3d.c (modified) (1 diff)

branches/thune/thread_safe/math.c

@@ -966 +966 @@
-    { uc_dot,          "dot" },
-    { uc_cross,        "cross" },
-
+
+
-#endif
-};

branches/thune/thread_safe/math3d.c

@@ -415 +415 @@
-
-
+// (vector n -- vector)
+UR_CALL( uc_set_stride )
+{
+    UCell* prev = ur_s_prev(tos);
+    UR_CALL_UNUSED_TH
+    if( ur_is(tos, UT_INT) && ur_is(prev, UT_VECTOR) )
+    {
+        ur_vectorStride(prev) = ur_int(tos);
+        UR_S_DROP;
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "set-stride expected vector! int!" );
+}
+
+
-/* EOF */

trunk/thune/math.c

@@ -966 +966 @@
-    { uc_dot,          "dot" },
-    { uc_cross,        "cross" },
-
+
+
-#endif
-};

trunk/thune/math3d.c

@@ -415 +415 @@
-
-
+// (vector n -- vector)
+UR_CALL( uc_set_stride )
+{
+    UCell* prev = ur_s_prev(tos);
+    UR_CALL_UNUSED_TH
+    if( ur_is(tos, UT_INT) && ur_is(prev, UT_VECTOR) )
+    {
+        ur_vectorStride(prev) = ur_int(tos);
+        UR_S_DROP;
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "set-stride expected vector! int!" );
+}
+
+
-/* EOF */