index 677681f61bf92aef3b403317581584d8cede96f0..9396d01dc304c264baf08104e11363dd25ebb386 100644 (file)
CONST
tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4;
+ version = "0.2";
+
TYPE
Elem = POINTER TO RECORD
name: ARRAY 256 OF CHAR;
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;