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

generate better load error message

This commit is contained in:
Sunrim KIM (keen) 2014-08-11 11:12:32 +09:00
parent bd98dda5d0
commit 51a2a95bc1
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
etc/mkloader.pl
View File

@ -1,6 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use strict; use strict;
use File::Basename qw/basename dirname/;
print <<EOL; print <<EOL;
/** /**
@ -34,22 +35,26 @@ print <<EOL;
void void
pic_load_piclib(pic_state *pic) pic_load_piclib(pic_state *pic)
{ {
pic_try {
EOL EOL
foreach my $file (@ARGV) { foreach my $file (@ARGV) {
print " pic_try {\n";
my $var = &escape_v($file); my $var = &escape_v($file);
my $basename = basename($file);
my $dirname = basename(dirname($file));
print " pic_load_cstr(pic, $var);\n"; print " pic_load_cstr(pic, $var);\n";
} print<<EOL
print <<EOL;
} }
pic_catch { pic_catch {
/* error! */ /* error! */
fputs("fatal error: failure in loading built-in.scm\\n", stderr); fputs("fatal error: failure in loading $dirname/$basename\\n", stderr);
fputs(pic_errmsg(pic), stderr); fputs(pic_errmsg(pic), stderr);
abort(); abort();
} }
EOL
}
print <<EOL;
#if DEBUG #if DEBUG
puts("successfully loaded stdlib"); puts("successfully loaded stdlib");