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

add local variables list

This commit is contained in:
Yuichi Nishiwaki 2014-09-10 13:27:38 +09:00
parent e6a2af0bf6
commit 654bc2c2d6
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
boot.c
View File

@ -2,19 +2,6 @@
use strict; use strict;
open IN, "./boot.c";
my @data = <IN>;
close IN;
open STDOUT, ">", "./boot.c";
foreach (@data) {
print;
last if $_ eq "#---END---\n";
}
print "\n#endif\n\n";
my $src = <<'EOL'; my $src = <<'EOL';
(define-library (picrin base) (define-library (picrin base)
@ -360,6 +347,19 @@ my $src = <<'EOL';
EOL EOL
open IN, "./boot.c";
my @data = <IN>;
close IN;
open STDOUT, ">", "./boot.c";
foreach (@data) {
print;
last if $_ eq "#---END---\n";
}
print "\n#endif\n\n";
print <<EOL; print <<EOL;
const char pic_boot[] = const char pic_boot[] =
EOL EOL
@ -376,6 +376,10 @@ print <<EOL;
; ;
#if 0 #if 0
Local Variables:
mode: scheme
End:
=cut =cut
#endif #endif
EOL EOL
@ -731,5 +735,9 @@ const char pic_boot[] =
; ;
#if 0 #if 0
Local Variables:
mode: scheme
End:
=cut =cut
#endif #endif