ad758df90b
Please note that the Alphatronics implementation does not follow the Vebon specification. An extra padding byte had to be added to the idl..
2662 lines
37 KiB
Perl
2662 lines
37 KiB
Perl
####################################################################
|
|
#
|
|
# 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;
|
|
|
|
@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 (/^\#/) {
|
|
if (s/^\# (\d+) \"(.*?)\"( \d+|)//) {
|
|
$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;
|