Changeset 488 for trunk/thune/series.c

Timestamp:

10/18/07 04:20:02 (13 months ago)

Author:

krobillard

Message:

Added push & pop.

Files:

• trunk/thune/series.c (modified) (3 diffs)

trunk/thune/series.c

@@ -1226 +1226 @@
             ur_throwErr( UR_ERR_DATATYPE,
                          "append expected series argument" );
+            return;
         }
     }
@@ -1382 +1383 @@
             ur_throwErr( UR_ERR_DATATYPE, "remove expected series argument" );
     }
+}
+
+
+/*
+  (series val -- )
+  Same as [append drop]
+*/
+UR_CALL( uc_push )
+{
+    UCell* ser = ur_s_prev(tos);
+    int len = ur_seriesEnd(ser);
+    if( len > -1 )
+    {
+        ser->series.it = len;
+        uc_insert( ut, tos );           // Assuming uc_insert cannot fail.
+        UR_S_DROP;
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "push expected series argument" );
+}
+
+
+/*
+  (series -- )
+  Same as [tail prev remove drop]
+*/
+UR_CALL( uc_pop )
+{
+    int len = ur_seriesEnd(tos);
+    if( len > -1 )
+    {
+        if( len > 0 )
+        {
+            tos->series.it = len - 1;
+            uc_remove( ut, tos );       // Assuming uc_remove cannot fail.
+        }
+        UR_S_DROP;
+        return;
+    }
+    ur_throwErr( UR_ERR_DATATYPE, "pop expected series argument" );
 }
 
@@ -3483 +3524 @@
     { uc_append_cat,   "append.cat" },
     { uc_remove,       "remove" },
+    { uc_push,         "push" },
+    { uc_pop,          "pop" },
     { uc_fill,         "fill" },
     { uc_pick,         "pick" },