summaryrefslogtreecommitdiff
path: root/source4/pidl
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2007-01-05 20:12:21 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 14:36:57 -0500
commit3c7a84a2055dde0953a240ce5b03c943f4f2d8f1 (patch)
treef4f68af8326987abe84d8ce86c67736cc9abc6f6 /source4/pidl
parent8a2636af4ac675ca427d5e1999672141a560e3c2 (diff)
downloadsamba-3c7a84a2055dde0953a240ce5b03c943f4f2d8f1.tar.gz
samba-3c7a84a2055dde0953a240ce5b03c943f4f2d8f1.tar.bz2
samba-3c7a84a2055dde0953a240ce5b03c943f4f2d8f1.zip
r20561: Add parser for subexpressions used in IDL attributes.
(This used to be commit 7e7fdb01d3fba449f33b7b67ba0e3a0089dd3902)
Diffstat (limited to 'source4/pidl')
-rw-r--r--source4/pidl/expr.yp116
-rw-r--r--source4/pidl/lib/Parse/Pidl/Expr.pm1357
2 files changed, 1473 insertions, 0 deletions
diff --git a/source4/pidl/expr.yp b/source4/pidl/expr.yp
new file mode 100644
index 0000000000..5b248ea5d6
--- /dev/null
+++ b/source4/pidl/expr.yp
@@ -0,0 +1,116 @@
+# expr.yp
+# Copyright (C) 2006 Jelmer Vernooij <jelmer@samba.org>
+# Published under the GNU GPL
+#
+%left '->'
+%right '!' '~'
+%left '*' '/' '%'
+%left '+' '-'
+%left '<<' '>>'
+%left '>' '<'
+%left '==' '!='
+%left '&'
+%left '|'
+%left '&&'
+%left '||'
+%left '?' ':'
+%left NEG DEREF ADDROF INV
+%left '.'
+
+%%
+exp: NUM
+ | TEXT { "\"$_[1]\"" }
+ | func
+ | exp '.' VAR { "$_[1].$_[3]" }
+ | VAR { $_[0]->Lookup($_[1]) }
+ | '*' exp %prec DEREF { $_[0]->Dereference($_[2]); "*$_[2]" }
+ | '~' exp %prec INV { "~$_[2]" }
+ | exp '+' exp { "$_[1] + $_[3]" }
+ | exp '-' exp { "$_[1] - $_[3]" }
+ | exp '*' exp { "$_[1] * $_[3]" }
+ | exp '%' exp { "$_[1] % $_[3]" }
+ | exp '<' exp { "$_[1] < $_[3]" }
+ | exp '>' exp { "$_[1] > $_[3]" }
+ | exp '|' exp { "$_[1] | $_[3]" }
+ | exp '==' exp { "$_[1] == $_[3]" }
+ | exp '<=' exp { "$_[1] <= $_[3]" }
+ | exp '=>' exp { "$_[1] => $_[3]" }
+ | exp '<<' exp { "$_[1] << $_[3]" }
+ | exp '>>' exp { "$_[1] >> $_[3]" }
+ | exp '!=' exp { "$_[1] != $_[3]" }
+ | exp '||' exp { "$_[1] || $_[3]" }
+ | exp '&&' exp { "$_[1] && $_[3]" }
+ | exp '&' exp { "$_[1] & $_[3]" }
+ | exp '->' VAR { $_[1]."->".$_[3] }
+ | exp '?' exp ':' exp { "$_[1]?$_[3]:$_[5]" }
+ | '~' exp { "~$_[1]" }
+ | '!' exp { "not $_[1]" }
+ | exp '/' exp { "$_[1] / $_[3]" }
+ | '-' exp %prec NEG { "-$_[2]" }
+ | '&' exp %prec ADDROF { "&$_[2]" }
+ | exp '^' exp { "$_[1]^$_[3]" }
+ | '(' exp ')' { "($_[2])" }
+;
+
+func: VAR '(' opt_args ')' { "$_[1]($_[3])" };
+opt_args: { "" } | args;
+args: exp | exp ',' args { "$_[1], $_[3]" };
+
+%%
+
+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 Lookup($$)
+{
+ my ($self, $x) = @_;
+ return $self->YYData->{LOOKUP}->($x);
+}
+
+sub Dereference($$)
+{
+ my ($self, $x) = @_;
+ if (defined($self->YYData->{DEREFERENCE})) {
+ $self->YYData->{DEREFERENCE}->($x);
+ }
+}
+
+sub Run {
+ my($self, $data, $error, $lookup, $deref) = @_;
+ $self->YYData->{INPUT} = $data;
+ $self->YYData->{LOOKUP} = $lookup;
+ $self->YYData->{DEREFERENCE} = $deref;
+ return $self->YYParse( yylex => \&_Lexer, yyerror => $error );
+}
diff --git a/source4/pidl/lib/Parse/Pidl/Expr.pm b/source4/pidl/lib/Parse/Pidl/Expr.pm
new file mode 100644
index 0000000000..1d663e1668
--- /dev/null
+++ b/source4/pidl/lib/Parse/Pidl/Expr.pm
@@ -0,0 +1,1357 @@
+####################################################################
+#
+# 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 Parse::Pidl::Expr;
+use vars qw ( @ISA );
+use strict;
+
+@ISA= qw ( Parse::Yapp::Driver );
+use Parse::Yapp::Driver;
+
+
+
+sub new {
+ my($class)=shift;
+ ref($class)
+ and $class=ref($class);
+
+ my($self)=$class->SUPER::new( yyversion => '1.05',
+ yystates =>
+[
+ {#State 0
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'NUM' => 5,
+ 'TEXT' => 6,
+ "(" => 7,
+ "!" => 8,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 2,
+ 'func' => 11
+ }
+ },
+ {#State 1
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "(" => 7,
+ "!" => 8,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 12,
+ 'func' => 11
+ }
+ },
+ {#State 2
+ ACTIONS => {
+ '' => 14,
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "->" => 28,
+ "|" => 29,
+ "<<" => 31,
+ "=>" => 30,
+ "<=" => 33,
+ "." => 32,
+ ">" => 34
+ }
+ },
+ {#State 3
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 35,
+ 'func' => 11
+ }
+ },
+ {#State 4
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 36,
+ 'func' => 11
+ }
+ },
+ {#State 5
+ DEFAULT => -1
+ },
+ {#State 6
+ DEFAULT => -2
+ },
+ {#State 7
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 37,
+ 'func' => 11
+ }
+ },
+ {#State 8
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 38,
+ 'func' => 11
+ }
+ },
+ {#State 9
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 39,
+ 'func' => 11
+ }
+ },
+ {#State 10
+ ACTIONS => {
+ "(" => 40
+ },
+ DEFAULT => -5
+ },
+ {#State 11
+ DEFAULT => -3
+ },
+ {#State 12
+ ACTIONS => {
+ "^" => 19,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -29
+ },
+ {#State 13
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 41,
+ 'func' => 11
+ }
+ },
+ {#State 14
+ DEFAULT => 0
+ },
+ {#State 15
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 42,
+ 'func' => 11
+ }
+ },
+ {#State 16
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 43,
+ 'func' => 11
+ }
+ },
+ {#State 17
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 44,
+ 'func' => 11
+ }
+ },
+ {#State 18
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 45,
+ 'func' => 11
+ }
+ },
+ {#State 19
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 46,
+ 'func' => 11
+ }
+ },
+ {#State 20
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 47,
+ 'func' => 11
+ }
+ },
+ {#State 21
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 48,
+ 'func' => 11
+ }
+ },
+ {#State 22
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 49,
+ 'func' => 11
+ }
+ },
+ {#State 23
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 50,
+ 'func' => 11
+ }
+ },
+ {#State 24
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 51,
+ 'func' => 11
+ }
+ },
+ {#State 25
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 52,
+ 'func' => 11
+ }
+ },
+ {#State 26
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 53,
+ 'func' => 11
+ }
+ },
+ {#State 27
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 54,
+ 'func' => 11
+ }
+ },
+ {#State 28
+ ACTIONS => {
+ 'VAR' => 55
+ }
+ },
+ {#State 29
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 56,
+ 'func' => 11
+ }
+ },
+ {#State 30
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 57,
+ 'func' => 11
+ }
+ },
+ {#State 31
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 58,
+ 'func' => 11
+ }
+ },
+ {#State 32
+ ACTIONS => {
+ 'VAR' => 59
+ }
+ },
+ {#State 33
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 60,
+ 'func' => 11
+ }
+ },
+ {#State 34
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 61,
+ 'func' => 11
+ }
+ },
+ {#State 35
+ ACTIONS => {
+ "^" => 19,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -7
+ },
+ {#State 36
+ ACTIONS => {
+ "^" => 19,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -30
+ },
+ {#State 37
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ")" => 62,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "->" => 28,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ }
+ },
+ {#State 38
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -27
+ },
+ {#State 39
+ ACTIONS => {
+ "^" => 19,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -6
+ },
+ {#State 40
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ DEFAULT => -34,
+ GOTOS => {
+ 'exp' => 64,
+ 'args' => 63,
+ 'func' => 11,
+ 'opt_args' => 65
+ }
+ },
+ {#State 41
+ ACTIONS => {
+ "<" => 15,
+ "==" => 18,
+ "^" => 19,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -9
+ },
+ {#State 42
+ ACTIONS => {
+ "==" => 18,
+ "^" => 19,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -12
+ },
+ {#State 43
+ ACTIONS => {
+ "<" => 15,
+ "==" => 18,
+ "^" => 19,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -8
+ },
+ {#State 44
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "==" => 18,
+ "^" => 19,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -11
+ },
+ {#State 45
+ ACTIONS => {
+ "^" => 19,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -15
+ },
+ {#State 46
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "->" => 28,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -31
+ },
+ {#State 47
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "==" => 18,
+ "^" => 19,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -10
+ },
+ {#State 48
+ ACTIONS => {
+ "<" => 15,
+ "==" => 18,
+ "^" => 19,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -19
+ },
+ {#State 49
+ ACTIONS => {
+ "^" => 19,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -20
+ },
+ {#State 50
+ ACTIONS => {
+ ":" => 66,
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "->" => 28,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ }
+ },
+ {#State 51
+ ACTIONS => {
+ "^" => 19,
+ "?" => 23,
+ "||" => 25,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -22
+ },
+ {#State 52
+ ACTIONS => {
+ "^" => 19,
+ "?" => 23,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -21
+ },
+ {#State 53
+ ACTIONS => {
+ "^" => 19,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -23
+ },
+ {#State 54
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "==" => 18,
+ "^" => 19,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -28
+ },
+ {#State 55
+ DEFAULT => -24
+ },
+ {#State 56
+ ACTIONS => {
+ "^" => 19,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -14
+ },
+ {#State 57
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "->" => 28,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -17
+ },
+ {#State 58
+ ACTIONS => {
+ "<" => 15,
+ "==" => 18,
+ "^" => 19,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -18
+ },
+ {#State 59
+ DEFAULT => -4
+ },
+ {#State 60
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "/" => 27,
+ "->" => 28,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -16
+ },
+ {#State 61
+ ACTIONS => {
+ "==" => 18,
+ "^" => 19,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "|" => 29,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -13
+ },
+ {#State 62
+ DEFAULT => -32
+ },
+ {#State 63
+ DEFAULT => -35
+ },
+ {#State 64
+ ACTIONS => {
+ "-" => 13,
+ "<" => 15,
+ "+" => 16,
+ "%" => 17,
+ "," => 67,
+ "==" => 18,
+ "^" => 19,
+ "*" => 20,
+ ">>" => 21,
+ "!=" => 22,
+ "?" => 23,
+ "&&" => 24,
+ "||" => 25,
+ "&" => 26,
+ "->" => 28,
+ "/" => 27,
+ "|" => 29,
+ "=>" => 30,
+ "<<" => 31,
+ "." => 32,
+ "<=" => 33,
+ ">" => 34
+ },
+ DEFAULT => -36
+ },
+ {#State 65
+ ACTIONS => {
+ ")" => 68
+ }
+ },
+ {#State 66
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 69,
+ 'func' => 11
+ }
+ },
+ {#State 67
+ ACTIONS => {
+ "-" => 1,
+ "~" => 3,
+ "&" => 4,
+ 'TEXT' => 6,
+ 'NUM' => 5,
+ "!" => 8,
+ "(" => 7,
+ "*" => 9,
+ 'VAR' => 10
+ },
+ GOTOS => {
+ 'exp' => 64,
+ 'args' => 70,
+ 'func' => 11
+ }
+ },
+ {#State 68
+ DEFAULT => -33
+ },
+ {#State 69
+ ACTIONS => {
+ "^" => 19,
+ "=>" => 30,
+ "." => 32,
+ "<=" => 33
+ },
+ DEFAULT => -25
+ },
+ {#State 70
+ DEFAULT => -37
+ }
+],
+ yyrules =>
+[
+ [#Rule 0
+ '$start', 2, undef
+ ],
+ [#Rule 1
+ 'exp', 1, undef
+ ],
+ [#Rule 2
+ 'exp', 1,
+sub
+#line 22 "expr.yp"
+{ "\"$_[1]\"" }
+ ],
+ [#Rule 3
+ 'exp', 1, undef
+ ],
+ [#Rule 4
+ 'exp', 3,
+sub
+#line 24 "expr.yp"
+{ "$_[1].$_[3]" }
+ ],
+ [#Rule 5
+ 'exp', 1,
+sub
+#line 25 "expr.yp"
+{ $_[0]->Lookup($_[1]) }
+ ],
+ [#Rule 6
+ 'exp', 2,
+sub
+#line 26 "expr.yp"
+{ $_[0]->Dereference($_[2]); "*$_[2]" }
+ ],
+ [#Rule 7
+ 'exp', 2,
+sub
+#line 27 "expr.yp"
+{ "~$_[2]" }
+ ],
+ [#Rule 8
+ 'exp', 3,
+sub
+#line 28 "expr.yp"
+{ "$_[1] + $_[3]" }
+ ],
+ [#Rule 9
+ 'exp', 3,
+sub
+#line 29 "expr.yp"
+{ "$_[1] - $_[3]" }
+ ],
+ [#Rule 10
+ 'exp', 3,
+sub
+#line 30 "expr.yp"
+{ "$_[1] * $_[3]" }
+ ],
+ [#Rule 11
+ 'exp', 3,
+sub
+#line 31 "expr.yp"
+{ "$_[1] % $_[3]" }
+ ],
+ [#Rule 12
+ 'exp', 3,
+sub
+#line 32 "expr.yp"
+{ "$_[1] < $_[3]" }
+ ],
+ [#Rule 13
+ 'exp', 3,
+sub
+#line 33 "expr.yp"
+{ "$_[1] > $_[3]" }
+ ],
+ [#Rule 14
+ 'exp', 3,
+sub
+#line 34 "expr.yp"
+{ "$_[1] | $_[3]" }
+ ],
+ [#Rule 15
+ 'exp', 3,
+sub
+#line 35 "expr.yp"
+{ "$_[1] == $_[3]" }
+ ],
+ [#Rule 16
+ 'exp', 3,
+sub
+#line 36 "expr.yp"
+{ "$_[1] <= $_[3]" }
+ ],
+ [#Rule 17
+ 'exp', 3,
+sub
+#line 37 "expr.yp"
+{ "$_[1] => $_[3]" }
+ ],
+ [#Rule 18
+ 'exp', 3,
+sub
+#line 38 "expr.yp"
+{ "$_[1] << $_[3]" }
+ ],
+ [#Rule 19
+ 'exp', 3,
+sub
+#line 39 "expr.yp"
+{ "$_[1] >> $_[3]" }
+ ],
+ [#Rule 20
+ 'exp', 3,
+sub
+#line 40 "expr.yp"
+{ "$_[1] != $_[3]" }
+ ],
+ [#Rule 21
+ 'exp', 3,
+sub
+#line 41 "expr.yp"
+{ "$_[1] || $_[3]" }
+ ],
+ [#Rule 22
+ 'exp', 3,
+sub
+#line 42 "expr.yp"
+{ "$_[1] && $_[3]" }
+ ],
+ [#Rule 23
+ 'exp', 3,
+sub
+#line 43 "expr.yp"
+{ "$_[1] & $_[3]" }
+ ],
+ [#Rule 24
+ 'exp', 3,
+sub
+#line 44 "expr.yp"
+{ $_[1]."->".$_[3] }
+ ],
+ [#Rule 25
+ 'exp', 5,
+sub
+#line 45 "expr.yp"
+{ "$_[1]?$_[3]:$_[5]" }
+ ],
+ [#Rule 26
+ 'exp', 2,
+sub
+#line 46 "expr.yp"
+{ "~$_[1]" }
+ ],
+ [#Rule 27
+ 'exp', 2,
+sub
+#line 47 "expr.yp"
+{ "not $_[1]" }
+ ],
+ [#Rule 28
+ 'exp', 3,
+sub
+#line 48 "expr.yp"
+{ "$_[1] / $_[3]" }
+ ],
+ [#Rule 29
+ 'exp', 2,
+sub
+#line 49 "expr.yp"
+{ "-$_[2]" }
+ ],
+ [#Rule 30
+ 'exp', 2,
+sub
+#line 50 "expr.yp"
+{ "&$_[2]" }
+ ],
+ [#Rule 31
+ 'exp', 3,
+sub
+#line 51 "expr.yp"
+{ "$_[1]^$_[3]" }
+ ],
+ [#Rule 32
+ 'exp', 3,
+sub
+#line 52 "expr.yp"
+{ "($_[2])" }
+ ],
+ [#Rule 33
+ 'func', 4,
+sub
+#line 55 "expr.yp"
+{ "$_[1]($_[3])" }
+ ],
+ [#Rule 34
+ 'opt_args', 0,
+sub
+#line 56 "expr.yp"
+{ "" }
+ ],
+ [#Rule 35
+ 'opt_args', 1, undef
+ ],
+ [#Rule 36
+ 'args', 1, undef
+ ],
+ [#Rule 37
+ 'args', 3,
+sub
+#line 57 "expr.yp"
+{ "$_[1], $_[3]" }
+ ]
+],
+ @_);
+ bless($self,$class);
+}
+
+#line 59 "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 Lookup($$)
+{
+ my ($self, $x) = @_;
+ return $self->YYData->{LOOKUP}->($x);
+}
+
+sub Dereference($$)
+{
+ my ($self, $x) = @_;
+ if (defined($self->YYData->{DEREFERENCE})) {
+ $self->YYData->{DEREFERENCE}->($x);
+ }
+}
+
+sub Run {
+ my($self, $data, $error, $lookup, $deref) = @_;
+ $self->YYData->{INPUT} = $data;
+ $self->YYData->{LOOKUP} = $lookup;
+ $self->YYData->{DEREFERENCE} = $deref;
+ return $self->YYParse( yylex => \&_Lexer, yyerror => $error );
+}
+
+1;