suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: vfasl for Windows and Unix variants

Browse Source
This commit is contained in:
Matthew Flatt 2018-12-31 11:24:35 -07:00
parent 47d42d88cb
commit 21bbf1b42e
3 changed files with 40 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
racket/src/cs/c/Makefile.in
View File

@ -153,11 +153,11 @@ racket.boot: racket.so
EMBED_DEPS = $(srcdir)/embed-boot.rkt
racketcs@NOT_OSX@: raw_racketcs racket.boot $(EMBED_DEPS)
$(BOOTSTRAP_RACKET) $(srcdir)/embed-boot.rkt @ELF_COMP@ @COMPRESS_COMP@ raw_racketcs racketcs $(SCHEME_INC) racket.boot
racketcs@NOT_OSX@: raw_racketcs petite-v.boot scheme-v.boot racket-v.boot $(EMBED_DEPS)
$(BOOTSTRAP_RACKET) $(srcdir)/embed-boot.rkt @ELF_COMP@ @COMPRESS_COMP@ raw_racketcs racketcs petite-v.boot scheme-v.boot racket-v.boot
gracketcs@NOT_OSX@: raw_gracketcs racket.boot $(EMBED_DEPS)
$(BOOTSTRAP_RACKET) $(srcdir)/embed-boot.rkt @ELF_COMP@ @COMPRESS_COMP@ raw_gracketcs gracketcs $(SCHEME_INC) racket.boot
gracketcs@NOT_OSX@: raw_gracketcs petite-v.boot scheme-v.boot racket-v.boot $(EMBED_DEPS)
$(BOOTSTRAP_RACKET) $(srcdir)/embed-boot.rkt @ELF_COMP@ @COMPRESS_COMP@ raw_gracketcs gracketcs petite-v.boot scheme-v.boot racket-v.boot
BOOT_OBJS = boot.o $(SCHEME_INC)/kernel.o rktio/librktio.a
@ -167,6 +167,15 @@ raw_racketcs: main.o boot.o $(BOOT_OBJS)
raw_gracketcs: grmain.o boot.o $(BOOT_OBJS)
$(CC) $(CFLAGS) -o raw_gracketcs grmain.o $(BOOT_OBJS) $(LDFLAGS) $(LIBS)
petite-v.boot: $(SCHEME_INC)/petite.boot
$(SCHEME) --script $(srcdir)/to-vfasl.ss @COMPRESS_COMP@ $(SCHEME_INC)/petite.boot petite-v.boot
scheme-v.boot: $(SCHEME_INC)/scheme.boot
$(SCHEME) --script $(srcdir)/to-vfasl.ss @COMPRESS_COMP@ $(SCHEME_INC)/scheme.boot scheme-v.boot petite
racket-v.boot: racket.boot
$(SCHEME) --script $(srcdir)/to-vfasl.ss @COMPRESS_COMP@ racket.boot racket-v.boot petite scheme
# ----------------------------------------
# Mac OS

6
racket/src/cs/c/embed-boot.rkt
View File

@ -18,10 +18,10 @@
#:multi
[("++exe") src dest "Select an alternative executable"
(set! alt-dests (cons (cons src dest) alt-dests))]
#:args (src-file dest-file boot-dir racket.boot)
#:args (src-file dest-file petite.boot scheme.boot racket.boot)
(define bstr1 (adjust-compress (file->bytes (build-path boot-dir "petite.boot"))))
(define bstr2 (adjust-compress (file->bytes (build-path boot-dir "scheme.boot"))))
(define bstr1 (adjust-compress (file->bytes petite.boot)))
(define bstr2 (adjust-compress (file->bytes scheme.boot)))
(define bstr3 (adjust-compress (file->bytes racket.boot)))
(with-handlers ([exn? (lambda (x)

26
racket/src/worksp/csbuild.rkt
View File

@ -198,6 +198,27 @@
"../build/racket.so"
"../build/racket.boot")
(system*! scheme
"--script"
"../cs/c/to-vfasl.ss"
(build-path scheme-dir machine "boot" machine "petite.boot")
"../build/petite-v.boot")
(system*! scheme
"--script"
"../cs/c/to-vfasl.ss"
(build-path scheme-dir machine "boot" machine "scheme.boot")
"../build/scheme-v.boot"
"petite")
(system*! scheme
"--script"
"../cs/c/to-vfasl.ss"
"../build/racket.boot"
"../build/racket-v.boot"
"petite"
"scheme")
(system*! (find-exe)
"-O" "info@compiler/cm"
"-l-" "setup" boot-mode "../setup-go.rkt" "..//build/compiled"
@ -206,8 +227,9 @@
"++exe" "../build/raw_racketcs.exe" (format "../../Racket~a.exe" cs-suffix)
"++exe" "../build/raw_gracketcs.exe" (format "../../lib/GRacket~a.exe" cs-suffix)
"../build/raw_libracketcs.dll" "../../lib/libracketcsxxxxxxx.dll"
(build-path scheme-dir machine "boot" machine)
"../build/racket.boot")
"../build/petite-v.boot"
"../build/scheme-v.boot"
"../build/racket-v.boot")
(system*! "mt"
"-manifest" "racket/racket.manifest"