|
rlm@10
|
1 /**
|
|
rlm@10
|
2 * Copyright (c) Rich Hickey. All rights reserved.
|
|
rlm@10
|
3 * The use and distribution terms for this software are covered by the
|
|
rlm@10
|
4 * Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
|
|
rlm@10
|
5 * which can be found in the file epl-v10.html at the root of this distribution.
|
|
rlm@10
|
6 * By using this software in any fashion, you are agreeing to be bound by
|
|
rlm@10
|
7 * the terms of this license.
|
|
rlm@10
|
8 * You must not remove this notice, or any other, from this software.
|
|
rlm@10
|
9 **/
|
|
rlm@10
|
10
|
|
rlm@10
|
11 package clojure;
|
|
rlm@10
|
12
|
|
rlm@10
|
13 import clojure.lang.Symbol;
|
|
rlm@10
|
14 import clojure.lang.Var;
|
|
rlm@10
|
15 import clojure.lang.RT;
|
|
rlm@10
|
16
|
|
rlm@10
|
17 public class main{
|
|
rlm@10
|
18
|
|
rlm@10
|
19 final static private Symbol CLOJURE_MAIN = Symbol.intern("clojure.main");
|
|
rlm@10
|
20 final static private Var REQUIRE = RT.var("clojure.core", "require");
|
|
rlm@10
|
21 final static private Var LEGACY_REPL = RT.var("clojure.main", "legacy-repl");
|
|
rlm@10
|
22 final static private Var LEGACY_SCRIPT = RT.var("clojure.main", "legacy-script");
|
|
rlm@10
|
23 final static private Var MAIN = RT.var("clojure.main", "main");
|
|
rlm@10
|
24
|
|
rlm@10
|
25 public static void legacy_repl(String[] args) throws Exception{
|
|
rlm@10
|
26 REQUIRE.invoke(CLOJURE_MAIN);
|
|
rlm@10
|
27 LEGACY_REPL.invoke(RT.seq(args));
|
|
rlm@10
|
28 }
|
|
rlm@10
|
29
|
|
rlm@10
|
30 public static void legacy_script(String[] args) throws Exception{
|
|
rlm@10
|
31 REQUIRE.invoke(CLOJURE_MAIN);
|
|
rlm@10
|
32 LEGACY_SCRIPT.invoke(RT.seq(args));
|
|
rlm@10
|
33 }
|
|
rlm@10
|
34
|
|
rlm@10
|
35 public static void main(String[] args) throws Exception{
|
|
rlm@10
|
36 REQUIRE.invoke(CLOJURE_MAIN);
|
|
rlm@10
|
37 MAIN.applyTo(RT.seq(args));
|
|
rlm@10
|
38 }
|
|
rlm@10
|
39 }
|
