diff options
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/IDL.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/IDL.pm | 154 |
1 files changed, 77 insertions, 77 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/IDL.pm b/source4/pidl/lib/Parse/Pidl/IDL.pm index 3d9eb4ea74..71c4470870 100644 --- a/source4/pidl/lib/Parse/Pidl/IDL.pm +++ b/source4/pidl/lib/Parse/Pidl/IDL.pm @@ -1811,37 +1811,37 @@ sub new { [#Rule 2 'idl', 2, sub -#line 19 "idl.yp" +#line 19 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 3 'idl', 2, sub -#line 20 "idl.yp" +#line 20 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 4 'idl', 2, sub -#line 21 "idl.yp" +#line 21 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 5 'idl', 2, sub -#line 22 "idl.yp" +#line 22 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 6 'idl', 2, sub -#line 23 "idl.yp" +#line 23 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 7 'import', 3, sub -#line 26 "idl.yp" +#line 26 "pidl/idl.yp" {{ "TYPE" => "IMPORT", "PATHS" => $_[2], @@ -1852,7 +1852,7 @@ sub [#Rule 8 'include', 3, sub -#line 33 "idl.yp" +#line 33 "pidl/idl.yp" {{ "TYPE" => "INCLUDE", "PATHS" => $_[2], @@ -1863,7 +1863,7 @@ sub [#Rule 9 'importlib', 3, sub -#line 40 "idl.yp" +#line 40 "pidl/idl.yp" {{ "TYPE" => "IMPORTLIB", "PATHS" => $_[2], @@ -1874,19 +1874,19 @@ sub [#Rule 10 'commalist', 1, sub -#line 49 "idl.yp" +#line 49 "pidl/idl.yp" { [ $_[1] ] } ], [#Rule 11 'commalist', 3, sub -#line 50 "idl.yp" +#line 50 "pidl/idl.yp" { push(@{$_[1]}, $_[3]); $_[1] } ], [#Rule 12 'coclass', 7, sub -#line 54 "idl.yp" +#line 54 "pidl/idl.yp" {{ "TYPE" => "COCLASS", "PROPERTIES" => $_[1], @@ -1902,13 +1902,13 @@ sub [#Rule 14 'interface_names', 4, sub -#line 66 "idl.yp" +#line 66 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 15 'interface', 8, sub -#line 70 "idl.yp" +#line 70 "pidl/idl.yp" {{ "TYPE" => "INTERFACE", "PROPERTIES" => $_[1], @@ -1925,19 +1925,19 @@ sub [#Rule 17 'base_interface', 2, sub -#line 83 "idl.yp" +#line 83 "pidl/idl.yp" { $_[2] } ], [#Rule 18 'definitions', 1, sub -#line 87 "idl.yp" +#line 87 "pidl/idl.yp" { [ $_[1] ] } ], [#Rule 19 'definitions', 2, sub -#line 88 "idl.yp" +#line 88 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 20 @@ -1958,7 +1958,7 @@ sub [#Rule 25 'const', 7, sub -#line 96 "idl.yp" +#line 96 "pidl/idl.yp" {{ "TYPE" => "CONST", "DTYPE" => $_[2], @@ -1972,7 +1972,7 @@ sub [#Rule 26 'const', 8, sub -#line 106 "idl.yp" +#line 106 "pidl/idl.yp" {{ "TYPE" => "CONST", "DTYPE" => $_[2], @@ -1987,7 +1987,7 @@ sub [#Rule 27 'function', 7, sub -#line 120 "idl.yp" +#line 120 "pidl/idl.yp" {{ "TYPE" => "FUNCTION", "NAME" => $_[3], @@ -2001,7 +2001,7 @@ sub [#Rule 28 'declare', 5, sub -#line 132 "idl.yp" +#line 132 "pidl/idl.yp" {{ "TYPE" => "DECLARE", "PROPERTIES" => $_[2], @@ -2023,7 +2023,7 @@ sub [#Rule 32 'decl_enum', 1, sub -#line 146 "idl.yp" +#line 146 "pidl/idl.yp" {{ "TYPE" => "ENUM" }} @@ -2031,7 +2031,7 @@ sub [#Rule 33 'decl_bitmap', 1, sub -#line 152 "idl.yp" +#line 152 "pidl/idl.yp" {{ "TYPE" => "BITMAP" }} @@ -2039,7 +2039,7 @@ sub [#Rule 34 'decl_union', 1, sub -#line 158 "idl.yp" +#line 158 "pidl/idl.yp" {{ "TYPE" => "UNION" }} @@ -2047,7 +2047,7 @@ sub [#Rule 35 'typedef', 6, sub -#line 164 "idl.yp" +#line 164 "pidl/idl.yp" {{ "TYPE" => "TYPEDEF", "PROPERTIES" => $_[2], @@ -2073,7 +2073,7 @@ sub [#Rule 40 'typedecl', 2, sub -#line 177 "idl.yp" +#line 177 "pidl/idl.yp" { $_[1] } ], [#Rule 41 @@ -2085,7 +2085,7 @@ sub [#Rule 43 'existingtype', 2, sub -#line 182 "idl.yp" +#line 182 "pidl/idl.yp" { ($_[1]?$_[1]:"signed") ." $_[2]" } ], [#Rule 44 @@ -2100,13 +2100,13 @@ sub [#Rule 47 'type', 1, sub -#line 186 "idl.yp" +#line 186 "pidl/idl.yp" { "void" } ], [#Rule 48 'enum_body', 3, sub -#line 188 "idl.yp" +#line 188 "pidl/idl.yp" { $_[2] } ], [#Rule 49 @@ -2118,7 +2118,7 @@ sub [#Rule 51 'enum', 3, sub -#line 191 "idl.yp" +#line 191 "pidl/idl.yp" {{ "TYPE" => "ENUM", "NAME" => $_[2], @@ -2128,13 +2128,13 @@ sub [#Rule 52 'enum_elements', 1, sub -#line 199 "idl.yp" +#line 199 "pidl/idl.yp" { [ $_[1] ] } ], [#Rule 53 'enum_elements', 3, sub -#line 200 "idl.yp" +#line 200 "pidl/idl.yp" { push(@{$_[1]}, $_[3]); $_[1] } ], [#Rule 54 @@ -2143,13 +2143,13 @@ sub [#Rule 55 'enum_element', 3, sub -#line 204 "idl.yp" +#line 204 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 56 'bitmap_body', 3, sub -#line 207 "idl.yp" +#line 207 "pidl/idl.yp" { $_[2] } ], [#Rule 57 @@ -2161,7 +2161,7 @@ sub [#Rule 59 'bitmap', 3, sub -#line 210 "idl.yp" +#line 210 "pidl/idl.yp" {{ "TYPE" => "BITMAP", "NAME" => $_[2], @@ -2171,13 +2171,13 @@ sub [#Rule 60 'bitmap_elements', 1, sub -#line 218 "idl.yp" +#line 218 "pidl/idl.yp" { [ $_[1] ] } ], [#Rule 61 'bitmap_elements', 3, sub -#line 219 "idl.yp" +#line 219 "pidl/idl.yp" { push(@{$_[1]}, $_[3]); $_[1] } ], [#Rule 62 @@ -2189,13 +2189,13 @@ sub [#Rule 64 'bitmap_element', 3, sub -#line 224 "idl.yp" +#line 224 "pidl/idl.yp" { "$_[1] ( $_[3] )" } ], [#Rule 65 'struct_body', 3, sub -#line 227 "idl.yp" +#line 227 "pidl/idl.yp" { $_[2] } ], [#Rule 66 @@ -2207,7 +2207,7 @@ sub [#Rule 68 'struct', 3, sub -#line 231 "idl.yp" +#line 231 "pidl/idl.yp" {{ "TYPE" => "STRUCT", "NAME" => $_[2], @@ -2217,7 +2217,7 @@ sub [#Rule 69 'empty_element', 2, sub -#line 239 "idl.yp" +#line 239 "pidl/idl.yp" {{ "NAME" => "", "TYPE" => "EMPTY", @@ -2237,7 +2237,7 @@ sub [#Rule 72 'optional_base_element', 2, sub -#line 253 "idl.yp" +#line 253 "pidl/idl.yp" { $_[2]->{PROPERTIES} = FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] } ], [#Rule 73 @@ -2246,13 +2246,13 @@ sub [#Rule 74 'union_elements', 2, sub -#line 258 "idl.yp" +#line 258 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 75 'union_body', 3, sub -#line 261 "idl.yp" +#line 261 "pidl/idl.yp" { $_[2] } ], [#Rule 76 @@ -2264,7 +2264,7 @@ sub [#Rule 78 'union', 3, sub -#line 265 "idl.yp" +#line 265 "pidl/idl.yp" {{ "TYPE" => "UNION", "NAME" => $_[2], @@ -2274,7 +2274,7 @@ sub [#Rule 79 'base_element', 5, sub -#line 273 "idl.yp" +#line 273 "pidl/idl.yp" {{ "NAME" => $_[4], "TYPE" => $_[2], @@ -2288,13 +2288,13 @@ sub [#Rule 80 'pointers', 0, sub -#line 287 "idl.yp" +#line 287 "pidl/idl.yp" { 0 } ], [#Rule 81 'pointers', 2, sub -#line 288 "idl.yp" +#line 288 "pidl/idl.yp" { $_[1]+1 } ], [#Rule 82 @@ -2303,7 +2303,7 @@ sub [#Rule 83 'element_list1', 3, sub -#line 293 "idl.yp" +#line 293 "pidl/idl.yp" { push(@{$_[1]}, $_[2]); $_[1] } ], [#Rule 84 @@ -2315,13 +2315,13 @@ sub [#Rule 86 'element_list2', 1, sub -#line 299 "idl.yp" +#line 299 "pidl/idl.yp" { [ $_[1] ] } ], [#Rule 87 'element_list2', 3, sub -#line 300 "idl.yp" +#line 300 "pidl/idl.yp" { push(@{$_[1]}, $_[3]); $_[1] } ], [#Rule 88 @@ -2330,13 +2330,13 @@ sub [#Rule 89 'array_len', 3, sub -#line 305 "idl.yp" +#line 305 "pidl/idl.yp" { push(@{$_[3]}, "*"); $_[3] } ], [#Rule 90 'array_len', 4, sub -#line 306 "idl.yp" +#line 306 "pidl/idl.yp" { push(@{$_[4]}, "$_[2]"); $_[4] } ], [#Rule 91 @@ -2345,31 +2345,31 @@ sub [#Rule 92 'property_list', 4, sub -#line 312 "idl.yp" +#line 312 "pidl/idl.yp" { FlattenHash([$_[1],$_[3]]); } ], [#Rule 93 'properties', 1, sub -#line 315 "idl.yp" +#line 315 "pidl/idl.yp" { $_[1] } ], [#Rule 94 'properties', 3, sub -#line 316 "idl.yp" +#line 316 "pidl/idl.yp" { FlattenHash([$_[1], $_[3]]); } ], [#Rule 95 'property', 1, sub -#line 319 "idl.yp" +#line 319 "pidl/idl.yp" {{ "$_[1]" => "1" }} ], [#Rule 96 'property', 4, sub -#line 320 "idl.yp" +#line 320 "pidl/idl.yp" {{ "$_[1]" => "$_[3]" }} ], [#Rule 97 @@ -2378,7 +2378,7 @@ sub [#Rule 98 'listtext', 3, sub -#line 325 "idl.yp" +#line 325 "pidl/idl.yp" { "$_[1] $_[3]" } ], [#Rule 99 @@ -2387,13 +2387,13 @@ sub [#Rule 100 'commalisttext', 3, sub -#line 330 "idl.yp" +#line 330 "pidl/idl.yp" { "$_[1],$_[3]" } ], [#Rule 101 'anytext', 0, sub -#line 334 "idl.yp" +#line 334 "pidl/idl.yp" { "" } ], [#Rule 102 @@ -2408,91 +2408,91 @@ sub [#Rule 105 'anytext', 3, sub -#line 336 "idl.yp" +#line 336 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 106 'anytext', 3, sub -#line 337 "idl.yp" +#line 337 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 107 'anytext', 3, sub -#line 338 "idl.yp" +#line 338 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 108 'anytext', 3, sub -#line 339 "idl.yp" +#line 339 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 109 'anytext', 3, sub -#line 340 "idl.yp" +#line 340 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 110 'anytext', 3, sub -#line 341 "idl.yp" +#line 341 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 111 'anytext', 3, sub -#line 342 "idl.yp" +#line 342 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 112 'anytext', 3, sub -#line 343 "idl.yp" +#line 343 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 113 'anytext', 3, sub -#line 344 "idl.yp" +#line 344 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 114 'anytext', 3, sub -#line 345 "idl.yp" +#line 345 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 115 'anytext', 3, sub -#line 346 "idl.yp" +#line 346 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 116 'anytext', 3, sub -#line 347 "idl.yp" +#line 347 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 117 'anytext', 3, sub -#line 348 "idl.yp" +#line 348 "pidl/idl.yp" { "$_[1]$_[2]$_[3]" } ], [#Rule 118 'anytext', 5, sub -#line 349 "idl.yp" +#line 349 "pidl/idl.yp" { "$_[1]$_[2]$_[3]$_[4]$_[5]" } ], [#Rule 119 'anytext', 5, sub -#line 350 "idl.yp" +#line 350 "pidl/idl.yp" { "$_[1]$_[2]$_[3]$_[4]$_[5]" } ], [#Rule 120 @@ -2510,7 +2510,7 @@ sub [#Rule 124 'text', 1, sub -#line 364 "idl.yp" +#line 364 "pidl/idl.yp" { "\"$_[1]\"" } ], [#Rule 125 @@ -2524,7 +2524,7 @@ sub bless($self,$class); } -#line 375 "idl.yp" +#line 375 "pidl/idl.yp" use Parse::Pidl qw(error); |