From f91be4512f87dae35525f6e87a9beae2828c5b96 Mon Sep 17 00:00:00 2001
From: uwol <u.wol@uni-muenster.de>
Date: Mon, 8 Dec 2014 14:27:40 +0100
Subject: [PATCH] higher precedence of ELSE in select statements

---
 pom.xml                                             |  7 +++++++
 src/main/antlr4/org/vb6/VisualBasic6.g4             | 12 ++++--------
 .../resources/org/vb6/gpl/statements/SelectCase.cls | 13 ++++++++++++-
 3 files changed, 23 insertions(+), 9 deletions(-)

diff --git a/pom.xml b/pom.xml
index e52a746..62d0ab5 100755
--- a/pom.xml
+++ b/pom.xml
@@ -70,6 +70,13 @@
 				<artifactId>maven-resources-plugin</artifactId>
 				<version>2.6</version>
 			</plugin>
+			<plugin>
+				<groupId>org.apache.maven.plugins</groupId>
+				<artifactId>maven-surefire-plugin</artifactId>
+				<configuration>
+					<argLine>-Xmx2048m -XX:MaxPermSize=256m</argLine>
+				</configuration>
+			</plugin>
 			<plugin>
 				<artifactId>maven-eclipse-plugin</artifactId>
 				<version>2.9</version>
diff --git a/src/main/antlr4/org/vb6/VisualBasic6.g4 b/src/main/antlr4/org/vb6/VisualBasic6.g4
index 601808d..ce5c275 100755
--- a/src/main/antlr4/org/vb6/VisualBasic6.g4
+++ b/src/main/antlr4/org/vb6/VisualBasic6.g4
@@ -408,8 +408,7 @@ seekStmt : SEEK WS valueStmt WS? ',' WS? valueStmt;
 
 selectCaseStmt : 
 	SELECT WS CASE WS valueStmt NEWLINE+ 
-	sC_Case* 
-	sC_CaseElse?
+	sC_Case*
 	WS? END_SELECT
 ;
 
@@ -418,17 +417,14 @@ sC_Case :
 	(block NEWLINE+)?
 ;
 
+// ELSE first, so that it is not interpreted as a variable call
 sC_Cond : 
-	IS WS? comparisonOperator WS? valueStmt # caseCondIs
+	ELSE # caseCondElse
+	| IS WS? comparisonOperator WS? valueStmt # caseCondIs
 	| valueStmt (WS? ',' WS? valueStmt)* # caseCondValue
 	| INTEGERLITERAL WS TO WS valueStmt (WS? ',' WS? valueStmt)* # caseCondTo
 ;
 
-sC_CaseElse : 
-	CASE WS ELSE WS? (':'? NEWLINE* | NEWLINE+)  
-	(block NEWLINE+)?
-;
-
 sendkeysStmt : SENDKEYS WS valueStmt (WS? ',' WS? valueStmt)?;
 
 setattrStmt : SETATTR WS valueStmt WS? ',' WS? valueStmt;
diff --git a/src/test/resources/org/vb6/gpl/statements/SelectCase.cls b/src/test/resources/org/vb6/gpl/statements/SelectCase.cls
index d58a9f5..86ec41d 100644
--- a/src/test/resources/org/vb6/gpl/statements/SelectCase.cls
+++ b/src/test/resources/org/vb6/gpl/statements/SelectCase.cls
@@ -22,4 +22,15 @@ Select Case Percent
 	Case 76 To 100
 	Case Else
 		Beep
-End Select 
\ No newline at end of file
+End Select
+
+Select Case Grade
+	Case "A"
+		Beep
+	Case Else
+		Beep
+	Case "B"
+		Beep
+	Case Else
+		Beep
+End Select
\ No newline at end of file