lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
upscheme/scheme-core/mkboot0.scm

25 lines
707 B
Scheme
Raw Normal View History

updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
; -*- scheme -*-
finishing initial implementation of keyword arguments fixing up interpreter so it can be used for bootstrapping again removing let/copyenv optimization because it really didn't seem to help much
2009-08-02 00:06:07 -04:00
(if (not (bound? 'top-level-value)) (set! top-level-value %eval))
(if (not (bound? 'set-top-level-value!)) (set! set-top-level-value! set))
changing semantics to respect lexical scope more strictly; now anything can be shadowed by closer nested variables fixing bugs in let-syntax and expanding optional arg default values improving expansion algorithm on internal define some small optimizations to the compiler maintaining interpreter for bootstrapping
2009-08-12 00:56:32 -04:00
(if (not (bound? 'eof-object?)) (set! eof-object? (lambda (x) #f)))
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
Store boot image inside main executable Previously the boot image was kept in the separate file "flisp.boot". This caused all kinds of problems, as bootstrapping is wont to do. The biggest problem was finding a portable and convenient pathname for it. Instead of dealing with all that stuff about how to find the file, just store the image in a huge C string constant that goes into the main executable. This necessitates adding a C-string hex dumper into the Lisp system, and making build.sh slightly more complicated, but that's a small price to pay for not having to carry a separate file everywhere we go. Also, flmain.c is a lot simpler now and we don't have to play around with symlinks.
2019-08-13 16:07:44 -04:00
(load "dump.scm")
Consolidate all Lisp files into scheme-* with .scm extension
2019-08-09 08:21:56 -04:00
;(load "compiler.scm")
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
Store boot image inside main executable Previously the boot image was kept in the separate file "flisp.boot". This caused all kinds of problems, as bootstrapping is wont to do. The biggest problem was finding a portable and convenient pathname for it. Instead of dealing with all that stuff about how to find the file, just store the image in a huge C string constant that goes into the main executable. This necessitates adding a C-string hex dumper into the Lisp system, and making build.sh slightly more complicated, but that's a small price to pay for not having to carry a separate file everywhere we go. Also, flmain.c is a lot simpler now and we don't have to play around with symlinks.
2019-08-13 16:07:44 -04:00
(define (compile-file->buffer inf)
(let ((in (file inf :read))
(out (buffer)))
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
(let next ((E (read in)))
(if (not (io.eof? in))
Store boot image inside main executable Previously the boot image was kept in the separate file "flisp.boot". This caused all kinds of problems, as bootstrapping is wont to do. The biggest problem was finding a portable and convenient pathname for it. Instead of dealing with all that stuff about how to find the file, just store the image in a huge C string constant that goes into the main executable. This necessitates adding a C-string hex dumper into the Lisp system, and making build.sh slightly more complicated, but that's a small price to pay for not having to carry a separate file everywhere we go. Also, flmain.c is a lot simpler now and we don't have to play around with symlinks.
2019-08-13 16:07:44 -04:00
(begin (write (compile-thunk (expand E)) out)
(newline out)
Clean up whitespace - Tabs to spaces - Remove invisible whitespace at ends of lines - Break or shorten long lines (not for all files)
2019-08-09 10:18:36 -04:00
(next (read in)))))
Store boot image inside main executable Previously the boot image was kept in the separate file "flisp.boot". This caused all kinds of problems, as bootstrapping is wont to do. The biggest problem was finding a portable and convenient pathname for it. Instead of dealing with all that stuff about how to find the file, just store the image in a huge C string constant that goes into the main executable. This necessitates adding a C-string hex dumper into the Lisp system, and making build.sh slightly more complicated, but that's a small price to pay for not having to carry a separate file everywhere we go. Also, flmain.c is a lot simpler now and we don't have to play around with symlinks.
2019-08-13 16:07:44 -04:00
(io.close in)
(io.seek out 0)
out))
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
(for-each (lambda (file)
Store boot image inside main executable Previously the boot image was kept in the separate file "flisp.boot". This caused all kinds of problems, as bootstrapping is wont to do. The biggest problem was finding a portable and convenient pathname for it. Instead of dealing with all that stuff about how to find the file, just store the image in a huge C string constant that goes into the main executable. This necessitates adding a C-string hex dumper into the Lisp system, and making build.sh slightly more complicated, but that's a small price to pay for not having to carry a separate file everywhere we go. Also, flmain.c is a lot simpler now and we don't have to play around with symlinks.
2019-08-13 16:07:44 -04:00
(dump-buffer-as-c-literal (compile-file->buffer file)))
Clean up whitespace - Tabs to spaces - Remove invisible whitespace at ends of lines - Break or shorten long lines (not for all files)
2019-08-09 10:18:36 -04:00
(cdr *argv*))