"?" => 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;