aboutsummaryrefslogtreecommitdiff
path: root/ClojureCLR/Clojure/Clojure.Main/Main.cs
blob: e98d9afc98d7cb905e657d4ede4c78b671d05212 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using clojure.lang;

namespace Clojure
{
    public static class CljMain
    {
        private static readonly Symbol CLOJURE_MAIN = Symbol.intern("clojure.main");
        private static readonly Var REQUIRE = RT.var("clojure.core", "require");
        private static readonly Var LEGACY_REPL = RT.var("clojure.main", "legacy-repl");
        private static readonly Var LEGACY_SCRIPT = RT.var("clojure.main", "legacy-script");
        private static readonly Var MAIN = RT.var("clojure.main", "main");

        static void Main(string[] args)
        {
            REQUIRE.invoke(CLOJURE_MAIN);
            MAIN.applyTo(RT.seq(args));
        }

        static void legacy_repl(string[] args)
        {
            REQUIRE.invoke(CLOJURE_MAIN);
            LEGACY_REPL.invoke(RT.seq(args));

        }

        static void legacy_script(string[] args)
        {
            REQUIRE.invoke(CLOJURE_MAIN);
            LEGACY_SCRIPT.invoke(RT.seq(args));
        }


    }
}