1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/clojure/main.java	Sat Aug 21 06:25:44 2010 -0400
     1.3 @@ -0,0 +1,39 @@
     1.4 +/**
     1.5 + *   Copyright (c) Rich Hickey. All rights reserved.
     1.6 + *   The use and distribution terms for this software are covered by the
     1.7 + *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
     1.8 + *   which can be found in the file epl-v10.html at the root of this distribution.
     1.9 + *   By using this software in any fashion, you are agreeing to be bound by
    1.10 + * 	 the terms of this license.
    1.11 + *   You must not remove this notice, or any other, from this software.
    1.12 + **/
    1.13 +
    1.14 +package clojure;
    1.15 +
    1.16 +import clojure.lang.Symbol;
    1.17 +import clojure.lang.Var;
    1.18 +import clojure.lang.RT;
    1.19 +
    1.20 +public class main{
    1.21 +
    1.22 +final static private Symbol CLOJURE_MAIN = Symbol.intern("clojure.main");
    1.23 +final static private Var REQUIRE = RT.var("clojure.core", "require");
    1.24 +final static private Var LEGACY_REPL = RT.var("clojure.main", "legacy-repl");
    1.25 +final static private Var LEGACY_SCRIPT = RT.var("clojure.main", "legacy-script");
    1.26 +final static private Var MAIN = RT.var("clojure.main", "main");
    1.27 +
    1.28 +public static void legacy_repl(String[] args) throws Exception{
    1.29 +    REQUIRE.invoke(CLOJURE_MAIN);
    1.30 +    LEGACY_REPL.invoke(RT.seq(args));
    1.31 +}
    1.32 +
    1.33 +public static void legacy_script(String[] args) throws Exception{
    1.34 +    REQUIRE.invoke(CLOJURE_MAIN);
    1.35 +    LEGACY_SCRIPT.invoke(RT.seq(args));
    1.36 +}
    1.37 +
    1.38 +public static void main(String[] args) throws Exception{
    1.39 +    REQUIRE.invoke(CLOJURE_MAIN);
    1.40 +    MAIN.applyTo(RT.seq(args));
    1.41 +}
    1.42 +}