aboutsummaryrefslogtreecommitdiff
path: root/ClojureCLR/Clojure/BootstrapCompile/Compile.cs
diff options
context:
space:
mode:
Diffstat (limited to 'ClojureCLR/Clojure/BootstrapCompile/Compile.cs')
-rw-r--r--ClojureCLR/Clojure/BootstrapCompile/Compile.cs75
1 files changed, 0 insertions, 75 deletions
diff --git a/ClojureCLR/Clojure/BootstrapCompile/Compile.cs b/ClojureCLR/Clojure/BootstrapCompile/Compile.cs
deleted file mode 100644
index 72e09221..00000000
--- a/ClojureCLR/Clojure/BootstrapCompile/Compile.cs
+++ /dev/null
@@ -1,75 +0,0 @@
-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);
- }
- }
-
-
-
- }
- }
-}