conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

file functions should return file-error

This commit is contained in:
Yuichi Nishiwaki 2014-07-29 17:45:40 +09:00
parent b61ad3f0bb
commit d9958143e3
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/file.c
View File

@ -4,6 +4,13 @@
#include "picrin.h"
#include "picrin/port.h"
#include "picrin/error.h"
static noreturn void
file_error(pic_state *pic, const char *msg)
{
pic_throw(pic, PIC_ERROR_FILE, msg, pic_nil_value());
}
static pic_value
generic_open_file(pic_state *pic, const char *fname, char *mode, short flags)
@ -13,7 +20,7 @@ generic_open_file(pic_state *pic, const char *fname, char *mode, short flags)
file = xfopen(fname, mode);
if (! file) {
pic_error(pic, "could not open file");
file_error(pic, "could not open file");
}
port = (struct pic_port *)pic_obj_alloc(pic, sizeof(struct pic_port), PIC_TT_PORT);
@ -93,7 +100,7 @@ pic_file_delete(pic_state *pic)
pic_get_args(pic, "z", &fname);
if (remove(fname) != 0) {
pic_error(pic, "file cannot be deleted");
file_error(pic, "file cannot be deleted");
}
return pic_none_value();
}