allow _ in regex ** range integers

TimToady · TimToady · commit 27326bc097fa · 2013-08-28T22:12:36.000-07:00
diff --git a/STD.pm6 b/STD.pm6
@@ -5291,8 +5291,8 @@ grammar Regex is STD {
     token quantifier:sym<:>  { <sym> {} <?before \s> }
     token quantifier:sym<**> { '**' :: <normspace>? <quantmod> <normspace>?
         [
-        | \d+ \s+ '..' <.panic: "Spaces not allowed in bare range">
-        | (\d+) [ '..' [ (\d+) { $¢.panic("Empty range") if $0.Str > $1[0].Str } | '*' | <.panic: "Malformed range"> ] ]?
+        | <.decint> \s+ '..' <.panic: "Spaces not allowed in bare range">
+        | (<.decint>) [ '..' [ (<.decint>) { $¢.panic("Empty range") if $0.Str > $1[0].Str } | '*' | <.panic: "Malformed range"> ] ]?
         | <embeddedblock>
         | {} <quantified_atom> { $¢.worryobs("atom ** " ~ $<quantified_atom>.Str ~ " as separator", "atom +% " ~ $<quantified_atom>.Str, " nowadays"); }
         ]

Original file line number	Diff line number	Diff line change
`@@ -5291,8 +5291,8 @@ grammar Regex is STD {`
`5291`	`5291`	`token quantifier:sym<:> { <sym> {} <?before \s> }`
`5292`	`5292`	`token quantifier:sym<> { '' :: <normspace>? <quantmod> <normspace>?`
`5293`	`5293`	`[`
`5294`		`- \| \d+ \s+ '..' <.panic: "Spaces not allowed in bare range">`
`5295`		`- \| (\d+) [ '..' [ (\d+) { $¢.panic("Empty range") if $0.Str > $1[0].Str } \| '*' \| <.panic: "Malformed range"> ] ]?`
	`5294`	`+ \| <.decint> \s+ '..' <.panic: "Spaces not allowed in bare range">`
	`5295`	`+ \| (<.decint>) [ '..' [ (<.decint>) { $¢.panic("Empty range") if $0.Str > $1[0].Str } \| '*' \| <.panic: "Malformed range"> ] ]?`
`5296`	`5296`	`\| <embeddedblock>`
`5297`	`5297`	`\| {} <quantified_atom> { $¢.worryobs("atom ** " ~ $<quantified_atom>.Str ~ " as separator", "atom +% " ~ $<quantified_atom>.Str, " nowadays"); }`
`5298`	`5298`	`]`