FEAT: hash! datatype (works like block! for now, hashing not implemented yet)

Author: Oldes

src/boot/types.reb

@@ -3,7 +3,7 @@ REBOL [
 	Title: "Datatype definitions"
 	Rights: {
 		Copyright 2012 REBOL Technologies
-		Copyright 2012-2021 Rebol Open Source Contributors
+		Copyright 2012-2024 Rebol Open Source Contributors
 		REBOL is a trademark of REBOL Technologies
 	}
 	License: {
@@ -66,6 +66,7 @@ REBOL [
 	get-path    path        block       *        *       *      *   [series block path]  
 	lit-path    lit-path    block       *        *       *      *   [series block path]  
 
+	hash        self        block       +        f*      *      *   [series block]
 	map         self        map         +        f*      *      *   -  
 
 	datatype    self        datatype    +        f*      -      *   -  

src/boot/typespec.reb

@@ -3,6 +3,7 @@ REBOL [
 	Title: "Datatype help spec"
 	Rights: {
 		Copyright 2012 REBOL Technologies
+		Copyright 2012-2024 Rebol Open Source Contributors
 		REBOL is a trademark of REBOL Technologies
 	}
 	License: {
@@ -35,6 +36,7 @@ get-path	["the value of a path" block]
 get-word	["the value of a word (variable)" word]
 gob			["graphical object" opt-object]
 handle		["arbitrary internal object or value" internal]
+hash		["series of values (using hash table)" block]
 image		["RGB image with alpha channel" vector]
 integer		["64 bit integer" scalar]
 issue		["identifying marker word" word]

src/core/m-gc.c

@@ -3,7 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
-**  Copyright 2012-2021 Rebol Open Source Contributors
+**  Copyright 2012-2024 Rebol Open Source Contributors
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -454,6 +454,7 @@ static void Mark_Series(REBSER *series, REBCNT depth);
 		case REB_SET_PATH:
 		case REB_GET_PATH:
 		case REB_LIT_PATH:
+		case REB_HASH:
 			ser = VAL_SERIES(val);
 			ASSERT(ser != 0, RP_NULL_SERIES);
 			if (IS_BARE_SERIES(ser)) {

src/core/s-mold.c

@@ -3,6 +3,7 @@
 **  REBOL [R3] Language Interpreter and Run-time Environment
 **
 **  Copyright 2012 REBOL Technologies
+**  Copyright 2012-2024 Rebol Open Source Contributors
 **  REBOL is a trademark of REBOL Technologies
 **
 **  Licensed under the Apache License, Version 2.0 (the "License");
@@ -806,6 +807,15 @@ STOID Mold_Block(REBVAL *value, REB_MOLD *mold, REBFLG molded)
 	}
 }
 
+STOID Mold_Hash(REBVAL *value, REB_MOLD *mold, REBFLG molded) {
+	Pre_Mold(value, mold); // #(hash! part
+	Mold_Block_Series(mold, VAL_SERIES(value), VAL_INDEX(value), 0);
+	if (GET_MOPT(mold, MOPT_MOLD_ALL))
+		Post_Mold(value, mold);
+	else
+		End_Mold(mold);
+}
+
 STOID Mold_Simple_Block(REB_MOLD *mold, REBVAL *block, REBCNT len)
 {
 	// Simple molder for error locations. Series must be valid.
@@ -1383,6 +1393,13 @@ STOID Mold_Error(REBVAL *value, REB_MOLD *mold, REBFLG molded)
 		Mold_Map(value, mold, molded);
 		break;
 
+	case REB_HASH:
+		if (molded)
+			Mold_Hash(value, mold, molded);
+		else
+			Form_Block_Series(VAL_SERIES(value), VAL_INDEX(value), mold, 0);
+		break;
+
 	case REB_GOB:
 	{
 		REBSER *blk;

src/include/sys-value.h

@@ -1311,7 +1311,7 @@ typedef struct Reb_All {
 #define ANY_SERIES(v)		(VAL_TYPE(v) >= REB_BINARY && VAL_TYPE(v) <= REB_LIT_PATH)
 #define ANY_STR(v)			(VAL_TYPE(v) >= REB_STRING && VAL_TYPE(v) <= REB_TAG)
 #define ANY_BINSTR(v)		(VAL_TYPE(v) >= REB_BINARY && VAL_TYPE(v) <= REB_TAG)
-#define ANY_BLOCK(v)		(VAL_TYPE(v) >= REB_BLOCK  && VAL_TYPE(v) <= REB_LIT_PATH)
+#define ANY_BLOCK(v)		(VAL_TYPE(v) >= REB_BLOCK  && VAL_TYPE(v) <= REB_HASH)
 #define	ANY_WORD(v)			(VAL_TYPE(v) >= REB_WORD   && VAL_TYPE(v) <= REB_ISSUE)
 #define	ANY_PATH(v)			(VAL_TYPE(v) >= REB_PATH   && VAL_TYPE(v) <= REB_LIT_PATH)
 #define ANY_FUNC(v)			(VAL_TYPE(v) >= REB_NATIVE && VAL_TYPE(v) <= REB_FUNCTION)

src/mezz/mezz-types.reb

@@ -3,6 +3,7 @@ REBOL [
 	Title: "REBOL 3 Mezzanine: To-Type Helpers"
 	Rights: {
 		Copyright 2012 REBOL Technologies
+		Copyright 2012-2024 Rebol Open Source Contributors
 		REBOL is a trademark of REBOL Technologies
 	}
 	License: {
@@ -19,7 +20,7 @@ to-bitset: to-image: to-vector: to-block: to-paren:
 to-path: to-set-path: to-get-path: to-lit-path: to-map: to-datatype: to-typeset:
 to-word: to-set-word: to-get-word: to-lit-word: to-ref: to-refinement: to-issue:
 to-command: to-closure: to-function: to-object: to-module: to-error: to-port: to-gob:
-to-event:
+to-event: to-hash:
 	none
 
 ; Auto-build the functions for the above TO-* words.