add option -version

[cpc.git] / src / generic / Dsw / Mod / CompilerCPfrontMain.cp

diff --git a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
index 672ca76000539e89f455d36274e56d4db660599b..efbd6f7b0fab418960513297563485af9db7c486 100644 (file)
--- a/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
+++ b/src/generic/Dsw/Mod/CompilerCPfrontMain.cp
@@ -12,6 +12,8 @@ MODULE DswCompilerCPfrontMain;
     (* defopt = {checks, assert, obj, ref, allref, srcpos, signatures}; *)
     defopt = {checks, assert, obj};
 
+    version = "0.2";
+
     emulong = 0;
     defopt2 = {};
 
@@ -137,6 +139,7 @@ MODULE DswCompilerCPfrontMain;
         ELSIF p = "-no-hints" THEN
           EXCL(opts, hint)
         ELSIF p = "-trap" THEN
+          Kernel.intTrap := TRUE;
           INCL(opts, errorTrap)
         ELSIF p = "-no-trap" THEN
           EXCL(opts, errorTrap)
@@ -166,6 +169,9 @@ MODULE DswCompilerCPfrontMain;
           INCL(opts2, emulong)
         ELSIF p = "-no-long-calls" THEN
           EXCL(opts2, emulong)
+        ELSIF p = "-version" THEN
+          Console.WriteStr(version); Console.WriteLn;
+          Kernel.Quit(0)
         ELSE
           Console.WriteStr("unknown option ");
           Console.WriteStr(p); Console.WriteLn;
@@ -334,5 +340,6 @@ MODULE DswCompilerCPfrontMain;
   END Init;
 
 BEGIN
+  Kernel.intTrap := FALSE;
   Kernel.Start(Init)
 END DswCompilerCPfrontMain.