cleanups and more test cases

2022-08-12 05:30:41 +02:00
parent f630830b3c
commit 18e936f0ad
145 changed files with 1445 additions and 234 deletions
@@ -0,0 +1,83 @@
+
+/* +--------------------------------------------------------------------------+
+** |                          _   _       _                                   |
+** |                         | \ | |     (_)                                  |
+** |                         |  \| | ___  _  __ _                             |
+** |                         | . ` |/ _ \| |/ _` |                            |
+** |                         | |\  | (_) | | (_| |                            |
+** |                         |_| \_|\___/| |\__,_|                            |
+** |                                    _/ |                                  |
+** |                                   |__/                                   |
+** +--------------------------------------------------------------------------+
+** | Copyright (c) 2022 Francesco Cozzuto <francesco.cozzuto@gmail.com>       |
+** +--------------------------------------------------------------------------+
+** | This file is part of The Noja Interpreter.                               |
+** |                                                                          |
+** | The Noja Interpreter is free software: you can redistribute it and/or    |
+** | modify it under the terms of the GNU General Public License as published |
+** | by the Free Software Foundation, either version 3 of the License, or (at |
+** | your option) any later version.                                          |
+** |                                                                          |
+** | The Noja Interpreter is distributed in the hope that it will be useful,  |
+** | but WITHOUT ANY WARRANTY; without even the implied warranty of           |
+** | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General |
+** | Public License for more details.                                         |
+** |                                                                          |
+** | You should have received a copy of the GNU General Public License along  |
+** | with The Noja Interpreter. If not, see <http://www.gnu.org/licenses/>.   |
+** +--------------------------------------------------------------------------+ 
+*/
+
+#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;
+}