new built-in variables for each type

src/lib/builtins/basic.c

@@ -32,11 +32,11 @@
 #include <stdlib.h>
 #include <string.h>
 #include <stdint.h>
+#include "math.h"
 #include "basic.h"
 #include "files.h"
-#include "math.h"
 #include "../utils/utf8.h"
-
+#include "../objects/objects.h"
 static int bin_print(Runtime *runtime, Object **argv, unsigned int argc, Object **rets, unsigned int maxretc, Error *error)
 {
 	(void) runtime;
@@ -378,7 +378,31 @@ static int bin_bufferToString(Runtime *runtime, Object **argv, unsigned int argc
 	return 1;
 }
 
-const StaticMapSlot bins_basic[] = {
+void bins_basic_init(StaticMapSlot slots[])
+{
+	slots[0].as_type = Object_GetTypeType();
+	slots[1].as_type = Object_GetNoneType();
+	slots[2].as_type = Object_GetIntType();
+	slots[3].as_type = Object_GetFloatType();
+	slots[4].as_type = Object_GetStringType();
+	slots[5].as_type = Object_GetListType();
+	slots[6].as_type = Object_GetMapType();
+	slots[7].as_type = Object_GetFileType();
+	slots[8].as_type = Object_GetDirType();
+}
+
+StaticMapSlot bins_basic[] = {
+
+	{ "Type",   SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "None",   SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "int",    SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "float",  SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "String", SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "List",   SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "Map",    SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "File",   SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+	{ "Dir",    SM_TYPE, .as_type = NULL /* Until bins_basic_init is called */ },
+
 	{ "math",  SM_SMAP, .as_smap = bins_math, },
 //	{ "files", SM_SMAP, .as_smap = bins_files, },
 //	{ "net",  SM_SMAP, .as_smap = bins_net, },

src/lib/builtins/basic.h

@@ -29,4 +29,5 @@
 */
 
 #include "../runtime/runtime.h"
-extern const StaticMapSlot bins_basic[];
+void bins_basic_init(StaticMapSlot slots[]);
+extern StaticMapSlot bins_basic[];

src/lib/builtins/files.c

@@ -296,7 +296,7 @@ static Object *bin_nextDirItem(Runtime *runtime, Object **argv, unsigned int arg
 	return Object_FromString(ent->d_name, -1, heap, error);
 }
 
-const StaticMapSlot bins_files[] = {
+StaticMapSlot bins_files[] = {
 	{ "READ",        SM_INT, .as_int = MD_READ, },
 	{ "WRITE",       SM_INT, .as_int = MD_WRITE, },
 	{ "APPEND",      SM_INT, .as_int = MD_APPEND, },

src/lib/builtins/files.h

@@ -29,4 +29,4 @@
 */
 
 #include "../runtime/runtime.h"
-extern const StaticMapSlot bins_files[];
+extern StaticMapSlot bins_files[];

src/lib/builtins/math.c

@@ -109,7 +109,7 @@ WRAP_FUNC(sqrt)
 WRAP_FUNC_2(atan2)
 WRAP_FUNC_2(pow)
 
-const StaticMapSlot bins_math[] = {
+StaticMapSlot bins_math[] = {
 	{ "PI", SM_FLOAT, .as_float = M_PI },
 	{ "E",  SM_FLOAT, .as_float = M_E },
 

src/lib/builtins/math.h

@@ -29,4 +29,4 @@
 */
 
 #include "../runtime/runtime.h"
-extern const StaticMapSlot bins_math[];
+extern StaticMapSlot bins_math[];

src/lib/compiler/codegen.c

@@ -504,7 +504,7 @@ static void emitInstrForExprNode(CodegenContext *ctx, ExprNode *expr,
 
 static void emitInstrForIfElseNode(CodegenContext *ctx, IfElseNode *ifelse, Label *label_break)
 {
-	emitInstrForExprNode(ctx, ifelse->condition, label_break);
+	emitInstrForNode(ctx, ifelse->condition, label_break);
 	if(ifelse->false_branch)
 	{
 		Label *label_else = Label_New(ctx);

src/lib/noja.c

@@ -56,7 +56,7 @@ static _Bool interpret(Executable *exe)
     RuntimeError error;
     RuntimeError_Init(&error, runt); // Here we specify the runtime to snapshot in case of failure.
     
-    Object *bins = Object_NewStaticMap(bins_basic, runt, (Error*) &error);
+    Object *bins = Object_NewStaticMap(bins_basic, bins_basic_init, runt, (Error*) &error);
 
     if(bins == NULL)
     {

src/lib/objects/o_bool.c

@@ -97,6 +97,11 @@ static _Bool to_bool(Object *obj, Error *err)
 	return obj == &the_true_object;
 }
 
+TypeObject *Object_GetBoolType()
+{
+	return &t_bool;
+}
+
 Object *Object_FromBool(_Bool val, Heap *heap, Error *error)
 {
 	(void) heap;

src/lib/objects/o_buffer.c

@@ -82,6 +82,11 @@ static TypeObject t_buffer_slice = {
 
 #define THRESHOLD 128
 
+TypeObject *Object_GetBufferType()
+{
+	return &t_buffer;
+}
+
 _Bool Object_IsBuffer(Object *obj)
 {
 	return obj->type == &t_buffer_slice || obj->type == &t_buffer;

src/lib/objects/o_dir.c

@@ -44,6 +44,11 @@ static TypeObject t_dir = {
 	.free = dir_free,
 };
 
+TypeObject *Object_GetDirType()
+{
+	return &t_dir;
+}
+
 _Bool Object_IsDir(Object *obj)
 {
 	return obj->type == &t_dir;

src/lib/objects/o_file.c

@@ -44,6 +44,11 @@ static TypeObject t_file = {
 	.free = file_free,
 };
 
+TypeObject *Object_GetFileType()
+{
+	return &t_file;
+}
+
 _Bool Object_IsFile(Object *obj)
 {
 	return obj->type == &t_file;

src/lib/objects/o_float.c

@@ -98,6 +98,11 @@ static double to_float(Object *obj, Error *err)
 	return ((FloatObject*) obj)->val;
 }
 
+TypeObject *Object_GetFloatType()
+{
+	return &t_float;
+}
+
 Object *Object_FromFloat(double val, Heap *heap, Error *error)
 {
 	FloatObject *obj = (FloatObject*) Heap_Malloc(heap, &t_float, error);

src/lib/objects/o_int.c

@@ -84,6 +84,11 @@ static long long int to_int(Object *obj, Error *err)
 	return ((IntObject*) obj)->val;
 }
 
+TypeObject *Object_GetIntType()
+{
+	return &t_int;
+}
+
 Object *Object_FromInt(long long int val, Heap *heap, Error *error)
 {
 	assert(heap != NULL);

src/lib/objects/o_list.c

@@ -99,6 +99,11 @@ static Object *copy(Object *self, Heap *heap, Error *err)
 	return (Object*) ls2;
 }
 
+TypeObject *Object_GetListType()
+{
+	return &t_list;
+}
+
 Object *Object_NewList(int capacity, Heap *heap, Error *error)
 {
 	// Handle default args.

src/lib/objects/o_map.c

@@ -108,6 +108,11 @@ static int hash(Object *self)
 	return h;
 }
 
+TypeObject *Object_GetMapType()
+{
+	return &t_map;
+}
+
 Object *Object_NewMap(int num, Heap *heap, Error *error)
 {
 	// Handle default args.

src/lib/objects/o_none.c

@@ -52,6 +52,11 @@ static Object the_none_object = {
 	.flags = Object_STATIC,
 };
 
+TypeObject *Object_GetNoneType()
+{
+	return &t_none;
+}
+
 _Bool Object_IsNone(Object *obj)
 {
 	return obj == &the_none_object;

src/lib/objects/o_string.c

@@ -134,6 +134,11 @@ static char *to_string(Object *self, int *size, Heap *heap, Error *err)
 	return s->body;
 }
 
+TypeObject *Object_GetStringType()
+{
+	return &t_string;
+}
+
 Object *Object_FromString(const char *str, int len, Heap *heap, Error *error)
 {
 	assert(str != NULL);

src/lib/objects/objects.c

@@ -41,6 +41,11 @@ TypeObject t_type = {
 	.op_eql = op_eql,
 };
 
+TypeObject *Object_GetTypeType()
+{
+	return &t_type;
+}
+
 static _Bool op_eql(Object *self, Object *other)
 {
 	return self == other;

src/lib/objects/objects.h

@@ -149,6 +149,18 @@ Object*		 Object_FromString(const char *str, int len, Heap *heap, Error *error);
 Object*		 Object_FromStream(FILE *fp, Heap *heap, Error *error);
 Object* 	 Object_FromDIR(DIR *handle, Heap *heap, Error *error);
 
+TypeObject *Object_GetTypeType();
+TypeObject *Object_GetNoneType();
+TypeObject *Object_GetIntType();
+TypeObject *Object_GetBoolType();
+TypeObject *Object_GetFloatType();
+TypeObject *Object_GetStringType();
+TypeObject *Object_GetListType();
+TypeObject *Object_GetMapType();
+TypeObject *Object_GetBufferType();
+TypeObject *Object_GetFileType();
+TypeObject *Object_GetDirType();
+
 _Bool Object_IsNone(Object *obj);
 _Bool Object_IsInt(Object *obj);
 _Bool Object_IsBool(Object *obj);

src/lib/runtime/o_staticmap.c

@@ -83,7 +83,7 @@ static int hash(Object *self)
 	return 0;
 }
 
-Object *Object_NewStaticMap(const StaticMapSlot *slots, Runtime *runt, Error *error)
+Object *Object_NewStaticMap(StaticMapSlot slots[], void (*initfn)(StaticMapSlot[]), Runtime *runt, Error *error)
 {
 	Heap *heap = Runtime_GetHeap(runt);
 
@@ -97,6 +97,9 @@ Object *Object_NewStaticMap(const StaticMapSlot *slots, Runtime *runt, Error *er
 		obj->slots = slots;
 	}
 
+	if(initfn != NULL)
+		initfn(slots);
+
 	return (Object*) obj;
 }
 
@@ -130,7 +133,7 @@ static Object *select(Object *self, Object *key, Heap *heap, Error *error)
 				case SM_FLOAT: return Object_FromFloat(slot.as_float, heap, error);
 				case SM_FUNCT: return Object_FromNativeFunction(map->runt, slot.as_funct, slot.argc, heap, error);
 				case SM_STRING: return Object_FromString(slot.as_string, slot.length, heap, error);
-				case SM_SMAP: return Object_NewStaticMap(slot.as_smap, map->runt, error);
+				case SM_SMAP: return Object_NewStaticMap(slot.as_smap, NULL, map->runt, error);
 				case SM_NONE: return Object_NewNone(heap, error);
 				case SM_TYPE: return (Object*) slot.as_type;
 				default: assert(0); break;

src/lib/runtime/runtime.h

@@ -74,18 +74,18 @@ struct StaticMapSlot {
     const char       *name;
     StaticMapSlotKind kind; 
     union {
-        const StaticMapSlot *as_smap;
-        const char          *as_string;
-        _Bool                as_bool;
-        long long int        as_int;
-        double               as_float;
-        int                (*as_funct)(Runtime*, Object**, unsigned int, Object**, unsigned int, Error*);
-        TypeObject          *as_type;
+        StaticMapSlot *as_smap;
+        const char    *as_string;
+        _Bool          as_bool;
+        long long int  as_int;
+        double         as_float;
+        int          (*as_funct)(Runtime*, Object**, unsigned int, Object**, unsigned int, Error*);
+        TypeObject    *as_type;
     };
     union { int argc; int length; };
 };
 
-Object *Object_NewStaticMap(const StaticMapSlot *slots, Runtime *runt, Error *error);
+Object *Object_NewStaticMap(StaticMapSlot slots[], void (*initfn)(StaticMapSlot[]), Runtime *runt, Error *error);
 Object *Object_FromNojaFunction(Runtime *runtime, Executable *exe, int index, int argc, Object *closure, Heap *heap, Error *error);
 Object *Object_FromNativeFunction(Runtime *runtime, int (*callback)(Runtime*, Object**, unsigned int, Object**, unsigned int, Error*), int argc, Heap *heap, Error *error);
 typedef struct {