5956c43e43b8c1e08ca9bf3e93f60ce45ad7566d
[ira/wip.git] / source / pidl / lib / Parse / Pidl / IDL.pm
1 ####################################################################
2 #
3 #    This file was generated using Parse::Yapp version 1.05.
4 #
5 #        Don't edit this file, use source file instead.
6 #
7 #             ANY CHANGE MADE HERE WILL BE LOST !
8 #
9 ####################################################################
10 package Parse::Pidl::IDL;
11 use vars qw ( @ISA );
12 use strict;
13
14 @ISA= qw ( Parse::Yapp::Driver );
15 use Parse::Yapp::Driver;
16
17
18
19 sub new {
20         my($class)=shift;
21         ref($class)
22     and $class=ref($class);
23
24     my($self)=$class->SUPER::new( yyversion => '1.05',
25                                   yystates =>
26 [
27         {#State 0
28                 DEFAULT => -1,
29                 GOTOS => {
30                         'idl' => 1
31                 }
32         },
33         {#State 1
34                 ACTIONS => {
35                         '' => 2,
36                         "cpp_quote" => 3,
37                         "importlib" => 4,
38                         "import" => 7,
39                         "include" => 13
40                 },
41                 DEFAULT => -83,
42                 GOTOS => {
43                         'cpp_quote' => 11,
44                         'importlib' => 10,
45                         'interface' => 9,
46                         'include' => 5,
47                         'coclass' => 12,
48                         'import' => 8,
49                         'property_list' => 6
50                 }
51         },
52         {#State 2
53                 DEFAULT => 0
54         },
55         {#State 3
56                 ACTIONS => {
57                         "(" => 14
58                 }
59         },
60         {#State 4
61                 ACTIONS => {
62                         'TEXT' => 16
63                 },
64                 GOTOS => {
65                         'commalist' => 15,
66                         'text' => 17
67                 }
68         },
69         {#State 5
70                 DEFAULT => -5
71         },
72         {#State 6
73                 ACTIONS => {
74                         "coclass" => 18,
75                         "[" => 20,
76                         "interface" => 19
77                 }
78         },
79         {#State 7
80                 ACTIONS => {
81                         'TEXT' => 16
82                 },
83                 GOTOS => {
84                         'commalist' => 21,
85                         'text' => 17
86                 }
87         },
88         {#State 8
89                 DEFAULT => -4
90         },
91         {#State 9
92                 DEFAULT => -2
93         },
94         {#State 10
95                 DEFAULT => -6
96         },
97         {#State 11
98                 DEFAULT => -7
99         },
100         {#State 12
101                 DEFAULT => -3
102         },
103         {#State 13
104                 ACTIONS => {
105                         'TEXT' => 16
106                 },
107                 GOTOS => {
108                         'commalist' => 22,
109                         'text' => 17
110                 }
111         },
112         {#State 14
113                 ACTIONS => {
114                         'TEXT' => 16
115                 },
116                 GOTOS => {
117                         'text' => 23
118                 }
119         },
120         {#State 15
121                 ACTIONS => {
122                         ";" => 24,
123                         "," => 25
124                 }
125         },
126         {#State 16
127                 DEFAULT => -116
128         },
129         {#State 17
130                 DEFAULT => -11
131         },
132         {#State 18
133                 ACTIONS => {
134                         'IDENTIFIER' => 26
135                 },
136                 GOTOS => {
137                         'identifier' => 27
138                 }
139         },
140         {#State 19
141                 ACTIONS => {
142                         'IDENTIFIER' => 26
143                 },
144                 GOTOS => {
145                         'identifier' => 28
146                 }
147         },
148         {#State 20
149                 ACTIONS => {
150                         'IDENTIFIER' => 26
151                 },
152                 GOTOS => {
153                         'identifier' => 30,
154                         'property' => 31,
155                         'properties' => 29
156                 }
157         },
158         {#State 21
159                 ACTIONS => {
160                         ";" => 32,
161                         "," => 25
162                 }
163         },
164         {#State 22
165                 ACTIONS => {
166                         ";" => 33,
167                         "," => 25
168                 }
169         },
170         {#State 23
171                 ACTIONS => {
172                         ")" => 34
173                 }
174         },
175         {#State 24
176                 DEFAULT => -10
177         },
178         {#State 25
179                 ACTIONS => {
180                         'TEXT' => 16
181                 },
182                 GOTOS => {
183                         'text' => 35
184                 }
185         },
186         {#State 26
187                 DEFAULT => -112
188         },
189         {#State 27
190                 ACTIONS => {
191                         "{" => 36
192                 }
193         },
194         {#State 28
195                 ACTIONS => {
196                         "{" => 37
197                 }
198         },
199         {#State 29
200                 ACTIONS => {
201                         "," => 38,
202                         "]" => 39
203                 }
204         },
205         {#State 30
206                 ACTIONS => {
207                         "(" => 40
208                 },
209                 DEFAULT => -87
210         },
211         {#State 31
212                 DEFAULT => -85
213         },
214         {#State 32
215                 DEFAULT => -8
216         },
217         {#State 33
218                 DEFAULT => -9
219         },
220         {#State 34
221                 DEFAULT => -17
222         },
223         {#State 35
224                 DEFAULT => -12
225         },
226         {#State 36
227                 DEFAULT => -14,
228                 GOTOS => {
229                         'interface_names' => 41
230                 }
231         },
232         {#State 37
233                 ACTIONS => {
234                         "const" => 51
235                 },
236                 DEFAULT => -83,
237                 GOTOS => {
238                         'typedecl' => 42,
239                         'function' => 43,
240                         'definitions' => 45,
241                         'bitmap' => 44,
242                         'definition' => 48,
243                         'property_list' => 47,
244                         'usertype' => 46,
245                         'const' => 50,
246                         'struct' => 49,
247                         'typedef' => 53,
248                         'enum' => 52,
249                         'union' => 54
250                 }
251         },
252         {#State 38
253                 ACTIONS => {
254                         'IDENTIFIER' => 26
255                 },
256                 GOTOS => {
257                         'identifier' => 30,
258                         'property' => 55
259                 }
260         },
261         {#State 39
262                 DEFAULT => -84
263         },
264         {#State 40
265                 ACTIONS => {
266                         'CONSTANT' => 59,
267                         'TEXT' => 16,
268                         'IDENTIFIER' => 26
269                 },
270                 DEFAULT => -93,
271                 GOTOS => {
272                         'identifier' => 60,
273                         'text' => 61,
274                         'listtext' => 57,
275                         'anytext' => 56,
276                         'constant' => 58
277                 }
278         },
279         {#State 41
280                 ACTIONS => {
281                         "}" => 62,
282                         "interface" => 63
283                 }
284         },
285         {#State 42
286                 DEFAULT => -23
287         },
288         {#State 43
289                 DEFAULT => -20
290         },
291         {#State 44
292                 DEFAULT => -31
293         },
294         {#State 45
295                 ACTIONS => {
296                         "}" => 64,
297                         "const" => 51
298                 },
299                 DEFAULT => -83,
300                 GOTOS => {
301                         'typedecl' => 42,
302                         'function' => 43,
303                         'bitmap' => 44,
304                         'definition' => 65,
305                         'property_list' => 47,
306                         'usertype' => 46,
307                         'struct' => 49,
308                         'const' => 50,
309                         'typedef' => 53,
310                         'enum' => 52,
311                         'union' => 54
312                 }
313         },
314         {#State 46
315                 ACTIONS => {
316                         ";" => 66
317                 }
318         },
319         {#State 47
320                 ACTIONS => {
321                         "typedef" => 67,
322                         'IDENTIFIER' => 26,
323                         "signed" => 75,
324                         "union" => 68,
325                         "enum" => 77,
326                         "bitmap" => 78,
327                         'void' => 69,
328                         "unsigned" => 79,
329                         "[" => 20,
330                         "struct" => 74
331                 },
332                 GOTOS => {
333                         'existingtype' => 76,
334                         'bitmap' => 44,
335                         'usertype' => 71,
336                         'property_list' => 70,
337                         'identifier' => 72,
338                         'struct' => 49,
339                         'enum' => 52,
340                         'type' => 80,
341                         'union' => 54,
342                         'sign' => 73
343                 }
344         },
345         {#State 48
346                 DEFAULT => -18
347         },
348         {#State 49
349                 DEFAULT => -28
350         },
351         {#State 50
352                 DEFAULT => -21
353         },
354         {#State 51
355                 ACTIONS => {
356                         'IDENTIFIER' => 26
357                 },
358                 GOTOS => {
359                         'identifier' => 81
360                 }
361         },
362         {#State 52
363                 DEFAULT => -30
364         },
365         {#State 53
366                 DEFAULT => -22
367         },
368         {#State 54
369                 DEFAULT => -29
370         },
371         {#State 55
372                 DEFAULT => -86
373         },
374         {#State 56
375                 ACTIONS => {
376                         "-" => 83,
377                         ":" => 82,
378                         "<" => 84,
379                         "+" => 86,
380                         "~" => 85,
381                         "*" => 87,
382                         "?" => 88,
383                         "{" => 89,
384                         "&" => 90,
385                         "/" => 91,
386                         "=" => 92,
387                         "(" => 93,
388                         "|" => 94,
389                         "." => 95,
390                         ">" => 96
391                 },
392                 DEFAULT => -89
393         },
394         {#State 57
395                 ACTIONS => {
396                         "," => 97,
397                         ")" => 98
398                 }
399         },
400         {#State 58
401                 DEFAULT => -95
402         },
403         {#State 59
404                 DEFAULT => -115
405         },
406         {#State 60
407                 DEFAULT => -94
408         },
409         {#State 61
410                 DEFAULT => -96
411         },
412         {#State 62
413                 ACTIONS => {
414                         ";" => 99
415                 },
416                 DEFAULT => -117,
417                 GOTOS => {
418                         'optional_semicolon' => 100
419                 }
420         },
421         {#State 63
422                 ACTIONS => {
423                         'IDENTIFIER' => 26
424                 },
425                 GOTOS => {
426                         'identifier' => 101
427                 }
428         },
429         {#State 64
430                 ACTIONS => {
431                         ";" => 99
432                 },
433                 DEFAULT => -117,
434                 GOTOS => {
435                         'optional_semicolon' => 102
436                 }
437         },
438         {#State 65
439                 DEFAULT => -19
440         },
441         {#State 66
442                 DEFAULT => -32
443         },
444         {#State 67
445                 ACTIONS => {
446                         'IDENTIFIER' => 26,
447                         "signed" => 75,
448                         'void' => 69,
449                         "unsigned" => 79
450                 },
451                 DEFAULT => -83,
452                 GOTOS => {
453                         'existingtype' => 76,
454                         'bitmap' => 44,
455                         'usertype' => 71,
456                         'property_list' => 70,
457                         'identifier' => 72,
458                         'struct' => 49,
459                         'enum' => 52,
460                         'type' => 103,
461                         'union' => 54,
462                         'sign' => 73
463                 }
464         },
465         {#State 68
466                 ACTIONS => {
467                         'IDENTIFIER' => 104
468                 },
469                 DEFAULT => -114,
470                 GOTOS => {
471                         'optional_identifier' => 105
472                 }
473         },
474         {#State 69
475                 DEFAULT => -39
476         },
477         {#State 70
478                 ACTIONS => {
479                         "union" => 68,
480                         "enum" => 77,
481                         "bitmap" => 78,
482                         "[" => 20,
483                         "struct" => 74
484                 }
485         },
486         {#State 71
487                 DEFAULT => -37
488         },
489         {#State 72
490                 DEFAULT => -36
491         },
492         {#State 73
493                 ACTIONS => {
494                         'IDENTIFIER' => 26
495                 },
496                 GOTOS => {
497                         'identifier' => 106
498                 }
499         },
500         {#State 74
501                 ACTIONS => {
502                         'IDENTIFIER' => 104
503                 },
504                 DEFAULT => -114,
505                 GOTOS => {
506                         'optional_identifier' => 107
507                 }
508         },
509         {#State 75
510                 DEFAULT => -33
511         },
512         {#State 76
513                 DEFAULT => -38
514         },
515         {#State 77
516                 ACTIONS => {
517                         'IDENTIFIER' => 104
518                 },
519                 DEFAULT => -114,
520                 GOTOS => {
521                         'optional_identifier' => 108
522                 }
523         },
524         {#State 78
525                 ACTIONS => {
526                         'IDENTIFIER' => 104
527                 },
528                 DEFAULT => -114,
529                 GOTOS => {
530                         'optional_identifier' => 109
531                 }
532         },
533         {#State 79
534                 DEFAULT => -34
535         },
536         {#State 80
537                 ACTIONS => {
538                         'IDENTIFIER' => 26
539                 },
540                 GOTOS => {
541                         'identifier' => 110
542                 }
543         },
544         {#State 81
545                 DEFAULT => -72,
546                 GOTOS => {
547                         'pointers' => 111
548                 }
549         },
550         {#State 82
551                 ACTIONS => {
552                         'CONSTANT' => 59,
553                         'TEXT' => 16,
554                         'IDENTIFIER' => 26
555                 },
556                 DEFAULT => -93,
557                 GOTOS => {
558                         'identifier' => 60,
559                         'anytext' => 112,
560                         'text' => 61,
561                         'constant' => 58
562                 }
563         },
564         {#State 83
565                 ACTIONS => {
566                         'CONSTANT' => 59,
567                         'TEXT' => 16,
568                         'IDENTIFIER' => 26
569                 },
570                 DEFAULT => -93,
571                 GOTOS => {
572                         'identifier' => 60,
573                         'anytext' => 113,
574                         'text' => 61,
575                         'constant' => 58
576                 }
577         },
578         {#State 84
579                 ACTIONS => {
580                         'CONSTANT' => 59,
581                         'TEXT' => 16,
582                         'IDENTIFIER' => 26
583                 },
584                 DEFAULT => -93,
585                 GOTOS => {
586                         'identifier' => 60,
587                         'anytext' => 114,
588                         'text' => 61,
589                         'constant' => 58
590                 }
591         },
592         {#State 85
593                 ACTIONS => {
594                         'CONSTANT' => 59,
595                         'TEXT' => 16,
596                         'IDENTIFIER' => 26
597                 },
598                 DEFAULT => -93,
599                 GOTOS => {
600                         'identifier' => 60,
601                         'anytext' => 115,
602                         'text' => 61,
603                         'constant' => 58
604                 }
605         },
606         {#State 86
607                 ACTIONS => {
608                         'CONSTANT' => 59,
609                         'TEXT' => 16,
610                         'IDENTIFIER' => 26
611                 },
612                 DEFAULT => -93,
613                 GOTOS => {
614                         'identifier' => 60,
615                         'anytext' => 116,
616                         'text' => 61,
617                         'constant' => 58
618                 }
619         },
620         {#State 87
621                 ACTIONS => {
622                         'CONSTANT' => 59,
623                         'TEXT' => 16,
624                         'IDENTIFIER' => 26
625                 },
626                 DEFAULT => -93,
627                 GOTOS => {
628                         'identifier' => 60,
629                         'anytext' => 117,
630                         'text' => 61,
631                         'constant' => 58
632                 }
633         },
634         {#State 88
635                 ACTIONS => {
636                         'CONSTANT' => 59,
637                         'TEXT' => 16,
638                         'IDENTIFIER' => 26
639                 },
640                 DEFAULT => -93,
641                 GOTOS => {
642                         'identifier' => 60,
643                         'anytext' => 118,
644                         'text' => 61,
645                         'constant' => 58
646                 }
647         },
648         {#State 89
649                 ACTIONS => {
650                         'CONSTANT' => 59,
651                         'TEXT' => 16,
652                         'IDENTIFIER' => 26
653                 },
654                 DEFAULT => -93,
655                 GOTOS => {
656                         'identifier' => 60,
657                         'anytext' => 119,
658                         'text' => 61,
659                         'constant' => 58,
660                         'commalisttext' => 120
661                 }
662         },
663         {#State 90
664                 ACTIONS => {
665                         'CONSTANT' => 59,
666                         'TEXT' => 16,
667                         'IDENTIFIER' => 26
668                 },
669                 DEFAULT => -93,
670                 GOTOS => {
671                         'identifier' => 60,
672                         'anytext' => 121,
673                         'text' => 61,
674                         'constant' => 58
675                 }
676         },
677         {#State 91
678                 ACTIONS => {
679                         'CONSTANT' => 59,
680                         'TEXT' => 16,
681                         'IDENTIFIER' => 26
682                 },
683                 DEFAULT => -93,
684                 GOTOS => {
685                         'identifier' => 60,
686                         'anytext' => 122,
687                         'text' => 61,
688                         'constant' => 58
689                 }
690         },
691         {#State 92
692                 ACTIONS => {
693                         'CONSTANT' => 59,
694                         'TEXT' => 16,
695                         'IDENTIFIER' => 26
696                 },
697                 DEFAULT => -93,
698                 GOTOS => {
699                         'identifier' => 60,
700                         'anytext' => 123,
701                         'text' => 61,
702                         'constant' => 58
703                 }
704         },
705         {#State 93
706                 ACTIONS => {
707                         'CONSTANT' => 59,
708                         'TEXT' => 16,
709                         'IDENTIFIER' => 26
710                 },
711                 DEFAULT => -93,
712                 GOTOS => {
713                         'identifier' => 60,
714                         'anytext' => 119,
715                         'text' => 61,
716                         'constant' => 58,
717                         'commalisttext' => 124
718                 }
719         },
720         {#State 94
721                 ACTIONS => {
722                         'CONSTANT' => 59,
723                         'TEXT' => 16,
724                         'IDENTIFIER' => 26
725                 },
726                 DEFAULT => -93,
727                 GOTOS => {
728                         'identifier' => 60,
729                         'anytext' => 125,
730                         'text' => 61,
731                         'constant' => 58
732                 }
733         },
734         {#State 95
735                 ACTIONS => {
736                         'CONSTANT' => 59,
737                         'TEXT' => 16,
738                         'IDENTIFIER' => 26
739                 },
740                 DEFAULT => -93,
741                 GOTOS => {
742                         'identifier' => 60,
743                         'anytext' => 126,
744                         'text' => 61,
745                         'constant' => 58
746                 }
747         },
748         {#State 96
749                 ACTIONS => {
750                         'CONSTANT' => 59,
751                         'TEXT' => 16,
752                         'IDENTIFIER' => 26
753                 },
754                 DEFAULT => -93,
755                 GOTOS => {
756                         'identifier' => 60,
757                         'anytext' => 127,
758                         'text' => 61,
759                         'constant' => 58
760                 }
761         },
762         {#State 97
763                 ACTIONS => {
764                         'CONSTANT' => 59,
765                         'TEXT' => 16,
766                         'IDENTIFIER' => 26
767                 },
768                 DEFAULT => -93,
769                 GOTOS => {
770                         'identifier' => 60,
771                         'anytext' => 128,
772                         'text' => 61,
773                         'constant' => 58
774                 }
775         },
776         {#State 98
777                 DEFAULT => -88
778         },
779         {#State 99
780                 DEFAULT => -118
781         },
782         {#State 100
783                 DEFAULT => -13
784         },
785         {#State 101
786                 ACTIONS => {
787                         ";" => 129
788                 }
789         },
790         {#State 102
791                 DEFAULT => -16
792         },
793         {#State 103
794                 ACTIONS => {
795                         'IDENTIFIER' => 26
796                 },
797                 GOTOS => {
798                         'identifier' => 130
799                 }
800         },
801         {#State 104
802                 DEFAULT => -113
803         },
804         {#State 105
805                 ACTIONS => {
806                         "{" => 132
807                 },
808                 DEFAULT => -68,
809                 GOTOS => {
810                         'union_body' => 133,
811                         'opt_union_body' => 131
812                 }
813         },
814         {#State 106
815                 DEFAULT => -35
816         },
817         {#State 107
818                 ACTIONS => {
819                         "{" => 135
820                 },
821                 DEFAULT => -58,
822                 GOTOS => {
823                         'struct_body' => 134,
824                         'opt_struct_body' => 136
825                 }
826         },
827         {#State 108
828                 ACTIONS => {
829                         "{" => 137
830                 },
831                 DEFAULT => -41,
832                 GOTOS => {
833                         'opt_enum_body' => 139,
834                         'enum_body' => 138
835                 }
836         },
837         {#State 109
838                 ACTIONS => {
839                         "{" => 141
840                 },
841                 DEFAULT => -49,
842                 GOTOS => {
843                         'bitmap_body' => 142,
844                         'opt_bitmap_body' => 140
845                 }
846         },
847         {#State 110
848                 ACTIONS => {
849                         "(" => 143
850                 }
851         },
852         {#State 111
853                 ACTIONS => {
854                         'IDENTIFIER' => 26,
855                         "*" => 145
856                 },
857                 GOTOS => {
858                         'identifier' => 144
859                 }
860         },
861         {#State 112
862                 ACTIONS => {
863                         "-" => 83,
864                         ":" => 82,
865                         "<" => 84,
866                         "+" => 86,
867                         "~" => 85,
868                         "*" => 87,
869                         "?" => 88,
870                         "{" => 89,
871                         "&" => 90,
872                         "/" => 91,
873                         "=" => 92,
874                         "(" => 93,
875                         "|" => 94,
876                         "." => 95,
877                         ">" => 96
878                 },
879                 DEFAULT => -106
880         },
881         {#State 113
882                 ACTIONS => {
883                         ":" => 82,
884                         "<" => 84,
885                         "~" => 85,
886                         "?" => 88,
887                         "{" => 89,
888                         "=" => 92
889                 },
890                 DEFAULT => -97
891         },
892         {#State 114
893                 ACTIONS => {
894                         "-" => 83,
895                         ":" => 82,
896                         "<" => 84,
897                         "+" => 86,
898                         "~" => 85,
899                         "*" => 87,
900                         "?" => 88,
901                         "{" => 89,
902                         "&" => 90,
903                         "/" => 91,
904                         "=" => 92,
905                         "(" => 93,
906                         "|" => 94,
907                         "." => 95,
908                         ">" => 96
909                 },
910                 DEFAULT => -101
911         },
912         {#State 115
913                 ACTIONS => {
914                         "-" => 83,
915                         ":" => 82,
916                         "<" => 84,
917                         "+" => 86,
918                         "~" => 85,
919                         "*" => 87,
920                         "?" => 88,
921                         "{" => 89,
922                         "&" => 90,
923                         "/" => 91,
924                         "=" => 92,
925                         "(" => 93,
926                         "|" => 94,
927                         "." => 95,
928                         ">" => 96
929                 },
930                 DEFAULT => -109
931         },
932         {#State 116
933                 ACTIONS => {
934                         ":" => 82,
935                         "<" => 84,
936                         "~" => 85,
937                         "?" => 88,
938                         "{" => 89,
939                         "=" => 92
940                 },
941                 DEFAULT => -108
942         },
943         {#State 117
944                 ACTIONS => {
945                         ":" => 82,
946                         "<" => 84,
947                         "~" => 85,
948                         "?" => 88,
949                         "{" => 89,
950                         "=" => 92
951                 },
952                 DEFAULT => -99
953         },
954         {#State 118
955                 ACTIONS => {
956                         "-" => 83,
957                         ":" => 82,
958                         "<" => 84,
959                         "+" => 86,
960                         "~" => 85,
961                         "*" => 87,
962                         "?" => 88,
963                         "{" => 89,
964                         "&" => 90,
965                         "/" => 91,
966                         "=" => 92,
967                         "(" => 93,
968                         "|" => 94,
969                         "." => 95,
970                         ">" => 96
971                 },
972                 DEFAULT => -105
973         },
974         {#State 119
975                 ACTIONS => {
976                         "-" => 83,
977                         ":" => 82,
978                         "<" => 84,
979                         "+" => 86,
980                         "~" => 85,
981                         "*" => 87,
982                         "?" => 88,
983                         "{" => 89,
984                         "&" => 90,
985                         "/" => 91,
986                         "=" => 92,
987                         "(" => 93,
988                         "|" => 94,
989                         "." => 95,
990                         ">" => 96
991                 },
992                 DEFAULT => -91
993         },
994         {#State 120
995                 ACTIONS => {
996                         "}" => 146,
997                         "," => 147
998                 }
999         },
1000         {#State 121
1001                 ACTIONS => {
1002                         ":" => 82,
1003                         "<" => 84,
1004                         "~" => 85,
1005                         "?" => 88,
1006                         "{" => 89,
1007                         "=" => 92
1008                 },
1009                 DEFAULT => -103
1010         },
1011         {#State 122
1012                 ACTIONS => {
1013                         ":" => 82,
1014                         "<" => 84,
1015                         "~" => 85,
1016                         "?" => 88,
1017                         "{" => 89,
1018                         "=" => 92
1019                 },
1020                 DEFAULT => -104
1021         },
1022         {#State 123
1023                 ACTIONS => {
1024                         "-" => 83,
1025                         ":" => 82,
1026                         "<" => 84,
1027                         "+" => 86,
1028                         "~" => 85,
1029                         "*" => 87,
1030                         "?" => 88,
1031                         "{" => 89,
1032                         "&" => 90,
1033                         "/" => 91,
1034                         "=" => 92,
1035                         "(" => 93,
1036                         "|" => 94,
1037                         "." => 95,
1038                         ">" => 96
1039                 },
1040                 DEFAULT => -107
1041         },
1042         {#State 124
1043                 ACTIONS => {
1044                         "," => 147,
1045                         ")" => 148
1046                 }
1047         },
1048         {#State 125
1049                 ACTIONS => {
1050                         ":" => 82,
1051                         "<" => 84,
1052                         "~" => 85,
1053                         "?" => 88,
1054                         "{" => 89,
1055                         "=" => 92
1056                 },
1057                 DEFAULT => -102
1058         },
1059         {#State 126
1060                 ACTIONS => {
1061                         ":" => 82,
1062                         "<" => 84,
1063                         "~" => 85,
1064                         "?" => 88,
1065                         "{" => 89,
1066                         "=" => 92
1067                 },
1068                 DEFAULT => -98
1069         },
1070         {#State 127
1071                 ACTIONS => {
1072                         ":" => 82,
1073                         "<" => 84,
1074                         "~" => 85,
1075                         "?" => 88,
1076                         "{" => 89,
1077                         "=" => 92
1078                 },
1079                 DEFAULT => -100
1080         },
1081         {#State 128
1082                 ACTIONS => {
1083                         "-" => 83,
1084                         ":" => 82,
1085                         "<" => 84,
1086                         "+" => 86,
1087                         "~" => 85,
1088                         "*" => 87,
1089                         "?" => 88,
1090                         "{" => 89,
1091                         "&" => 90,
1092                         "/" => 91,
1093                         "=" => 92,
1094                         "(" => 93,
1095                         "|" => 94,
1096                         "." => 95,
1097                         ">" => 96
1098                 },
1099                 DEFAULT => -90
1100         },
1101         {#State 129
1102                 DEFAULT => -15
1103         },
1104         {#State 130
1105                 ACTIONS => {
1106                         "[" => 149
1107                 },
1108                 DEFAULT => -80,
1109                 GOTOS => {
1110                         'array_len' => 150
1111                 }
1112         },
1113         {#State 131
1114                 DEFAULT => -70
1115         },
1116         {#State 132
1117                 DEFAULT => -65,
1118                 GOTOS => {
1119                         'union_elements' => 151
1120                 }
1121         },
1122         {#State 133
1123                 DEFAULT => -69
1124         },
1125         {#State 134
1126                 DEFAULT => -59
1127         },
1128         {#State 135
1129                 DEFAULT => -74,
1130                 GOTOS => {
1131                         'element_list1' => 152
1132                 }
1133         },
1134         {#State 136
1135                 DEFAULT => -60
1136         },
1137         {#State 137
1138                 ACTIONS => {
1139                         'IDENTIFIER' => 26
1140                 },
1141                 GOTOS => {
1142                         'identifier' => 153,
1143                         'enum_element' => 154,
1144                         'enum_elements' => 155
1145                 }
1146         },
1147         {#State 138
1148                 DEFAULT => -42
1149         },
1150         {#State 139
1151                 DEFAULT => -43
1152         },
1153         {#State 140
1154                 DEFAULT => -51
1155         },
1156         {#State 141
1157                 ACTIONS => {
1158                         'IDENTIFIER' => 26
1159                 },
1160                 DEFAULT => -54,
1161                 GOTOS => {
1162                         'identifier' => 158,
1163                         'bitmap_element' => 157,
1164                         'bitmap_elements' => 156,
1165                         'opt_bitmap_elements' => 159
1166                 }
1167         },
1168         {#State 142
1169                 DEFAULT => -50
1170         },
1171         {#State 143
1172                 ACTIONS => {
1173                         "," => -76,
1174                         "void" => 163,
1175                         ")" => -76
1176                 },
1177                 DEFAULT => -83,
1178                 GOTOS => {
1179                         'base_element' => 160,
1180                         'element_list2' => 162,
1181                         'property_list' => 161
1182                 }
1183         },
1184         {#State 144
1185                 ACTIONS => {
1186                         "[" => 149,
1187                         "=" => 165
1188                 },
1189                 GOTOS => {
1190                         'array_len' => 164
1191                 }
1192         },
1193         {#State 145
1194                 DEFAULT => -73
1195         },
1196         {#State 146
1197                 ACTIONS => {
1198                         'CONSTANT' => 59,
1199                         'TEXT' => 16,
1200                         'IDENTIFIER' => 26
1201                 },
1202                 DEFAULT => -93,
1203                 GOTOS => {
1204                         'identifier' => 60,
1205                         'anytext' => 166,
1206                         'text' => 61,
1207                         'constant' => 58
1208                 }
1209         },
1210         {#State 147
1211                 ACTIONS => {
1212                         'CONSTANT' => 59,
1213                         'TEXT' => 16,
1214                         'IDENTIFIER' => 26
1215                 },
1216                 DEFAULT => -93,
1217                 GOTOS => {
1218                         'identifier' => 60,
1219                         'anytext' => 167,
1220                         'text' => 61,
1221                         'constant' => 58
1222                 }
1223         },
1224         {#State 148
1225                 ACTIONS => {
1226                         'CONSTANT' => 59,
1227                         'TEXT' => 16,
1228                         'IDENTIFIER' => 26
1229                 },
1230                 DEFAULT => -93,
1231                 GOTOS => {
1232                         'identifier' => 60,
1233                         'anytext' => 168,
1234                         'text' => 61,
1235                         'constant' => 58
1236                 }
1237         },
1238         {#State 149
1239                 ACTIONS => {
1240                         'CONSTANT' => 59,
1241                         'TEXT' => 16,
1242                         "]" => 169,
1243                         'IDENTIFIER' => 26
1244                 },
1245                 DEFAULT => -93,
1246                 GOTOS => {
1247                         'identifier' => 60,
1248                         'anytext' => 170,
1249                         'text' => 61,
1250                         'constant' => 58
1251                 }
1252         },
1253         {#State 150
1254                 ACTIONS => {
1255                         ";" => 171
1256                 }
1257         },
1258         {#State 151
1259                 ACTIONS => {
1260                         "}" => 172
1261                 },
1262                 DEFAULT => -83,
1263                 GOTOS => {
1264                         'optional_base_element' => 174,
1265                         'property_list' => 173
1266                 }
1267         },
1268         {#State 152
1269                 ACTIONS => {
1270                         "}" => 175
1271                 },
1272                 DEFAULT => -83,
1273                 GOTOS => {
1274                         'base_element' => 176,
1275                         'property_list' => 161
1276                 }
1277         },
1278         {#State 153
1279                 ACTIONS => {
1280                         "=" => 177
1281                 },
1282                 DEFAULT => -46
1283         },
1284         {#State 154
1285                 DEFAULT => -44
1286         },
1287         {#State 155
1288                 ACTIONS => {
1289                         "}" => 178,
1290                         "," => 179
1291                 }
1292         },
1293         {#State 156
1294                 ACTIONS => {
1295                         "," => 180
1296                 },
1297                 DEFAULT => -55
1298         },
1299         {#State 157
1300                 DEFAULT => -52
1301         },
1302         {#State 158
1303                 ACTIONS => {
1304                         "=" => 181
1305                 }
1306         },
1307         {#State 159
1308                 ACTIONS => {
1309                         "}" => 182
1310                 }
1311         },
1312         {#State 160
1313                 DEFAULT => -78
1314         },
1315         {#State 161
1316                 ACTIONS => {
1317                         'IDENTIFIER' => 26,
1318                         "signed" => 75,
1319                         'void' => 69,
1320                         "unsigned" => 79,
1321                         "[" => 20
1322                 },
1323                 DEFAULT => -83,
1324                 GOTOS => {
1325                         'existingtype' => 76,
1326                         'bitmap' => 44,
1327                         'usertype' => 71,
1328                         'property_list' => 70,
1329                         'identifier' => 72,
1330                         'struct' => 49,
1331                         'enum' => 52,
1332                         'type' => 183,
1333                         'union' => 54,
1334                         'sign' => 73
1335                 }
1336         },
1337         {#State 162
1338                 ACTIONS => {
1339                         "," => 184,
1340                         ")" => 185
1341                 }
1342         },
1343         {#State 163
1344                 DEFAULT => -77
1345         },
1346         {#State 164
1347                 ACTIONS => {
1348                         "=" => 186
1349                 }
1350         },
1351         {#State 165
1352                 ACTIONS => {
1353                         'CONSTANT' => 59,
1354                         'TEXT' => 16,
1355                         'IDENTIFIER' => 26
1356                 },
1357                 DEFAULT => -93,
1358                 GOTOS => {
1359                         'identifier' => 60,
1360                         'anytext' => 187,
1361                         'text' => 61,
1362                         'constant' => 58
1363                 }
1364         },
1365         {#State 166
1366                 ACTIONS => {
1367                         "-" => 83,
1368                         ":" => 82,
1369                         "<" => 84,
1370                         "+" => 86,
1371                         "~" => 85,
1372                         "*" => 87,
1373                         "?" => 88,
1374                         "{" => 89,
1375                         "&" => 90,
1376                         "/" => 91,
1377                         "=" => 92,
1378                         "(" => 93,
1379                         "|" => 94,
1380                         "." => 95,
1381                         ">" => 96
1382                 },
1383                 DEFAULT => -111
1384         },
1385         {#State 167
1386                 ACTIONS => {
1387                         "-" => 83,
1388                         ":" => 82,
1389                         "<" => 84,
1390                         "+" => 86,
1391                         "~" => 85,
1392                         "*" => 87,
1393                         "?" => 88,
1394                         "{" => 89,
1395                         "&" => 90,
1396                         "/" => 91,
1397                         "=" => 92,
1398                         "(" => 93,
1399                         "|" => 94,
1400                         "." => 95,
1401                         ">" => 96
1402                 },
1403                 DEFAULT => -92
1404         },
1405         {#State 168
1406                 ACTIONS => {
1407                         ":" => 82,
1408                         "<" => 84,
1409                         "~" => 85,
1410                         "?" => 88,
1411                         "{" => 89,
1412                         "=" => 92
1413                 },
1414                 DEFAULT => -110
1415         },
1416         {#State 169
1417                 ACTIONS => {
1418                         "[" => 149
1419                 },
1420                 DEFAULT => -80,
1421                 GOTOS => {
1422                         'array_len' => 188
1423                 }
1424         },
1425         {#State 170
1426                 ACTIONS => {
1427                         "-" => 83,
1428                         ":" => 82,
1429                         "?" => 88,
1430                         "<" => 84,
1431                         "+" => 86,
1432                         "~" => 85,
1433                         "&" => 90,
1434                         "{" => 89,
1435                         "/" => 91,
1436                         "=" => 92,
1437                         "|" => 94,
1438                         "(" => 93,
1439                         "*" => 87,
1440                         "." => 95,
1441                         "]" => 189,
1442                         ">" => 96
1443                 }
1444         },
1445         {#State 171
1446                 DEFAULT => -27
1447         },
1448         {#State 172
1449                 DEFAULT => -67
1450         },
1451         {#State 173
1452                 ACTIONS => {
1453                         "[" => 20
1454                 },
1455                 DEFAULT => -83,
1456                 GOTOS => {
1457                         'base_or_empty' => 190,
1458                         'base_element' => 191,
1459                         'empty_element' => 192,
1460                         'property_list' => 193
1461                 }
1462         },
1463         {#State 174
1464                 DEFAULT => -66
1465         },
1466         {#State 175
1467                 DEFAULT => -57
1468         },
1469         {#State 176
1470                 ACTIONS => {
1471                         ";" => 194
1472                 }
1473         },
1474         {#State 177
1475                 ACTIONS => {
1476                         'CONSTANT' => 59,
1477                         'TEXT' => 16,
1478                         'IDENTIFIER' => 26
1479                 },
1480                 DEFAULT => -93,
1481                 GOTOS => {
1482                         'identifier' => 60,
1483                         'anytext' => 195,
1484                         'text' => 61,
1485                         'constant' => 58
1486                 }
1487         },
1488         {#State 178
1489                 DEFAULT => -40
1490         },
1491         {#State 179
1492                 ACTIONS => {
1493                         'IDENTIFIER' => 26
1494                 },
1495                 GOTOS => {
1496                         'identifier' => 153,
1497                         'enum_element' => 196
1498                 }
1499         },
1500         {#State 180
1501                 ACTIONS => {
1502                         'IDENTIFIER' => 26
1503                 },
1504                 GOTOS => {
1505                         'identifier' => 158,
1506                         'bitmap_element' => 197
1507                 }
1508         },
1509         {#State 181
1510                 ACTIONS => {
1511                         'CONSTANT' => 59,
1512                         'TEXT' => 16,
1513                         'IDENTIFIER' => 26
1514                 },
1515                 DEFAULT => -93,
1516                 GOTOS => {
1517                         'identifier' => 60,
1518                         'anytext' => 198,
1519                         'text' => 61,
1520                         'constant' => 58
1521                 }
1522         },
1523         {#State 182
1524                 DEFAULT => -48
1525         },
1526         {#State 183
1527                 DEFAULT => -72,
1528                 GOTOS => {
1529                         'pointers' => 199
1530                 }
1531         },
1532         {#State 184
1533                 DEFAULT => -83,
1534                 GOTOS => {
1535                         'base_element' => 200,
1536                         'property_list' => 161
1537                 }
1538         },
1539         {#State 185
1540                 ACTIONS => {
1541                         ";" => 201
1542                 }
1543         },
1544         {#State 186
1545                 ACTIONS => {
1546                         'CONSTANT' => 59,
1547                         'TEXT' => 16,
1548                         'IDENTIFIER' => 26
1549                 },
1550                 DEFAULT => -93,
1551                 GOTOS => {
1552                         'identifier' => 60,
1553                         'anytext' => 202,
1554                         'text' => 61,
1555                         'constant' => 58
1556                 }
1557         },
1558         {#State 187
1559                 ACTIONS => {
1560                         "-" => 83,
1561                         ":" => 82,
1562                         "?" => 88,
1563                         "<" => 84,
1564                         ";" => 203,
1565                         "+" => 86,
1566                         "~" => 85,
1567                         "&" => 90,
1568                         "{" => 89,
1569                         "/" => 91,
1570                         "=" => 92,
1571                         "|" => 94,
1572                         "(" => 93,
1573                         "*" => 87,
1574                         "." => 95,
1575                         ">" => 96
1576                 }
1577         },
1578         {#State 188
1579                 DEFAULT => -81
1580         },
1581         {#State 189
1582                 ACTIONS => {
1583                         "[" => 149
1584                 },
1585                 DEFAULT => -80,
1586                 GOTOS => {
1587                         'array_len' => 204
1588                 }
1589         },
1590         {#State 190
1591                 DEFAULT => -64
1592         },
1593         {#State 191
1594                 ACTIONS => {
1595                         ";" => 205
1596                 }
1597         },
1598         {#State 192
1599                 DEFAULT => -63
1600         },
1601         {#State 193
1602                 ACTIONS => {
1603                         'IDENTIFIER' => 26,
1604                         "signed" => 75,
1605                         ";" => 206,
1606                         'void' => 69,
1607                         "unsigned" => 79,
1608                         "[" => 20
1609                 },
1610                 DEFAULT => -83,
1611                 GOTOS => {
1612                         'existingtype' => 76,
1613                         'bitmap' => 44,
1614                         'usertype' => 71,
1615                         'property_list' => 70,
1616                         'identifier' => 72,
1617                         'struct' => 49,
1618                         'enum' => 52,
1619                         'type' => 183,
1620                         'union' => 54,
1621                         'sign' => 73
1622                 }
1623         },
1624         {#State 194
1625                 DEFAULT => -75
1626         },
1627         {#State 195
1628                 ACTIONS => {
1629                         "-" => 83,
1630                         ":" => 82,
1631                         "<" => 84,
1632                         "+" => 86,
1633                         "~" => 85,
1634                         "*" => 87,
1635                         "?" => 88,
1636                         "{" => 89,
1637                         "&" => 90,
1638                         "/" => 91,
1639                         "=" => 92,
1640                         "(" => 93,
1641                         "|" => 94,
1642                         "." => 95,
1643                         ">" => 96
1644                 },
1645                 DEFAULT => -47
1646         },
1647         {#State 196
1648                 DEFAULT => -45
1649         },
1650         {#State 197
1651                 DEFAULT => -53
1652         },
1653         {#State 198
1654                 ACTIONS => {
1655                         "-" => 83,
1656                         ":" => 82,
1657                         "<" => 84,
1658                         "+" => 86,
1659                         "~" => 85,
1660                         "*" => 87,
1661                         "?" => 88,
1662                         "{" => 89,
1663                         "&" => 90,
1664                         "/" => 91,
1665                         "=" => 92,
1666                         "(" => 93,
1667                         "|" => 94,
1668                         "." => 95,
1669                         ">" => 96
1670                 },
1671                 DEFAULT => -56
1672         },
1673         {#State 199
1674                 ACTIONS => {
1675                         'IDENTIFIER' => 26,
1676                         "*" => 145
1677                 },
1678                 GOTOS => {
1679                         'identifier' => 207
1680                 }
1681         },
1682         {#State 200
1683                 DEFAULT => -79
1684         },
1685         {#State 201
1686                 DEFAULT => -26
1687         },
1688         {#State 202
1689                 ACTIONS => {
1690                         "-" => 83,
1691                         ":" => 82,
1692                         "?" => 88,
1693                         "<" => 84,
1694                         ";" => 208,
1695                         "+" => 86,
1696                         "~" => 85,
1697                         "&" => 90,
1698                         "{" => 89,
1699                         "/" => 91,
1700                         "=" => 92,
1701                         "|" => 94,
1702                         "(" => 93,
1703                         "*" => 87,
1704                         "." => 95,
1705                         ">" => 96
1706                 }
1707         },
1708         {#State 203
1709                 DEFAULT => -24
1710         },
1711         {#State 204
1712                 DEFAULT => -82
1713         },
1714         {#State 205
1715                 DEFAULT => -62
1716         },
1717         {#State 206
1718                 DEFAULT => -61
1719         },
1720         {#State 207
1721                 ACTIONS => {
1722                         "[" => 149
1723                 },
1724                 DEFAULT => -80,
1725                 GOTOS => {
1726                         'array_len' => 209
1727                 }
1728         },
1729         {#State 208
1730                 DEFAULT => -25
1731         },
1732         {#State 209
1733                 DEFAULT => -71
1734         }
1735 ],
1736                                   yyrules  =>
1737 [
1738         [#Rule 0
1739                  '$start', 2, undef
1740         ],
1741         [#Rule 1
1742                  'idl', 0, undef
1743         ],
1744         [#Rule 2
1745                  'idl', 2,
1746 sub
1747 #line 19 "pidl/idl.yp"
1748 { push(@{$_[1]}, $_[2]); $_[1] }
1749         ],
1750         [#Rule 3
1751                  'idl', 2,
1752 sub
1753 #line 20 "pidl/idl.yp"
1754 { push(@{$_[1]}, $_[2]); $_[1] }
1755         ],
1756         [#Rule 4
1757                  'idl', 2,
1758 sub
1759 #line 21 "pidl/idl.yp"
1760 { push(@{$_[1]}, $_[2]); $_[1] }
1761         ],
1762         [#Rule 5
1763                  'idl', 2,
1764 sub
1765 #line 22 "pidl/idl.yp"
1766 { push(@{$_[1]}, $_[2]); $_[1] }
1767         ],
1768         [#Rule 6
1769                  'idl', 2,
1770 sub
1771 #line 23 "pidl/idl.yp"
1772 { push(@{$_[1]}, $_[2]); $_[1] }
1773         ],
1774         [#Rule 7
1775                  'idl', 2,
1776 sub
1777 #line 24 "pidl/idl.yp"
1778 { push(@{$_[1]}, $_[2]); $_[1] }
1779         ],
1780         [#Rule 8
1781                  'import', 3,
1782 sub
1783 #line 27 "pidl/idl.yp"
1784 {{
1785                         "TYPE" => "IMPORT", 
1786                         "PATHS" => $_[2],
1787                    "FILE" => $_[0]->YYData->{FILE},
1788                    "LINE" => $_[0]->YYData->{LINE}
1789                 }}
1790         ],
1791         [#Rule 9
1792                  'include', 3,
1793 sub
1794 #line 34 "pidl/idl.yp"
1795 {{ 
1796                         "TYPE" => "INCLUDE", 
1797                         "PATHS" => $_[2],
1798                    "FILE" => $_[0]->YYData->{FILE},
1799                    "LINE" => $_[0]->YYData->{LINE}
1800                 }}
1801         ],
1802         [#Rule 10
1803                  'importlib', 3,
1804 sub
1805 #line 41 "pidl/idl.yp"
1806 {{ 
1807                         "TYPE" => "IMPORTLIB", 
1808                         "PATHS" => $_[2],
1809                    "FILE" => $_[0]->YYData->{FILE},
1810                    "LINE" => $_[0]->YYData->{LINE}
1811                 }}
1812         ],
1813         [#Rule 11
1814                  'commalist', 1,
1815 sub
1816 #line 50 "pidl/idl.yp"
1817 { [ $_[1] ] }
1818         ],
1819         [#Rule 12
1820                  'commalist', 3,
1821 sub
1822 #line 51 "pidl/idl.yp"
1823 { push(@{$_[1]}, $_[3]); $_[1] }
1824         ],
1825         [#Rule 13
1826                  'coclass', 7,
1827 sub
1828 #line 55 "pidl/idl.yp"
1829 {{
1830                "TYPE" => "COCLASS", 
1831                "PROPERTIES" => $_[1],
1832                "NAME" => $_[3],
1833                "DATA" => $_[5],
1834                    "FILE" => $_[0]->YYData->{FILE},
1835                    "LINE" => $_[0]->YYData->{LINE},
1836           }}
1837         ],
1838         [#Rule 14
1839                  'interface_names', 0, undef
1840         ],
1841         [#Rule 15
1842                  'interface_names', 4,
1843 sub
1844 #line 67 "pidl/idl.yp"
1845 { push(@{$_[1]}, $_[2]); $_[1] }
1846         ],
1847         [#Rule 16
1848                  'interface', 7,
1849 sub
1850 #line 71 "pidl/idl.yp"
1851 {{
1852                "TYPE" => "INTERFACE", 
1853                "PROPERTIES" => $_[1],
1854                "NAME" => $_[3],
1855                "DATA" => $_[5],
1856                    "FILE" => $_[0]->YYData->{FILE},
1857                    "LINE" => $_[0]->YYData->{LINE},
1858           }}
1859         ],
1860         [#Rule 17
1861                  'cpp_quote', 4,
1862 sub
1863 #line 82 "pidl/idl.yp"
1864 {{
1865                  "TYPE" => "CPP_QUOTE",
1866                  "FILE" => $_[0]->YYData->{FILE},
1867                  "LINE" => $_[0]->YYData->{LINE},
1868                  "DATA" => $_[3]
1869         }}
1870         ],
1871         [#Rule 18
1872                  'definitions', 1,
1873 sub
1874 #line 91 "pidl/idl.yp"
1875 { [ $_[1] ] }
1876         ],
1877         [#Rule 19
1878                  'definitions', 2,
1879 sub
1880 #line 92 "pidl/idl.yp"
1881 { push(@{$_[1]}, $_[2]); $_[1] }
1882         ],
1883         [#Rule 20
1884                  'definition', 1, undef
1885         ],
1886         [#Rule 21
1887                  'definition', 1, undef
1888         ],
1889         [#Rule 22
1890                  'definition', 1, undef
1891         ],
1892         [#Rule 23
1893                  'definition', 1, undef
1894         ],
1895         [#Rule 24
1896                  'const', 7,
1897 sub
1898 #line 100 "pidl/idl.yp"
1899 {{
1900                      "TYPE"  => "CONST", 
1901                      "DTYPE"  => $_[2],
1902                          "POINTERS" => $_[3],
1903                      "NAME"  => $_[4],
1904                      "VALUE" => $_[6],
1905                      "FILE" => $_[0]->YYData->{FILE},
1906                      "LINE" => $_[0]->YYData->{LINE},
1907         }}
1908         ],
1909         [#Rule 25
1910                  'const', 8,
1911 sub
1912 #line 110 "pidl/idl.yp"
1913 {{
1914                      "TYPE"  => "CONST", 
1915                      "DTYPE"  => $_[2],
1916                          "POINTERS" => $_[3],
1917                      "NAME"  => $_[4],
1918                      "ARRAY_LEN" => $_[5],
1919                      "VALUE" => $_[7],
1920                      "FILE" => $_[0]->YYData->{FILE},
1921                      "LINE" => $_[0]->YYData->{LINE},
1922         }}
1923         ],
1924         [#Rule 26
1925                  'function', 7,
1926 sub
1927 #line 124 "pidl/idl.yp"
1928 {{
1929                 "TYPE" => "FUNCTION",
1930                 "NAME" => $_[3],
1931                 "RETURN_TYPE" => $_[2],
1932                 "PROPERTIES" => $_[1],
1933                 "ELEMENTS" => $_[5],
1934                 "FILE" => $_[0]->YYData->{FILE},
1935                 "LINE" => $_[0]->YYData->{LINE},
1936           }}
1937         ],
1938         [#Rule 27
1939                  'typedef', 6,
1940 sub
1941 #line 136 "pidl/idl.yp"
1942 {{
1943                      "TYPE" => "TYPEDEF", 
1944                      "PROPERTIES" => $_[1],
1945                      "NAME" => $_[4],
1946                      "DATA" => $_[3],
1947                      "ARRAY_LEN" => $_[5],
1948                      "FILE" => $_[0]->YYData->{FILE},
1949                      "LINE" => $_[0]->YYData->{LINE},
1950         }}
1951         ],
1952         [#Rule 28
1953                  'usertype', 1, undef
1954         ],
1955         [#Rule 29
1956                  'usertype', 1, undef
1957         ],
1958         [#Rule 30
1959                  'usertype', 1, undef
1960         ],
1961         [#Rule 31
1962                  'usertype', 1, undef
1963         ],
1964         [#Rule 32
1965                  'typedecl', 2,
1966 sub
1967 #line 149 "pidl/idl.yp"
1968 { $_[1] }
1969         ],
1970         [#Rule 33
1971                  'sign', 1, undef
1972         ],
1973         [#Rule 34
1974                  'sign', 1, undef
1975         ],
1976         [#Rule 35
1977                  'existingtype', 2,
1978 sub
1979 #line 154 "pidl/idl.yp"
1980 { ($_[1]?$_[1]:"signed") ." $_[2]" }
1981         ],
1982         [#Rule 36
1983                  'existingtype', 1, undef
1984         ],
1985         [#Rule 37
1986                  'type', 1, undef
1987         ],
1988         [#Rule 38
1989                  'type', 1, undef
1990         ],
1991         [#Rule 39
1992                  'type', 1,
1993 sub
1994 #line 158 "pidl/idl.yp"
1995 { "void" }
1996         ],
1997         [#Rule 40
1998                  'enum_body', 3,
1999 sub
2000 #line 160 "pidl/idl.yp"
2001 { $_[2] }
2002         ],
2003         [#Rule 41
2004                  'opt_enum_body', 0, undef
2005         ],
2006         [#Rule 42
2007                  'opt_enum_body', 1, undef
2008         ],
2009         [#Rule 43
2010                  'enum', 4,
2011 sub
2012 #line 163 "pidl/idl.yp"
2013 {{
2014              "TYPE" => "ENUM", 
2015                          "PROPERTIES" => $_[1],
2016                          "NAME" => $_[3],
2017                      "ELEMENTS" => $_[4]
2018         }}
2019         ],
2020         [#Rule 44
2021                  'enum_elements', 1,
2022 sub
2023 #line 172 "pidl/idl.yp"
2024 { [ $_[1] ] }
2025         ],
2026         [#Rule 45
2027                  'enum_elements', 3,
2028 sub
2029 #line 173 "pidl/idl.yp"
2030 { push(@{$_[1]}, $_[3]); $_[1] }
2031         ],
2032         [#Rule 46
2033                  'enum_element', 1, undef
2034         ],
2035         [#Rule 47
2036                  'enum_element', 3,
2037 sub
2038 #line 177 "pidl/idl.yp"
2039 { "$_[1]$_[2]$_[3]" }
2040         ],
2041         [#Rule 48
2042                  'bitmap_body', 3,
2043 sub
2044 #line 180 "pidl/idl.yp"
2045 { $_[2] }
2046         ],
2047         [#Rule 49
2048                  'opt_bitmap_body', 0, undef
2049         ],
2050         [#Rule 50
2051                  'opt_bitmap_body', 1, undef
2052         ],
2053         [#Rule 51
2054                  'bitmap', 4,
2055 sub
2056 #line 183 "pidl/idl.yp"
2057 {{
2058              "TYPE" => "BITMAP", 
2059                      "PROPERTIES" => $_[1],
2060                          "NAME" => $_[3],
2061                      "ELEMENTS" => $_[4]
2062         }}
2063         ],
2064         [#Rule 52
2065                  'bitmap_elements', 1,
2066 sub
2067 #line 192 "pidl/idl.yp"
2068 { [ $_[1] ] }
2069         ],
2070         [#Rule 53
2071                  'bitmap_elements', 3,
2072 sub
2073 #line 193 "pidl/idl.yp"
2074 { push(@{$_[1]}, $_[3]); $_[1] }
2075         ],
2076         [#Rule 54
2077                  'opt_bitmap_elements', 0, undef
2078         ],
2079         [#Rule 55
2080                  'opt_bitmap_elements', 1, undef
2081         ],
2082         [#Rule 56
2083                  'bitmap_element', 3,
2084 sub
2085 #line 198 "pidl/idl.yp"
2086 { "$_[1] ( $_[3] )" }
2087         ],
2088         [#Rule 57
2089                  'struct_body', 3,
2090 sub
2091 #line 201 "pidl/idl.yp"
2092 { $_[2] }
2093         ],
2094         [#Rule 58
2095                  'opt_struct_body', 0, undef
2096         ],
2097         [#Rule 59
2098                  'opt_struct_body', 1, undef
2099         ],
2100         [#Rule 60
2101                  'struct', 4,
2102 sub
2103 #line 205 "pidl/idl.yp"
2104 {{
2105              "TYPE" => "STRUCT", 
2106                          "PROPERTIES" => $_[1],
2107                          "NAME" => $_[3],
2108                      "ELEMENTS" => $_[4]
2109         }}
2110         ],
2111         [#Rule 61
2112                  'empty_element', 2,
2113 sub
2114 #line 214 "pidl/idl.yp"
2115 {{
2116                  "NAME" => "",
2117                  "TYPE" => "EMPTY",
2118                  "PROPERTIES" => $_[1],
2119                  "POINTERS" => 0,
2120                  "ARRAY_LEN" => [],
2121                  "FILE" => $_[0]->YYData->{FILE},
2122                  "LINE" => $_[0]->YYData->{LINE},
2123          }}
2124         ],
2125         [#Rule 62
2126                  'base_or_empty', 2, undef
2127         ],
2128         [#Rule 63
2129                  'base_or_empty', 1, undef
2130         ],
2131         [#Rule 64
2132                  'optional_base_element', 2,
2133 sub
2134 #line 228 "pidl/idl.yp"
2135 { $_[2]->{PROPERTIES} = FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] }
2136         ],
2137         [#Rule 65
2138                  'union_elements', 0, undef
2139         ],
2140         [#Rule 66
2141                  'union_elements', 2,
2142 sub
2143 #line 233 "pidl/idl.yp"
2144 { push(@{$_[1]}, $_[2]); $_[1] }
2145         ],
2146         [#Rule 67
2147                  'union_body', 3,
2148 sub
2149 #line 236 "pidl/idl.yp"
2150 { $_[2] }
2151         ],
2152         [#Rule 68
2153                  'opt_union_body', 0, undef
2154         ],
2155         [#Rule 69
2156                  'opt_union_body', 1, undef
2157         ],
2158         [#Rule 70
2159                  'union', 4,
2160 sub
2161 #line 240 "pidl/idl.yp"
2162 {{
2163              "TYPE" => "UNION", 
2164                          "PROPERTIES" => $_[1],
2165                      "NAME" => $_[3],
2166                      "ELEMENTS" => $_[4]
2167         }}
2168         ],
2169         [#Rule 71
2170                  'base_element', 5,
2171 sub
2172 #line 249 "pidl/idl.yp"
2173 {{
2174                            "NAME" => $_[4],
2175                            "TYPE" => $_[2],
2176                            "PROPERTIES" => $_[1],
2177                            "POINTERS" => $_[3],
2178                            "ARRAY_LEN" => $_[5],
2179                        "FILE" => $_[0]->YYData->{FILE},
2180                        "LINE" => $_[0]->YYData->{LINE},
2181               }}
2182         ],
2183         [#Rule 72
2184                  'pointers', 0,
2185 sub
2186 #line 263 "pidl/idl.yp"
2187 { 0 }
2188         ],
2189         [#Rule 73
2190                  'pointers', 2,
2191 sub
2192 #line 264 "pidl/idl.yp"
2193 { $_[1]+1 }
2194         ],
2195         [#Rule 74
2196                  'element_list1', 0,
2197 sub
2198 #line 268 "pidl/idl.yp"
2199 { [] }
2200         ],
2201         [#Rule 75
2202                  'element_list1', 3,
2203 sub
2204 #line 269 "pidl/idl.yp"
2205 { push(@{$_[1]}, $_[2]); $_[1] }
2206         ],
2207         [#Rule 76
2208                  'element_list2', 0, undef
2209         ],
2210         [#Rule 77
2211                  'element_list2', 1, undef
2212         ],
2213         [#Rule 78
2214                  'element_list2', 1,
2215 sub
2216 #line 275 "pidl/idl.yp"
2217 { [ $_[1] ] }
2218         ],
2219         [#Rule 79
2220                  'element_list2', 3,
2221 sub
2222 #line 276 "pidl/idl.yp"
2223 { push(@{$_[1]}, $_[3]); $_[1] }
2224         ],
2225         [#Rule 80
2226                  'array_len', 0, undef
2227         ],
2228         [#Rule 81
2229                  'array_len', 3,
2230 sub
2231 #line 281 "pidl/idl.yp"
2232 { push(@{$_[3]}, "*"); $_[3] }
2233         ],
2234         [#Rule 82
2235                  'array_len', 4,
2236 sub
2237 #line 282 "pidl/idl.yp"
2238 { push(@{$_[4]}, "$_[2]"); $_[4] }
2239         ],
2240         [#Rule 83
2241                  'property_list', 0, undef
2242         ],
2243         [#Rule 84
2244                  'property_list', 4,
2245 sub
2246 #line 288 "pidl/idl.yp"
2247 { FlattenHash([$_[1],$_[3]]); }
2248         ],
2249         [#Rule 85
2250                  'properties', 1,
2251 sub
2252 #line 291 "pidl/idl.yp"
2253 { $_[1] }
2254         ],
2255         [#Rule 86
2256                  'properties', 3,
2257 sub
2258 #line 292 "pidl/idl.yp"
2259 { FlattenHash([$_[1], $_[3]]); }
2260         ],
2261         [#Rule 87
2262                  'property', 1,
2263 sub
2264 #line 295 "pidl/idl.yp"
2265 {{ "$_[1]" => "1"     }}
2266         ],
2267         [#Rule 88
2268                  'property', 4,
2269 sub
2270 #line 296 "pidl/idl.yp"
2271 {{ "$_[1]" => "$_[3]" }}
2272         ],
2273         [#Rule 89
2274                  'listtext', 1, undef
2275         ],
2276         [#Rule 90
2277                  'listtext', 3,
2278 sub
2279 #line 301 "pidl/idl.yp"
2280 { "$_[1] $_[3]" }
2281         ],
2282         [#Rule 91
2283                  'commalisttext', 1, undef
2284         ],
2285         [#Rule 92
2286                  'commalisttext', 3,
2287 sub
2288 #line 306 "pidl/idl.yp"
2289 { "$_[1],$_[3]" }
2290         ],
2291         [#Rule 93
2292                  'anytext', 0,
2293 sub
2294 #line 310 "pidl/idl.yp"
2295 { "" }
2296         ],
2297         [#Rule 94
2298                  'anytext', 1, undef
2299         ],
2300         [#Rule 95
2301                  'anytext', 1, undef
2302         ],
2303         [#Rule 96
2304                  'anytext', 1, undef
2305         ],
2306         [#Rule 97
2307                  'anytext', 3,
2308 sub
2309 #line 312 "pidl/idl.yp"
2310 { "$_[1]$_[2]$_[3]" }
2311         ],
2312         [#Rule 98
2313                  'anytext', 3,
2314 sub
2315 #line 313 "pidl/idl.yp"
2316 { "$_[1]$_[2]$_[3]" }
2317         ],
2318         [#Rule 99
2319                  'anytext', 3,
2320 sub
2321 #line 314 "pidl/idl.yp"
2322 { "$_[1]$_[2]$_[3]" }
2323         ],
2324         [#Rule 100
2325                  'anytext', 3,
2326 sub
2327 #line 315 "pidl/idl.yp"
2328 { "$_[1]$_[2]$_[3]" }
2329         ],
2330         [#Rule 101
2331                  'anytext', 3,
2332 sub
2333 #line 316 "pidl/idl.yp"
2334 { "$_[1]$_[2]$_[3]" }
2335         ],
2336         [#Rule 102
2337                  'anytext', 3,
2338 sub
2339 #line 317 "pidl/idl.yp"
2340 { "$_[1]$_[2]$_[3]" }
2341         ],
2342         [#Rule 103
2343                  'anytext', 3,
2344 sub
2345 #line 318 "pidl/idl.yp"
2346 { "$_[1]$_[2]$_[3]" }
2347         ],
2348         [#Rule 104
2349                  'anytext', 3,
2350 sub
2351 #line 319 "pidl/idl.yp"
2352 { "$_[1]$_[2]$_[3]" }
2353         ],
2354         [#Rule 105
2355                  'anytext', 3,
2356 sub
2357 #line 320 "pidl/idl.yp"
2358 { "$_[1]$_[2]$_[3]" }
2359         ],
2360         [#Rule 106
2361                  'anytext', 3,
2362 sub
2363 #line 321 "pidl/idl.yp"
2364 { "$_[1]$_[2]$_[3]" }
2365         ],
2366         [#Rule 107
2367                  'anytext', 3,
2368 sub
2369 #line 322 "pidl/idl.yp"
2370 { "$_[1]$_[2]$_[3]" }
2371         ],
2372         [#Rule 108
2373                  'anytext', 3,
2374 sub
2375 #line 323 "pidl/idl.yp"
2376 { "$_[1]$_[2]$_[3]" }
2377         ],
2378         [#Rule 109
2379                  'anytext', 3,
2380 sub
2381 #line 324 "pidl/idl.yp"
2382 { "$_[1]$_[2]$_[3]" }
2383         ],
2384         [#Rule 110
2385                  'anytext', 5,
2386 sub
2387 #line 325 "pidl/idl.yp"
2388 { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
2389         ],
2390         [#Rule 111
2391                  'anytext', 5,
2392 sub
2393 #line 326 "pidl/idl.yp"
2394 { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
2395         ],
2396         [#Rule 112
2397                  'identifier', 1, undef
2398         ],
2399         [#Rule 113
2400                  'optional_identifier', 1, undef
2401         ],
2402         [#Rule 114
2403                  'optional_identifier', 0, undef
2404         ],
2405         [#Rule 115
2406                  'constant', 1, undef
2407         ],
2408         [#Rule 116
2409                  'text', 1,
2410 sub
2411 #line 340 "pidl/idl.yp"
2412 { "\"$_[1]\"" }
2413         ],
2414         [#Rule 117
2415                  'optional_semicolon', 0, undef
2416         ],
2417         [#Rule 118
2418                  'optional_semicolon', 1, undef
2419         ]
2420 ],
2421                                   @_);
2422     bless($self,$class);
2423 }
2424
2425 #line 351 "pidl/idl.yp"
2426
2427
2428 use Parse::Pidl qw(error);
2429
2430 #####################################################################
2431 # flatten an array of hashes into a single hash
2432 sub FlattenHash($) 
2433
2434     my $a = shift;
2435     my %b;
2436     for my $d (@{$a}) {
2437         for my $k (keys %{$d}) {
2438             $b{$k} = $d->{$k};
2439         }
2440     }
2441     return \%b;
2442 }
2443
2444
2445
2446 #####################################################################
2447 # traverse a perl data structure removing any empty arrays or
2448 # hashes and any hash elements that map to undef
2449 sub CleanData($)
2450 {
2451     sub CleanData($);
2452     my($v) = shift;
2453         return undef if (not defined($v));
2454     if (ref($v) eq "ARRAY") {
2455         foreach my $i (0 .. $#{$v}) {
2456             CleanData($v->[$i]);
2457         }
2458         # this removes any undefined elements from the array
2459         @{$v} = grep { defined $_ } @{$v};
2460     } elsif (ref($v) eq "HASH") {
2461         foreach my $x (keys %{$v}) {
2462             CleanData($v->{$x});
2463             if (!defined $v->{$x}) { delete($v->{$x}); next; }
2464         }
2465     }
2466         return $v;
2467 }
2468
2469 sub _Error {
2470     if (exists $_[0]->YYData->{ERRMSG}) {
2471                 error($_[0]->YYData, $_[0]->YYData->{ERRMSG});
2472                 delete $_[0]->YYData->{ERRMSG};
2473                 return;
2474         };
2475         my $last_token = $_[0]->YYData->{LAST_TOKEN};
2476         
2477         error($_[0]->YYData, "Syntax error near '$last_token'");
2478 }
2479
2480 sub _Lexer($)
2481 {
2482         my($parser)=shift;
2483
2484     $parser->YYData->{INPUT} or return('',undef);
2485
2486 again:
2487         $parser->YYData->{INPUT} =~ s/^[ \t]*//;
2488
2489         for ($parser->YYData->{INPUT}) {
2490                 if (/^\#/) {
2491                         if (s/^\# (\d+) \"(.*?)\"( \d+|)//) {
2492                                 $parser->YYData->{LINE} = $1-1;
2493                                 $parser->YYData->{FILE} = $2;
2494                                 goto again;
2495                         }
2496                         if (s/^\#line (\d+) \"(.*?)\"( \d+|)//) {
2497                                 $parser->YYData->{LINE} = $1-1;
2498                                 $parser->YYData->{FILE} = $2;
2499                                 goto again;
2500                         }
2501                         if (s/^(\#.*)$//m) {
2502                                 goto again;
2503                         }
2504                 }
2505                 if (s/^(\n)//) {
2506                         $parser->YYData->{LINE}++;
2507                         goto again;
2508                 }
2509                 if (s/^\"(.*?)\"//) {
2510                         $parser->YYData->{LAST_TOKEN} = $1;
2511                         return('TEXT',$1); 
2512                 }
2513                 if (s/^(\d+)(\W|$)/$2/) {
2514                         $parser->YYData->{LAST_TOKEN} = $1;
2515                         return('CONSTANT',$1); 
2516                 }
2517                 if (s/^([\w_]+)//) {
2518                         $parser->YYData->{LAST_TOKEN} = $1;
2519                         if ($1 =~ 
2520                             /^(coclass|interface|const|typedef|union|cpp_quote
2521                               |struct|enum|bitmap|void|unsigned|signed|import|include
2522                                   |importlib)$/x) {
2523                                 return $1;
2524                         }
2525                         return('IDENTIFIER',$1);
2526                 }
2527                 if (s/^(.)//s) {
2528                         $parser->YYData->{LAST_TOKEN} = $1;
2529                         return($1,$1);
2530                 }
2531         }
2532 }
2533
2534 sub parse_string
2535 {
2536         my ($data,$filename) = @_;
2537
2538         my $self = new Parse::Pidl::IDL;
2539
2540     $self->YYData->{FILE} = $filename;
2541     $self->YYData->{INPUT} = $data;
2542     $self->YYData->{LINE} = 0;
2543     $self->YYData->{LAST_TOKEN} = "NONE";
2544
2545         my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
2546
2547         return CleanData($idl);
2548 }
2549
2550 sub parse_file($$)
2551 {
2552         my ($filename,$incdirs) = @_;
2553
2554         my $saved_delim = $/;
2555         undef $/;
2556         my $cpp = $ENV{CPP};
2557         if (! defined $cpp) {
2558                 $cpp = "cpp";
2559         }
2560         my $includes = join('',map { " -I$_" } @$incdirs);
2561         my $data = `$cpp -D__PIDL__$includes -xc $filename`;
2562         $/ = $saved_delim;
2563
2564         return parse_string($data, $filename);
2565 }
2566
2567 1;