gh-114: Add operator ISTHR.

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/ISMAP/ISFUNC(ANY: value)` = MUST return `TRUE` if the runtime type of `value` is respectively `BOOL`, `INT`, `FLT`, `STR`, `TNS`, `MAP`, or `FUNC`, and `FALSE` otherwise.
+- `BOOL: ISBOOL/ISINT/ISFLT/ISSTR/ISTNS/ISMAP/ISFUNC/ISTHR(ANY: value)` = MUST return `TRUE` if the runtime type of `value` is respectively `BOOL`, `INT`, `FLT`, `STR`, `TNS`, `MAP`, `FUNC`, or `THR`, 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

@@ -6550,6 +6550,11 @@ static Value builtin_isfunc(Interpreter* interp, Value* args, int argc, Expr** a
     return value_bool(args[0].type == VAL_FUNC);
 }
 
+static Value builtin_isthr(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_THR);
+}
+
 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]));
@@ -9079,6 +9084,7 @@ static BuiltinFunction builtins_table[] = {
     {"ISTNS", 1, 1, builtin_istns},
     {"ISMAP", 1, 1, builtin_ismap},
     {"ISFUNC", 1, 1, builtin_isfunc},
+    {"ISTHR", 1, 1, builtin_isthr},
     {"TYPE", 1, 1, builtin_type},
     {"SIGNATURE", 1, 1, builtin_signature},
 

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

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

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

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

tests/cases/passing/isthr.pre

@@ -0,0 +1,21 @@
+BOOL: sample_bool_true = TRUE
+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){}
+
+REFUTE(ISTHR(sample_bool_true))
+REFUTE(ISTHR(sample_int))
+REFUTE(ISTHR(sample_flt))
+REFUTE(ISTHR(sample_str))
+REFUTE(ISTHR(sample_tns))
+REFUTE(ISTHR(sample_map))
+REFUTE(ISTHR(sample_func))
+ASSERT(ISTHR(sample_thr))