/* +--------------------------------------------------------------------------+
** |                          _   _       _                                   |
** |                         | \ | |     (_)                                  |
** |                         |  \| | ___  _  __ _                             |
** |                         | . ` |/ _ \| |/ _` |                            |
** |                         | |\  | (_) | | (_| |                            |
** |                         |_| \_|\___/| |\__,_|                            |
** |                                    _/ |                                  |
** |                                   |__/                                   |
** +--------------------------------------------------------------------------+
** | 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,
};

TypeObject *Object_GetFileType()
{
	return &t_file;
}

_Bool Object_IsFile(Object *obj)
{
	return obj->type == &t_file;
}

FILE *Object_GetStream(Object *obj)
{
	if(!Object_IsDir(obj)) {
		Error_Panic("%s expected a file object, but an %s "
			        "was provided", __func__,  Object_GetName(obj));
		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;
}