index 677681f61bf92aef3b403317581584d8cede96f0..e08555a5518f8820e5e1cecb5f4da0143a4edb6a 100644 (file)
CONST
tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4;
+ version = "0.3";
+
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;