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

adding print-il target to make it easier for me to debug and see how things are being translated

Browse Source
This commit is contained in:
Danny Yoo 2012-02-28 18:58:14 -05:00
parent 83f6db4211
commit 1e152258f7
2 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
whalesong-cmd.rkt
View File

@ -118,6 +118,26 @@
(build-standalone-xhtml path)
(build-html-and-javascript path)))]
["print-il" "print the intermediate translation of a module"
"Prints the intermediate translation of a module; used for debugging purposes."
#:once-each
[("-v" "--verbose")
("Display verbose messages.")
(current-verbose? #t)]
[("--debug-show-timings")
("Display debug messages about compilation time.")
(current-timing-port (current-output-port))]
[("--enable-profiling")
("Enable profiling to standard output")
(with-profiling? #t)]
[("--root-dir")
root-path
("Set the root package path (default: current-directory)")
(set-root-path! root-path)]
#:args (path)
(maybe-with-profiling
(print-il path))]
["get-runtime" "print the runtime library to standard output"
"Prints the runtime JavaScript library that's used by Whalesong programs."
#:once-each

15
whalesong-helpers.rkt
View File

@ -6,6 +6,10 @@
racket/port
racket/date
racket/runtime-path
racket/pretty
"parser/parse-bytecode.rkt"
"compiler/compiler.rkt"
"compiler/compiler-structs.rkt"
"make/make-structs.rkt"
"js-assembler/package.rkt"
"resource/structs.rkt"
@ -262,5 +266,16 @@
(current-output-port)))))
(define (print-il filename)
(with-catchall-exception-handler
(lambda ()
(turn-on-logger!)
(define path (normalize-path (build-path filename)))
(define bytecode (parse-bytecode path))
(define translation (compile bytecode 'val return-linkage))
(pretty-print translation))))
(define (print-version)
(printf "~a\n" (this-package-version)))