add typeof command @TheLoneWolfling

src/apply_single_value_func.c

@@ -34,6 +34,8 @@ struct Value apply_single_value_func(struct Value *kwd_val, struct Execution_bun
         exec_bundle->ast = read_import(value_as_string(value));
         *value = execute(exec_bundle);
         exec_bundle->ast = old_ast;
+    } else if(string_concat_heap(&kwd, &typeof_const)){
+        *value = value_from_string(type_to_string(value->type));
     } else {
         value->type = UNDEF;
         value->data.bl = false;

src/constants.c

@@ -66,8 +66,17 @@ struct String false_const = STR_NEW("false");
 
 struct String true_const = STR_NEW("true");
 
+struct String typeof_const = STR_NEW("typeof");
+
 struct String function_names = STR_NEW("[if, read, let, set, each, for, do, switch, parallel, import, map, reduce, substring, while]");
 
+struct String keyword_const = STR_NEW("keyword");
+struct String number_const = STR_NEW("number");
+struct String string_const = STR_NEW("string");
+struct String boolean_const = STR_NEW("boolean");
+struct String array_const = STR_NEW("array");
+struct String undefined_const = STR_NEW("undefined");
+
 const char open_parens_const = '(';
 const char close_parens_const = ')';
 const char root_type_const = 'r';

src/constants.h

@@ -38,6 +38,14 @@ extern struct String read_line_const;
 extern struct String function_names;
 extern struct String false_const;
 extern struct String true_const;
+extern struct String typeof_const;
+
+extern struct String keyword_const;
+extern struct String number_const;
+extern struct String string_const;
+extern struct String boolean_const;
+extern struct String array_const;
+extern struct String undefined_const;
 
 extern const char open_parens_const;
 extern const char close_parens_const;

src/core_functions.c

@@ -240,7 +240,7 @@ bool can_cast_to_size_t(huo_int_t i) {
 struct Value set(struct Value index_val, struct Value item, struct Value *to_set) {
     huo_int_t index = value_as_long(&index_val);
     if (!can_cast_to_size_t(index)) {
-        ERROR("Index out of range for set: should be 0 <= %" PRIhi " < %zu", index, SIZE_MAX);
+        ERROR("Index out of range for set: should be 0 <= %" PRIhi " < %llu", index, SIZE_MAX);
     }
     if (to_set->type == ARRAY) {
         return value_from_array(array_set((size_t) index, item, value_as_array(to_set)));

src/structures/value.c

@@ -1,5 +1,6 @@
 #include <assert.h>
 #include "structures.h"
+#include "../constants.h"
 #include "value.h"
 
 #include "../base_util.h"
@@ -225,6 +226,32 @@ void value_negate(struct Value *v) {
     }
 }
 
+struct String type_to_string(enum Value_type type){
+    switch (type) {
+        case STRING:
+            return string_copy_stack(&string_const);
+            break;
+        case FLOAT:
+        case LONG:
+            return string_copy_stack(&number_const);
+            break;
+        case ARRAY:
+            return string_copy_stack(&array_const);
+            break;
+        case BOOL:
+            return string_copy_stack(&boolean_const);
+            break;
+        case KEYWORD:
+            return string_copy_stack(&keyword_const);
+            break;
+        case UNDEF:
+            return string_copy_stack(&undefined_const);
+            break;
+        default:
+            ERROR("Type error: unrecognized type: '%c'.", type)
+    }
+}
+
 void value_free_stack(struct Value v) {
     switch (v.type) {
         case ARRAY:

src/structures/value.h

@@ -53,6 +53,7 @@ size_t length(struct Value a);
 unsigned long value_keyword_hash_code(void *value);
 bool value_keyword_equality(void *a, void *b);
 
+struct String type_to_string(enum Value_type type);
 bool value_equals_shallow(struct Value *a, struct Value *b);
 void value_negate(struct Value *v);
 void value_free(struct Value *v);