gh-112: Add operator ISMAP.

Author: python-processing-unit

docs/SPECIFICATION.html

@@ -705,7 +705,7 @@
 
 - `BOOL: EXIST(SYMBOL: name)` = MUST return `TRUE` if `name` resolves to a visible readable binding in the current lexical environment chain and `FALSE` otherwise.
 
-- `BOOL: ISBOOL/ISINT/ISFLT/ISSTR/ISTNS(ANY: value)` = MUST return `TRUE` if the runtime type of `value` is respectively `BOOL`, `INT`, `FLT`, `STR`, or `TNS`, and `FALSE` otherwise.
+- `BOOL: ISBOOL/ISINT/ISFLT/ISSTR/ISTNS/ISMAP(ANY: value)` = MUST return `TRUE` if the runtime type of `value` is respectively `BOOL`, `INT`, `FLT`, `STR`, `TNS`, or `MAP`, and `FALSE` otherwise.
 
 - `STR: TYPE(ANY: value)` = MUST return the runtime type name of `value` as a `STR`. For core language values, the result MUST be one of `BOOL`, `INT`, `FLT`, `STR`, `TNS`, `MAP`, `FUNC`, or `THR`. For null or otherwise unrecognized internal values, the result MUST be `NULL`. Extension-defined values MUST report their registered type names.
 

src/builtins.c

@@ -6540,6 +6540,11 @@ static Value builtin_istns(Interpreter* interp, Value* args, int argc, Expr** ar
     return value_bool(args[0].type == VAL_TNS);
 }
 
+static Value builtin_ismap(Interpreter* interp, Value* args, int argc, Expr** arg_nodes, Env* env, int line, int col) {
+    (void)arg_nodes; (void)env; (void)interp; (void)line; (void)col;
+    return value_bool(args[0].type == VAL_MAP);
+}
+
 static Value builtin_type(Interpreter* interp, Value* args, int argc, Expr** arg_nodes, Env* env, int line, int col) {
     (void)arg_nodes; (void)env; (void)interp; (void)line; (void)col;
     return value_str(value_type_name(args[0]));
@@ -9067,6 +9072,7 @@ static BuiltinFunction builtins_table[] = {
     {"ISFLT", 1, 1, builtin_isflt},
     {"ISSTR", 1, 1, builtin_isstr},
     {"ISTNS", 1, 1, builtin_istns},
+    {"ISMAP", 1, 1, builtin_ismap},
     {"TYPE", 1, 1, builtin_type},
     {"SIGNATURE", 1, 1, builtin_signature},
 

tests/cases/failing/ismap-arity-two.pre

@@ -0,0 +1 @@
+ISMAP(TRUE, FALSE)

tests/cases/failing/ismap-arity-zero.pre

@@ -0,0 +1 @@
+ISMAP()

tests/cases/passing/ismap.pre

@@ -0,0 +1,23 @@
+BOOL: sample_bool_true = TRUE
+BOOL: sample_bool_false = FALSE
+INT: sample_int = -0d7
+FLT: sample_flt = 0d3.5
+STR: sample_str = "prefix"
+TNS: sample_tns = [0d1, 0d2]
+MAP: sample_map = <"n" = 0d1>
+
+FUNC INT: sample_func(INT: value){
+    RETURN(value)
+}
+
+THR(sample_thr){}
+
+ASSERT(ISMAP(sample_map))
+ASSERT(NOT(ISMAP(sample_bool_true)))
+ASSERT(NOT(ISMAP(sample_bool_false)))
+ASSERT(NOT(ISMAP(sample_int)))
+ASSERT(NOT(ISMAP(sample_flt)))
+ASSERT(NOT(ISMAP(sample_str)))
+ASSERT(NOT(ISMAP(sample_tns)))
+ASSERT(NOT(ISMAP(sample_func)))
+ASSERT(NOT(ISMAP(sample_thr)))