index 5d1a68f85758850af00f8a5423956419fb3fc9db..071858292df5a6a35fe029d4685fa60aa6e8d728 100644 (file)
hint = 29; oberon = 30; errorTrap = 31;
defopt = {checks, assert, obj, ref, allref, srcpos, signatures};
+ version = "0.2";
+
emulong = 0;
defopt2 = {};
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;