%%
idl:
#empty { {} }
- | idl interface { push(@{$_[1]}, $_[2]); $_[1] }
- | idl coclass { push(@{$_[1]}, $_[2]); $_[1] }
- | idl import { push(@{$_[1]}, $_[2]); $_[1] }
- | idl include { push(@{$_[1]}, $_[2]); $_[1] }
- | idl importlib { push(@{$_[1]}, $_[2]); $_[1] }
- | idl cpp_quote { push(@{$_[1]}, $_[2]); $_[1] }
-;
-
-import: 'import' commalist ';' {{
- "TYPE" => "IMPORT",
- "PATHS" => $_[2],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE}
- }}
-;
-include: 'include' commalist ';' {{
- "TYPE" => "INCLUDE",
- "PATHS" => $_[2],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE}
- }}
-;
-importlib: 'importlib' commalist ';' {{
- "TYPE" => "IMPORTLIB",
- "PATHS" => $_[2],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE}
- }}
-;
-
-commalist:
- text { [ $_[1] ] }
- | commalist ',' text { push(@{$_[1]}, $_[3]); $_[1] }
-;
-
-coclass: property_list 'coclass' identifier '{' interface_names '}' optional_semicolon
- {{
- "TYPE" => "COCLASS",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "DATA" => $_[5],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ |
+ idl interface { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ idl coclass { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ idl import { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ idl include { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ idl importlib { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ idl cpp_quote { push(@{$_[1]}, $_[2]); $_[1] }
+;
+
+import:
+ 'import' commalist ';'
+ {{
+ "TYPE" => "IMPORT",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
+
+include:
+ 'include' commalist ';'
+ {{
+ "TYPE" => "INCLUDE",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
+
+importlib:
+ 'importlib' commalist ';'
+ {{
+ "TYPE" => "IMPORTLIB",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
+
+commalist:
+ text { [ $_[1] ] }
+ |
+ commalist ',' text { push(@{$_[1]}, $_[3]); $_[1] }
+;
+
+coclass:
+ property_list 'coclass' identifier '{' interface_names '}' optional_semicolon
+ {{
+ "TYPE" => "COCLASS",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "DATA" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
;
interface_names:
#empty { {} }
- | interface_names 'interface' identifier ';' { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ interface_names 'interface' identifier ';' { push(@{$_[1]}, $_[2]); $_[1] }
;
-interface: property_list 'interface' identifier base_interface '{' definitions '}' optional_semicolon
- {{
- "TYPE" => "INTERFACE",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "BASE" => $_[4],
- "DATA" => $_[6],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+interface:
+ property_list 'interface' identifier base_interface '{' definitions '}' optional_semicolon
+ {{
+ "TYPE" => "INTERFACE",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "BASE" => $_[4],
+ "DATA" => $_[6],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
;
base_interface:
- #empty
- | ':' identifier { $_[2] }
+ #empty
+ |
+ ':' identifier { $_[2] }
;
-cpp_quote: 'cpp_quote' '(' text ')'
+cpp_quote:
+ 'cpp_quote' '(' text ')'
{{
"TYPE" => "CPP_QUOTE",
+ "DATA" => $_[3],
"FILE" => $_[0]->YYData->{FILE},
"LINE" => $_[0]->YYData->{LINE},
- "DATA" => $_[3]
}}
;
-definitions:
- definition { [ $_[1] ] }
- | definitions definition { push(@{$_[1]}, $_[2]); $_[1] }
-;
-
-
-definition: function | const | typedef | typedecl
+definitions:
+ definition { [ $_[1] ] }
+ |
+ definitions definition { push(@{$_[1]}, $_[2]); $_[1] }
;
-const: 'const' identifier pointers identifier '=' anytext ';'
- {{
- "TYPE" => "CONST",
- "DTYPE" => $_[2],
- "POINTERS" => $_[3],
- "NAME" => $_[4],
- "VALUE" => $_[6],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
- | 'const' identifier pointers identifier array_len '=' anytext ';'
- {{
- "TYPE" => "CONST",
- "DTYPE" => $_[2],
- "POINTERS" => $_[3],
- "NAME" => $_[4],
- "ARRAY_LEN" => $_[5],
- "VALUE" => $_[7],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+definition:
+ function
+ |
+ const
+ |
+ typedef
+ |
+ typedecl
;
+const:
+ 'const' identifier pointers identifier '=' anytext ';'
+ {{
+ "TYPE" => "CONST",
+ "DTYPE" => $_[2],
+ "POINTERS" => $_[3],
+ "NAME" => $_[4],
+ "VALUE" => $_[6],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ |
+ 'const' identifier pointers identifier array_len '=' anytext ';'
+ {{
+ "TYPE" => "CONST",
+ "DTYPE" => $_[2],
+ "POINTERS" => $_[3],
+ "NAME" => $_[4],
+ "ARRAY_LEN" => $_[5],
+ "VALUE" => $_[7],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
-function: property_list type identifier '(' element_list2 ')' ';'
- {{
+function:
+ property_list type identifier '(' element_list2 ')' ';'
+ {{
"TYPE" => "FUNCTION",
"NAME" => $_[3],
"RETURN_TYPE" => $_[2],
"ELEMENTS" => $_[5],
"FILE" => $_[0]->YYData->{FILE},
"LINE" => $_[0]->YYData->{LINE},
- }}
-;
-
-typedef: property_list 'typedef' type identifier array_len ';'
- {{
- "TYPE" => "TYPEDEF",
- "PROPERTIES" => $_[1],
- "NAME" => $_[4],
- "DATA" => $_[3],
- "ARRAY_LEN" => $_[5],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
+
+typedef:
+ property_list 'typedef' type identifier array_len ';'
+ {{
+ "TYPE" => "TYPEDEF",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[4],
+ "DATA" => $_[3],
+ "ARRAY_LEN" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
}}
;
-usertype: struct | union | enum | bitmap;
+usertype:
+ struct
+ |
+ union
+ |
+ enum
+ |
+ bitmap
+;
-typedecl: usertype ';' { $_[1] };
+typedecl:
+ usertype ';' { $_[1] }
+;
-sign: 'signed' | 'unsigned';
+sign:
+ 'signed'
+ |
+ 'unsigned'
+;
-existingtype:
+existingtype:
sign identifier { ($_[1]?$_[1]:"signed") ." $_[2]" }
- | identifier
+ |
+ identifier
;
-type: usertype | existingtype | void { "void" } ;
+type:
+ usertype
+ |
+ existingtype
+ |
+ void { "void" }
+;
-enum_body: '{' enum_elements '}' { $_[2] };
-opt_enum_body: | enum_body;
-enum: property_list 'enum' optional_identifier opt_enum_body
- {{
- "TYPE" => "ENUM",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+enum_body:
+ '{' enum_elements '}' { $_[2] }
;
-enum_elements:
- enum_element { [ $_[1] ] }
- | enum_elements ',' enum_element { push(@{$_[1]}, $_[3]); $_[1] }
+opt_enum_body:
+ #empty
+ |
+ enum_body
;
-enum_element: identifier
- | identifier '=' anytext { "$_[1]$_[2]$_[3]" }
+enum:
+ property_list 'enum' optional_identifier opt_enum_body
+ {{
+ "TYPE" => "ENUM",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
;
-bitmap_body: '{' opt_bitmap_elements '}' { $_[2] };
-opt_bitmap_body: | bitmap_body;
-bitmap: property_list 'bitmap' optional_identifier opt_bitmap_body
- {{
- "TYPE" => "BITMAP",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+enum_elements:
+ enum_element { [ $_[1] ] }
+ |
+ enum_elements ',' enum_element { push(@{$_[1]}, $_[3]); $_[1] }
;
-bitmap_elements:
- bitmap_element { [ $_[1] ] }
- | bitmap_elements ',' bitmap_element { push(@{$_[1]}, $_[3]); $_[1] }
+enum_element:
+ identifier
+ |
+ identifier '=' anytext { "$_[1]$_[2]$_[3]" }
;
-opt_bitmap_elements: | bitmap_elements;
+bitmap_body:
+ '{' opt_bitmap_elements '}' { $_[2] }
+;
-bitmap_element: identifier '=' anytext { "$_[1] ( $_[3] )" }
+opt_bitmap_body:
+ #empty
+ |
+ bitmap_body
;
-struct_body: '{' element_list1 '}' { $_[2] };
-opt_struct_body: | struct_body;
+bitmap:
+ property_list 'bitmap' optional_identifier opt_bitmap_body
+ {{
+ "TYPE" => "BITMAP",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
-struct: property_list 'struct' optional_identifier opt_struct_body
- {{
- "TYPE" => "STRUCT",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+bitmap_elements:
+ bitmap_element { [ $_[1] ] }
+ |
+ bitmap_elements ',' bitmap_element { push(@{$_[1]}, $_[3]); $_[1] }
+;
+
+opt_bitmap_elements:
+ #empty
+ |
+ bitmap_elements
;
-empty_element: property_list ';'
+bitmap_element:
+ identifier '=' anytext { "$_[1] ( $_[3] )" }
+;
+
+struct_body:
+ '{' element_list1 '}' { $_[2] }
+;
+
+opt_struct_body:
+ #empty
+ |
+ struct_body
+;
+
+struct:
+ property_list 'struct' optional_identifier opt_struct_body
{{
- "NAME" => "",
- "TYPE" => "EMPTY",
- "PROPERTIES" => $_[1],
- "POINTERS" => 0,
- "ARRAY_LEN" => [],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "TYPE" => "STRUCT",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
;
-base_or_empty: base_element ';' | empty_element;
+empty_element:
+ property_list ';'
+ {{
+ "NAME" => "",
+ "TYPE" => "EMPTY",
+ "PROPERTIES" => $_[1],
+ "POINTERS" => 0,
+ "ARRAY_LEN" => [],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
+
+base_or_empty:
+ base_element ';'
+ |
+ empty_element;
optional_base_element:
property_list base_or_empty { $_[2]->{PROPERTIES} = FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] }
;
-union_elements:
- #empty
- | union_elements optional_base_element { push(@{$_[1]}, $_[2]); $_[1] }
+union_elements:
+ #empty
+ |
+ union_elements optional_base_element { push(@{$_[1]}, $_[2]); $_[1] }
;
-union_body: '{' union_elements '}' { $_[2] };
-opt_union_body: | union_body;
+union_body:
+ '{' union_elements '}' { $_[2] }
+;
-union: property_list 'union' optional_identifier opt_union_body
- {{
- "TYPE" => "UNION",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+opt_union_body:
+ #empty
+ |
+ union_body
;
-base_element: property_list type pointers identifier array_len
- {{
- "NAME" => $_[4],
- "TYPE" => $_[2],
- "PROPERTIES" => $_[1],
- "POINTERS" => $_[3],
- "ARRAY_LEN" => $_[5],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+union:
+ property_list 'union' optional_identifier opt_union_body
+ {{
+ "TYPE" => "UNION",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
;
+base_element:
+ property_list type pointers identifier array_len
+ {{
+ "NAME" => $_[4],
+ "TYPE" => $_[2],
+ "PROPERTIES" => $_[1],
+ "POINTERS" => $_[3],
+ "ARRAY_LEN" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+;
-pointers:
- #empty
- { 0 }
- | pointers '*' { $_[1]+1 }
+pointers:
+ #empty
+ { 0 }
+ |
+ pointers '*' { $_[1]+1 }
;
-element_list1:
+element_list1:
+ #empty
{ [] }
- | element_list1 base_element ';' { push(@{$_[1]}, $_[2]); $_[1] }
+ |
+ element_list1 base_element ';' { push(@{$_[1]}, $_[2]); $_[1] }
;
-optional_const:
+optional_const:
#empty
- | 'const'
+ |
+ 'const'
;
-element_list2:
- #empty
- | 'void'
- | optional_const base_element { [ $_[2] ] }
- | element_list2 ',' optional_const base_element { push(@{$_[1]}, $_[4]); $_[1] }
+element_list2:
+ #empty
+ |
+ 'void'
+ |
+ optional_const base_element { [ $_[2] ] }
+ |
+ element_list2 ',' optional_const base_element { push(@{$_[1]}, $_[4]); $_[1] }
;
-array_len:
- #empty { [] }
- | '[' ']' array_len { push(@{$_[3]}, "*"); $_[3] }
- | '[' anytext ']' array_len { push(@{$_[4]}, "$_[2]"); $_[4] }
+array_len:
+ #empty { [] }
+ |
+ '[' ']' array_len { push(@{$_[3]}, "*"); $_[3] }
+ |
+ '[' anytext ']' array_len { push(@{$_[4]}, "$_[2]"); $_[4] }
;
-
-property_list:
- #empty
- | property_list '[' properties ']' { FlattenHash([$_[1],$_[3]]); }
+property_list:
+ #empty
+ |
+ property_list '[' properties ']' { FlattenHash([$_[1],$_[3]]); }
;
-properties: property { $_[1] }
- | properties ',' property { FlattenHash([$_[1], $_[3]]); }
+properties:
+ property { $_[1] }
+ |
+ properties ',' property { FlattenHash([$_[1], $_[3]]); }
;
-property: identifier {{ "$_[1]" => "1" }}
- | identifier '(' commalisttext ')' {{ "$_[1]" => "$_[3]" }}
+property:
+ identifier {{ "$_[1]" => "1" }}
+ |
+ identifier '(' commalisttext ')' {{ "$_[1]" => "$_[3]" }}
;
commalisttext:
- anytext
- | commalisttext ',' anytext { "$_[1],$_[3]" }
-;
-
-anytext: #empty
- { "" }
- | identifier | constant | text
- | anytext '-' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '.' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '*' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '>' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '<' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '|' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '&' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '/' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '?' anytext { "$_[1]$_[2]$_[3]" }
- | anytext ':' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '=' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '+' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '~' anytext { "$_[1]$_[2]$_[3]" }
- | anytext '(' commalisttext ')' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
- | anytext '{' commalisttext '}' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
-;
-
-identifier: IDENTIFIER
-;
-
-optional_identifier:
+ anytext
+ |
+ commalisttext ',' anytext { "$_[1],$_[3]" }
+;
+
+anytext:
+ #empty
+ { "" }
+ |
+ identifier
+ |
+ constant
+ |
+ text
+ |
+ anytext '-' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '.' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '*' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '>' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '<' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '|' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '&' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '/' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '?' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext ':' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '=' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '+' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '~' anytext { "$_[1]$_[2]$_[3]" }
+ |
+ anytext '(' commalisttext ')' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+ |
+ anytext '{' commalisttext '}' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+;
+
+identifier:
IDENTIFIER
- | #empty { undef }
;
-constant: CONSTANT
+optional_identifier:
+ #empty { undef }
+ |
+ IDENTIFIER
;
-text: TEXT { "\"$_[1]\"" }
+constant:
+ CONSTANT
;
-optional_semicolon:
+text:
+ TEXT { "\"$_[1]\"" }
+;
+
+optional_semicolon:
#empty
- | ';'
+ |
+ ';'
;
#####################################################################
# flatten an array of hashes into a single hash
-sub FlattenHash($)
-{
- my $a = shift;
- my %b;
- for my $d (@{$a}) {
- for my $k (keys %{$d}) {
- $b{$k} = $d->{$k};
+sub FlattenHash($)
+{
+ my $a = shift;
+ my %b;
+ for my $d (@{$a}) {
+ for my $k (keys %{$d}) {
+ $b{$k} = $d->{$k};
+ }
}
- }
- return \%b;
+ return \%b;
}
-
-
#####################################################################
# traverse a perl data structure removing any empty arrays or
# hashes and any hash elements that map to undef
sub CleanData($)
{
- sub CleanData($);
- my($v) = shift;
+ sub CleanData($);
+ my($v) = shift;
+
return undef if (not defined($v));
- if (ref($v) eq "ARRAY") {
- foreach my $i (0 .. $#{$v}) {
- CleanData($v->[$i]);
- }
- # this removes any undefined elements from the array
- @{$v} = grep { defined $_ } @{$v};
- } elsif (ref($v) eq "HASH") {
- foreach my $x (keys %{$v}) {
- CleanData($v->{$x});
- if (!defined $v->{$x}) { delete($v->{$x}); next; }
+
+ if (ref($v) eq "ARRAY") {
+ foreach my $i (0 .. $#{$v}) {
+ CleanData($v->[$i]);
+ }
+ # this removes any undefined elements from the array
+ @{$v} = grep { defined $_ } @{$v};
+ } elsif (ref($v) eq "HASH") {
+ foreach my $x (keys %{$v}) {
+ CleanData($v->{$x});
+ if (!defined $v->{$x}) {
+ delete($v->{$x});
+ next;
+ }
+ }
}
- }
+
return $v;
}
sub _Error {
- if (exists $_[0]->YYData->{ERRMSG}) {
+ if (exists $_[0]->YYData->{ERRMSG}) {
error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
delete $_[0]->YYData->{ERRMSG};
return;
}
+
my $last_token = $_[0]->YYData->{LAST_TOKEN};
-
+
error($_[0]->YYData, "Syntax error near '$last_token'");
}
{
my($parser)=shift;
- $parser->YYData->{INPUT} or return('',undef);
+ $parser->YYData->{INPUT} or return('',undef);
again:
$parser->YYData->{INPUT} =~ s/^[ \t]*//;
}
if (s/^\"(.*?)\"//) {
$parser->YYData->{LAST_TOKEN} = $1;
- return('TEXT',$1);
+ return('TEXT',$1);
}
if (s/^(\d+)(\W|$)/$2/) {
$parser->YYData->{LAST_TOKEN} = $1;
- return('CONSTANT',$1);
+ return('CONSTANT',$1);
}
if (s/^([\w_]+)//) {
$parser->YYData->{LAST_TOKEN} = $1;
- if ($1 =~
- /^(coclass|interface|const|typedef|union|cpp_quote
- |struct|enum|bitmap|void|unsigned|signed|import|include
- |importlib)$/x) {
+ if ($1 =~
+ /^(coclass|interface|import|importlib
+ |include|cpp_quote|typedef
+ |union|struct|enum|bitmap
+ |void|const|unsigned|signed)$/x) {
return $1;
}
return('IDENTIFIER',$1);
my $self = new Parse::Pidl::IDL;
- $self->YYData->{FILE} = $filename;
- $self->YYData->{INPUT} = $data;
- $self->YYData->{LINE} = 0;
- $self->YYData->{LAST_TOKEN} = "NONE";
+ $self->YYData->{FILE} = $filename;
+ $self->YYData->{INPUT} = $data;
+ $self->YYData->{LINE} = 0;
+ $self->YYData->{LAST_TOKEN} = "NONE";
my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
"import" => 7,
"include" => 13
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'cpp_quote' => 11,
'importlib' => 10,
}
},
{#State 16
- DEFAULT => -116
+ DEFAULT => -118
},
{#State 17
DEFAULT => -11
}
},
{#State 26
- DEFAULT => -112
+ DEFAULT => -114
},
{#State 27
ACTIONS => {
ACTIONS => {
"(" => 41
},
- DEFAULT => -89
+ DEFAULT => -91
},
{#State 31
- DEFAULT => -87
+ DEFAULT => -89
},
{#State 32
DEFAULT => -8
}
},
{#State 40
- DEFAULT => -86
+ DEFAULT => -88
},
{#State 41
ACTIONS => {
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'text' => 51,
ACTIONS => {
"const" => 63
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'typedecl' => 54,
'function' => 55,
}
},
{#State 45
- DEFAULT => -88
+ DEFAULT => -90
},
{#State 46
ACTIONS => {
"." => 80,
">" => 81
},
- DEFAULT => -91
+ DEFAULT => -93
},
{#State 47
- DEFAULT => -95
+ DEFAULT => -97
},
{#State 48
- DEFAULT => -115
+ DEFAULT => -117
},
{#State 49
ACTIONS => {
}
},
{#State 50
- DEFAULT => -94
+ DEFAULT => -96
},
{#State 51
- DEFAULT => -96
+ DEFAULT => -98
},
{#State 52
ACTIONS => {
";" => 85
},
- DEFAULT => -117,
+ DEFAULT => -119,
GOTOS => {
'optional_semicolon' => 84
}
"}" => 87,
"const" => 63
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'typedecl' => 54,
'function' => 55,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 105,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 106,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 107,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 108,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 109,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 110,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 46,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 112,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 113,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 114,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 46,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 116,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 117,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 118,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 119,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 120,
}
},
{#State 83
- DEFAULT => -90
+ DEFAULT => -92
},
{#State 84
DEFAULT => -13
},
{#State 85
- DEFAULT => -118
+ DEFAULT => -120
},
{#State 86
ACTIONS => {
ACTIONS => {
";" => 85
},
- DEFAULT => -117,
+ DEFAULT => -119,
GOTOS => {
'optional_semicolon' => 122
}
'void' => 92,
"unsigned" => 102
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'existingtype' => 99,
'bitmap' => 56,
ACTIONS => {
'IDENTIFIER' => 124
},
- DEFAULT => -114,
+ DEFAULT => -115,
GOTOS => {
'optional_identifier' => 125
}
ACTIONS => {
'IDENTIFIER' => 124
},
- DEFAULT => -114,
+ DEFAULT => -115,
GOTOS => {
'optional_identifier' => 127
}
ACTIONS => {
'IDENTIFIER' => 124
},
- DEFAULT => -114,
+ DEFAULT => -115,
GOTOS => {
'optional_identifier' => 128
}
ACTIONS => {
'IDENTIFIER' => 124
},
- DEFAULT => -114,
+ DEFAULT => -115,
GOTOS => {
'optional_identifier' => 129
}
"." => 80,
">" => 81
},
- DEFAULT => -106
+ DEFAULT => -108
},
{#State 106
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -97
+ DEFAULT => -99
},
{#State 107
ACTIONS => {
"." => 80,
">" => 81
},
- DEFAULT => -105
+ DEFAULT => -107
},
{#State 108
ACTIONS => {
"." => 80,
">" => 81
},
- DEFAULT => -101
+ DEFAULT => -103
},
{#State 109
ACTIONS => {
"." => 80,
">" => 81
},
- DEFAULT => -109
+ DEFAULT => -111
},
{#State 110
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -108
+ DEFAULT => -110
},
{#State 111
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -103
+ DEFAULT => -105
},
{#State 113
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -104
+ DEFAULT => -106
},
{#State 114
ACTIONS => {
"." => 80,
">" => 81
},
- DEFAULT => -107
+ DEFAULT => -109
},
{#State 115
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -102
+ DEFAULT => -104
},
{#State 117
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -99
+ DEFAULT => -101
},
{#State 118
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -98
+ DEFAULT => -100
},
{#State 119
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -100
+ DEFAULT => -102
},
{#State 120
ACTIONS => {
"." => 80,
">" => 81
},
- DEFAULT => -92
+ DEFAULT => -94
},
{#State 121
DEFAULT => -15
}
},
{#State 124
- DEFAULT => -113
+ DEFAULT => -116
},
{#State 125
ACTIONS => {
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 150,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 151,
ACTIONS => {
"[" => 152
},
- DEFAULT => -82,
+ DEFAULT => -84,
GOTOS => {
'array_len' => 153
}
},
{#State 147
ACTIONS => {
- "," => -78,
+ "," => -80,
"void" => 166,
- ")" => -78
+ "const" => 164,
+ ")" => -80
},
- DEFAULT => -85,
+ DEFAULT => -78,
GOTOS => {
- 'base_element' => 163,
- 'element_list2' => 165,
- 'property_list' => 164
+ 'optional_const' => 163,
+ 'element_list2' => 165
}
},
{#State 148
"." => 80,
">" => 81
},
- DEFAULT => -111
+ DEFAULT => -113
},
{#State 151
ACTIONS => {
"{" => 73,
"=" => 76
},
- DEFAULT => -110
+ DEFAULT => -112
},
{#State 152
ACTIONS => {
"]" => 169,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
'anytext' => 170,
ACTIONS => {
"}" => 172
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'optional_base_element' => 174,
'property_list' => 173
ACTIONS => {
"}" => 175
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'base_element' => 176,
- 'property_list' => 164
+ 'property_list' => 177
}
},
{#State 156
ACTIONS => {
- "=" => 177
+ "=" => 178
},
DEFAULT => -48
},
},
{#State 158
ACTIONS => {
- "}" => 178,
- "," => 179
+ "}" => 179,
+ "," => 180
}
},
{#State 159
ACTIONS => {
- "," => 180
+ "," => 181
},
DEFAULT => -57
},
},
{#State 161
ACTIONS => {
- "=" => 181
+ "=" => 182
}
},
{#State 162
ACTIONS => {
- "}" => 182
+ "}" => 183
}
},
{#State 163
- DEFAULT => -80
- },
- {#State 164
- ACTIONS => {
- 'IDENTIFIER' => 26,
- "signed" => 98,
- 'void' => 92,
- "unsigned" => 102,
- "[" => 20
- },
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
- 'existingtype' => 99,
- 'bitmap' => 56,
- 'usertype' => 94,
- 'property_list' => 93,
- 'identifier' => 95,
- 'struct' => 61,
- 'enum' => 64,
- 'type' => 183,
- 'union' => 66,
- 'sign' => 96
+ 'base_element' => 184,
+ 'property_list' => 177
}
},
+ {#State 164
+ DEFAULT => -79
+ },
{#State 165
ACTIONS => {
- "," => 184,
- ")" => 185
+ "," => 185,
+ ")" => 186
}
},
{#State 166
- DEFAULT => -79
+ DEFAULT => -81
},
{#State 167
ACTIONS => {
- "=" => 186
+ "=" => 187
}
},
{#State 168
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
- 'anytext' => 187,
+ 'anytext' => 188,
'text' => 51,
'constant' => 47
}
ACTIONS => {
"[" => 152
},
- DEFAULT => -82,
+ DEFAULT => -84,
GOTOS => {
- 'array_len' => 188
+ 'array_len' => 189
}
},
{#State 170
"(" => 77,
"*" => 79,
"." => 80,
- "]" => 189,
+ "]" => 190,
">" => 81
}
},
ACTIONS => {
"[" => 20
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
- 'base_or_empty' => 190,
- 'base_element' => 191,
- 'empty_element' => 192,
- 'property_list' => 193
+ 'base_or_empty' => 191,
+ 'base_element' => 192,
+ 'empty_element' => 193,
+ 'property_list' => 194
}
},
{#State 174
},
{#State 176
ACTIONS => {
- ";" => 194
+ ";" => 195
}
},
{#State 177
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "signed" => 98,
+ 'void' => 92,
+ "unsigned" => 102,
+ "[" => 20
+ },
+ DEFAULT => -87,
+ GOTOS => {
+ 'existingtype' => 99,
+ 'bitmap' => 56,
+ 'usertype' => 94,
+ 'property_list' => 93,
+ 'identifier' => 95,
+ 'struct' => 61,
+ 'enum' => 64,
+ 'type' => 196,
+ 'union' => 66,
+ 'sign' => 96
+ }
+ },
+ {#State 178
ACTIONS => {
'CONSTANT' => 48,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
- 'anytext' => 195,
+ 'anytext' => 197,
'text' => 51,
'constant' => 47
}
},
- {#State 178
+ {#State 179
DEFAULT => -42
},
- {#State 179
+ {#State 180
ACTIONS => {
'IDENTIFIER' => 26
},
GOTOS => {
'identifier' => 156,
- 'enum_element' => 196
+ 'enum_element' => 198
}
},
- {#State 180
+ {#State 181
ACTIONS => {
'IDENTIFIER' => 26
},
GOTOS => {
'identifier' => 161,
- 'bitmap_element' => 197
+ 'bitmap_element' => 199
}
},
- {#State 181
+ {#State 182
ACTIONS => {
'CONSTANT' => 48,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
- 'anytext' => 198,
+ 'anytext' => 200,
'text' => 51,
'constant' => 47
}
},
- {#State 182
- DEFAULT => -50
- },
{#State 183
- DEFAULT => -74,
- GOTOS => {
- 'pointers' => 199
- }
+ DEFAULT => -50
},
{#State 184
- DEFAULT => -85,
- GOTOS => {
- 'base_element' => 200,
- 'property_list' => 164
- }
+ DEFAULT => -82
},
{#State 185
ACTIONS => {
- ";" => 201
+ "const" => 164
+ },
+ DEFAULT => -78,
+ GOTOS => {
+ 'optional_const' => 201
}
},
{#State 186
+ ACTIONS => {
+ ";" => 202
+ }
+ },
+ {#State 187
ACTIONS => {
'CONSTANT' => 48,
'TEXT' => 16,
'IDENTIFIER' => 26
},
- DEFAULT => -93,
+ DEFAULT => -95,
GOTOS => {
'identifier' => 50,
- 'anytext' => 202,
+ 'anytext' => 203,
'text' => 51,
'constant' => 47
}
},
- {#State 187
+ {#State 188
ACTIONS => {
"-" => 68,
":" => 67,
"?" => 69,
"<" => 70,
- ";" => 203,
+ ";" => 204,
"+" => 72,
"~" => 71,
"&" => 74,
">" => 81
}
},
- {#State 188
- DEFAULT => -83
- },
{#State 189
+ DEFAULT => -85
+ },
+ {#State 190
ACTIONS => {
"[" => 152
},
- DEFAULT => -82,
+ DEFAULT => -84,
GOTOS => {
- 'array_len' => 204
+ 'array_len' => 205
}
},
- {#State 190
+ {#State 191
DEFAULT => -66
},
- {#State 191
+ {#State 192
ACTIONS => {
- ";" => 205
+ ";" => 206
}
},
- {#State 192
+ {#State 193
DEFAULT => -65
},
- {#State 193
+ {#State 194
ACTIONS => {
'IDENTIFIER' => 26,
"signed" => 98,
- ";" => 206,
+ ";" => 207,
'void' => 92,
"unsigned" => 102,
"[" => 20
},
- DEFAULT => -85,
+ DEFAULT => -87,
GOTOS => {
'existingtype' => 99,
'bitmap' => 56,
'identifier' => 95,
'struct' => 61,
'enum' => 64,
- 'type' => 183,
+ 'type' => 196,
'union' => 66,
'sign' => 96
}
},
- {#State 194
+ {#State 195
DEFAULT => -77
},
- {#State 195
+ {#State 196
+ DEFAULT => -74,
+ GOTOS => {
+ 'pointers' => 208
+ }
+ },
+ {#State 197
ACTIONS => {
"-" => 68,
":" => 67,
},
DEFAULT => -49
},
- {#State 196
+ {#State 198
DEFAULT => -47
},
- {#State 197
+ {#State 199
DEFAULT => -55
},
- {#State 198
+ {#State 200
ACTIONS => {
"-" => 68,
":" => 67,
},
DEFAULT => -58
},
- {#State 199
- ACTIONS => {
- 'IDENTIFIER' => 26,
- "*" => 149
- },
+ {#State 201
+ DEFAULT => -87,
GOTOS => {
- 'identifier' => 207
+ 'base_element' => 209,
+ 'property_list' => 177
}
},
- {#State 200
- DEFAULT => -81
- },
- {#State 201
+ {#State 202
DEFAULT => -28
},
- {#State 202
+ {#State 203
ACTIONS => {
"-" => 68,
":" => 67,
"?" => 69,
"<" => 70,
- ";" => 208,
+ ";" => 210,
"+" => 72,
"~" => 71,
"&" => 74,
">" => 81
}
},
- {#State 203
- DEFAULT => -26
- },
{#State 204
- DEFAULT => -84
+ DEFAULT => -26
},
{#State 205
- DEFAULT => -64
+ DEFAULT => -86
},
{#State 206
- DEFAULT => -63
+ DEFAULT => -64
},
{#State 207
+ DEFAULT => -63
+ },
+ {#State 208
ACTIONS => {
- "[" => 152
+ 'IDENTIFIER' => 26,
+ "*" => 149
},
- DEFAULT => -82,
GOTOS => {
- 'array_len' => 209
+ 'identifier' => 211
}
},
- {#State 208
+ {#State 209
+ DEFAULT => -83
+ },
+ {#State 210
DEFAULT => -27
},
- {#State 209
+ {#State 211
+ ACTIONS => {
+ "[" => 152
+ },
+ DEFAULT => -84,
+ GOTOS => {
+ 'array_len' => 212
+ }
+ },
+ {#State 212
DEFAULT => -73
}
],
[#Rule 2
'idl', 2,
sub
-#line 19 "pidl/idl.yp"
+#line 20 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 3
'idl', 2,
sub
-#line 20 "pidl/idl.yp"
+#line 22 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 4
'idl', 2,
sub
-#line 21 "pidl/idl.yp"
+#line 24 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 5
'idl', 2,
sub
-#line 22 "pidl/idl.yp"
+#line 26 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 6
'idl', 2,
sub
-#line 23 "pidl/idl.yp"
+#line 28 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 7
'idl', 2,
sub
-#line 24 "pidl/idl.yp"
+#line 30 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 8
'import', 3,
sub
-#line 27 "pidl/idl.yp"
+#line 35 "./../pidl/idl.yp"
{{
- "TYPE" => "IMPORT",
- "PATHS" => $_[2],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE}
- }}
+ "TYPE" => "IMPORT",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 9
'include', 3,
sub
-#line 34 "pidl/idl.yp"
-{{
- "TYPE" => "INCLUDE",
- "PATHS" => $_[2],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE}
- }}
+#line 45 "./../pidl/idl.yp"
+{{
+ "TYPE" => "INCLUDE",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 10
'importlib', 3,
sub
-#line 41 "pidl/idl.yp"
-{{
- "TYPE" => "IMPORTLIB",
- "PATHS" => $_[2],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE}
- }}
+#line 55 "./../pidl/idl.yp"
+{{
+ "TYPE" => "IMPORTLIB",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 11
'commalist', 1,
sub
-#line 50 "pidl/idl.yp"
+#line 64 "./../pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 12
'commalist', 3,
sub
-#line 51 "pidl/idl.yp"
+#line 66 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 13
'coclass', 7,
sub
-#line 55 "pidl/idl.yp"
+#line 71 "./../pidl/idl.yp"
{{
- "TYPE" => "COCLASS",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "DATA" => $_[5],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "TYPE" => "COCLASS",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "DATA" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 14
'interface_names', 0, undef
[#Rule 15
'interface_names', 4,
sub
-#line 67 "pidl/idl.yp"
+#line 84 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 16
'interface', 8,
sub
-#line 71 "pidl/idl.yp"
+#line 89 "./../pidl/idl.yp"
{{
- "TYPE" => "INTERFACE",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "BASE" => $_[4],
- "DATA" => $_[6],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "TYPE" => "INTERFACE",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "BASE" => $_[4],
+ "DATA" => $_[6],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 17
'base_interface', 0, undef
[#Rule 18
'base_interface', 2,
sub
-#line 84 "pidl/idl.yp"
+#line 103 "./../pidl/idl.yp"
{ $_[2] }
],
[#Rule 19
'cpp_quote', 4,
sub
-#line 89 "pidl/idl.yp"
+#line 109 "./../pidl/idl.yp"
{{
"TYPE" => "CPP_QUOTE",
+ "DATA" => $_[3],
"FILE" => $_[0]->YYData->{FILE},
"LINE" => $_[0]->YYData->{LINE},
- "DATA" => $_[3]
}}
],
[#Rule 20
'definitions', 1,
sub
-#line 98 "pidl/idl.yp"
+#line 118 "./../pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 21
'definitions', 2,
sub
-#line 99 "pidl/idl.yp"
+#line 120 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 22
[#Rule 26
'const', 7,
sub
-#line 107 "pidl/idl.yp"
+#line 135 "./../pidl/idl.yp"
{{
- "TYPE" => "CONST",
- "DTYPE" => $_[2],
- "POINTERS" => $_[3],
- "NAME" => $_[4],
- "VALUE" => $_[6],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "TYPE" => "CONST",
+ "DTYPE" => $_[2],
+ "POINTERS" => $_[3],
+ "NAME" => $_[4],
+ "VALUE" => $_[6],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 27
'const', 8,
sub
-#line 117 "pidl/idl.yp"
+#line 146 "./../pidl/idl.yp"
{{
- "TYPE" => "CONST",
- "DTYPE" => $_[2],
- "POINTERS" => $_[3],
- "NAME" => $_[4],
- "ARRAY_LEN" => $_[5],
- "VALUE" => $_[7],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "TYPE" => "CONST",
+ "DTYPE" => $_[2],
+ "POINTERS" => $_[3],
+ "NAME" => $_[4],
+ "ARRAY_LEN" => $_[5],
+ "VALUE" => $_[7],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 28
'function', 7,
sub
-#line 131 "pidl/idl.yp"
+#line 160 "./../pidl/idl.yp"
{{
"TYPE" => "FUNCTION",
"NAME" => $_[3],
"ELEMENTS" => $_[5],
"FILE" => $_[0]->YYData->{FILE},
"LINE" => $_[0]->YYData->{LINE},
- }}
+ }}
],
[#Rule 29
'typedef', 6,
sub
-#line 143 "pidl/idl.yp"
+#line 173 "./../pidl/idl.yp"
{{
- "TYPE" => "TYPEDEF",
- "PROPERTIES" => $_[1],
- "NAME" => $_[4],
- "DATA" => $_[3],
- "ARRAY_LEN" => $_[5],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
+ "TYPE" => "TYPEDEF",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[4],
+ "DATA" => $_[3],
+ "ARRAY_LEN" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
}}
],
[#Rule 30
[#Rule 34
'typedecl', 2,
sub
-#line 156 "pidl/idl.yp"
+#line 195 "./../pidl/idl.yp"
{ $_[1] }
],
[#Rule 35
[#Rule 37
'existingtype', 2,
sub
-#line 161 "pidl/idl.yp"
+#line 205 "./../pidl/idl.yp"
{ ($_[1]?$_[1]:"signed") ." $_[2]" }
],
[#Rule 38
[#Rule 41
'type', 1,
sub
-#line 165 "pidl/idl.yp"
+#line 215 "./../pidl/idl.yp"
{ "void" }
],
[#Rule 42
'enum_body', 3,
sub
-#line 167 "pidl/idl.yp"
+#line 219 "./../pidl/idl.yp"
{ $_[2] }
],
[#Rule 43
[#Rule 45
'enum', 4,
sub
-#line 170 "pidl/idl.yp"
+#line 230 "./../pidl/idl.yp"
{{
- "TYPE" => "ENUM",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+ "TYPE" => "ENUM",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 46
'enum_elements', 1,
sub
-#line 179 "pidl/idl.yp"
+#line 241 "./../pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 47
'enum_elements', 3,
sub
-#line 180 "pidl/idl.yp"
+#line 243 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 48
[#Rule 49
'enum_element', 3,
sub
-#line 184 "pidl/idl.yp"
+#line 249 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 50
'bitmap_body', 3,
sub
-#line 187 "pidl/idl.yp"
+#line 253 "./../pidl/idl.yp"
{ $_[2] }
],
[#Rule 51
[#Rule 53
'bitmap', 4,
sub
-#line 190 "pidl/idl.yp"
+#line 264 "./../pidl/idl.yp"
{{
- "TYPE" => "BITMAP",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+ "TYPE" => "BITMAP",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 54
'bitmap_elements', 1,
sub
-#line 199 "pidl/idl.yp"
+#line 275 "./../pidl/idl.yp"
{ [ $_[1] ] }
],
[#Rule 55
'bitmap_elements', 3,
sub
-#line 200 "pidl/idl.yp"
+#line 277 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[3]); $_[1] }
],
[#Rule 56
[#Rule 58
'bitmap_element', 3,
sub
-#line 205 "pidl/idl.yp"
+#line 287 "./../pidl/idl.yp"
{ "$_[1] ( $_[3] )" }
],
[#Rule 59
'struct_body', 3,
sub
-#line 208 "pidl/idl.yp"
+#line 291 "./../pidl/idl.yp"
{ $_[2] }
],
[#Rule 60
[#Rule 62
'struct', 4,
sub
-#line 212 "pidl/idl.yp"
+#line 302 "./../pidl/idl.yp"
{{
- "TYPE" => "STRUCT",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+ "TYPE" => "STRUCT",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 63
'empty_element', 2,
sub
-#line 221 "pidl/idl.yp"
+#line 314 "./../pidl/idl.yp"
{{
- "NAME" => "",
- "TYPE" => "EMPTY",
- "PROPERTIES" => $_[1],
- "POINTERS" => 0,
- "ARRAY_LEN" => [],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "NAME" => "",
+ "TYPE" => "EMPTY",
+ "PROPERTIES" => $_[1],
+ "POINTERS" => 0,
+ "ARRAY_LEN" => [],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 64
'base_or_empty', 2, undef
[#Rule 66
'optional_base_element', 2,
sub
-#line 235 "pidl/idl.yp"
+#line 331 "./../pidl/idl.yp"
{ $_[2]->{PROPERTIES} = FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] }
],
[#Rule 67
[#Rule 68
'union_elements', 2,
sub
-#line 240 "pidl/idl.yp"
+#line 337 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 69
'union_body', 3,
sub
-#line 243 "pidl/idl.yp"
+#line 341 "./../pidl/idl.yp"
{ $_[2] }
],
[#Rule 70
[#Rule 72
'union', 4,
sub
-#line 247 "pidl/idl.yp"
+#line 352 "./../pidl/idl.yp"
{{
- "TYPE" => "UNION",
- "PROPERTIES" => $_[1],
- "NAME" => $_[3],
- "ELEMENTS" => $_[4]
- }}
+ "TYPE" => "UNION",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 73
'base_element', 5,
sub
-#line 256 "pidl/idl.yp"
+#line 364 "./../pidl/idl.yp"
{{
- "NAME" => $_[4],
- "TYPE" => $_[2],
- "PROPERTIES" => $_[1],
- "POINTERS" => $_[3],
- "ARRAY_LEN" => $_[5],
- "FILE" => $_[0]->YYData->{FILE},
- "LINE" => $_[0]->YYData->{LINE},
- }}
+ "NAME" => $_[4],
+ "TYPE" => $_[2],
+ "PROPERTIES" => $_[1],
+ "POINTERS" => $_[3],
+ "ARRAY_LEN" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
],
[#Rule 74
'pointers', 0,
sub
-#line 270 "pidl/idl.yp"
+#line 377 "./../pidl/idl.yp"
{ 0 }
],
[#Rule 75
'pointers', 2,
sub
-#line 271 "pidl/idl.yp"
+#line 379 "./../pidl/idl.yp"
{ $_[1]+1 }
],
[#Rule 76
'element_list1', 0,
sub
-#line 275 "pidl/idl.yp"
+#line 384 "./../pidl/idl.yp"
{ [] }
],
[#Rule 77
'element_list1', 3,
sub
-#line 276 "pidl/idl.yp"
+#line 386 "./../pidl/idl.yp"
{ push(@{$_[1]}, $_[2]); $_[1] }
],
[#Rule 78
- 'element_list2', 0, undef
+ 'optional_const', 0, undef
],
[#Rule 79
- 'element_list2', 1, undef
+ 'optional_const', 1, undef
],
[#Rule 80
- 'element_list2', 1,
-sub
-#line 282 "pidl/idl.yp"
-{ [ $_[1] ] }
+ 'element_list2', 0, undef
],
[#Rule 81
- 'element_list2', 3,
-sub
-#line 283 "pidl/idl.yp"
-{ push(@{$_[1]}, $_[3]); $_[1] }
+ 'element_list2', 1, undef
],
[#Rule 82
- 'array_len', 0, undef
+ 'element_list2', 2,
+sub
+#line 400 "./../pidl/idl.yp"
+{ [ $_[2] ] }
],
[#Rule 83
+ 'element_list2', 4,
+sub
+#line 402 "./../pidl/idl.yp"
+{ push(@{$_[1]}, $_[4]); $_[1] }
+ ],
+ [#Rule 84
+ 'array_len', 0, undef
+ ],
+ [#Rule 85
'array_len', 3,
sub
-#line 288 "pidl/idl.yp"
+#line 408 "./../pidl/idl.yp"
{ push(@{$_[3]}, "*"); $_[3] }
],
- [#Rule 84
+ [#Rule 86
'array_len', 4,
sub
-#line 289 "pidl/idl.yp"
+#line 410 "./../pidl/idl.yp"
{ push(@{$_[4]}, "$_[2]"); $_[4] }
],
- [#Rule 85
+ [#Rule 87
'property_list', 0, undef
],
- [#Rule 86
+ [#Rule 88
'property_list', 4,
sub
-#line 295 "pidl/idl.yp"
+#line 416 "./../pidl/idl.yp"
{ FlattenHash([$_[1],$_[3]]); }
],
- [#Rule 87
+ [#Rule 89
'properties', 1,
sub
-#line 298 "pidl/idl.yp"
+#line 420 "./../pidl/idl.yp"
{ $_[1] }
],
- [#Rule 88
+ [#Rule 90
'properties', 3,
sub
-#line 299 "pidl/idl.yp"
+#line 422 "./../pidl/idl.yp"
{ FlattenHash([$_[1], $_[3]]); }
],
- [#Rule 89
+ [#Rule 91
'property', 1,
sub
-#line 302 "pidl/idl.yp"
+#line 426 "./../pidl/idl.yp"
{{ "$_[1]" => "1" }}
],
- [#Rule 90
+ [#Rule 92
'property', 4,
sub
-#line 303 "pidl/idl.yp"
+#line 428 "./../pidl/idl.yp"
{{ "$_[1]" => "$_[3]" }}
],
- [#Rule 91
+ [#Rule 93
'commalisttext', 1, undef
],
- [#Rule 92
+ [#Rule 94
'commalisttext', 3,
sub
-#line 308 "pidl/idl.yp"
+#line 434 "./../pidl/idl.yp"
{ "$_[1],$_[3]" }
],
- [#Rule 93
+ [#Rule 95
'anytext', 0,
sub
-#line 312 "pidl/idl.yp"
+#line 439 "./../pidl/idl.yp"
{ "" }
],
- [#Rule 94
- 'anytext', 1, undef
- ],
- [#Rule 95
- 'anytext', 1, undef
- ],
[#Rule 96
'anytext', 1, undef
],
[#Rule 97
- 'anytext', 3,
-sub
-#line 314 "pidl/idl.yp"
-{ "$_[1]$_[2]$_[3]" }
+ 'anytext', 1, undef
],
[#Rule 98
- 'anytext', 3,
-sub
-#line 315 "pidl/idl.yp"
-{ "$_[1]$_[2]$_[3]" }
+ 'anytext', 1, undef
],
[#Rule 99
'anytext', 3,
sub
-#line 316 "pidl/idl.yp"
+#line 447 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 100
'anytext', 3,
sub
-#line 317 "pidl/idl.yp"
+#line 449 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 101
'anytext', 3,
sub
-#line 318 "pidl/idl.yp"
+#line 451 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 102
'anytext', 3,
sub
-#line 319 "pidl/idl.yp"
+#line 453 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 103
'anytext', 3,
sub
-#line 320 "pidl/idl.yp"
+#line 455 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 104
'anytext', 3,
sub
-#line 321 "pidl/idl.yp"
+#line 457 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 105
'anytext', 3,
sub
-#line 322 "pidl/idl.yp"
+#line 459 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 106
'anytext', 3,
sub
-#line 323 "pidl/idl.yp"
+#line 461 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 107
'anytext', 3,
sub
-#line 324 "pidl/idl.yp"
+#line 463 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 108
'anytext', 3,
sub
-#line 325 "pidl/idl.yp"
+#line 465 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 109
'anytext', 3,
sub
-#line 326 "pidl/idl.yp"
+#line 467 "./../pidl/idl.yp"
{ "$_[1]$_[2]$_[3]" }
],
[#Rule 110
- 'anytext', 5,
+ 'anytext', 3,
sub
-#line 327 "pidl/idl.yp"
-{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+#line 469 "./../pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
],
[#Rule 111
- 'anytext', 5,
+ 'anytext', 3,
sub
-#line 328 "pidl/idl.yp"
-{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+#line 471 "./../pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
],
[#Rule 112
- 'identifier', 1, undef
+ 'anytext', 5,
+sub
+#line 473 "./../pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
],
[#Rule 113
- 'optional_identifier', 1, undef
+ 'anytext', 5,
+sub
+#line 475 "./../pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
],
[#Rule 114
- 'optional_identifier', 0, undef
+ 'identifier', 1, undef
],
[#Rule 115
- 'constant', 1, undef
+ 'optional_identifier', 0, undef
],
[#Rule 116
+ 'optional_identifier', 1, undef
+ ],
+ [#Rule 117
+ 'constant', 1, undef
+ ],
+ [#Rule 118
'text', 1,
sub
-#line 342 "pidl/idl.yp"
+#line 493 "./../pidl/idl.yp"
{ "\"$_[1]\"" }
],
- [#Rule 117
+ [#Rule 119
'optional_semicolon', 0, undef
],
- [#Rule 118
+ [#Rule 120
'optional_semicolon', 1, undef
]
],
bless($self,$class);
}
-#line 353 "pidl/idl.yp"
+#line 505 "./../pidl/idl.yp"
use Parse::Pidl qw(error);
#####################################################################
# flatten an array of hashes into a single hash
-sub FlattenHash($)
-{
- my $a = shift;
- my %b;
- for my $d (@{$a}) {
- for my $k (keys %{$d}) {
- $b{$k} = $d->{$k};
+sub FlattenHash($)
+{
+ my $a = shift;
+ my %b;
+ for my $d (@{$a}) {
+ for my $k (keys %{$d}) {
+ $b{$k} = $d->{$k};
+ }
}
- }
- return \%b;
+ return \%b;
}
-
-
#####################################################################
# traverse a perl data structure removing any empty arrays or
# hashes and any hash elements that map to undef
sub CleanData($)
{
- sub CleanData($);
- my($v) = shift;
+ sub CleanData($);
+ my($v) = shift;
+
return undef if (not defined($v));
- if (ref($v) eq "ARRAY") {
- foreach my $i (0 .. $#{$v}) {
- CleanData($v->[$i]);
- }
- # this removes any undefined elements from the array
- @{$v} = grep { defined $_ } @{$v};
- } elsif (ref($v) eq "HASH") {
- foreach my $x (keys %{$v}) {
- CleanData($v->{$x});
- if (!defined $v->{$x}) { delete($v->{$x}); next; }
+
+ if (ref($v) eq "ARRAY") {
+ foreach my $i (0 .. $#{$v}) {
+ CleanData($v->[$i]);
+ }
+ # this removes any undefined elements from the array
+ @{$v} = grep { defined $_ } @{$v};
+ } elsif (ref($v) eq "HASH") {
+ foreach my $x (keys %{$v}) {
+ CleanData($v->{$x});
+ if (!defined $v->{$x}) {
+ delete($v->{$x});
+ next;
+ }
+ }
}
- }
+
return $v;
}
sub _Error {
- if (exists $_[0]->YYData->{ERRMSG}) {
+ if (exists $_[0]->YYData->{ERRMSG}) {
error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
delete $_[0]->YYData->{ERRMSG};
return;
}
+
my $last_token = $_[0]->YYData->{LAST_TOKEN};
-
+
error($_[0]->YYData, "Syntax error near '$last_token'");
}
{
my($parser)=shift;
- $parser->YYData->{INPUT} or return('',undef);
+ $parser->YYData->{INPUT} or return('',undef);
again:
$parser->YYData->{INPUT} =~ s/^[ \t]*//;
}
if (s/^\"(.*?)\"//) {
$parser->YYData->{LAST_TOKEN} = $1;
- return('TEXT',$1);
+ return('TEXT',$1);
}
if (s/^(\d+)(\W|$)/$2/) {
$parser->YYData->{LAST_TOKEN} = $1;
- return('CONSTANT',$1);
+ return('CONSTANT',$1);
}
if (s/^([\w_]+)//) {
$parser->YYData->{LAST_TOKEN} = $1;
- if ($1 =~
- /^(coclass|interface|const|typedef|union|cpp_quote
- |struct|enum|bitmap|void|unsigned|signed|import|include
- |importlib)$/x) {
+ if ($1 =~
+ /^(coclass|interface|import|importlib
+ |include|cpp_quote|typedef
+ |union|struct|enum|bitmap
+ |void|const|unsigned|signed)$/x) {
return $1;
}
return('IDENTIFIER',$1);
my $self = new Parse::Pidl::IDL;
- $self->YYData->{FILE} = $filename;
- $self->YYData->{INPUT} = $data;
- $self->YYData->{LINE} = 0;
- $self->YYData->{LAST_TOKEN} = "NONE";
+ $self->YYData->{FILE} = $filename;
+ $self->YYData->{INPUT} = $data;
+ $self->YYData->{LINE} = 0;
+ $self->YYData->{LAST_TOKEN} = "NONE";
my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
git.samba.org / metze / samba / wip.git / commitdiff