Permalink
Fetching contributors…
Cannot retrieve contributors at this time
27 lines (23 sloc) 1.08 KB
; Copyright (c) Rich Hickey. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
; which can be found in the file epl-v10.html at the root of this distribution.
; By using this software in any fashion, you are agreeing to be bound by
; the terms of this license.
; You must not remove this notice, or any other, from this software.
(require '[cljs.closure :as closure])
(defn transform-cl-args
[args]
(let [source (first args)
opts-string (apply str (interpose " " (rest args)))
options (when (> (count opts-string) 1)
(try (read-string opts-string)
(catch Exception e
(binding [*out* *err*]
(println "Failed to parse command line args:" e)))))]
{:source source :options (merge {:output-to :print} options)}))
(let [args (transform-cl-args *command-line-args*)]
(closure/build (:source args) (:options args))
(.flush *out*)
(shutdown-agents)
(System/exit 0))