1 files changed, 75 insertions, 0 deletions
diff --git a/ClojureCLR/Clojure/BootstrapCompile/Compile.cs b/ClojureCLR/Clojure/BootstrapCompile/Compile.cs
new file mode 100644
index 00000000..72e09221
--- /dev/null
+++ b/ClojureCLR/Clojure/BootstrapCompile/Compile.cs
@@ -0,0 +1,75 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+using System.IO;
+using clojure.lang;
+using System.Collections;
+using System.Diagnostics;
+
+namespace BootstrapCompile
+{
+    static class Compile
+    {
+
+        const string PATH_PROP = "clojure.compile.path";
+        const string REFLECTION_WARNING_PROP = "clojure.compile.warn-on-reflection";
+
+        static void Main(string[] args)
+        {
+            TextWriter outTW = (TextWriter)RT.OUT.deref();
+            TextWriter errTW = (TextWriter)RT.ERR.deref();
+
+            string path = Environment.GetEnvironmentVariable(PATH_PROP);
+            // TODO: get rid of this when we have the full build process set up
+            path = path ?? ".";
+
+            if ( path == null )
+            {
+                errTW.WriteLine("ERROR: Must set system property {0}",PATH_PROP);
+                errTW.WriteLine("to the location for the compiled .class files.");
+                errTW.WriteLine("This directory must also be on your {0}.",RT.CLOJURE_LOAD_PATH);
+                Environment.Exit(1);
+            }
+
+            string warnVal =  Environment.GetEnvironmentVariable(REFLECTION_WARNING_PROP);
+            bool warnOnReflection = warnVal == null ? false : warnVal.Equals(true);
+
+            try 
+            {
+                Var.pushThreadBindings(RT.map(
+                    Compiler.COMPILE_PATH,path,
+                    RT.WARN_ON_REFLECTION,warnOnReflection
+                    ));
+
+                Stopwatch sw = new Stopwatch();
+
+                foreach ( string lib in args )
+                {
+                    sw.Reset();
+                    sw.Start();
+                    outTW.Write("Compiling {0} to {1}",lib,path);
+                    outTW.Flush();
+                    Compiler.COMPILE.invoke(Symbol.intern(lib));
+                    sw.Stop();
+                    outTW.WriteLine(" -- {0} milliseconds.", sw.ElapsedMilliseconds);
+                }
+            }
+            finally
+            {
+                Var.popThreadBindings();
+                try {
+                    outTW.Flush();
+                    outTW.Close();
+                }
+                catch ( IOException e)
+                {
+                    errTW.WriteLine(e.StackTrace);
+                }
+            }
+
+               
+    
+        }
+    }
+}