Changeset 21204 for src/perl6/STD.pm

Timestamp:

07/04/08 07:00:03 (5 months ago)

Author:

lwall

Message:

[STD] allow .123 to parse as suggested by Gerd Pokorra++

Files:

• src/perl6/STD.pm (modified) (2 diffs)

src/perl6/STD.pm

@@ -8 +8 @@
 # random rule for debugging, please ignore
 regex foo {
-   a|b
+   <dec_number>
 }
 
@@ -1598 +1598 @@
 }
 
+token escale {
+    <[Ee]> <[+\-]>? \d+
+}
+
+# careful to distinguish from both integer and 42.method
 token dec_number {
-    \d+[_\d+]*
-        [
-        | '.' \d+[_\d+]* [ <[Ee]> <[+\-]>? \d+ ]?
-        |                  <[Ee]> <[+\-]>? \d+
-        ] # careful to distinguish from both integer and 42.method
+    |            '.' \d+[_\d+]* <escale>?
+    | \d+[_\d+]* '.' \d+[_\d+]* <escale>?
+    | \d+[_\d+]*                <escale>
     {*}
 }