added statis map object and used it to implement builtins. Also, new objects File and Directory

src/objects/o_buffer.c

@@ -52,6 +52,11 @@ static TypeObject t_buffer_slice = {
 
 #define THRESHOLD 128
 
+_Bool Object_IsBuffer(Object *obj)
+{
+	return obj->type == &t_buffer_slice || obj->type == &t_buffer;
+}
+
 Object *Object_NewBuffer(int size, Heap *heap, Error *error)
 {
 	assert(size >= 0);

src/objects/o_dir.c

@@ -0,0 +1,53 @@
+#include "objects.h"
+
+typedef struct {
+	Object base;
+	DIR *dir;
+} DirObject;
+
+static _Bool dir_free(Object *obj, Error *error);
+
+static TypeObject t_dir = {
+	.base = (Object) { .type = &t_type, .flags = Object_STATIC },
+	.name = "Directory",
+	.size = sizeof(DirObject),
+	.free = dir_free,
+};
+
+_Bool Object_IsDir(Object *obj)
+{
+	return obj->type == &t_dir;
+}
+
+Object *Object_FromDIR(DIR *handle, Heap *heap, Error *error)
+{
+	DirObject *dob = (DirObject*) Heap_Malloc(heap, &t_dir, error);
+
+	if(dob == NULL)
+		return NULL;
+
+	dob->dir = handle;
+
+	return (Object*) dob;
+}
+
+DIR *Object_ToDIR(Object *obj, Error *error)
+{
+	if(!Object_IsDir(obj))
+		{
+			Error_Report(error, 0, "Object is not a directory");
+			return NULL;
+		}
+
+	return ((DirObject*) obj)->dir;
+}
+
+static _Bool dir_free(Object *obj, Error *error)
+{
+	DirObject *dob = (DirObject*) obj;
+	if(closedir(dob->dir) == 0)
+		return 1;
+
+	Error_Report(error, 0, "Failed to close directory");
+	return 0;
+}

src/objects/o_file.c

@@ -0,0 +1,53 @@
+#include "objects.h"
+
+typedef struct {
+	Object base;
+	FILE *fp;
+} FileObject;
+
+static _Bool file_free(Object *self, Error *error);
+
+static TypeObject t_file = {
+	.base = (Object) { .type = &t_type, .flags = Object_STATIC },
+	.name = "File",
+	.size = sizeof(FileObject),
+	.free = file_free,
+};
+
+_Bool Object_IsFile(Object *obj)
+{
+	return obj->type == &t_file;
+}
+
+FILE *Object_ToStream(Object *obj, Error *error)
+{
+	if(!Object_IsFile(obj))
+		{
+			Error_Report(error, 0, "Object is not a file");
+			return NULL;
+		}
+
+	return ((FileObject*) obj)->fp;
+}
+
+Object *Object_FromStream(FILE *fp, Heap *heap, Error *error)
+{
+	FileObject *fob = Heap_Malloc(heap, &t_file, error);
+
+	if(fob == NULL)
+		return NULL;
+
+	fob->fp = fp;
+
+	return (Object*) fob;
+}
+
+static _Bool file_free(Object *self, Error *error)
+{	
+	FileObject *fob = (FileObject*) self;
+	if(fclose(fob->fp) == 0)
+		return 1;
+
+	Error_Report(error, 0, "Failed to close stream");
+	return 0;
+}

src/objects/o_none.c

@@ -22,6 +22,11 @@ static Object the_none_object = {
 	.flags = Object_STATIC,
 };
 
+_Bool Object_IsNone(Object *obj)
+{
+	return obj == &the_none_object;
+}
+
 static int hash(Object *self)
 {
 	assert(self == &the_none_object);

src/objects/objects.h

@@ -1,6 +1,7 @@
 #ifndef OBJECT_H
 #define OBJECT_H
 
+#include <dirent.h>
 #include <stdio.h>
 #include "../utils/error.h"
 
@@ -115,18 +116,27 @@ Object*		 Object_FromInt   (long long int val, Heap *heap, Error *error);
 Object*		 Object_FromBool  (_Bool		 val, Heap *heap, Error *error);
 Object*		 Object_FromFloat (double 		 val, Heap *heap, Error *error);
 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);
 
-_Bool		 Object_IsInt  (Object *obj);
-_Bool		 Object_IsBool (Object *obj);
-_Bool		 Object_IsFloat(Object *obj);
-_Bool		 Object_IsString(Object *obj);
+_Bool Object_IsNone(Object *obj);
+_Bool Object_IsInt(Object *obj);
+_Bool Object_IsBool(Object *obj);
+_Bool Object_IsFloat(Object *obj);
+_Bool Object_IsString(Object *obj);
+_Bool Object_IsBuffer(Object *obj);
+_Bool Object_IsFile(Object *obj);
+_Bool Object_IsDir(Object *obj);
 
 long long int Object_ToInt  (Object *obj, Error *err);
 _Bool 		  Object_ToBool (Object *obj, Error *err);
 double		  Object_ToFloat(Object *obj, Error *err);
 const char	 *Object_ToString(Object *obj, int *size, Heap *heap, Error *err);
+DIR    		 *Object_ToDIR(Object *obj, Error *error);
+FILE   		 *Object_ToStream(Object *obj, Error *error);
 
 _Bool 		  Object_Compare(Object *obj1, Object *obj2, Error *error);
 
+
 extern TypeObject t_type;
 #endif