File tree Expand file tree Collapse file tree 1 file changed +7
-5
lines changed Expand file tree Collapse file tree 1 file changed +7
-5
lines changed Original file line number Diff line number Diff line change @@ -5022,39 +5022,41 @@ grammar Regex is STD {
5022
5022
5023
5023
token cclass_add {
5024
5024
<.normspace >?
5025
- <cclass_elem > ** [$ < op > =[ '+' | '-' ]]
5025
+ <cclass_elem > ** [$ < op > =[ '+' | '-' ]< .normspace > ? ]
5026
5026
}
5027
5027
5028
5028
token cclass_elem :name {
5029
5029
:dba ('character class element' )
5030
- <.normspace >?
5031
5030
<name >
5032
5031
<.normspace >?
5033
5032
}
5034
5033
5035
5034
token cclass_elem :sym <[ ] > {
5036
5035
:my $ * CCSTATE = '' ;
5037
5036
:dba ('character class element' )
5038
- <.normspace >?
5039
5037
<before '[' > <quibble ($¢. cursor_fresh( % * LANG <Q > ).tweak (: cc))>
5040
5038
<.normspace >?
5041
5039
}
5042
5040
5043
5041
token cclass_elem :sym <( ) > {
5044
5042
:my $ * CCSTATE = '' ;
5045
5043
:dba ('character class element' )
5046
- <.normspace >?
5047
5044
'(' ~ ')' <cclass_expr >
5048
5045
<.normspace >?
5049
5046
}
5050
5047
5051
5048
token cclass_elem :property {
5052
5049
:dba ('character class element' )
5053
- <.normspace >?
5054
5050
[:lang (% * LANG <MAIN >) <colonpair > ]
5055
5051
<.normspace >?
5056
5052
}
5057
5053
5054
+ token cclass_elem :quote {
5055
+ <? before '"' | "'" >
5056
+ [:lang (% * LANG <MAIN >) <quote > ]
5057
+ <.normspace >?
5058
+ }
5059
+
5058
5060
token mod_arg { :dba ('modifier argument' ) '(' ~ ')' [:lang (% * LANG <MAIN >) <semilist > ] }
5059
5061
5060
5062
token mod_internal :sym <:my > { ':' <? before ['my' | 'state' | 'our' | 'anon' | 'constant' | 'temp' | 'let' ] \s > [:lang (% * LANG <MAIN >) <statement > <eat_terminator > ] }
You can’t perform that action at this time.
0 commit comments