(ns leiningen.run

"Run a -main function with optional command-line arguments."

(:require [leiningen.core.eval :as eval]

[leiningen.core.main :as main])

(:import (java.io FileNotFoundException)

(clojure.lang Reflector)))

(defn- normalize-main [given]

(if (namespace (symbol given))

(symbol given)

(symbol (name given) "-main")))

(defn run-form

"Construct a form to run the given main defn or class with arguments."

[given args]

`(let [v# (resolve '~(normalize-main given))]

(if (ifn? v#)

(v# ~@args)

(Reflector/invokeStaticMethod

~(name given) "main" (into-array [(into-array String '~args)])))))

(defn- run-main

"Loads the project namespaces as well as all its dependencies and then calls

[project given & args]

(try (eval/eval-in-project project (run-form given args)

`(try (require '~(symbol (namespace

(normalize-main given))))

(catch FileNotFoundException _#)))

(catch clojure.lang.ExceptionInfo e

(main/abort))))

(defn ^{:help-arglists '([])} run

"Run the project's -main function.

[project & [flag & args :as all-args]]

(let [all-args (if (= flag "--") args all-args)]

(cond (= flag "-m") (if (first args)

(apply run-main project args)

(main/abort "Option -m requires a namespace argument."))

(:main project) (apply run-main project (:main project) all-args)

:else (main/abort "No :main namespace specified in project.clj."))))