kranc: Update the Kranc/Bin/kranc script and move some functionality into a new RunKranc.m file

The kranc script now looks for a Kranc installation relative to the path of the kranc script.  It also has a "-v" option now to increase verbosity.  Exceptions should be printed nicely.

1 files changed, 17 insertions, 0 deletions

diff --git a/Tools/MathematicaMisc/RunKranc.m b/Tools/MathematicaMisc/RunKranc.m
new file mode 100644
index 0000000..abdb282
--- /dev/null
+++ b/Tools/MathematicaMisc/RunKranc.m
@@ -0,0 +1,17 @@
+
+script = $CommandLine[[-1]];
+krancDir = Environment["KRANCDIR"];
+
+$Path = Join[$Path,
+  {krancDir <> "/Tools/CodeGen",
+   krancDir <> "/Tools/MathematicaMisc",
+   krancDir <> "/Tools/External"}];
+Needs["Errors`"];
+Needs["KrancThorn`"];
+If[Environment["KRANCVERBOSE"] == "yes",
+  SetDebugLevel[InfoFull]];
+
+exception = Catch[Get[script], KrancError];
+PrintError[exception];
+
+Quit[];