From 1e152258f7394d8bc65c56a456d68d76b6ff9e29 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Tue, 28 Feb 2012 18:58:14 -0500
Subject: [PATCH] adding print-il target to make it easier for me to debug and
 see how things are being translated

---
 whalesong-cmd.rkt     | 20 ++++++++++++++++++++
 whalesong-helpers.rkt | 15 +++++++++++++++
 2 files changed, 35 insertions(+)

diff --git a/whalesong-cmd.rkt b/whalesong-cmd.rkt
index 8b86882..9450e2b 100644
--- a/whalesong-cmd.rkt
+++ b/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."
diff --git a/whalesong-helpers.rkt b/whalesong-helpers.rkt
index e29df7a..4395d69 100644
--- a/whalesong-helpers.rkt
+++ b/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)))
\ No newline at end of file