From: Jan P. <jp...@us...> - 2007-05-21 15:00:26
|
Update of /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser In directory sc8-pr-cvs17:/tmp/cvs-serv15008/src/org/epic/core/parser Modified Files: perl.g Log Message: Merged from 'stable'. Index: perl.g =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser/perl.g,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- perl.g 19 May 2007 14:55:23 -0000 1.19 +++ perl.g 21 May 2007 15:00:18 -0000 1.20 @@ -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); |