X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src-wsl%2Fmetrics.wsl;h=1eeceee64b8e8f7bcefc2c38a5bef3ff7966a899;hp=cec69a339d23ea1d64ca8def1f76249a08581e23;hb=03131eff0f0f4e42ee10d18e5930bc4230e870fd;hpb=11260b1fb24c8f7d10f294ddf4e378f3251c84a2;ds=sidebyside

diff --git a/src-wsl/metrics.wsl b/src-wsl/metrics.wsl
index cec69a3..1eeceee 100644
--- a/src-wsl/metrics.wsl
+++ b/src-wsl/metrics.wsl
@@ -123,11 +123,11 @@ ELSE
 			PRINT("HELP - for now in the comments at the start of the script");
 			PRINT("options: --header or -H | -c | -HC | -o | -s");
 			SKIP
-		ELSE IF filename = "-H" OR filename = "--header" THEN
+		ELSIF filename = "-H" OR filename = "--header" THEN
 			@WS("filename");@WS(Field_Separator);
 			@Write_Metrics_List();
 			@WL("");
-		ELSE IF filename = "-HC" THEN
+		ELSIF filename = "-HC" THEN
 			C:"Header for comparison";
 			@WS("filename");@WS(Field_Separator);
 			@Write_Metrics_List();@WS(Field_Separator);
@@ -135,7 +135,7 @@ ELSE
 			@WS("DIF");@Write_Metrics_List();@WS(Field_Separator);
 			@WS("%");@Write_Metrics_List();
 			@WL("");
-		ELSE IF filename = "-o" THEN
+		ELSIF filename = "-o" THEN
 			C:"set output";
 			IF Argv = < > THEN
 				PRINT("argument needed after -o")
@@ -144,14 +144,14 @@ ELSE
 				opened := opened + 1;
 				@Write_To(filename)
 			FI			
-		ELSE IF filename = "-s" THEN
+		ELSIF filename = "-s" THEN
 			C:"set separator";
 			IF Argv = < > THEN
 				PRINT("argument needed after -s")
 			ELSE
 				POP(Field_Separator, Argv);
 			FI			
-		ELSE IF filename = "-c" THEN
+		ELSIF filename = "-c" THEN
 			C:"compare two files and dump the comparison";
 			IF LENGTH(Argv) < 2 THEN
 				PRINT("two arguments needed after -c")
@@ -185,7 +185,7 @@ ELSE
 			@Write_Metrics(metrics);
 			@WL("");
 			SKIP
-		FI FI FI FI FI FI
+		FI
 	OD;
 	C:"be nice and close all the opened writes";
 	FOR count := 1 TO opened STEP 1 DO