####################################################################
#
# This file was generated using Parse::Yapp version 1.05.
#
# Don't edit this file, use source file instead.
#
# ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Regex::Grammar;
use vars qw ( @ISA );
use strict;
@ISA= qw ( Parse::Yapp::Driver );
#Included Parse/Yapp/Driver.pm file----------------------------------------
{
#
# Module Parse::Yapp::Driver
#
# This module is part of the Parse::Yapp package available on your
# nearest CPAN
#
# Any use of this module in a standalone parser make the included
# text under the same copyright as the Parse::Yapp module itself.
#
# This notice should remain unchanged.
#
# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
# (see the pod text in Parse::Yapp module for use and distribution rights)
#
package Parse::Yapp::Driver;
require 5.004;
use strict;
use vars qw ( $VERSION $COMPATIBLE $FILENAME );
$VERSION = '1.05';
$COMPATIBLE = '0.07';
$FILENAME=__FILE__;
use Carp;
#Known parameters, all starting with YY (leading YY will be discarded)
my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
#Mandatory parameters
my(@params)=('LEX','RULES','STATES');
sub new {
my($class)=shift;
my($errst,$nberr,$token,$value,$check,$dotpos);
my($self)={ ERROR => \&_Error,
ERRST => \$errst,
NBERR => \$nberr,
TOKEN => \$token,
VALUE => \$value,
DOTPOS => \$dotpos,
STACK => [],
DEBUG => 0,
CHECK => \$check };
_CheckParams( [], \%params, \@_, $self );
exists($$self{VERSION})
and $$self{VERSION} < $COMPATIBLE
and croak "Yapp driver version $VERSION ".
"incompatible with version $$self{VERSION}:\n".
"Please recompile parser module.";
ref($class)
and $class=ref($class);
bless($self,$class);
}
sub YYParse {
my($self)=shift;
my($retval);
_CheckParams( \@params, \%params, \@_, $self );
if($$self{DEBUG}) {
_DBLoad();
$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
$@ and die $@;
}
else {
$retval = $self->_Parse();
}
$retval
}
sub YYData {
my($self)=shift;
exists($$self{USER})
or $$self{USER}={};
$$self{USER};
}
sub YYErrok {
my($self)=shift;
${$$self{ERRST}}=0;
undef;
}
sub YYNberr {
my($self)=shift;
${$$self{NBERR}};
}
sub YYRecovering {
my($self)=shift;
${$$self{ERRST}} != 0;
}
sub YYAbort {
my($self)=shift;
${$$self{CHECK}}='ABORT';
undef;
}
sub YYAccept {
my($self)=shift;
${$$self{CHECK}}='ACCEPT';
undef;
}
sub YYError {
my($self)=shift;
${$$self{CHECK}}='ERROR';
undef;
}
sub YYSemval {
my($self)=shift;
my($index)= $_[0] - ${$$self{DOTPOS}} - 1;
$index < 0
and -$index <= @{$$self{STACK}}
and return $$self{STACK}[$index][1];
undef; #Invalid index
}
sub YYCurtok {
my($self)=shift;
@_
and ${$$self{TOKEN}}=$_[0];
${$$self{TOKEN}};
}
sub YYCurval {
my($self)=shift;
@_
and ${$$self{VALUE}}=$_[0];
${$$self{VALUE}};
}
sub YYExpect {
my($self)=shift;
keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
}
sub YYLexer {
my($self)=shift;
$$self{LEX};
}
#################
# Private stuff #
#################
sub _CheckParams {
my($mandatory,$checklist,$inarray,$outhash)=@_;
my($prm,$value);
my($prmlst)={};
while(($prm,$value)=splice(@$inarray,0,2)) {
$prm=uc($prm);
exists($$checklist{$prm})
or croak("Unknow parameter '$prm'");
ref($value) eq $$checklist{$prm}
or croak("Invalid value for parameter '$prm'");
$prm=unpack('@2A*',$prm);
$$outhash{$prm}=$value;
}
for (@$mandatory) {
exists($$outhash{$_})
or croak("Missing mandatory parameter '".lc($_)."'");
}
}
sub _Error {
print "Parse error.\n";
}
sub _DBLoad {
{
no strict 'refs';
exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
and return;
}
my($fname)=__FILE__;
my(@drv);
open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
while(<DRV>) {
/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
and do {
s/^#DBG>//;
push(@drv,$_);
}
}
close(DRV);
$drv[0]=~s/_P/_DBP/;
eval join('',@drv);
}
#Note that for loading debugging version of the driver,
#this file will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
#So, DO NOT remove comment at end of sub !!!
sub _Parse {
my($self)=shift;
my($rules,$states,$lex,$error)
= @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
= @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };
#DBG> my($debug)=$$self{DEBUG};
#DBG> my($dbgerror)=0;
#DBG> my($ShowCurToken) = sub {
#DBG> my($tok)='>';
#DBG> for (split('',$$token)) {
#DBG> $tok.= (ord($_) < 32 or ord($_) > 126)
#DBG> ? sprintf('<%02X>',ord($_))
#DBG> : $_;
#DBG> }
#DBG> $tok.='<';
#DBG> };
$$errstatus=0;
$$nberror=0;
($$token,$$value)=(undef,undef);
@$stack=( [ 0, undef ] );
$$check='';
while(1) {
my($actions,$act,$stateno);
$stateno=$$stack[-1][0];
$actions=$$states[$stateno];
#DBG> print STDERR ('-' x 40),"\n";
#DBG> $debug & 0x2
#DBG> and print STDERR "In state $stateno:\n";
#DBG> $debug & 0x08
#DBG> and print STDERR "Stack:[".
#DBG> join(',',map { $$_[0] } @$stack).
#DBG> "]\n";
if (exists($$actions{ACTIONS})) {
defined($$token)
or do {
($$token,$$value)=&$lex($self);
#DBG> $debug & 0x01
#DBG> and print STDERR "Need token. Got ".&$ShowCurToken."\n";
};
$act= exists($$actions{ACTIONS}{$$token})
? $$actions{ACTIONS}{$$token}
: exists($$actions{DEFAULT})
? $$actions{DEFAULT}
: undef;
}
else {
$act=$$actions{DEFAULT};
#DBG> $debug & 0x01
#DBG> and print STDERR "Don't need token.\n";
}
defined($act)
and do {
$act > 0
and do { #shift
#DBG> $debug & 0x04
#DBG> and print STDERR "Shift and go to state $act.\n";
$$errstatus
and do {
--$$errstatus;
#DBG> $debug & 0x10
#DBG> and $dbgerror
#DBG> and $$errstatus == 0
#DBG> and do {
#DBG> print STDERR "**End of Error recovery.\n";
#DBG> $dbgerror=0;
#DBG> };
};
push(@$stack,[ $act, $$value ]);
$$token ne '' #Don't eat the eof
and $$token=$$value=undef;
next;
};
#reduce
my($lhs,$len,$code,@sempar,$semval);
($lhs,$len,$code)=@{$$rules[-$act]};
#DBG> $debug & 0x04
#DBG> and $act
#DBG> and print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";
$act
or $self->YYAccept();
$$dotpos=$len;
unpack('A1',$lhs) eq '@' #In line rule
and do {
$lhs =~ /^\@[0-9]+\-([0-9]+)$/
or die "In line rule name '$lhs' ill formed: ".
"report it as a BUG.\n";
$$dotpos = $1;
};
@sempar = $$dotpos
? map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
: ();
$semval = $code ? &$code( $self, @sempar )
: @sempar ? $sempar[0] : undef;
splice(@$stack,-$len,$len);
$$check eq 'ACCEPT'
and do {
#DBG> $debug & 0x04
#DBG> and print STDERR "Accept.\n";
return($semval);
};
$$check eq 'ABORT'
and do {
#DBG> $debug & 0x04
#DBG> and print STDERR "Abort.\n";
return(undef);
};
#DBG> $debug & 0x04
#DBG> and print STDERR "Back to state $$stack[-1][0], then ";
$$check eq 'ERROR'
or do {
#DBG> $debug & 0x04
#DBG> and print STDERR
#DBG> "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";
#DBG> $debug & 0x10
#DBG> and $dbgerror
#DBG> and $$errstatus == 0
#DBG> and do {
#DBG> print STDERR "**End of Error recovery.\n";
#DBG> $dbgerror=0;
#DBG> };
push(@$stack,
[ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
$$check='';
next;
};
#DBG> $debug & 0x04
#DBG> and print STDERR "Forced Error recovery.\n";
$$check='';
};
#Error
$$errstatus
or do {
$$errstatus = 1;
&$error($self);
$$errstatus # if 0, then YYErrok has been called
or next; # so continue parsing
#DBG> $debug & 0x10
#DBG> and do {
#DBG> print STDERR "**Entering Error recovery.\n";
#DBG> ++$dbgerror;
#DBG> };
++$$nberror;
};
$$errstatus == 3 #The next token is not valid: discard it
and do {
$$token eq '' # End of input: no hope
and do {
#DBG> $debug & 0x10
#DBG> and print STDERR "**At eof: aborting.\n";
return(undef);
};
#DBG> $debug & 0x10
#DBG> and print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";
$$token=$$value=undef;
};
$$errstatus=3;
while( @$stack
and ( not exists($$states[$$stack[-1][0]]{ACTIONS})
or not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
or $$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {
#DBG> $debug & 0x10
#DBG> and print STDERR "**Pop state $$stack[-1][0].\n";
pop(@$stack);
}
@$stack
or do {
#DBG> $debug & 0x10
#DBG> and print STDERR "**No state left on stack: aborting.\n";
return(undef);
};
#shift the error token
#DBG> $debug & 0x10
#DBG> and print STDERR "**Shift \$error token and go to state ".
#DBG> $$states[$$stack[-1][0]]{ACTIONS}{error}.
#DBG> ".\n";
push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);
}
#never reached
croak("Error in driver logic. Please, report it as a BUG");
}#_Parse
#DO NOT remove comment
1;
}
#End of include--------------------------------------------------
#line 1 "lib/Regex/Grammar.yp"
use constant TRUE => "TRUE";
use constant FALSE => 0;
sub tokenize {
my $data = shift;
my @tokens;
my @types;
my $state = 0;
my $depth = 0;
for my $c (split(m{}, $data)) {
if ($state == 0) {
if ($c eq '\\') {
$state = 1;
} elsif ($c eq '{') {
push @tokens, '{';
push @types, 'CODE';
$state = 2;
$depth = 1;
}
else {
if ($c =~ /\d/) {
push @tokens, $c;
push @types, 'NUM';
} elsif ($c =~ /\w/) {
push @tokens, $c;
push @types, 'CHAR';
} elsif ($c =~ /\s/) {
# Skip whitespace, unless backslashed
}
else {
push @tokens, $c;
push @types, $c;
}
}
} elsif ($state == 1) {
push @tokens, $c;
push @types, 'CHAR';
$state = 0;
}
else {
if ($c eq '{') {
++$depth;
} elsif ($c eq '}') {
if (--$depth == 0) {
$state = 0;
}
}
$tokens[-1] .= $c;
}
}
# for (0..$#tokens) { print STDERR " $tokens[$_] $types[$_]\n"; }
return \@tokens, \@types;
}
sub op {
Regex::Ops::Tree->op(@_);
}
$::paren = 0;
sub new {
my($class)=shift;
ref($class)
and $class=ref($class);
my($self)=$class->SUPER::new( yyversion => '1.05',
yystates =>
[
{#State 0
DEFAULT => -2,
GOTOS => {
'rules' => 1
}
},
{#State 1
ACTIONS => {
'' => 2,
'CHAR' => 4,
"<" => 3,
"&" => 5,
'CODE' => 6,
"(" => 9,
"^" => 10,
"[" => 14,
"." => 15
},
GOTOS => {
'expr' => 12,
'charclass' => 11,
'regex' => 13,
'rule' => 8,
'regex1' => 7
}
},
{#State 2
DEFAULT => 0
},
{#State 3
ACTIONS => {
"?" => 16
},
DEFAULT => -28,
GOTOS => {
'rulename' => 17
}
},
{#State 4
DEFAULT => -11
},
{#State 5
DEFAULT => -28,
GOTOS => {
'rulename' => 18
}
},
{#State 6
DEFAULT => -26
},
{#State 7
DEFAULT => -6
},
{#State 8
DEFAULT => -1
},
{#State 9
ACTIONS => {
"?" => 19
},
DEFAULT => -21,
GOTOS => {
'@1-1' => 20
}
},
{#State 10
ACTIONS => {
"(" => 9,
'CHAR' => 4,
"<" => 3,
"[" => 14,
'CODE' => 6,
"." => 15
},
GOTOS => {
'expr' => 12,
'charclass' => 11,
'regex1' => 21
}
},
{#State 11
DEFAULT => -12
},
{#State 12
ACTIONS => {
"?" => 23,
'CHAR' => 4,
"<" => 22,
"+" => 24,
'CODE' => 6,
"(" => 9,
"|" => 26,
"*" => 27,
"\$" => 29,
"[" => 14,
"." => 15
},
DEFAULT => -7,
GOTOS => {
'expr' => 28,
'charclass' => 11,
'range' => 25
}
},
{#State 13
DEFAULT => -4
},
{#State 14
ACTIONS => {
"-" => 31,
"^" => 32
},
DEFAULT => -40,
GOTOS => {
'classpieces' => 30
}
},
{#State 15
DEFAULT => -38
},
{#State 16
DEFAULT => -28,
GOTOS => {
'rulename' => 33
}
},
{#State 17
ACTIONS => {
'CHAR' => 34,
">" => 35
}
},
{#State 18
ACTIONS => {
'CHAR' => 34,
"=" => 36
}
},
{#State 19
ACTIONS => {
":" => 37
}
},
{#State 20
ACTIONS => {
"(" => 9,
'CHAR' => 4,
"<" => 3,
"[" => 14,
'CODE' => 6,
"." => 15
},
GOTOS => {
'expr' => 38,
'charclass' => 11
}
},
{#State 21
DEFAULT => -5
},
{#State 22
ACTIONS => {
'NUM' => 40,
"?" => 16,
"." => 41
},
DEFAULT => -28,
GOTOS => {
'number' => 39,
'rulename' => 17
}
},
{#State 23
ACTIONS => {
"?" => undef
},
DEFAULT => -17
},
{#State 24
ACTIONS => {
"?" => 43
},
DEFAULT => -15
},
{#State 25
ACTIONS => {
"?" => 44
},
DEFAULT => -19
},
{#State 26
ACTIONS => {
"(" => 9,
'CHAR' => 4,
"<" => 3,
"[" => 14,
'CODE' => 6,
"." => 15
},
GOTOS => {
'expr' => 45,
'charclass' => 11
}
},
{#State 27
ACTIONS => {
"?" => 46
},
DEFAULT => -13
},
{#State 28
ACTIONS => {
"?" => 23,
'CHAR' => 4,
"<" => 22,
"+" => 24,
'CODE' => 6,
"(" => 9,
"*" => 27,
"[" => 14,
"." => 15
},
DEFAULT => -10,
GOTOS => {
'expr' => 28,
'charclass' => 11,
'range' => 25
}
},
{#State 29
DEFAULT => -8
},
{#State 30
ACTIONS => {
'NUM' => 49,
'CHAR' => 47,
"]" => 50
},
GOTOS => {
'classpiece' => 48
}
},
{#State 31
DEFAULT => -40,
GOTOS => {
'classpieces' => 51
}
},
{#State 32
DEFAULT => -40,
GOTOS => {
'classpieces' => 52
}
},
{#State 33
ACTIONS => {
'CHAR' => 34,
">" => 53
}
},
{#State 34
DEFAULT => -27
},
{#State 35
DEFAULT => -24
},
{#State 36
ACTIONS => {
"^" => 10,
"(" => 9,
'CHAR' => 4,
"<" => 3,
"[" => 14,
'CODE' => 6,
"." => 15
},
GOTOS => {
'expr' => 12,
'charclass' => 11,
'regex' => 54,
'regex1' => 7
}
},
{#State 37
ACTIONS => {
"(" => 9,
'CHAR' => 4,
"<" => 3,
"[" => 14,
'CODE' => 6,
"." => 15
},
GOTOS => {
'expr' => 55,
'charclass' => 11
}
},
{#State 38
ACTIONS => {
"?" => 23,
'CHAR' => 4,
"<" => 22,
"+" => 24,
'CODE' => 6,
"(" => 9,
"|" => 26,
"*" => 27,
"[" => 14,
")" => 56,
"." => 15
},
GOTOS => {
'expr' => 28,
'charclass' => 11,
'range' => 25
}
},
{#State 39
ACTIONS => {
'NUM' => 57,
"." => 58,
">" => 59
}
},
{#State 40
DEFAULT => -34
},
{#State 41
ACTIONS => {
"." => 60
}
},
{#State 42
DEFAULT => -18
},
{#State 43
DEFAULT => -16
},
{#State 44
DEFAULT => -20
},
{#State 45
ACTIONS => {
"?" => 23,
'CHAR' => 4,
"<" => 22,
"+" => 24,
'CODE' => 6,
"(" => 9,
"*" => 27,
"[" => 14,
"." => 15
},
DEFAULT => -9,
GOTOS => {
'expr' => 28,
'charclass' => 11,
'range' => 25
}
},
{#State 46
DEFAULT => -14
},
{#State 47
ACTIONS => {
"-" => 61
},
DEFAULT => -42
},
{#State 48
DEFAULT => -39
},
{#State 49
ACTIONS => {
"-" => 62
},
DEFAULT => -44
},
{#State 50
DEFAULT => -37
},
{#State 51
ACTIONS => {
'NUM' => 49,
'CHAR' => 47,
"]" => 63
},
GOTOS => {
'classpiece' => 48
}
},
{#State 52
ACTIONS => {
'NUM' => 49,
'CHAR' => 47,
"]" => 64
},
GOTOS => {
'classpiece' => 48
}
},
{#State 53
DEFAULT => -25
},
{#State 54
DEFAULT => -3
},
{#State 55
ACTIONS => {
"?" => 23,
'CHAR' => 4,
"<" => 22,
"+" => 24,
'CODE' => 6,
"(" => 9,
"|" => 26,
"*" => 27,
"[" => 14,
")" => 65,
"." => 15
},
GOTOS => {
'expr' => 28,
'charclass' => 11,
'range' => 25
}
},
{#State 56
DEFAULT => -22
},
{#State 57
DEFAULT => -33
},
{#State 58
ACTIONS => {
"." => 66
}
},
{#State 59
DEFAULT => -31
},
{#State 60
ACTIONS => {
'NUM' => 40
},
GOTOS => {
'number' => 67
}
},
{#State 61
ACTIONS => {
'CHAR' => 68
}
},
{#State 62
ACTIONS => {
'NUM' => 69
}
},
{#State 63
DEFAULT => -36
},
{#State 64
DEFAULT => -35
},
{#State 65
DEFAULT => -23
},
{#State 66
ACTIONS => {
'NUM' => 40,
">" => 71
},
GOTOS => {
'number' => 70
}
},
{#State 67
ACTIONS => {
'NUM' => 57,
">" => 72
}
},
{#State 68
DEFAULT => -41
},
{#State 69
DEFAULT => -43
},
{#State 70
ACTIONS => {
'NUM' => 57,
">" => 73
}
},
{#State 71
DEFAULT => -32
},
{#State 72
DEFAULT => -30
},
{#State 73
DEFAULT => -29
}
],
yyrules =>
[
[#Rule 0
'$start', 2, undef
],
[#Rule 1
'rules', 2,
sub
#line 76 "lib/Regex/Grammar.yp"
{ return [ @{ $_[1] }, $_[2] ] }
],
[#Rule 2
'rules', 0,
sub
#line 78 "lib/Regex/Grammar.yp"
{ return []; }
],
[#Rule 3
'rule', 4,
sub
#line 82 "lib/Regex/Grammar.yp"
{ my ($name, $tree) = @_[2,4];
# This is really not the place for this...
if ($tree->{name} eq 'scan' && $name ne 'default') {
$tree = $tree->{args}->[0];
}
my $op = op('rule' => [ $name, $tree, 1 + $::paren ]);
$::paren = 0; # RT#42393!
return $op;
}
],
[#Rule 4
'rule', 1,
sub
#line 92 "lib/Regex/Grammar.yp"
{
my $op = op('rule' => [ 'default', $_[1], 1 + $::paren ]);
$::paren = 0; # RT#42393!
return $op;
}
],
[#Rule 5
'regex', 2,
sub
#line 100 "lib/Regex/Grammar.yp"
{ return $_[2]; }
],
[#Rule 6
'regex', 1,
sub
#line 102 "lib/Regex/Grammar.yp"
{ return op('scan' => [ $_[1] ]); }
],
[#Rule 7
'regex1', 1,
sub
#line 106 "lib/Regex/Grammar.yp"
{ return $_[1]; }
],
[#Rule 8
'regex1', 2,
sub
#line 108 "lib/Regex/Grammar.yp"
{ return op('seq' => [ $_[1], op('atend') ]); }
],
[#Rule 9
'expr', 3,
sub
#line 112 "lib/Regex/Grammar.yp"
{ return op('alternate' => [ $_[1], $_[3] ]); }
],
[#Rule 10
'expr', 2,
sub
#line 114 "lib/Regex/Grammar.yp"
{ return op('seq' => [ $_[1], $_[2] ]); }
],
[#Rule 11
'expr', 1,
sub
#line 116 "lib/Regex/Grammar.yp"
{ return op('match' => [ ord($_[1]) ]); }
],
[#Rule 12
'expr', 1,
sub
#line 118 "lib/Regex/Grammar.yp"
{ return op('classpieces' => [ $_[1] ]); }
],
[#Rule 13
'expr', 2,
sub
#line 120 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ 0, -1, TRUE, $_[1] ]); }
],
[#Rule 14
'expr', 3,
sub
#line 122 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ 0, -1, FALSE, $_[1] ]); }
],
[#Rule 15
'expr', 2,
sub
#line 124 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ 1, -1, TRUE, $_[1] ]); }
],
[#Rule 16
'expr', 3,
sub
#line 126 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ 1, -1, FALSE, $_[1] ]); }
],
[#Rule 17
'expr', 2,
sub
#line 128 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ 0, 1, TRUE, $_[1] ]); }
],
[#Rule 18
'expr', 3,
sub
#line 130 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ 0, 1, FALSE, $_[1] ]); }
],
[#Rule 19
'expr', 2,
sub
#line 132 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{max}, TRUE, $_[1] ]); }
],
[#Rule 20
'expr', 3,
sub
#line 134 "lib/Regex/Grammar.yp"
{ return op('multi_match' => [ $_[2]->{min}, $_[2]->{max}, FALSE, $_[1] ]); }
],
[#Rule 21
'@1-1', 0,
sub
#line 135 "lib/Regex/Grammar.yp"
{ ++$::paren }
],
[#Rule 22
'expr', 4,
sub
#line 136 "lib/Regex/Grammar.yp"
{ return op('group' => [ $_[3], $_[2] ]) }
],
[#Rule 23
'expr', 5,
sub
#line 138 "lib/Regex/Grammar.yp"
{ return $_[4]; }
],
[#Rule 24
'expr', 3,
sub
#line 140 "lib/Regex/Grammar.yp"
{ return op('call' => [ $_[2], 0 ]) }
],
[#Rule 25
'expr', 4,
sub
#line 142 "lib/Regex/Grammar.yp"
{ return op('group', [ op('call' => [ $_[3], 1 ]), ++$::paren ]) }
],
[#Rule 26
'expr', 1,
sub
#line 144 "lib/Regex/Grammar.yp"
{ return op('code' => [ $_[1] ]) }
],
[#Rule 27
'rulename', 2,
sub
#line 148 "lib/Regex/Grammar.yp"
{ return $_[1] . $_[2]; }
],
[#Rule 28
'rulename', 0,
sub
#line 150 "lib/Regex/Grammar.yp"
{ return '' }
],
[#Rule 29
'range', 6,
sub
#line 154 "lib/Regex/Grammar.yp"
{ return { min => $_[2], max => $_[5] }; }
],
[#Rule 30
'range', 5,
sub
#line 156 "lib/Regex/Grammar.yp"
{ return { min => 0, max => $_[4] }; }
],
[#Rule 31
'range', 3,
sub
#line 158 "lib/Regex/Grammar.yp"
{ return { min => $_[2], max => $_[2] }; }
],
[#Rule 32
'range', 5,
sub
#line 160 "lib/Regex/Grammar.yp"
{ return { min => $_[2], max => -1 }; }
],
[#Rule 33
'number', 2,
sub
#line 163 "lib/Regex/Grammar.yp"
{ return $_[1] * 10 + $_[2]; }
],
[#Rule 34
'number', 1,
sub
#line 164 "lib/Regex/Grammar.yp"
{ return $_[1]; }
],
[#Rule 35
'charclass', 4,
sub
#line 167 "lib/Regex/Grammar.yp"
{ return [ 'neg', $_[3] ]; }
],
[#Rule 36
'charclass', 4,
sub
#line 168 "lib/Regex/Grammar.yp"
{ push @{$_[3]}, '-'; return $_[3]; }
],
[#Rule 37
'charclass', 3,
sub
#line 169 "lib/Regex/Grammar.yp"
{ return $_[2]; }
],
[#Rule 38
'charclass', 1,
sub
#line 170 "lib/Regex/Grammar.yp"
{ return [ 'neg', [] ]; }
],
[#Rule 39
'classpieces', 2,
sub
#line 173 "lib/Regex/Grammar.yp"
{ push @{$_[1]}, $_[2]; return $_[1]; }
],
[#Rule 40
'classpieces', 0,
sub
#line 174 "lib/Regex/Grammar.yp"
{ return []; }
],
[#Rule 41
'classpiece', 3,
sub
#line 178 "lib/Regex/Grammar.yp"
{ return [ $_[1], $_[3] ] }
],
[#Rule 42
'classpiece', 1,
sub
#line 180 "lib/Regex/Grammar.yp"
{ return $_[1]; }
],
[#Rule 43
'classpiece', 3,
sub
#line 182 "lib/Regex/Grammar.yp"
{ return [ $_[1], $_[3] ] }
],
[#Rule 44
'classpiece', 1,
sub
#line 184 "lib/Regex/Grammar.yp"
{ return $_[1]; }
]
],
@_);
bless($self,$class);
}
#line 187 "lib/Regex/Grammar.yp"
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
1;
syntax highlighted by Code2HTML, v. 0.9.1