expr.pm

wireshark 0.99.7 最新源码

			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -6
	},
	{#State 48
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"==" => 20,
			"^" => 21,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -9
	},
	{#State 49
		ACTIONS => {
			"^" => 21,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -13
	},
	{#State 50
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"%" => 19,
			"==" => 20,
			"^" => 21,
			"*" => 22,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"/" => 29,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -28
	},
	{#State 51
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"==" => 20,
			"^" => 21,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -8
	},
	{#State 52
		ACTIONS => {
			"<" => 17,
			"==" => 20,
			"^" => 21,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -17
	},
	{#State 53
		ACTIONS => {
			"^" => 21,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -18
	},
	{#State 54
		ACTIONS => {
			":" => 73,
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"%" => 19,
			"==" => 20,
			"^" => 21,
			"*" => 22,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"/" => 29,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		}
	},
	{#State 55
		ACTIONS => {
			"^" => 21,
			"?" => 25,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -19
	},
	{#State 56
		ACTIONS => {
			"^" => 21,
			"?" => 25,
			"||" => 26,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -20
	},
	{#State 57
		ACTIONS => {
			"^" => 21,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"|" => 30,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -21
	},
	{#State 58
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"==" => 20,
			"^" => 21,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -25
	},
	{#State 59
		ACTIONS => {
			"^" => 21,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -12
	},
	{#State 60
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"%" => 19,
			"==" => 20,
			"^" => 21,
			"*" => 22,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"/" => 29,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -15
	},
	{#State 61
		ACTIONS => {
			"<" => 17,
			"==" => 20,
			"^" => 21,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -16
	},
	{#State 62
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"%" => 19,
			"==" => 20,
			"^" => 21,
			"*" => 22,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"/" => 29,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -14
	},
	{#State 63
		ACTIONS => {
			"==" => 20,
			"^" => 21,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"|" => 30,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -11
	},
	{#State 64
		DEFAULT => -34
	},
	{#State 65
		DEFAULT => -29
	},
	{#State 66
		DEFAULT => -38
	},
	{#State 67
		ACTIONS => {
			"," => 74
		},
		DEFAULT => -41
	},
	{#State 68
		DEFAULT => -32
	},
	{#State 69
		ACTIONS => {
			"-" => 15,
			"<" => 17,
			"+" => 18,
			"%" => 19,
			"==" => 20,
			"^" => 21,
			"*" => 22,
			">>" => 23,
			"!=" => 24,
			"?" => 25,
			"&&" => 27,
			"||" => 26,
			"&" => 28,
			"/" => 29,
			"|" => 30,
			"=>" => 31,
			"<<" => 32,
			"<=" => 33,
			">" => 34
		},
		DEFAULT => -39
	},
	{#State 70
		ACTIONS => {
			")" => 75
		}
	},
	{#State 71
		DEFAULT => -35
	},
	{#State 72
		DEFAULT => -33
	},
	{#State 73
		ACTIONS => {
			"-" => 1,
			"~" => 3,
			"&" => 4,
			'TEXT' => 6,
			'NUM' => 5,
			"!" => 8,
			"(" => 7,
			"*" => 9,
			'VAR' => 10
		},
		GOTOS => {
			'exp' => 76,
			'var' => 11,
			'func' => 12,
			'possible_pointer' => 13
		}
	},
	{#State 74
		ACTIONS => {
			"-" => 1,
			"~" => 3,
			"&" => 4,
			'TEXT' => 6,
			'NUM' => 5,
			"!" => 8,
			"(" => 7,
			"*" => 9,
			'VAR' => 10
		},
		GOTOS => {
			'exp' => 69,
			'var' => 11,
			'args' => 77,
			'func' => 12,
			'exp_or_possible_pointer' => 67,
			'possible_pointer' => 68
		}
	},
	{#State 75
		DEFAULT => -36
	},
	{#State 76
		ACTIONS => {
			"^" => 21,
			"=>" => 31,
			"<=" => 33
		},
		DEFAULT => -22
	},
	{#State 77
		DEFAULT => -42
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'exp', 1, undef
	],
	[#Rule 2
		 'exp', 1,
sub
#line 22 "pidl/expr.yp"
{ "\"$_[1]\"" }
	],
	[#Rule 3
		 'exp', 1, undef
	],
	[#Rule 4
		 'exp', 1, undef
	],
	[#Rule 5
		 'exp', 2,
sub
#line 25 "pidl/expr.yp"
{ "~$_[2]" }
	],
	[#Rule 6
		 'exp', 3,
sub
#line 26 "pidl/expr.yp"
{ "$_[1] + $_[3]" }
	],
	[#Rule 7
		 'exp', 3,
sub
#line 27 "pidl/expr.yp"
{ "$_[1] - $_[3]" }
	],
	[#Rule 8
		 'exp', 3,
sub
#line 28 "pidl/expr.yp"
{ "$_[1] * $_[3]" }
	],
	[#Rule 9
		 'exp', 3,
sub
#line 29 "pidl/expr.yp"
{ "$_[1] % $_[3]" }
	],
	[#Rule 10
		 'exp', 3,
sub
#line 30 "pidl/expr.yp"
{ "$_[1] < $_[3]" }
	],
	[#Rule 11
		 'exp', 3,
sub
#line 31 "pidl/expr.yp"
{ "$_[1] > $_[3]" }
	],
	[#Rule 12
		 'exp', 3,
sub
#line 32 "pidl/expr.yp"
{ "$_[1] | $_[3]" }
	],
	[#Rule 13
		 'exp', 3,
sub
#line 33 "pidl/expr.yp"
{ "$_[1] == $_[3]" }
	],
	[#Rule 14
		 'exp', 3,
sub
#line 34 "pidl/expr.yp"
{ "$_[1] <= $_[3]" }
	],
	[#Rule 15
		 'exp', 3,
sub
#line 35 "pidl/expr.yp"
{ "$_[1] => $_[3]" }
	],
	[#Rule 16
		 'exp', 3,
sub
#line 36 "pidl/expr.yp"
{ "$_[1] << $_[3]" }
	],
	[#Rule 17
		 'exp', 3,
sub
#line 37 "pidl/expr.yp"
{ "$_[1] >> $_[3]" }
	],
	[#Rule 18
		 'exp', 3,
sub
#line 38 "pidl/expr.yp"
{ "$_[1] != $_[3]" }
	],
	[#Rule 19
		 'exp', 3,
sub
#line 39 "pidl/expr.yp"
{ "$_[1] || $_[3]" }
	],
	[#Rule 20
		 'exp', 3,
sub
#line 40 "pidl/expr.yp"
{ "$_[1] && $_[3]" }
	],
	[#Rule 21
		 'exp', 3,
sub
#line 41 "pidl/expr.yp"
{ "$_[1] & $_[3]" }
	],
	[#Rule 22
		 'exp', 5,
sub
#line 42 "pidl/expr.yp"
{ "$_[1]?$_[3]:$_[5]" }
	],
	[#Rule 23
		 'exp', 2,
sub
#line 43 "pidl/expr.yp"
{ "~$_[1]" }
	],
	[#Rule 24
		 'exp', 2,
sub
#line 44 "pidl/expr.yp"
{ "not $_[1]" }
	],
	[#Rule 25
		 'exp', 3,
sub
#line 45 "pidl/expr.yp"
{ "$_[1] / $_[3]" }
	],
	[#Rule 26
		 'exp', 2,
sub
#line 46 "pidl/expr.yp"
{ "-$_[2]" }
	],
	[#Rule 27
		 'exp', 2,
sub
#line 47 "pidl/expr.yp"
{ "&$_[2]" }
	],
	[#Rule 28
		 'exp', 3,
sub
#line 48 "pidl/expr.yp"
{ "$_[1]^$_[3]" }
	],
	[#Rule 29
		 'exp', 3,
sub
#line 49 "pidl/expr.yp"
{ "($_[2])" }
	],
	[#Rule 30
		 'possible_pointer', 1,
sub
#line 53 "pidl/expr.yp"
{ $_[0]->_Lookup($_[1]) }
	],
	[#Rule 31
		 'possible_pointer', 2,
sub
#line 54 "pidl/expr.yp"
{ $_[0]->_Dereference($_[2]); "*$_[2]" }
	],
	[#Rule 32
		 'var', 1,
sub
#line 57 "pidl/expr.yp"
{ $_[0]->_Use($_[1]) }
	],
	[#Rule 33
		 'var', 3,
sub
#line 58 "pidl/expr.yp"
{ $_[0]->_Use("$_[1].$_[3]") }
	],
	[#Rule 34
		 'var', 3,
sub
#line 59 "pidl/expr.yp"
{ "($_[2])" }
	],
	[#Rule 35
		 'var', 3,
sub
#line 60 "pidl/expr.yp"
{ $_[0]->_Use("*$_[1]"); $_[1]."->".$_[3] }
	],
	[#Rule 36
		 'func', 4,
sub
#line 64 "pidl/expr.yp"
{ "$_[1]($_[3])" }
	],
	[#Rule 37
		 'opt_args', 0,
sub
#line 65 "pidl/expr.yp"
{ "" }
	],
	[#Rule 38
		 'opt_args', 1, undef
	],
	[#Rule 39
		 'exp_or_possible_pointer', 1, undef
	],
	[#Rule 40
		 'exp_or_possible_pointer', 1, undef
	],
	[#Rule 41
		 'args', 1, undef
	],
	[#Rule 42
		 'args', 3,
sub
#line 68 "pidl/expr.yp"
{ "$_[1], $_[3]" }
	]
],
                                  @_);
    bless($self,$class);
}

#line 71 "pidl/expr.yp"


package Parse::Pidl::Expr;

sub _Lexer {
    my($parser)=shift;

    $parser->YYData->{INPUT}=~s/^[ \t]//;

    for ($parser->YYData->{INPUT}) {
        if (s/^(0x[0-9A-Fa-f]+)//) {
			$parser->YYData->{LAST_TOKEN} = $1;
            return('NUM',$1);
		}
        if (s/^([0-9]+(?:\.[0-9]+)?)//) {
			$parser->YYData->{LAST_TOKEN} = $1;
            return('NUM',$1);
		}
        if (s/^([A-Za-z_][A-Za-z0-9_]*)//) {
			$parser->YYData->{LAST_TOKEN} = $1;
        	return('VAR',$1);
		}
		if (s/^\"(.*?)\"//) {
			$parser->YYData->{LAST_TOKEN} = $1;
			return('TEXT',$1); 
		}
		if (s/^(==|!=|<=|>=|->|\|\||<<|>>|&&)//s) {
			$parser->YYData->{LAST_TOKEN} = $1;
            return($1,$1);
		}
        if (s/^(.)//s) {
			$parser->YYData->{LAST_TOKEN} = $1;
            return($1,$1);
		}
    }
}

sub _Use($$)
{
	my ($self, $x) = @_;
	if (defined($self->YYData->{USE})) {
		return $self->YYData->{USE}->($x);
	}
	return $x;
}

sub _Lookup($$) 
{
	my ($self, $x) = @_;
	return $self->YYData->{LOOKUP}->($x);
}

sub _Dereference($$)
{
	my ($self, $x) = @_;
	if (defined($self->YYData->{DEREFERENCE})) {
		$self->YYData->{DEREFERENCE}->($x);
	}
}

sub _Error($)
{
	my ($self) = @_;
	if (defined($self->YYData->{LAST_TOKEN})) {
		$self->YYData->{ERROR}->("Parse error in `".$self->YYData->{FULL_INPUT}."' near `". $self->YYData->{LAST_TOKEN} . "'");
	} else {
		$self->YYData->{ERROR}->("Parse error in `".$self->YYData->{FULL_INPUT}."'");
	}
}

sub Run {
    my($self, $data, $error, $lookup, $deref, $use) = @_;
    $self->YYData->{FULL_INPUT} = $data;
    $self->YYData->{INPUT} = $data;
    $self->YYData->{LOOKUP} = $lookup;
    $self->YYData->{DEREFERENCE} = $deref;
    $self->YYData->{ERROR} = $error;
    $self->YYData->{USE} = $use;
    return $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error);
}

1;