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

whalesong-cmd.rkt

@@ -117,6 +117,26 @@
              (if (as-standalone-html?)
                  (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."

whalesong-helpers.rkt

@@ -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)))