diff options
Diffstat (limited to 'Tools/MathematicaMisc/RunKranc.m')
-rw-r--r-- | Tools/MathematicaMisc/RunKranc.m | 17 |
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[]; |