add option -version

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

diff --git a/src/generic/Dsw/Mod/Linker486Main.cp b/src/generic/Dsw/Mod/Linker486Main.cp
index 677681f61bf92aef3b403317581584d8cede96f0..9396d01dc304c264baf08104e11363dd25ebb386 100644 (file)
--- a/src/generic/Dsw/Mod/Linker486Main.cp
+++ b/src/generic/Dsw/Mod/Linker486Main.cp
@@ -7,6 +7,8 @@ MODULE DswLinker486Main;
   CONST
     tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4;
 
   CONST
     tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4;
 

+    version = "0.2";
+

   TYPE
     Elem = POINTER TO RECORD
       name: ARRAY 256 OF CHAR;
   TYPE
     Elem = POINTER TO RECORD
       name: ARRAY 256 OF CHAR;


@@ -105,6 +107,9 @@ MODULE DswLinker486Main;
         ELSIF p = "-trap" THEN
           LB.trap := TRUE;
           Kernel.intTrap := TRUE
         ELSIF p = "-trap" THEN
           LB.trap := TRUE;
           Kernel.intTrap := TRUE

+        ELSIF p = "-version" THEN
+          Console.WriteStr(version); Console.WriteLn;
+          Kernel.Quit(0)

         ELSE
           Console.WriteStr("unknown option ");
           Console.WriteStr(p); Console.WriteLn;
         ELSE
           Console.WriteStr("unknown option ");
           Console.WriteStr(p); Console.WriteLn;