e-p-i-c-commits

[Jan P. <jp...@us...>]

Update of /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser
In directory sc8-pr-cvs17:/tmp/cvs-serv12637/src/org/epic/core/parser

Modified Files:
      Tag: stable
	perl.g 
Log Message:
Fixed bug [ 1722253 ] Number literals - wrong syntax coloring.

Index: perl.g
===================================================================
RCS file: /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser/perl.g,v
retrieving revision 1.8.2.11
retrieving revision 1.8.2.12
diff -u -d -r1.8.2.11 -r1.8.2.12
--- perl.g	19 May 2007 14:54:13 -0000	1.8.2.11
+++ perl.g	21 May 2007 14:54:51 -0000	1.8.2.12
@@ -397,7 +397,9 @@
 	;
 
 protected NUMBER
-	: ("0x" ('0'..'9' | 'A'..'F' | 'a'..'f')) | ('0'..'9')+
+	: ("0x" ('0'..'9' | 'A'..'F' | 'a'..'f' | '_')+)
+	| ("0b" ('0' | '1' | '_')+)
+	| ('0'..'9' | '_')+
 	{
 		slashRegexp = qmarkRegexp = glob = afterArrow = false;
 		$setType(PerlTokenTypes.NUMBER);