summaryrefslogtreecommitdiffstats
path: root/pidl/lib/Parse/Pidl/IDL.pm
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-05 17:47:29 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-05 17:47:29 +0000
commit4f5791ebd03eaec1c7da0865a383175b05102712 (patch)
tree8ce7b00f7a76baa386372422adebbe64510812d4 /pidl/lib/Parse/Pidl/IDL.pm
parentInitial commit. (diff)
downloadsamba-4f5791ebd03eaec1c7da0865a383175b05102712.tar.xz
samba-4f5791ebd03eaec1c7da0865a383175b05102712.zip
Adding upstream version 2:4.17.12+dfsg.upstream/2%4.17.12+dfsgupstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'pidl/lib/Parse/Pidl/IDL.pm')
-rw-r--r--pidl/lib/Parse/Pidl/IDL.pm2665
1 files changed, 2665 insertions, 0 deletions
diff --git a/pidl/lib/Parse/Pidl/IDL.pm b/pidl/lib/Parse/Pidl/IDL.pm
new file mode 100644
index 0000000..28bdf2f
--- /dev/null
+++ b/pidl/lib/Parse/Pidl/IDL.pm
@@ -0,0 +1,2665 @@
+####################################################################
+#
+# 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::IDL;
+use vars qw ( @ISA );
+use strict;
+use warnings;
+
+@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
+ DEFAULT => -1,
+ GOTOS => {
+ 'idl' => 1
+ }
+ },
+ {#State 1
+ ACTIONS => {
+ '' => 2,
+ "cpp_quote" => 3,
+ "importlib" => 4,
+ "import" => 7,
+ "include" => 13
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'cpp_quote' => 11,
+ 'importlib' => 10,
+ 'interface' => 9,
+ 'include' => 5,
+ 'coclass' => 12,
+ 'import' => 8,
+ 'property_list' => 6
+ }
+ },
+ {#State 2
+ DEFAULT => 0
+ },
+ {#State 3
+ ACTIONS => {
+ "(" => 14
+ }
+ },
+ {#State 4
+ ACTIONS => {
+ 'TEXT' => 16
+ },
+ GOTOS => {
+ 'commalist' => 15,
+ 'text' => 17
+ }
+ },
+ {#State 5
+ DEFAULT => -5
+ },
+ {#State 6
+ ACTIONS => {
+ "coclass" => 18,
+ "[" => 20,
+ "interface" => 19
+ }
+ },
+ {#State 7
+ ACTIONS => {
+ 'TEXT' => 16
+ },
+ GOTOS => {
+ 'commalist' => 21,
+ 'text' => 17
+ }
+ },
+ {#State 8
+ DEFAULT => -4
+ },
+ {#State 9
+ DEFAULT => -2
+ },
+ {#State 10
+ DEFAULT => -6
+ },
+ {#State 11
+ DEFAULT => -7
+ },
+ {#State 12
+ DEFAULT => -3
+ },
+ {#State 13
+ ACTIONS => {
+ 'TEXT' => 16
+ },
+ GOTOS => {
+ 'commalist' => 22,
+ 'text' => 17
+ }
+ },
+ {#State 14
+ ACTIONS => {
+ 'TEXT' => 16
+ },
+ GOTOS => {
+ 'text' => 23
+ }
+ },
+ {#State 15
+ ACTIONS => {
+ ";" => 24,
+ "," => 25
+ }
+ },
+ {#State 16
+ DEFAULT => -120
+ },
+ {#State 17
+ DEFAULT => -11
+ },
+ {#State 18
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 27
+ }
+ },
+ {#State 19
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 28
+ }
+ },
+ {#State 20
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 30,
+ 'property' => 31,
+ 'properties' => 29
+ }
+ },
+ {#State 21
+ ACTIONS => {
+ ";" => 32,
+ "," => 25
+ }
+ },
+ {#State 22
+ ACTIONS => {
+ ";" => 33,
+ "," => 25
+ }
+ },
+ {#State 23
+ ACTIONS => {
+ ")" => 34
+ }
+ },
+ {#State 24
+ DEFAULT => -10
+ },
+ {#State 25
+ ACTIONS => {
+ 'TEXT' => 16
+ },
+ GOTOS => {
+ 'text' => 35
+ }
+ },
+ {#State 26
+ DEFAULT => -116
+ },
+ {#State 27
+ ACTIONS => {
+ "{" => 36
+ }
+ },
+ {#State 28
+ ACTIONS => {
+ ":" => 37
+ },
+ DEFAULT => -17,
+ GOTOS => {
+ 'base_interface' => 38
+ }
+ },
+ {#State 29
+ ACTIONS => {
+ "," => 39,
+ "]" => 40
+ }
+ },
+ {#State 30
+ ACTIONS => {
+ "(" => 41
+ },
+ DEFAULT => -93
+ },
+ {#State 31
+ DEFAULT => -91
+ },
+ {#State 32
+ DEFAULT => -8
+ },
+ {#State 33
+ DEFAULT => -9
+ },
+ {#State 34
+ DEFAULT => -19
+ },
+ {#State 35
+ DEFAULT => -12
+ },
+ {#State 36
+ DEFAULT => -14,
+ GOTOS => {
+ 'interface_names' => 42
+ }
+ },
+ {#State 37
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 43
+ }
+ },
+ {#State 38
+ ACTIONS => {
+ "{" => 44
+ }
+ },
+ {#State 39
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 30,
+ 'property' => 45
+ }
+ },
+ {#State 40
+ DEFAULT => -90
+ },
+ {#State 41
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'text' => 51,
+ 'anytext' => 46,
+ 'constant' => 47,
+ 'commalisttext' => 49
+ }
+ },
+ {#State 42
+ ACTIONS => {
+ "}" => 52,
+ "interface" => 53
+ }
+ },
+ {#State 43
+ DEFAULT => -18
+ },
+ {#State 44
+ ACTIONS => {
+ "const" => 64
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'typedecl' => 54,
+ 'function' => 55,
+ 'pipe' => 56,
+ 'definitions' => 58,
+ 'bitmap' => 57,
+ 'definition' => 61,
+ 'property_list' => 60,
+ 'usertype' => 59,
+ 'const' => 63,
+ 'struct' => 62,
+ 'typedef' => 66,
+ 'enum' => 65,
+ 'union' => 67
+ }
+ },
+ {#State 45
+ DEFAULT => -92
+ },
+ {#State 46
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -95
+ },
+ {#State 47
+ DEFAULT => -99
+ },
+ {#State 48
+ DEFAULT => -119
+ },
+ {#State 49
+ ACTIONS => {
+ "," => 83,
+ ")" => 84
+ }
+ },
+ {#State 50
+ DEFAULT => -98
+ },
+ {#State 51
+ DEFAULT => -100
+ },
+ {#State 52
+ ACTIONS => {
+ ";" => 86
+ },
+ DEFAULT => -121,
+ GOTOS => {
+ 'optional_semicolon' => 85
+ }
+ },
+ {#State 53
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 87
+ }
+ },
+ {#State 54
+ DEFAULT => -25
+ },
+ {#State 55
+ DEFAULT => -22
+ },
+ {#State 56
+ DEFAULT => -34
+ },
+ {#State 57
+ DEFAULT => -33
+ },
+ {#State 58
+ ACTIONS => {
+ "}" => 88,
+ "const" => 64
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'typedecl' => 54,
+ 'function' => 55,
+ 'pipe' => 56,
+ 'bitmap' => 57,
+ 'definition' => 89,
+ 'property_list' => 60,
+ 'usertype' => 59,
+ 'const' => 63,
+ 'struct' => 62,
+ 'typedef' => 66,
+ 'enum' => 65,
+ 'union' => 67
+ }
+ },
+ {#State 59
+ ACTIONS => {
+ ";" => 90
+ }
+ },
+ {#State 60
+ ACTIONS => {
+ "typedef" => 91,
+ 'IDENTIFIER' => 26,
+ "signed" => 100,
+ "union" => 92,
+ "enum" => 101,
+ "bitmap" => 102,
+ 'void' => 93,
+ "pipe" => 103,
+ "unsigned" => 104,
+ "[" => 20,
+ "struct" => 98
+ },
+ GOTOS => {
+ 'existingtype' => 99,
+ 'pipe' => 56,
+ 'bitmap' => 57,
+ 'usertype' => 95,
+ 'property_list' => 94,
+ 'identifier' => 96,
+ 'struct' => 62,
+ 'enum' => 65,
+ 'type' => 105,
+ 'union' => 67,
+ 'sign' => 97
+ }
+ },
+ {#State 61
+ DEFAULT => -20
+ },
+ {#State 62
+ DEFAULT => -30
+ },
+ {#State 63
+ DEFAULT => -23
+ },
+ {#State 64
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 106
+ }
+ },
+ {#State 65
+ DEFAULT => -32
+ },
+ {#State 66
+ DEFAULT => -24
+ },
+ {#State 67
+ DEFAULT => -31
+ },
+ {#State 68
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 107,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 69
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 108,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 70
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 109,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 71
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 110,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 72
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 111,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 73
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 112,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 74
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 46,
+ 'text' => 51,
+ 'constant' => 47,
+ 'commalisttext' => 113
+ }
+ },
+ {#State 75
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 114,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 76
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 115,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 77
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 116,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 78
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 46,
+ 'text' => 51,
+ 'constant' => 47,
+ 'commalisttext' => 117
+ }
+ },
+ {#State 79
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 118,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 80
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 119,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 81
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 120,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 82
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 121,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 83
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 122,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 84
+ DEFAULT => -94
+ },
+ {#State 85
+ DEFAULT => -13
+ },
+ {#State 86
+ DEFAULT => -122
+ },
+ {#State 87
+ ACTIONS => {
+ ";" => 123
+ }
+ },
+ {#State 88
+ ACTIONS => {
+ ";" => 86
+ },
+ DEFAULT => -121,
+ GOTOS => {
+ 'optional_semicolon' => 124
+ }
+ },
+ {#State 89
+ DEFAULT => -21
+ },
+ {#State 90
+ DEFAULT => -35
+ },
+ {#State 91
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "signed" => 100,
+ 'void' => 93,
+ "unsigned" => 104
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'existingtype' => 99,
+ 'pipe' => 56,
+ 'bitmap' => 57,
+ 'usertype' => 95,
+ 'property_list' => 94,
+ 'identifier' => 96,
+ 'struct' => 62,
+ 'enum' => 65,
+ 'type' => 125,
+ 'union' => 67,
+ 'sign' => 97
+ }
+ },
+ {#State 92
+ ACTIONS => {
+ 'IDENTIFIER' => 126
+ },
+ DEFAULT => -117,
+ GOTOS => {
+ 'optional_identifier' => 127
+ }
+ },
+ {#State 93
+ DEFAULT => -42
+ },
+ {#State 94
+ ACTIONS => {
+ "pipe" => 103,
+ "union" => 92,
+ "enum" => 101,
+ "bitmap" => 102,
+ "[" => 20,
+ "struct" => 98
+ }
+ },
+ {#State 95
+ DEFAULT => -40
+ },
+ {#State 96
+ DEFAULT => -39
+ },
+ {#State 97
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 128
+ }
+ },
+ {#State 98
+ ACTIONS => {
+ 'IDENTIFIER' => 126
+ },
+ DEFAULT => -117,
+ GOTOS => {
+ 'optional_identifier' => 129
+ }
+ },
+ {#State 99
+ DEFAULT => -41
+ },
+ {#State 100
+ DEFAULT => -36
+ },
+ {#State 101
+ ACTIONS => {
+ 'IDENTIFIER' => 126
+ },
+ DEFAULT => -117,
+ GOTOS => {
+ 'optional_identifier' => 130
+ }
+ },
+ {#State 102
+ ACTIONS => {
+ 'IDENTIFIER' => 126
+ },
+ DEFAULT => -117,
+ GOTOS => {
+ 'optional_identifier' => 131
+ }
+ },
+ {#State 103
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "signed" => 100,
+ 'void' => 93,
+ "unsigned" => 104
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'existingtype' => 99,
+ 'pipe' => 56,
+ 'bitmap' => 57,
+ 'usertype' => 95,
+ 'property_list' => 94,
+ 'identifier' => 96,
+ 'struct' => 62,
+ 'enum' => 65,
+ 'type' => 132,
+ 'union' => 67,
+ 'sign' => 97
+ }
+ },
+ {#State 104
+ DEFAULT => -37
+ },
+ {#State 105
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 133
+ }
+ },
+ {#State 106
+ DEFAULT => -75,
+ GOTOS => {
+ 'pointers' => 134
+ }
+ },
+ {#State 107
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -110
+ },
+ {#State 108
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -101
+ },
+ {#State 109
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -109
+ },
+ {#State 110
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -105
+ },
+ {#State 111
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -113
+ },
+ {#State 112
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -112
+ },
+ {#State 113
+ ACTIONS => {
+ "}" => 135,
+ "," => 83
+ }
+ },
+ {#State 114
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -107
+ },
+ {#State 115
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -108
+ },
+ {#State 116
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -111
+ },
+ {#State 117
+ ACTIONS => {
+ "," => 83,
+ ")" => 136
+ }
+ },
+ {#State 118
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -106
+ },
+ {#State 119
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -103
+ },
+ {#State 120
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -102
+ },
+ {#State 121
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -104
+ },
+ {#State 122
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -96
+ },
+ {#State 123
+ DEFAULT => -15
+ },
+ {#State 124
+ DEFAULT => -16
+ },
+ {#State 125
+ DEFAULT => -75,
+ GOTOS => {
+ 'pointers' => 137
+ }
+ },
+ {#State 126
+ DEFAULT => -118
+ },
+ {#State 127
+ ACTIONS => {
+ "{" => 139
+ },
+ DEFAULT => -71,
+ GOTOS => {
+ 'union_body' => 140,
+ 'opt_union_body' => 138
+ }
+ },
+ {#State 128
+ DEFAULT => -38
+ },
+ {#State 129
+ ACTIONS => {
+ "{" => 142
+ },
+ DEFAULT => -61,
+ GOTOS => {
+ 'struct_body' => 141,
+ 'opt_struct_body' => 143
+ }
+ },
+ {#State 130
+ ACTIONS => {
+ "{" => 144
+ },
+ DEFAULT => -44,
+ GOTOS => {
+ 'opt_enum_body' => 146,
+ 'enum_body' => 145
+ }
+ },
+ {#State 131
+ ACTIONS => {
+ "{" => 148
+ },
+ DEFAULT => -52,
+ GOTOS => {
+ 'bitmap_body' => 149,
+ 'opt_bitmap_body' => 147
+ }
+ },
+ {#State 132
+ DEFAULT => -77
+ },
+ {#State 133
+ ACTIONS => {
+ "(" => 150
+ }
+ },
+ {#State 134
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "*" => 152
+ },
+ GOTOS => {
+ 'identifier' => 151
+ }
+ },
+ {#State 135
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 153,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 136
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 154,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 137
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "*" => 152
+ },
+ GOTOS => {
+ 'identifier' => 155
+ }
+ },
+ {#State 138
+ DEFAULT => -73
+ },
+ {#State 139
+ DEFAULT => -68,
+ GOTOS => {
+ 'union_elements' => 156
+ }
+ },
+ {#State 140
+ DEFAULT => -72
+ },
+ {#State 141
+ DEFAULT => -62
+ },
+ {#State 142
+ DEFAULT => -78,
+ GOTOS => {
+ 'element_list1' => 157
+ }
+ },
+ {#State 143
+ DEFAULT => -63
+ },
+ {#State 144
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 158,
+ 'enum_element' => 159,
+ 'enum_elements' => 160
+ }
+ },
+ {#State 145
+ DEFAULT => -45
+ },
+ {#State 146
+ DEFAULT => -46
+ },
+ {#State 147
+ DEFAULT => -54
+ },
+ {#State 148
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -57,
+ GOTOS => {
+ 'identifier' => 163,
+ 'bitmap_element' => 162,
+ 'bitmap_elements' => 161,
+ 'opt_bitmap_elements' => 164
+ }
+ },
+ {#State 149
+ DEFAULT => -53
+ },
+ {#State 150
+ ACTIONS => {
+ "," => -82,
+ "void" => 168,
+ "const" => 166,
+ ")" => -82
+ },
+ DEFAULT => -80,
+ GOTOS => {
+ 'optional_const' => 165,
+ 'element_list2' => 167
+ }
+ },
+ {#State 151
+ ACTIONS => {
+ "[" => 169,
+ "=" => 171
+ },
+ GOTOS => {
+ 'array_len' => 170
+ }
+ },
+ {#State 152
+ DEFAULT => -76
+ },
+ {#State 153
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -115
+ },
+ {#State 154
+ ACTIONS => {
+ ":" => 68,
+ "<" => 71,
+ "~" => 72,
+ "?" => 70,
+ "{" => 74,
+ "=" => 77
+ },
+ DEFAULT => -114
+ },
+ {#State 155
+ ACTIONS => {
+ "[" => 169
+ },
+ DEFAULT => -86,
+ GOTOS => {
+ 'array_len' => 172
+ }
+ },
+ {#State 156
+ ACTIONS => {
+ "}" => 173
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'optional_base_element' => 175,
+ 'property_list' => 174
+ }
+ },
+ {#State 157
+ ACTIONS => {
+ "}" => 176
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'base_element' => 177,
+ 'property_list' => 178
+ }
+ },
+ {#State 158
+ ACTIONS => {
+ "=" => 179
+ },
+ DEFAULT => -49
+ },
+ {#State 159
+ DEFAULT => -47
+ },
+ {#State 160
+ ACTIONS => {
+ "}" => 180,
+ "," => 181
+ }
+ },
+ {#State 161
+ ACTIONS => {
+ "," => 182
+ },
+ DEFAULT => -58
+ },
+ {#State 162
+ DEFAULT => -55
+ },
+ {#State 163
+ ACTIONS => {
+ "=" => 183
+ }
+ },
+ {#State 164
+ ACTIONS => {
+ "}" => 184
+ }
+ },
+ {#State 165
+ DEFAULT => -89,
+ GOTOS => {
+ 'base_element' => 185,
+ 'property_list' => 178
+ }
+ },
+ {#State 166
+ DEFAULT => -81
+ },
+ {#State 167
+ ACTIONS => {
+ "," => 186,
+ ")" => 187
+ }
+ },
+ {#State 168
+ DEFAULT => -83
+ },
+ {#State 169
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ "]" => 188,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 189,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 170
+ ACTIONS => {
+ "=" => 190
+ }
+ },
+ {#State 171
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 191,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 172
+ ACTIONS => {
+ ";" => 192
+ }
+ },
+ {#State 173
+ DEFAULT => -70
+ },
+ {#State 174
+ ACTIONS => {
+ "[" => 20
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'base_or_empty' => 193,
+ 'base_element' => 194,
+ 'empty_element' => 195,
+ 'property_list' => 196
+ }
+ },
+ {#State 175
+ DEFAULT => -69
+ },
+ {#State 176
+ DEFAULT => -60
+ },
+ {#State 177
+ ACTIONS => {
+ ";" => 197
+ }
+ },
+ {#State 178
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "signed" => 100,
+ 'void' => 93,
+ "unsigned" => 104,
+ "[" => 20
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'existingtype' => 99,
+ 'pipe' => 56,
+ 'bitmap' => 57,
+ 'usertype' => 95,
+ 'property_list' => 94,
+ 'identifier' => 96,
+ 'struct' => 62,
+ 'enum' => 65,
+ 'type' => 198,
+ 'union' => 67,
+ 'sign' => 97
+ }
+ },
+ {#State 179
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 199,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 180
+ DEFAULT => -43
+ },
+ {#State 181
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 158,
+ 'enum_element' => 200
+ }
+ },
+ {#State 182
+ ACTIONS => {
+ 'IDENTIFIER' => 26
+ },
+ GOTOS => {
+ 'identifier' => 163,
+ 'bitmap_element' => 201
+ }
+ },
+ {#State 183
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 202,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 184
+ DEFAULT => -51
+ },
+ {#State 185
+ DEFAULT => -84
+ },
+ {#State 186
+ ACTIONS => {
+ "const" => 166
+ },
+ DEFAULT => -80,
+ GOTOS => {
+ 'optional_const' => 203
+ }
+ },
+ {#State 187
+ ACTIONS => {
+ ";" => 204
+ }
+ },
+ {#State 188
+ ACTIONS => {
+ "[" => 169
+ },
+ DEFAULT => -86,
+ GOTOS => {
+ 'array_len' => 205
+ }
+ },
+ {#State 189
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "?" => 70,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "&" => 75,
+ "{" => 74,
+ "/" => 76,
+ "=" => 77,
+ "|" => 79,
+ "(" => 78,
+ "*" => 80,
+ "." => 81,
+ "]" => 206,
+ ">" => 82
+ }
+ },
+ {#State 190
+ ACTIONS => {
+ 'CONSTANT' => 48,
+ 'TEXT' => 16,
+ 'IDENTIFIER' => 26
+ },
+ DEFAULT => -97,
+ GOTOS => {
+ 'identifier' => 50,
+ 'anytext' => 207,
+ 'text' => 51,
+ 'constant' => 47
+ }
+ },
+ {#State 191
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "?" => 70,
+ "<" => 71,
+ ";" => 208,
+ "+" => 73,
+ "~" => 72,
+ "&" => 75,
+ "{" => 74,
+ "/" => 76,
+ "=" => 77,
+ "|" => 79,
+ "(" => 78,
+ "*" => 80,
+ "." => 81,
+ ">" => 82
+ }
+ },
+ {#State 192
+ DEFAULT => -29
+ },
+ {#State 193
+ DEFAULT => -67
+ },
+ {#State 194
+ ACTIONS => {
+ ";" => 209
+ }
+ },
+ {#State 195
+ DEFAULT => -66
+ },
+ {#State 196
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "signed" => 100,
+ ";" => 210,
+ 'void' => 93,
+ "unsigned" => 104,
+ "[" => 20
+ },
+ DEFAULT => -89,
+ GOTOS => {
+ 'existingtype' => 99,
+ 'pipe' => 56,
+ 'bitmap' => 57,
+ 'usertype' => 95,
+ 'property_list' => 94,
+ 'identifier' => 96,
+ 'struct' => 62,
+ 'enum' => 65,
+ 'type' => 198,
+ 'union' => 67,
+ 'sign' => 97
+ }
+ },
+ {#State 197
+ DEFAULT => -79
+ },
+ {#State 198
+ DEFAULT => -75,
+ GOTOS => {
+ 'pointers' => 211
+ }
+ },
+ {#State 199
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -50
+ },
+ {#State 200
+ DEFAULT => -48
+ },
+ {#State 201
+ DEFAULT => -56
+ },
+ {#State 202
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "<" => 71,
+ "+" => 73,
+ "~" => 72,
+ "*" => 80,
+ "?" => 70,
+ "{" => 74,
+ "&" => 75,
+ "/" => 76,
+ "=" => 77,
+ "(" => 78,
+ "|" => 79,
+ "." => 81,
+ ">" => 82
+ },
+ DEFAULT => -59
+ },
+ {#State 203
+ DEFAULT => -89,
+ GOTOS => {
+ 'base_element' => 212,
+ 'property_list' => 178
+ }
+ },
+ {#State 204
+ DEFAULT => -28
+ },
+ {#State 205
+ DEFAULT => -87
+ },
+ {#State 206
+ ACTIONS => {
+ "[" => 169
+ },
+ DEFAULT => -86,
+ GOTOS => {
+ 'array_len' => 213
+ }
+ },
+ {#State 207
+ ACTIONS => {
+ "-" => 69,
+ ":" => 68,
+ "?" => 70,
+ "<" => 71,
+ ";" => 214,
+ "+" => 73,
+ "~" => 72,
+ "&" => 75,
+ "{" => 74,
+ "/" => 76,
+ "=" => 77,
+ "|" => 79,
+ "(" => 78,
+ "*" => 80,
+ "." => 81,
+ ">" => 82
+ }
+ },
+ {#State 208
+ DEFAULT => -26
+ },
+ {#State 209
+ DEFAULT => -65
+ },
+ {#State 210
+ DEFAULT => -64
+ },
+ {#State 211
+ ACTIONS => {
+ 'IDENTIFIER' => 26,
+ "*" => 152
+ },
+ GOTOS => {
+ 'identifier' => 215
+ }
+ },
+ {#State 212
+ DEFAULT => -85
+ },
+ {#State 213
+ DEFAULT => -88
+ },
+ {#State 214
+ DEFAULT => -27
+ },
+ {#State 215
+ ACTIONS => {
+ "[" => 169
+ },
+ DEFAULT => -86,
+ GOTOS => {
+ 'array_len' => 216
+ }
+ },
+ {#State 216
+ DEFAULT => -74
+ }
+],
+ yyrules =>
+[
+ [#Rule 0
+ '$start', 2, undef
+ ],
+ [#Rule 1
+ 'idl', 0, undef
+ ],
+ [#Rule 2
+ 'idl', 2,
+sub
+#line 20 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 3
+ 'idl', 2,
+sub
+#line 22 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 4
+ 'idl', 2,
+sub
+#line 24 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 5
+ 'idl', 2,
+sub
+#line 26 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 6
+ 'idl', 2,
+sub
+#line 28 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 7
+ 'idl', 2,
+sub
+#line 30 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 8
+ 'import', 3,
+sub
+#line 35 "idl.yp"
+{{
+ "TYPE" => "IMPORT",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 9
+ 'include', 3,
+sub
+#line 45 "idl.yp"
+{{
+ "TYPE" => "INCLUDE",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 10
+ 'importlib', 3,
+sub
+#line 55 "idl.yp"
+{{
+ "TYPE" => "IMPORTLIB",
+ "PATHS" => $_[2],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 11
+ 'commalist', 1,
+sub
+#line 64 "idl.yp"
+{ [ $_[1] ] }
+ ],
+ [#Rule 12
+ 'commalist', 3,
+sub
+#line 66 "idl.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+ ],
+ [#Rule 13
+ 'coclass', 7,
+sub
+#line 71 "idl.yp"
+{{
+ "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 84 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 16
+ 'interface', 8,
+sub
+#line 89 "idl.yp"
+{{
+ "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 103 "idl.yp"
+{ $_[2] }
+ ],
+ [#Rule 19
+ 'cpp_quote', 4,
+sub
+#line 109 "idl.yp"
+{{
+ "TYPE" => "CPP_QUOTE",
+ "DATA" => $_[3],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 20
+ 'definitions', 1,
+sub
+#line 118 "idl.yp"
+{ [ $_[1] ] }
+ ],
+ [#Rule 21
+ 'definitions', 2,
+sub
+#line 120 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 22
+ 'definition', 1, undef
+ ],
+ [#Rule 23
+ 'definition', 1, undef
+ ],
+ [#Rule 24
+ 'definition', 1, undef
+ ],
+ [#Rule 25
+ 'definition', 1, undef
+ ],
+ [#Rule 26
+ 'const', 7,
+sub
+#line 135 "idl.yp"
+{{
+ "TYPE" => "CONST",
+ "DTYPE" => $_[2],
+ "POINTERS" => $_[3],
+ "NAME" => $_[4],
+ "VALUE" => $_[6],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 27
+ 'const', 8,
+sub
+#line 146 "idl.yp"
+{{
+ "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 160 "idl.yp"
+{{
+ "TYPE" => "FUNCTION",
+ "NAME" => $_[3],
+ "RETURN_TYPE" => $_[2],
+ "PROPERTIES" => $_[1],
+ "ELEMENTS" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 29
+ 'typedef', 7,
+sub
+#line 173 "idl.yp"
+{{
+ "TYPE" => "TYPEDEF",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[5],
+ "DATA" => $_[3],
+ "POINTERS" => $_[4],
+ "ARRAY_LEN" => $_[6],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 30
+ 'usertype', 1, undef
+ ],
+ [#Rule 31
+ 'usertype', 1, undef
+ ],
+ [#Rule 32
+ 'usertype', 1, undef
+ ],
+ [#Rule 33
+ 'usertype', 1, undef
+ ],
+ [#Rule 34
+ 'usertype', 1, undef
+ ],
+ [#Rule 35
+ 'typedecl', 2,
+sub
+#line 198 "idl.yp"
+{ $_[1] }
+ ],
+ [#Rule 36
+ 'sign', 1, undef
+ ],
+ [#Rule 37
+ 'sign', 1, undef
+ ],
+ [#Rule 38
+ 'existingtype', 2,
+sub
+#line 208 "idl.yp"
+{ ($_[1]?$_[1]:"signed") ." $_[2]" }
+ ],
+ [#Rule 39
+ 'existingtype', 1, undef
+ ],
+ [#Rule 40
+ 'type', 1, undef
+ ],
+ [#Rule 41
+ 'type', 1, undef
+ ],
+ [#Rule 42
+ 'type', 1,
+sub
+#line 218 "idl.yp"
+{ "void" }
+ ],
+ [#Rule 43
+ 'enum_body', 3,
+sub
+#line 222 "idl.yp"
+{ $_[2] }
+ ],
+ [#Rule 44
+ 'opt_enum_body', 0, undef
+ ],
+ [#Rule 45
+ 'opt_enum_body', 1, undef
+ ],
+ [#Rule 46
+ 'enum', 4,
+sub
+#line 233 "idl.yp"
+{{
+ "TYPE" => "ENUM",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 47
+ 'enum_elements', 1,
+sub
+#line 244 "idl.yp"
+{ [ $_[1] ] }
+ ],
+ [#Rule 48
+ 'enum_elements', 3,
+sub
+#line 246 "idl.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+ ],
+ [#Rule 49
+ 'enum_element', 1, undef
+ ],
+ [#Rule 50
+ 'enum_element', 3,
+sub
+#line 252 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 51
+ 'bitmap_body', 3,
+sub
+#line 256 "idl.yp"
+{ $_[2] }
+ ],
+ [#Rule 52
+ 'opt_bitmap_body', 0, undef
+ ],
+ [#Rule 53
+ 'opt_bitmap_body', 1, undef
+ ],
+ [#Rule 54
+ 'bitmap', 4,
+sub
+#line 267 "idl.yp"
+{{
+ "TYPE" => "BITMAP",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 55
+ 'bitmap_elements', 1,
+sub
+#line 278 "idl.yp"
+{ [ $_[1] ] }
+ ],
+ [#Rule 56
+ 'bitmap_elements', 3,
+sub
+#line 280 "idl.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+ ],
+ [#Rule 57
+ 'opt_bitmap_elements', 0, undef
+ ],
+ [#Rule 58
+ 'opt_bitmap_elements', 1, undef
+ ],
+ [#Rule 59
+ 'bitmap_element', 3,
+sub
+#line 290 "idl.yp"
+{ "$_[1] ( $_[3] )" }
+ ],
+ [#Rule 60
+ 'struct_body', 3,
+sub
+#line 294 "idl.yp"
+{ $_[2] }
+ ],
+ [#Rule 61
+ 'opt_struct_body', 0, undef
+ ],
+ [#Rule 62
+ 'opt_struct_body', 1, undef
+ ],
+ [#Rule 63
+ 'struct', 4,
+sub
+#line 305 "idl.yp"
+{{
+ "TYPE" => "STRUCT",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 64
+ 'empty_element', 2,
+sub
+#line 317 "idl.yp"
+{{
+ "NAME" => "",
+ "TYPE" => "EMPTY",
+ "PROPERTIES" => $_[1],
+ "POINTERS" => 0,
+ "ARRAY_LEN" => [],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 65
+ 'base_or_empty', 2, undef
+ ],
+ [#Rule 66
+ 'base_or_empty', 1, undef
+ ],
+ [#Rule 67
+ 'optional_base_element', 2,
+sub
+#line 334 "idl.yp"
+{ $_[2]->{PROPERTIES} = FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] }
+ ],
+ [#Rule 68
+ 'union_elements', 0, undef
+ ],
+ [#Rule 69
+ 'union_elements', 2,
+sub
+#line 340 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 70
+ 'union_body', 3,
+sub
+#line 344 "idl.yp"
+{ $_[2] }
+ ],
+ [#Rule 71
+ 'opt_union_body', 0, undef
+ ],
+ [#Rule 72
+ 'opt_union_body', 1, undef
+ ],
+ [#Rule 73
+ 'union', 4,
+sub
+#line 355 "idl.yp"
+{{
+ "TYPE" => "UNION",
+ "PROPERTIES" => $_[1],
+ "NAME" => $_[3],
+ "ELEMENTS" => $_[4],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 74
+ 'base_element', 5,
+sub
+#line 367 "idl.yp"
+{{
+ "NAME" => $_[4],
+ "TYPE" => $_[2],
+ "PROPERTIES" => $_[1],
+ "POINTERS" => $_[3],
+ "ARRAY_LEN" => $_[5],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 75
+ 'pointers', 0,
+sub
+#line 380 "idl.yp"
+{ 0 }
+ ],
+ [#Rule 76
+ 'pointers', 2,
+sub
+#line 382 "idl.yp"
+{ $_[1]+1 }
+ ],
+ [#Rule 77
+ 'pipe', 3,
+sub
+#line 387 "idl.yp"
+{{
+ "TYPE" => "PIPE",
+ "PROPERTIES" => $_[1],
+ "NAME" => undef,
+ "DATA" => {
+ "TYPE" => "STRUCT",
+ "PROPERTIES" => $_[1],
+ "NAME" => undef,
+ "ELEMENTS" => [{
+ "NAME" => "count",
+ "PROPERTIES" => $_[1],
+ "POINTERS" => 0,
+ "ARRAY_LEN" => [],
+ "TYPE" => "uint3264",
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ },{
+ "NAME" => "array",
+ "PROPERTIES" => $_[1],
+ "POINTERS" => 0,
+ "ARRAY_LEN" => [ "count" ],
+ "TYPE" => $_[3],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }],
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ },
+ "FILE" => $_[0]->YYData->{FILE},
+ "LINE" => $_[0]->YYData->{LINE},
+ }}
+ ],
+ [#Rule 78
+ 'element_list1', 0,
+sub
+#line 422 "idl.yp"
+{ [] }
+ ],
+ [#Rule 79
+ 'element_list1', 3,
+sub
+#line 424 "idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+ ],
+ [#Rule 80
+ 'optional_const', 0, undef
+ ],
+ [#Rule 81
+ 'optional_const', 1, undef
+ ],
+ [#Rule 82
+ 'element_list2', 0, undef
+ ],
+ [#Rule 83
+ 'element_list2', 1, undef
+ ],
+ [#Rule 84
+ 'element_list2', 2,
+sub
+#line 438 "idl.yp"
+{ [ $_[2] ] }
+ ],
+ [#Rule 85
+ 'element_list2', 4,
+sub
+#line 440 "idl.yp"
+{ push(@{$_[1]}, $_[4]); $_[1] }
+ ],
+ [#Rule 86
+ 'array_len', 0, undef
+ ],
+ [#Rule 87
+ 'array_len', 3,
+sub
+#line 446 "idl.yp"
+{ push(@{$_[3]}, "*"); $_[3] }
+ ],
+ [#Rule 88
+ 'array_len', 4,
+sub
+#line 448 "idl.yp"
+{ push(@{$_[4]}, "$_[2]"); $_[4] }
+ ],
+ [#Rule 89
+ 'property_list', 0, undef
+ ],
+ [#Rule 90
+ 'property_list', 4,
+sub
+#line 454 "idl.yp"
+{ FlattenHash([$_[1],$_[3]]); }
+ ],
+ [#Rule 91
+ 'properties', 1,
+sub
+#line 458 "idl.yp"
+{ $_[1] }
+ ],
+ [#Rule 92
+ 'properties', 3,
+sub
+#line 460 "idl.yp"
+{ FlattenHash([$_[1], $_[3]]); }
+ ],
+ [#Rule 93
+ 'property', 1,
+sub
+#line 464 "idl.yp"
+{{ "$_[1]" => "1" }}
+ ],
+ [#Rule 94
+ 'property', 4,
+sub
+#line 466 "idl.yp"
+{{ "$_[1]" => "$_[3]" }}
+ ],
+ [#Rule 95
+ 'commalisttext', 1, undef
+ ],
+ [#Rule 96
+ 'commalisttext', 3,
+sub
+#line 472 "idl.yp"
+{ "$_[1],$_[3]" }
+ ],
+ [#Rule 97
+ 'anytext', 0,
+sub
+#line 477 "idl.yp"
+{ "" }
+ ],
+ [#Rule 98
+ 'anytext', 1, undef
+ ],
+ [#Rule 99
+ 'anytext', 1, undef
+ ],
+ [#Rule 100
+ 'anytext', 1, undef
+ ],
+ [#Rule 101
+ 'anytext', 3,
+sub
+#line 485 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 102
+ 'anytext', 3,
+sub
+#line 487 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 103
+ 'anytext', 3,
+sub
+#line 489 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 104
+ 'anytext', 3,
+sub
+#line 491 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 105
+ 'anytext', 3,
+sub
+#line 493 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 106
+ 'anytext', 3,
+sub
+#line 495 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 107
+ 'anytext', 3,
+sub
+#line 497 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 108
+ 'anytext', 3,
+sub
+#line 499 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 109
+ 'anytext', 3,
+sub
+#line 501 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 110
+ 'anytext', 3,
+sub
+#line 503 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 111
+ 'anytext', 3,
+sub
+#line 505 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 112
+ 'anytext', 3,
+sub
+#line 507 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 113
+ 'anytext', 3,
+sub
+#line 509 "idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+ ],
+ [#Rule 114
+ 'anytext', 5,
+sub
+#line 511 "idl.yp"
+{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+ ],
+ [#Rule 115
+ 'anytext', 5,
+sub
+#line 513 "idl.yp"
+{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+ ],
+ [#Rule 116
+ 'identifier', 1, undef
+ ],
+ [#Rule 117
+ 'optional_identifier', 0, undef
+ ],
+ [#Rule 118
+ 'optional_identifier', 1, undef
+ ],
+ [#Rule 119
+ 'constant', 1, undef
+ ],
+ [#Rule 120
+ 'text', 1,
+sub
+#line 531 "idl.yp"
+{ "\"$_[1]\"" }
+ ],
+ [#Rule 121
+ 'optional_semicolon', 0, undef
+ ],
+ [#Rule 122
+ 'optional_semicolon', 1, undef
+ ]
+],
+ @_);
+ bless($self,$class);
+}
+
+#line 543 "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};
+ }
+ }
+ 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;
+
+ 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;
+ }
+ }
+ }
+
+ return $v;
+}
+
+sub _Error {
+ 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'");
+}
+
+sub _Lexer($)
+{
+ my($parser)=shift;
+
+ $parser->YYData->{INPUT} or return('',undef);
+
+again:
+ $parser->YYData->{INPUT} =~ s/^[ \t]*//;
+
+ for ($parser->YYData->{INPUT}) {
+ if (/^\#/) {
+ # Linemarker format is described at
+ # http://gcc.gnu.org/onlinedocs/cpp/Preprocessor-Output.html
+ if (s/^\# (\d+) \"(.*?)\"(( \d+){1,4}|)//) {
+ $parser->YYData->{LINE} = $1-1;
+ $parser->YYData->{FILE} = $2;
+ goto again;
+ }
+ if (s/^\#line (\d+) \"(.*?)\"( \d+|)//) {
+ $parser->YYData->{LINE} = $1-1;
+ $parser->YYData->{FILE} = $2;
+ goto again;
+ }
+ if (s/^(\#.*)$//m) {
+ goto again;
+ }
+ }
+ if (s/^(\n)//) {
+ $parser->YYData->{LINE}++;
+ goto again;
+ }
+ if (s/^\"(.*?)\"//) {
+ $parser->YYData->{LAST_TOKEN} = $1;
+ return('TEXT',$1);
+ }
+ if (s/^(\d+)(\W|$)/$2/) {
+ $parser->YYData->{LAST_TOKEN} = $1;
+ return('CONSTANT',$1);
+ }
+ if (s/^([\w_]+)//) {
+ $parser->YYData->{LAST_TOKEN} = $1;
+ if ($1 =~
+ /^(coclass|interface|import|importlib
+ |include|cpp_quote|typedef
+ |union|struct|enum|bitmap|pipe
+ |void|const|unsigned|signed)$/x) {
+ return $1;
+ }
+ return('IDENTIFIER',$1);
+ }
+ if (s/^(.)//s) {
+ $parser->YYData->{LAST_TOKEN} = $1;
+ return($1,$1);
+ }
+ }
+}
+
+sub parse_string
+{
+ my ($data,$filename) = @_;
+
+ my $self = new Parse::Pidl::IDL;
+
+ $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 );
+
+ return CleanData($idl);
+}
+
+sub parse_file($$)
+{
+ my ($filename,$incdirs) = @_;
+
+ my $saved_delim = $/;
+ undef $/;
+ my $cpp = $ENV{CPP};
+ my $options = "";
+ if (! defined $cpp) {
+ if (defined $ENV{CC}) {
+ $cpp = "$ENV{CC}";
+ $options = "-E";
+ } else {
+ $cpp = "cpp";
+ }
+ }
+ my $includes = join('',map { " -I$_" } @$incdirs);
+ my $data = `$cpp $options -D__PIDL__$includes -xc "$filename"`;
+ $/ = $saved_delim;
+
+ return parse_string($data, $filename);
+}
+
+1;