FEAT: implemented PUT/SKIP as a counterpart of SELECT/SKIP

Oldes · Feb 15, 2025 · 9a33e77 · 9a33e77
1 parent a3417e9
commit 9a33e77
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/src/boot/actions.reb b/src/boot/actions.reb
@@ -289,6 +289,8 @@ put: action [
 	key    [any-type!] 
 	value  [any-type!] {The new value (returned)}
 	/case  {Perform a case-sensitive search}
+	/skip  {Treat the series as records of fixed size}
+	size [integer!]
 ]
 
 insert: action [

diff --git a/src/core/t-block.c b/src/core/t-block.c
@@ -799,7 +799,8 @@ static void No_Nones_Or_Logic(REBVAL *arg) {
 	case A_PUT:
 		arg2 = D_ARG(ARG_PUT_VALUE);
 		args = D_REF(ARG_PUT_CASE) ? AM_FIND_CASE : 0;
-		ret = Find_Block(ser, index, tail, arg, len, args, 1);
+		ret = IS_INTEGER(D_ARG(ARG_PUT_SIZE)) ? Int32s(D_ARG(ARG_PUT_SIZE), 1) : 1;
+		ret = Find_Block(ser, index, tail, arg, len, args, ret);
 		if(ret != NOT_FOUND) {
 			ret++;
 			if (ret >= tail) {

diff --git a/src/tests/units/series-test.r3 b/src/tests/units/series-test.r3
@@ -1372,6 +1372,10 @@ Rebol [
 	--assert error? err: try [ put v 'a 2 ]
 	--assert 'protected = err/id
 
+	--test-- "PUT/SKIP"
+	--assert [a b 0 c] == (put      blk: [a b b c] 'b 0   blk)
+	--assert [a b b 0] == (put/skip blk: [a b b c] 'b 0 2 blk)
+
 ===end-group===
 
 ===start-group=== "INSERT"