From 3386c87c759eab050879ea58274a7992ffe01ef7 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Tue, 8 Nov 2011 13:36:31 -0500
Subject: [PATCH] adding version

---
 whalesong-cmd.rkt     |  4 ++++
 whalesong-helpers.rkt |  5 +++++
 whalesong.rkt         | 11 +++++++++--
 3 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/whalesong-cmd.rkt b/whalesong-cmd.rkt
index a2a1dec..9177b3a 100644
--- a/whalesong-cmd.rkt
+++ b/whalesong-cmd.rkt
@@ -63,6 +63,10 @@
    #:program "whalesong"
    #:argv (current-command-line-arguments)
    "The Whalesong command-line tool for compiling Racket to JavaScript"
+   ["version" "Print the current version"
+    "Print the current version"
+    #:args ()
+    (print-version)]
    ["build" "build a standalone html and javascript package" 
             "Builds a Racket program and its required dependencies into a .html and .js file."
             #:once-each
diff --git a/whalesong-helpers.rkt b/whalesong-helpers.rkt
index 6c70e20..bdde5bd 100644
--- a/whalesong-helpers.rkt
+++ b/whalesong-helpers.rkt
@@ -11,6 +11,7 @@
          "resource/structs.rkt"
          "logger.rkt"
          "parameters.rkt"
+         planet/version
          (for-syntax racket/base))
 
 (provide (all-defined-out))
@@ -257,3 +258,7 @@
                (make-MainModuleSource 
                 (normalize-path (build-path filename))))
               (current-output-port)))))
+
+
+(define (print-version)
+  (printf "~a\n" (this-package-version)))
\ No newline at end of file
diff --git a/whalesong.rkt b/whalesong.rkt
index 85750ab..99890d2 100755
--- a/whalesong.rkt
+++ b/whalesong.rkt
@@ -2,7 +2,14 @@
 #lang racket/base
 
 (require racket/runtime-path
-         racket/path)
+         racket/path
+         planet/util)
+
+;; We do things this way to ensure that we're using the latest
+;; version of whalesong that's installed, and that the load-relative
+;; path is in terms of the normalized paths, to avoid a very strange
+;; low-level bug.
+(define whalesong.cmd
+  (resolve-planet-path '(planet dyoo/whalesong/whalesong-cmd)))
 
-(define-runtime-path whalesong.cmd "whalesong-cmd.rkt")
 (dynamic-require (normalize-path whalesong.cmd) #f)
\ No newline at end of file