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