Unified error stream in option parsing

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8099 8c9fc860-2736-0410-a75d-ab315db34111

ARM/zbl/tools/OEB.Mod

@@ -389,7 +389,7 @@ VAR
 		opt.Add(0X, "start", Options.Flag);
 		opt.Add(0X, "stop", Options.Flag);
 		opt.Add('s', "server", Options.Integer);
-		IF ~opt.Parse(context.arg, context.out) THEN
+		IF ~opt.Parse(context.arg, context.error) THEN
 			context.result := 1;
 			RETURN
 		END;

source/AMD64.CPUID.Mod

@@ -1145,7 +1145,7 @@ VAR cpuInfo : CpuInformation; options : Options.Options;
 BEGIN
 	NEW(options);
 	options.Add("d", "details", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF CpuIdSupported() THEN
 			GetCpuInformation(cpuInfo);
 			IF options.GetFlag("details") THEN

source/FSTools.Mod

@@ -404,7 +404,7 @@ BEGIN
 	NEW(options);
 	options.Add("s", "subdirectories", Options.Flag);
 	options.Add("d", "directories", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF context.arg.GetString(pattern) & context.arg.GetString(commandProcStr) THEN
 			Commands.Split(commandProcStr, moduleName, procedureName, res, msg);
 			IF (res = Commands.Ok) THEN
@@ -449,7 +449,7 @@ BEGIN
 	options.Add("c", "cr", Options.Flag);
 	options.Add("r", "remove", Options.Flag);
 	options.Add("a", "append", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF context.arg.GetString(filename) THEN
 			cr := options.GetFlag("cr");
 			removeWhitespace := options.GetFlag("remove");

source/FSTools64.Mod

@@ -404,7 +404,7 @@ BEGIN
 	NEW(options);
 	options.Add("s", "subdirectories", Options.Flag);
 	options.Add("d", "directories", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF context.arg.GetString(pattern) & context.arg.GetString(commandProcStr) THEN
 			Commands.Split(commandProcStr, moduleName, procedureName, res, msg);
 			IF (res = Commands.Ok) THEN
@@ -449,7 +449,7 @@ BEGIN
 	options.Add("c", "cr", Options.Flag);
 	options.Add("r", "remove", Options.Flag);
 	options.Add("a", "append", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF context.arg.GetString(filename) THEN
 			cr := options.GetFlag("cr");
 			removeWhitespace := options.GetFlag("remove");

source/FoxARMInstructionSet.Mod

@@ -2909,7 +2909,7 @@ CONST
 			options.Add("l","logFile", Options.String);
 			options.Add("a","address",Options.Integer);
 			options.Add("o","offset",Options.Integer);
-			IF options.Parse(context.arg, context.out) THEN
+			IF options.Parse(context.arg, context.error) THEN
 				IF ~options.GetInteger("a", address) THEN address := 0 END;
 				NEW(disassembler, context.out);
 				code := ReadCode(codeFile);

source/FoxTRMInstructionSet.Mod

@@ -1108,7 +1108,7 @@ TYPE
 			options.Add("l","logFile", Options.String);
 			options.Add("a","address",Options.Integer);
 			options.Add("w","instructionWidth",Options.Integer);
-			IF options.Parse(context.arg, context.out) THEN
+			IF options.Parse(context.arg, context.error) THEN
 				IF ~options.GetInteger("w",instructionWidth) THEN instructionWidth:=18 END;
 				TRACE(instructionWidth);
 				IF ~options.GetInteger("a", address) THEN address := 0 END;

source/I386.CPUID.Mod

@@ -1145,7 +1145,7 @@ VAR cpuInfo : CpuInformation; options : Options.Options;
 BEGIN
 	NEW(options);
 	options.Add("d", "details", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF CpuIdSupported() THEN
 			GetCpuInformation(cpuInfo);
 			IF options.GetFlag("details") THEN

source/Notepad.Mod

@@ -68,7 +68,7 @@ VAR options : Options.Options; window : Window; filename : Files.FileName; forma
 BEGIN
 	NEW(options);
 	options.Add("f", "format", Options.String);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF ~options.GetString("format", format) THEN format := "AUTO"; END;
 		NEW(window, NIL);
 		IF context.arg.GetString(filename) THEN

source/Options.Mod

@@ -16,7 +16,7 @@ MODULE Options; (** AUTHOR "staubesv"; PURPOSE "Command line options parsing"; *
  *
  *	3.	Parse options at the current position of the context argument stream (this will skip whitespace and options on the stream)
  *
- *			IF options.Parse(context.arg, context.out) THEN (* some useful work *) END;
+ *			IF options.Parse(context.arg, context.error) THEN (* some useful work *) END;
  *
  *		Note: Parse will output an error message on the context error stream if option parsing fails
  *

source/PCITools.Mod

@@ -465,7 +465,7 @@ VAR
 BEGIN {EXCLUSIVE}
 	NEW(options);
 	options.Add("d", "details", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		context.out.String("PCITools: PCI bus enumeration:"); context.out.Ln;
 		IF PCI.PCIPresent(version, lastPCIBus, hw) = PCI.Done THEN
 			context.out.String("PCI Bus Information: "); context.out.Int(lastPCIBus + 1, 0); context.out.String(" bus(ses) found, PCI version: ");

source/PET.Mod

@@ -2687,7 +2687,7 @@ BEGIN
 	NEW(options);
 	options.Add("e","external",Options.Flag);
 	options.Add("f", "format", Options.String);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF (context.caller # NIL) & (context.caller IS Window) & ~options.GetFlag("external") THEN
 			window := context.caller(Window);
 		ELSE

source/Release.Mod

@@ -3079,7 +3079,7 @@ BEGIN
 	options.Add("f", "file", Options.String);
 	options.Add(0X, "exclude", Options.String);
 
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF ~options.GetString("file", filename) THEN COPY(DefaultPackagesFile, filename); END;
 		modulename := "";
 		context.arg.SkipWhitespace; context.arg.String(buildname);

source/TFPET.Mod

@@ -2643,7 +2643,7 @@ BEGIN
 	NEW(options);
 	options.Add("e","external",Options.Flag);
 	options.Add("f", "format", Options.String);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF (context.caller # NIL) & (context.caller IS Window) & ~options.GetFlag("external") THEN
 			window := context.caller(Window);
 		ELSE

source/TestFiles.Mod

@@ -655,7 +655,7 @@ VAR options : Options.Options; tester: Tester; report: TestSuite.StreamReport; p
 BEGIN
 	NEW(options);
 	options.Add("p", "path", Options.String);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF ~options.GetString("path", path) THEN path := ""; END;
 		NEW(tester, context.out, path);
 		NEW(report, context.out);

source/TestVideo.Mod

@@ -762,7 +762,7 @@ BEGIN
 	NEW(options);
 	options.Add("t","threshold",Options.Integer);
 	threshold := 50;
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF options.GetInteger("threshold", threshold) THEN END;
 	END;
 	VideoExample.InstallFrameHandler(ThresholdFilter)
@@ -909,7 +909,7 @@ BEGIN
 	options.Add("p","pixelThreshold", Options.Integer);
 	threshold := 50;
 	pixThreshold := 50;
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF options.GetInteger("threshold", threshold) THEN END;
 		IF options.GetInteger("pixelThreshold", pixThreshold) THEN END;
 	END;

source/VirtualDisks.Mod

@@ -171,7 +171,7 @@ VAR
 BEGIN
 	NEW(options);
 	options.Add("b", "blocksize", Options.Integer);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		context.arg.SkipWhitespace; context.arg.String(filename);
 		context.arg.SkipWhitespace; context.arg.Int(nbrOfBlocks, FALSE);
 		IF ~options.GetInteger("blocksize", blocksize) THEN blocksize := DefaultBlocksize; END;
@@ -209,7 +209,7 @@ BEGIN
 	options.Add("c", "cylinders", Options.Integer);
 	options.Add("h", "heads", Options.Integer);
 	options.Add("s", "sectors", Options.Integer);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		(* disk geometry in CHS *)
 		IF ~options.GetInteger("blocksize", blocksize) THEN blocksize := DefaultBlocksize; END;
 		IF ~options.GetInteger("cylinders", cylinders) THEN cylinders := 0; END;

source/Visualizer.Mod

@@ -1511,7 +1511,7 @@ BEGIN
 	options.Add("p", "procedures", Options.String);
 	options.Add("e", "exclude", Options.String);
 
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF CheckOptions(options, context.out) THEN
 			IF ~options.GetString("file", outputFilename) THEN
 				COPY(DefaultOutputFilename, outputFilename);

source/WMBackdrop.Mod

@@ -316,7 +316,7 @@ VAR
 BEGIN {EXCLUSIVE}
 	NEW(options);
 	options.Add("f", "fullscreen", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		context.arg.SkipWhitespace; context.arg.String(name);
 
 		IF options.GetFlag("fullscreen") THEN

source/WMDesktopIcons.Mod

@@ -308,7 +308,7 @@ BEGIN
 	NEW(options);
 	options.Add("n", "navigation", Options.Flag);
 	options.Add("s", "stayOnTop", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		flags := {WMWindowManager.FlagHidden};
 		IF options.GetFlag("navigation") THEN INCL(flags, WMWindowManager.FlagNavigation); END;
 		IF options.GetFlag("stayOnTop") THEN INCL(flags, WMWindowManager.FlagStayOnTop); END;

source/WMNavigate.Mod

@@ -1596,7 +1596,7 @@ BEGIN {EXCLUSIVE}
 	options.Add("v", "viewport", Options.Flag);
 	options.Add("n", "names", Options.Flag);
 
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		showWindowNames := options.GetFlag("names");
 		context.arg.SkipWhitespace; context.arg.Int(id, FALSE);
 		context.arg.SkipWhitespace; context.arg.Int(x, FALSE);
@@ -1803,7 +1803,7 @@ VAR options : Options.Options; window : WMWindowManager.Window; x, y : LONGINT;
 BEGIN {EXCLUSIVE}
 	NEW(options);
 	options.Add("d", "display", Options.Flag);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF context.arg.GetInteger(x, FALSE) & context.arg.GetInteger(y, FALSE) THEN
 			IF options.GetFlag("display") THEN
 				x := x * width;
@@ -1843,7 +1843,7 @@ BEGIN
 	options.Add("s", "showTransition", Options.Flag);
 	options.Add("d", "display", Options.Flag);
 
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		x := 0; y := 0; w := 0; h := 0;
 		context.arg.SkipWhitespace; context.arg.Int(x, FALSE);
 		context.arg.SkipWhitespace; context.arg.Int(y, FALSE);

source/WMSystemComponents.Mod

@@ -742,7 +742,7 @@ VAR options : Options.Options; window : Window; filename : Files.FileName; forma
 BEGIN
 	NEW(options);
 	options.Add("f", "format", Options.String);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		IF ~options.GetString("format", format) THEN format := "AUTO"; END;
 		NEW(window, NIL);
 		IF context.arg.GetString(filename) THEN

source/WMUtilities.Mod

@@ -103,7 +103,7 @@ BEGIN
 	NEW(options);
 	options.Add("b", "blocking", Options.Flag);
 	options.Add("f","font",Options.String);
-	IF options.Parse(context.arg, context.out) THEN
+	IF options.Parse(context.arg, context.error) THEN
 		context.arg.SkipWhitespace; context.arg.String(command);
 		NEW(writer, command, 700, 480, FALSE);
 		IF options.GetString("font",fontName) THEN writer.SetFontName(fontName) END;