adding version

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

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

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)