Fix missing 'fragment' attribute

drforr · Jun 26, 2015 · 0381a18 · 0381a18
1 parent f1fde33
commit 0381a18
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/corpus/VisualBasic6.g4 b/corpus/VisualBasic6.g4
@@ -910,4 +910,4 @@ fragment V:('v'|'V');
 fragment W:('w'|'W');
 fragment X:('x'|'X');
 fragment Y:('y'|'Y');
-fragment Z:('z'|'Z');
+fragment Z:('z'|'Z');
diff --git a/lib/ANTLR4/Actions/AST.pm b/lib/ANTLR4/Actions/AST.pm
@@ -436,7 +436,7 @@ method lexerRuleSpec($/)
 			[
 			$/<lexerAltList>>>.ast
 			],
-		attribute => [ ],
+		attribute => $/<FRAGMENT> ?? [ ~$/<FRAGMENT> ] !! [ ],
                 action    => Nil,
                 returns   => Nil,
                 throws    => [ ],

diff --git a/lib/ANTLR4/Grammar.pm b/lib/ANTLR4/Grammar.pm
@@ -337,9 +337,13 @@ rule parserAlt
 	<parserElement> <COMMENTS>? ['#' <label=ID> <COMMENTS>?]?
  	}
 
+token FRAGMENT
+	{
+	'fragment'
+	}
 rule lexerRuleSpec
  	{
-	<COMMENTS>? 'fragment'?
+	<COMMENTS>? <FRAGMENT>?
  	<COMMENTS>? <name=ID>
 	<COMMENTS>? ':'
 	<COMMENTS>? <lexerAltList>