admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

fclose input file

Browse Source
This commit is contained in:
Yukihiro "Matz" Matsumoto
2013-11-13 14:44:02 +09:00
parent ca704e5438
commit 08e6bd47a0
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/mrbc/mrbc.c
+9 -3
View File
@@ -187,6 +187,7 @@ load_file(mrb_state *mrb, struct mrbc_args *args)
mrb_value result;
char *input = args->argv[args->idx];
FILE *infile;
int need_close = FALSE;
c = mrbc_context_new(mrb);
if (args->verbose)
@@ -195,17 +196,22 @@ load_file(mrb_state *mrb, struct mrbc_args *args)
if (input[0] == '-' && input[1] == '\0') {
infile = stdin;
}
else if ((infile = fopen(input, "r")) == NULL) {
fprintf(stderr, "%s: cannot open program file. (%s)\n", args->prog, input);
return mrb_nil_value();
else {
need_close = TRUE;
if ((infile = fopen(input, "r")) == NULL) {
fprintf(stderr, "%s: cannot open program file. (%s)\n", args->prog, input);
return mrb_nil_value();
}
}
mrbc_filename(mrb, c, input);
args->idx++;
if (args->idx < args->argc) {
need_close = FALSE;
mrbc_partial_hook(mrb, c, partial_hook, (void*)args);
}
result = mrb_load_file_cxt(mrb, infile, c);
if (need_close) fclose(infile);
if (mrb_undef_p(result) || mrb_fixnum(result) < 0) {
mrbc_context_free(mrb, c);
return mrb_nil_value();