From: Doni Pracner <quinnuendo@gmail.com>
Date: Thu, 13 Aug 2015 12:46:04 +0000 (+0200)
Subject: wsl metrics simlified with ELSIF
X-Git-Tag: v0.2.1~18
X-Git-Url: https://svarog.pmf.uns.ac.rs/gitweb/?a=commitdiff_plain;h=03131eff0f0f4e42ee10d18e5930bc4230e870fd;p=mjc2wsl.git

wsl metrics simlified with ELSIF
---

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