FEAT: new indexz? action returning 0-based position (index) of the …

…series

related to: Oldes/Rebol-issues#613

src/boot/actions.reb

@@ -176,6 +176,12 @@ index?: action [
 	/xy {Returns index as an XY pair offset}
 ]
 
+indexz?: action [
+	{Returns the current 0-based position (index) of the series.}
+	series [series! gob! port! none!]
+	/xy {Returns index as an XY pair offset}
+]
+
 length?: action [
 	{Returns the length (from the current position for series.)}
 	series [series! port! map! tuple! bitset! object! gob! struct! any-word! none!]

src/core/f-series.c

@@ -107,6 +107,10 @@
 		SET_INTEGER(DS_RETURN, ((REBI64)index) + 1);
 		return R_RET;
 
+	case A_INDEXZQ:
+		SET_INTEGER(DS_RETURN, ((REBI64)index));
+		return R_RET;
+
 	case A_LENGTHQ:
 		SET_INTEGER(DS_RETURN, tail > index ? tail - index : 0);
 		return R_RET;

src/core/t-gob.c

@@ -937,6 +937,10 @@ const REBCNT Gob_Flag_Words[] = {
 		SET_INTEGER(val, index+1);
 		break;
 
+	case A_INDEXZQ:
+		SET_INTEGER(val, index);
+		break;
+
 	case A_LENGTHQ:
 		index = (tail > index) ? tail - index : 0;
 		SET_INTEGER(val, index);

src/core/t-image.c

@@ -1047,6 +1047,17 @@ INLINE REBCNT ARGB_To_BGR(REBCNT i)
 			DS_RET_INT(index + 1);
 			return R_RET;
 		}
+	case A_INDEXZQ:
+		if (D_REF(2)) {
+			VAL_SET(D_RET, REB_PAIR);
+			VAL_PAIR_X(D_RET) = (REBD32)(index % VAL_IMAGE_WIDE(value));
+			VAL_PAIR_Y(D_RET) = (REBD32)(index / VAL_IMAGE_WIDE(value));
+			return R_RET;
+		}
+		else {
+			DS_RET_INT(index);
+			return R_RET;
+		}
 	case A_LENGTHQ:
 		DS_RET_INT(tail > index ? tail - index : 0);
 		return R_RET;

src/tests/units/gob-test.r3

@@ -8,6 +8,22 @@ Rebol [
 
 ~~~start-file~~~ "gob!"
 
+
+
+===start-group=== "INDEX? / INDEXZ?"
+	g: make gob! [] loop 2 [append g make gob! []]
+	--test-- "index? gob!"
+		--assert 1   = index? g
+		--assert 1   = index? back g
+		--assert 2   = index? next g
+		--assert 3   = index? tail g
+	--test-- "indexz? gob!"
+		--assert 0   = indexz? g
+		--assert 0   = indexz? back g
+		--assert 1   = indexz? next g
+		--assert 2   = indexz? tail g
+===end-group===
+
 ===start-group=== "gob issues"
 	--test-- "issue-185"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/185

src/tests/units/image-test.r3

@@ -69,6 +69,24 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "INDEX? / INDEXZ?"
+	img: make image! 2x2
+	--test-- "index? image!"
+		--assert 1   = index? img
+		--assert 2   = index? next img
+		--assert 5   = index? tail img
+		--assert 1x1 = index?/xy img
+		--assert 2x1 = index?/xy next img
+		--assert 1x3 = index?/xy tail img
+	--test-- "indexz? image!"
+		--assert 0   = indexz? img
+		--assert 1   = indexz? next img
+		--assert 4   = indexz? tail img
+		--assert 0x0 = indexz?/xy img
+		--assert 1x0 = indexz?/xy next img
+		--assert 0x2 = indexz?/xy tail img
+===end-group===
+
 ===start-group=== "FOREACH"
 	--test-- "issue-1479"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1479

src/tests/units/series-test.r3

@@ -620,6 +620,38 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "INDEXZ?"
+	--test-- "indexz? on string"
+		s: "abc"
+		--assert all [
+			0 = indexz? s
+			1 = indexz? next s
+			3 = indexz? tail s
+		]
+	--test-- "indexz? on binary"
+		s: to binary! "abc"
+		--assert all [
+			0 = indexz? s
+			1 = indexz? next s
+			3 = indexz? tail s
+		]
+	--test-- "indexz? on block"
+		s: [1 2 3]
+		--assert all [
+			0 = indexz? s
+			1 = indexz? next s
+			3 = indexz? tail s
+		]
+	--test-- "indexz? on vector"
+		s: #[u16! 3]
+		--assert all [
+			0 = indexz? s
+			1 = indexz? next s
+			3 = indexz? tail s
+		]
+===end-group===
+
+
 ===start-group=== "PICK"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/608
 	;@@ https://github.com/Oldes/Rebol-issues/issues/857