Removing ClojureCLR (Moved to http://github.com/richhickey/clojure-clr)

1 files changed, 0 insertions, 108 deletions

diff --git a/ClojureCLR/Clojure/Simple.Console/SimpleConsole.cs b/ClojureCLR/Clojure/Simple.Console/SimpleConsole.cs
deleted file mode 100644
index 357cd02d..00000000
--- a/ClojureCLR/Clojure/Simple.Console/SimpleConsole.cs
+++ /dev/null
@@ -1,108 +0,0 @@
-using System;

-using System.Collections.Generic;

-using System.Linq;

-using System.Text;

-using clojure.lang;

-using System.Diagnostics;

-using System.IO;

-using Microsoft.Linq.Expressions;

-using Microsoft.Scripting.Generation;

-

-namespace clojure.console

-{

-    class SimpleConsole

-    {

-        static void Main(string[] args)

-        {

-            new SimpleConsole().Run();

-        }

-

-

-

-        private void Run()

-        {

-            Initialize();

-            RunInteractiveLoop();

-        }

-

-

-        private void Initialize()

-        {

-            Stopwatch sw = new Stopwatch();

-            sw.Start();

-

-            Var.pushThreadBindings(

-                RT.map(RT.CURRENT_NS, RT.CURRENT_NS.deref()));

-            try

-            {

-

-

-                //LoadFromStream(new StringReader(clojure.lang.Properties.Resources.core),false);

-                //RT.load("/core");

-                //LoadFromStream(new StringReader(clojure.lang.Properties.Resources.core_print), false);

-                //LoadFromStream(new StringReader(clojure.lang.Properties.Resources.test), false);

-

-            }

-            finally

-            {

-                Var.popThreadBindings();

-            }

-

-            sw.Stop();

-            Console.WriteLine("Loading took {0} milliseconds.", sw.ElapsedMilliseconds);

-

-        }

-

-        public object LoadFromStream(PushbackTextReader rdr, bool addPrint)

-        {

-            object ret = null;

-            object eofVal = new object();

-            object form;

-            while ((form = LispReader.read(rdr, false, eofVal, false)) != eofVal)

-            {

-                try

-                {

-                    LambdaExpression ast = Compiler.GenerateLambda(form, addPrint);

-                    ret = ast.Compile().DynamicInvoke();

-                }

-                catch (Exception ex)

-                {

-                    if (addPrint)

-                    {

-                        Exception root = ex;

-                        while (root.InnerException != null)

-                            root = root.InnerException;

-

-                        Console.WriteLine("Error evaluating {0}: {1}", form, root.Message);

-                        Console.WriteLine(root.StackTrace);

-                    }

-                }

-            }

-            return ret;

-        }

-

-

-        private void RunInteractiveLoop()

-        {

-            Var.pushThreadBindings(RT.map(

-                RT.CURRENT_NS, RT.CURRENT_NS.deref(),

-                RT.WARN_ON_REFLECTION, RT.WARN_ON_REFLECTION.deref(),

-                RT.PRINT_META, RT.PRINT_META.deref(),

-                RT.PRINT_LENGTH, RT.PRINT_LENGTH.deref(),

-                RT.PRINT_LEVEL, RT.PRINT_LEVEL.deref(),

-                Compiler.COMPILE_PATH, Environment.GetEnvironmentVariable("clojure.compile.path" ?? "classes")

-                ));

-

-            try

-            {

-            LoadFromStream(new LineNumberingTextReader(Console.In), true);

-            }

-            finally

-            {

-                Var.popThreadBindings();

-            }

-        }

-

-

-    }

-}