Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Perlito5 - regex - cleanup
  • Loading branch information
@fglock
fglock committed Apr 25, 2014
1 parent f4073d4 commit f08aa3e
Showing 1 changed file with 33 additions and 46 deletions.
79 changes: 33 additions & 46 deletions src5/lib/Perlito5/Grammar/Regex5.pm
View file
Expand Up @@ -86,96 +86,83 @@ token rule_term {

| '('
[ '?'
[ ':' <rule> ')'
[ ':' <rule>
{ $MATCH->{capture} = Perlito5::Match::flat($MATCH->{rule}) }
| '=' <rule> ')'
| '=' <rule>
{ $MATCH->{capture} = { 'positive_look_ahead' => Perlito5::Match::flat($MATCH->{rule}) } }
| '!' <rule> ')'
| '!' <rule>
{ $MATCH->{capture} = { 'negative_look_ahead' => Perlito5::Match::flat($MATCH->{rule}) } }
| '>' <rule> ')'
| '>' <rule>
{ $MATCH->{capture} = { 'possessive_quantifier' => Perlito5::Match::flat($MATCH->{rule}) } }
| '<=' <rule> ')'
| '<=' <rule>
{ $MATCH->{capture} = { 'positive_look_behind' => Perlito5::Match::flat($MATCH->{rule}) } }
| '<!' <rule> ')'
| '<!' <rule>
{ $MATCH->{capture} = { 'negative_look_behind' => Perlito5::Match::flat($MATCH->{rule}) } }
| { $MATCH->{capture_id} = ++$CAPTURE_ID; }
'<' <Perlito5::Grammar.ident> '>' <rule> ')'
{
$MATCH->{capture} = { 'named_capture' => { name => Perlito5::Match::flat($MATCH->{'Perlito5::Grammar.ident'}),
'<' <Perlito5::Grammar.ident> '>' <rule>
{ $MATCH->{capture} = { 'named_capture' => { name => Perlito5::Match::flat($MATCH->{'Perlito5::Grammar.ident'}),
term => Perlito5::Match::flat($MATCH->{rule}),
id => $MATCH->{capture_id} } }
}
| '{' <string_of_code> '})'
| '{' <string_of_code> '}'
{ $MATCH->{capture} = { code => Perlito5::Match::flat($MATCH->{string_of_code}) } }
| '?{' <string_of_code> '})'
| '?{' <string_of_code> '}'
{ $MATCH->{capture} = { postponed_code => Perlito5::Match::flat($MATCH->{string_of_code}) } }
| '#' [ <!before ')' > . ]* ')'
| '#' [ <!before ')' > . ]*
{ $MATCH->{capture} = 'comment' }
]
| '*'
[ ':' <Perlito5::Grammar.ident> ')'
[ ':' <Perlito5::Grammar.ident>
{ $MATCH->{capture} = { verb => { tag => 'MARK',
name => Perlito5::Match::flat($MATCH->{'Perlito5::Grammar.ident'}) } }
}
| <verb>
[ ':' <Perlito5::Grammar.ident> ')'
[ ':' <Perlito5::Grammar.ident>
{ $MATCH->{capture} = { verb => { tag => Perlito5::Match::flat($MATCH->{'verb'}),
name => Perlito5::Match::flat($MATCH->{'Perlito5::Grammar.ident'}), } }
}
| { $MATCH->{capture} = { verb => { tag => Perlito5::Match::flat($MATCH->{'verb'}) } } }
]
]
| { $MATCH->{capture_id} = ++$CAPTURE_ID; }
<rule> ')'
{
$MATCH->{capture} = { capture => { term => Perlito5::Match::flat($MATCH->{rule}),
<rule>
{ $MATCH->{capture} = { capture => { term => Perlito5::Match::flat($MATCH->{rule}),
id => $MATCH->{capture_id} } }
}
]
[ ')' | { die "Unmatched ( in regex" } ]

| \\
[
| 'c' \[ <Perlito5::Grammar::Number.digits> \]
{ $MATCH->{capture} = { character => chr( Perlito5::Match::flat($MATCH->{"Perlito5::Grammar::Number.digits"}) ) } }
| 'c' <Perlito5::Grammar::Number.digits>
{ $MATCH->{capture} = { character => chr( Perlito5::Match::flat($MATCH->{"Perlito5::Grammar::Number.digits"}) ) } }
| 'Q' <quotemeta>
{ $MATCH->{capture} = { string_as_is => Perlito5::Match::flat($MATCH->{quotemeta}) } }
| <any> # \e \E
{ $MATCH->{capture} = { special_character => Perlito5::Match::flat($MATCH->{any}) } }
[ 'c' <any> { $MATCH->{capture} = { control_character => Perlito5::Match::flat($MATCH->{any}) } }
| 'Q' <quotemeta> { $MATCH->{capture} = { string_as_is => Perlito5::Match::flat($MATCH->{quotemeta}) } }
| <any> { $MATCH->{capture} = { special_character => Perlito5::Match::flat($MATCH->{any}) } }
]

| '['
[ '^'
[ ']'
[ <character_class_list> ']'
{ $MATCH->{capture} = { negated_character_class => [
{ character => ']' },
@{ Perlito5::Match::flat($MATCH->{character_class_list}) }
]
} }
| { die "Unmatched [ in regex" }
]
| <character_class_list> ']'
{ $MATCH->{capture} = { negated_character_class => Perlito5::Match::flat($MATCH->{character_class_list}) } }
| { die "Unmatched [ in regex" }
]
| ']'
[ <character_class_list> ']'
{ $MATCH->{capture} = { character_class => [
[ ']' <character_class_list>
{ $MATCH->{capture} = { negated_character_class => [
{ character => ']' },
@{ Perlito5::Match::flat($MATCH->{character_class_list}) }
]
} }
| { die "Unmatched [ in regex" }
| <character_class_list>
{ $MATCH->{capture} = { negated_character_class => Perlito5::Match::flat($MATCH->{character_class_list}) } }
]
| <character_class_list> ']'
| ']'
<character_class_list>
{ $MATCH->{capture} = { character_class => [
{ character => ']' },
@{ Perlito5::Match::flat($MATCH->{character_class_list}) }
]
} }
| <character_class_list>
{ $MATCH->{capture} = { character_class => Perlito5::Match::flat($MATCH->{character_class_list}) } }
| { die "Unmatched [ in regex" }
]
[ ']' | { die "Unmatched [ in regex" } ]

| <!before ')' | '+' | '?' | '\\' | '|' | '*' >
<any>
| <!before ')' | '+' | '?' | '\\' | '|' | '*' > <any>
{ $MATCH->{capture} = { character => Perlito5::Match::flat($MATCH->{any}) } }
};

Expand Down

0 comments on commit f08aa3e

Please sign in to comment.