mirror of
https://github.com/uwol/proleap-vb6-parser.git
synced 2025-12-18 12:34:35 +03:00
higher precedence of ELSE in select statements
This commit is contained in:
7
pom.xml
7
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>
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -22,4 +22,15 @@ Select Case Percent
|
||||
Case 76 To 100
|
||||
Case Else
|
||||
Beep
|
||||
End Select
|
||||
End Select
|
||||
|
||||
Select Case Grade
|
||||
Case "A"
|
||||
Beep
|
||||
Case Else
|
||||
Beep
|
||||
Case "B"
|
||||
Beep
|
||||
Case Else
|
||||
Beep
|
||||
End Select
|
||||
Reference in New Issue
Block a user