r9460: - Move pidl to lib/. This fixes standalone installation of pidl.

- Update the README
- Allow building the docs stand-alone
(This used to be commit b56084ce251ab7a35dd1422f38de258e8e1e1477)

1 files changed, 2609 insertions, 0 deletions

diff --git a/source4/pidl/lib/Parse/Pidl/IDL.pm b/source4/pidl/lib/Parse/Pidl/IDL.pm
new file mode 100644
index 0000000000..7f7e5bcdca
--- /dev/null
+++ b/source4/pidl/lib/Parse/Pidl/IDL.pm
@@ -0,0 +1,2609 @@
+####################################################################
+#
+#    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 );
+#Included Parse/Yapp/Driver.pm file----------------------------------------
+{
+#
+# Module Parse::Yapp::Driver
+#
+# This module is part of the Parse::Yapp package available on your
+# nearest CPAN
+#
+# Any use of this module in a standalone parser make the included
+# text under the same copyright as the Parse::Yapp module itself.
+#
+# This notice should remain unchanged.
+#
+# (c) Copyright 1998-2001 Francois Desarmenien, all rights reserved.
+# (see the pod text in Parse::Yapp module for use and distribution rights)
+#
+
+package Parse::Yapp::Driver;
+
+require 5.004;
+
+use strict;
+
+use vars qw ( $VERSION $COMPATIBLE $FILENAME );
+
+$VERSION = '1.05';
+$COMPATIBLE = '0.07';
+$FILENAME=__FILE__;
+
+use Carp;
+
+#Known parameters, all starting with YY (leading YY will be discarded)
+my(%params)=(YYLEX => 'CODE', 'YYERROR' => 'CODE', YYVERSION => '',
+			 YYRULES => 'ARRAY', YYSTATES => 'ARRAY', YYDEBUG => '');
+#Mandatory parameters
+my(@params)=('LEX','RULES','STATES');
+
+sub new {
+    my($class)=shift;
+	my($errst,$nberr,$token,$value,$check,$dotpos);
+    my($self)={ ERROR => \&_Error,
+				ERRST => \$errst,
+                NBERR => \$nberr,
+				TOKEN => \$token,
+				VALUE => \$value,
+				DOTPOS => \$dotpos,
+				STACK => [],
+				DEBUG => 0,
+				CHECK => \$check };
+
+	_CheckParams( [], \%params, \@_, $self );
+
+		exists($$self{VERSION})
+	and	$$self{VERSION} < $COMPATIBLE
+	and	croak "Yapp driver version $VERSION ".
+			  "incompatible with version $$self{VERSION}:\n".
+			  "Please recompile parser module.";
+
+        ref($class)
+    and $class=ref($class);
+
+    bless($self,$class);
+}
+
+sub YYParse {
+    my($self)=shift;
+    my($retval);
+
+	_CheckParams( \@params, \%params, \@_, $self );
+
+	if($$self{DEBUG}) {
+		_DBLoad();
+		$retval = eval '$self->_DBParse()';#Do not create stab entry on compile
+        $@ and die $@;
+	}
+	else {
+		$retval = $self->_Parse();
+	}
+    $retval
+}
+
+sub YYData {
+	my($self)=shift;
+
+		exists($$self{USER})
+	or	$$self{USER}={};
+
+	$$self{USER};
+	
+}
+
+sub YYErrok {
+	my($self)=shift;
+
+	${$$self{ERRST}}=0;
+    undef;
+}
+
+sub YYNberr {
+	my($self)=shift;
+
+	${$$self{NBERR}};
+}
+
+sub YYRecovering {
+	my($self)=shift;
+
+	${$$self{ERRST}} != 0;
+}
+
+sub YYAbort {
+	my($self)=shift;
+
+	${$$self{CHECK}}='ABORT';
+    undef;
+}
+
+sub YYAccept {
+	my($self)=shift;
+
+	${$$self{CHECK}}='ACCEPT';
+    undef;
+}
+
+sub YYError {
+	my($self)=shift;
+
+	${$$self{CHECK}}='ERROR';
+    undef;
+}
+
+sub YYSemval {
+	my($self)=shift;
+	my($index)= $_[0] - ${$$self{DOTPOS}} - 1;
+
+		$index < 0
+	and	-$index <= @{$$self{STACK}}
+	and	return $$self{STACK}[$index][1];
+
+	undef;	#Invalid index
+}
+
+sub YYCurtok {
+	my($self)=shift;
+
+        @_
+    and ${$$self{TOKEN}}=$_[0];
+    ${$$self{TOKEN}};
+}
+
+sub YYCurval {
+	my($self)=shift;
+
+        @_
+    and ${$$self{VALUE}}=$_[0];
+    ${$$self{VALUE}};
+}
+
+sub YYExpect {
+    my($self)=shift;
+
+    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
+}
+
+sub YYLexer {
+    my($self)=shift;
+
+	$$self{LEX};
+}
+
+
+#################
+# Private stuff #
+#################
+
+
+sub _CheckParams {
+	my($mandatory,$checklist,$inarray,$outhash)=@_;
+	my($prm,$value);
+	my($prmlst)={};
+
+	while(($prm,$value)=splice(@$inarray,0,2)) {
+        $prm=uc($prm);
+			exists($$checklist{$prm})
+		or	croak("Unknow parameter '$prm'");
+			ref($value) eq $$checklist{$prm}
+		or	croak("Invalid value for parameter '$prm'");
+        $prm=unpack('@2A*',$prm);
+		$$outhash{$prm}=$value;
+	}
+	for (@$mandatory) {
+			exists($$outhash{$_})
+		or	croak("Missing mandatory parameter '".lc($_)."'");
+	}
+}
+
+sub _Error {
+	print "Parse error.\n";
+}
+
+sub _DBLoad {
+	{
+		no strict 'refs';
+
+			exists(${__PACKAGE__.'::'}{_DBParse})#Already loaded ?
+		and	return;
+	}
+	my($fname)=__FILE__;
+	my(@drv);
+	open(DRV,"<$fname") or die "Report this as a BUG: Cannot open $fname";
+	while(<DRV>) {
+                	/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/
+        	and     do {
+                	s/^#DBG>//;
+                	push(@drv,$_);
+        	}
+	}
+	close(DRV);
+
+	$drv[0]=~s/_P/_DBP/;
+	eval join('',@drv);
+}
+
+#Note that for loading debugging version of the driver,
+#this file will be parsed from 'sub _Parse' up to '}#_Parse' inclusive.
+#So, DO NOT remove comment at end of sub !!!
+sub _Parse {
+    my($self)=shift;
+
+	my($rules,$states,$lex,$error)
+     = @$self{ 'RULES', 'STATES', 'LEX', 'ERROR' };
+	my($errstatus,$nberror,$token,$value,$stack,$check,$dotpos)
+     = @$self{ 'ERRST', 'NBERR', 'TOKEN', 'VALUE', 'STACK', 'CHECK', 'DOTPOS' };
+
+#DBG>	my($debug)=$$self{DEBUG};
+#DBG>	my($dbgerror)=0;
+
+#DBG>	my($ShowCurToken) = sub {
+#DBG>		my($tok)='>';
+#DBG>		for (split('',$$token)) {
+#DBG>			$tok.=		(ord($_) < 32 or ord($_) > 126)
+#DBG>					?	sprintf('<%02X>',ord($_))
+#DBG>					:	$_;
+#DBG>		}
+#DBG>		$tok.='<';
+#DBG>	};
+
+	$$errstatus=0;
+	$$nberror=0;
+	($$token,$$value)=(undef,undef);
+	@$stack=( [ 0, undef ] );
+	$$check='';
+
+    while(1) {
+        my($actions,$act,$stateno);
+
+        $stateno=$$stack[-1][0];
+        $actions=$$states[$stateno];
+
+#DBG>	print STDERR ('-' x 40),"\n";
+#DBG>		$debug & 0x2
+#DBG>	and	print STDERR "In state $stateno:\n";
+#DBG>		$debug & 0x08
+#DBG>	and	print STDERR "Stack:[".
+#DBG>					 join(',',map { $$_[0] } @$stack).
+#DBG>					 "]\n";
+
+
+        if  (exists($$actions{ACTIONS})) {
+
+				defined($$token)
+            or	do {
+				($$token,$$value)=&$lex($self);
+#DBG>				$debug & 0x01
+#DBG>			and	print STDERR "Need token. Got ".&$ShowCurToken."\n";
+			};
+
+            $act=   exists($$actions{ACTIONS}{$$token})
+                    ?   $$actions{ACTIONS}{$$token}
+                    :   exists($$actions{DEFAULT})
+                        ?   $$actions{DEFAULT}
+                        :   undef;
+        }
+        else {
+            $act=$$actions{DEFAULT};
+#DBG>			$debug & 0x01
+#DBG>		and	print STDERR "Don't need token.\n";
+        }
+
+            defined($act)
+        and do {
+
+                $act > 0
+            and do {        #shift
+
+#DBG>				$debug & 0x04
+#DBG>			and	print STDERR "Shift and go to state $act.\n";
+
+					$$errstatus
+				and	do {
+					--$$errstatus;
+
+#DBG>					$debug & 0x10
+#DBG>				and	$dbgerror
+#DBG>				and	$$errstatus == 0
+#DBG>				and	do {
+#DBG>					print STDERR "**End of Error recovery.\n";
+#DBG>					$dbgerror=0;
+#DBG>				};
+				};
+
+
+                push(@$stack,[ $act, $$value ]);
+
+					$$token ne ''	#Don't eat the eof
+				and	$$token=$$value=undef;
+                next;
+            };
+
+            #reduce
+            my($lhs,$len,$code,@sempar,$semval);
+            ($lhs,$len,$code)=@{$$rules[-$act]};
+
+#DBG>			$debug & 0x04
+#DBG>		and	$act
+#DBG>		and	print STDERR "Reduce using rule ".-$act." ($lhs,$len): ";
+
+                $act
+            or  $self->YYAccept();
+
+            $$dotpos=$len;
+
+                unpack('A1',$lhs) eq '@'    #In line rule
+            and do {
+                    $lhs =~ /^\@[0-9]+\-([0-9]+)$/
+                or  die "In line rule name '$lhs' ill formed: ".
+                        "report it as a BUG.\n";
+                $$dotpos = $1;
+            };
+
+            @sempar =       $$dotpos
+                        ?   map { $$_[1] } @$stack[ -$$dotpos .. -1 ]
+                        :   ();
+
+            $semval = $code ? &$code( $self, @sempar )
+                            : @sempar ? $sempar[0] : undef;
+
+            splice(@$stack,-$len,$len);
+
+                $$check eq 'ACCEPT'
+            and do {
+
+#DBG>			$debug & 0x04
+#DBG>		and	print STDERR "Accept.\n";
+
+				return($semval);
+			};
+
+                $$check eq 'ABORT'
+            and	do {
+
+#DBG>			$debug & 0x04
+#DBG>		and	print STDERR "Abort.\n";
+
+				return(undef);
+
+			};
+
+#DBG>			$debug & 0x04
+#DBG>		and	print STDERR "Back to state $$stack[-1][0], then ";
+
+                $$check eq 'ERROR'
+            or  do {
+#DBG>				$debug & 0x04
+#DBG>			and	print STDERR 
+#DBG>				    "go to state $$states[$$stack[-1][0]]{GOTOS}{$lhs}.\n";
+
+#DBG>				$debug & 0x10
+#DBG>			and	$dbgerror
+#DBG>			and	$$errstatus == 0
+#DBG>			and	do {
+#DBG>				print STDERR "**End of Error recovery.\n";
+#DBG>				$dbgerror=0;
+#DBG>			};
+
+			    push(@$stack,
+                     [ $$states[$$stack[-1][0]]{GOTOS}{$lhs}, $semval ]);
+                $$check='';
+                next;
+            };
+
+#DBG>			$debug & 0x04
+#DBG>		and	print STDERR "Forced Error recovery.\n";
+
+            $$check='';
+
+        };
+
+        #Error
+            $$errstatus
+        or   do {
+
+            $$errstatus = 1;
+            &$error($self);
+                $$errstatus # if 0, then YYErrok has been called
+            or  next;       # so continue parsing
+
+#DBG>			$debug & 0x10
+#DBG>		and	do {
+#DBG>			print STDERR "**Entering Error recovery.\n";
+#DBG>			++$dbgerror;
+#DBG>		};
+
+            ++$$nberror;
+
+        };
+
+			$$errstatus == 3	#The next token is not valid: discard it
+		and	do {
+				$$token eq ''	# End of input: no hope
+			and	do {
+#DBG>				$debug & 0x10
+#DBG>			and	print STDERR "**At eof: aborting.\n";
+				return(undef);
+			};
+
+#DBG>			$debug & 0x10
+#DBG>		and	print STDERR "**Dicard invalid token ".&$ShowCurToken.".\n";
+
+			$$token=$$value=undef;
+		};
+
+        $$errstatus=3;
+
+		while(	  @$stack
+			  and (		not exists($$states[$$stack[-1][0]]{ACTIONS})
+			        or  not exists($$states[$$stack[-1][0]]{ACTIONS}{error})
+					or	$$states[$$stack[-1][0]]{ACTIONS}{error} <= 0)) {
+
+#DBG>			$debug & 0x10
+#DBG>		and	print STDERR "**Pop state $$stack[-1][0].\n";
+
+			pop(@$stack);
+		}
+
+			@$stack
+		or	do {
+
+#DBG>			$debug & 0x10
+#DBG>		and	print STDERR "**No state left on stack: aborting.\n";
+
+			return(undef);
+		};
+
+		#shift the error token
+
+#DBG>			$debug & 0x10
+#DBG>		and	print STDERR "**Shift \$error token and go to state ".
+#DBG>						 $$states[$$stack[-1][0]]{ACTIONS}{error}.
+#DBG>						 ".\n";
+
+		push(@$stack, [ $$states[$$stack[-1][0]]{ACTIONS}{error}, undef ]);
+
+    }
+
+    #never reached
+	croak("Error in driver logic. Please, report it as a BUG");
+
+}#_Parse
+#DO NOT remove comment
+
+1;
+
+}
+#End of include--------------------------------------------------
+
+
+
+
+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
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'interface' => 3,
+			'coclass' => 4,
+			'property_list' => 5
+		}
+	},
+	{#State 2
+		DEFAULT => 0
+	},
+	{#State 3
+		DEFAULT => -2
+	},
+	{#State 4
+		DEFAULT => -3
+	},
+	{#State 5
+		ACTIONS => {
+			"coclass" => 6,
+			"interface" => 8,
+			"[" => 7
+		}
+	},
+	{#State 6
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 10
+		}
+	},
+	{#State 7
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 11,
+			'properties' => 13,
+			'property' => 12
+		}
+	},
+	{#State 8
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 14
+		}
+	},
+	{#State 9
+		DEFAULT => -89
+	},
+	{#State 10
+		ACTIONS => {
+			"{" => 15
+		}
+	},
+	{#State 11
+		ACTIONS => {
+			"(" => 16
+		},
+		DEFAULT => -67
+	},
+	{#State 12
+		DEFAULT => -65
+	},
+	{#State 13
+		ACTIONS => {
+			"," => 17,
+			"]" => 18
+		}
+	},
+	{#State 14
+		ACTIONS => {
+			":" => 19
+		},
+		DEFAULT => -8,
+		GOTOS => {
+			'base_interface' => 20
+		}
+	},
+	{#State 15
+		DEFAULT => -5,
+		GOTOS => {
+			'interface_names' => 21
+		}
+	},
+	{#State 16
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'listtext' => 26,
+			'anytext' => 25,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 17
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 11,
+			'property' => 29
+		}
+	},
+	{#State 18
+		DEFAULT => -64
+	},
+	{#State 19
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 30
+		}
+	},
+	{#State 20
+		ACTIONS => {
+			"{" => 31
+		}
+	},
+	{#State 21
+		ACTIONS => {
+			"}" => 32,
+			"interface" => 33
+		}
+	},
+	{#State 22
+		DEFAULT => -93
+	},
+	{#State 23
+		DEFAULT => -74
+	},
+	{#State 24
+		DEFAULT => -76
+	},
+	{#State 25
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"(" => 41,
+			"|" => 42,
+			"*" => 43,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -69
+	},
+	{#State 26
+		ACTIONS => {
+			"," => 46,
+			")" => 47
+		}
+	},
+	{#State 27
+		DEFAULT => -75
+	},
+	{#State 28
+		DEFAULT => -92
+	},
+	{#State 29
+		DEFAULT => -66
+	},
+	{#State 30
+		DEFAULT => -9
+	},
+	{#State 31
+		ACTIONS => {
+			"typedef" => 48,
+			"union" => 49,
+			"enum" => 62,
+			"bitmap" => 63,
+			"declare" => 55,
+			"const" => 57,
+			"struct" => 60
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'typedecl' => 61,
+			'function' => 50,
+			'bitmap' => 64,
+			'definitions' => 51,
+			'definition' => 54,
+			'property_list' => 53,
+			'usertype' => 52,
+			'declare' => 66,
+			'const' => 65,
+			'struct' => 56,
+			'enum' => 58,
+			'typedef' => 59,
+			'union' => 67
+		}
+	},
+	{#State 32
+		ACTIONS => {
+			";" => 68
+		},
+		DEFAULT => -94,
+		GOTOS => {
+			'optional_semicolon' => 69
+		}
+	},
+	{#State 33
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 70
+		}
+	},
+	{#State 34
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 71,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 35
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 72,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 36
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 73,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 37
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 74,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 38
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 75,
+			'text' => 24,
+			'constant' => 27,
+			'commalisttext' => 76
+		}
+	},
+	{#State 39
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 77,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 40
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 78,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 41
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 75,
+			'text' => 24,
+			'constant' => 27,
+			'commalisttext' => 79
+		}
+	},
+	{#State 42
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 80,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 43
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 81,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 44
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 82,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 45
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 83,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 46
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 84,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 47
+		DEFAULT => -68
+	},
+	{#State 48
+		DEFAULT => -63,
+		GOTOS => {
+			'property_list' => 85
+		}
+	},
+	{#State 49
+		ACTIONS => {
+			'IDENTIFIER' => 86
+		},
+		DEFAULT => -91,
+		GOTOS => {
+			'optional_identifier' => 87
+		}
+	},
+	{#State 50
+		DEFAULT => -12
+	},
+	{#State 51
+		ACTIONS => {
+			"}" => 88,
+			"typedef" => 48,
+			"union" => 49,
+			"enum" => 62,
+			"bitmap" => 63,
+			"declare" => 55,
+			"const" => 57,
+			"struct" => 60
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'typedecl' => 61,
+			'function' => 50,
+			'bitmap' => 64,
+			'definition' => 89,
+			'property_list' => 53,
+			'usertype' => 52,
+			'const' => 65,
+			'struct' => 56,
+			'declare' => 66,
+			'enum' => 58,
+			'typedef' => 59,
+			'union' => 67
+		}
+	},
+	{#State 52
+		ACTIONS => {
+			";" => 90
+		}
+	},
+	{#State 53
+		ACTIONS => {
+			'IDENTIFIER' => 9,
+			"union" => 49,
+			"enum" => 62,
+			"bitmap" => 63,
+			"[" => 7,
+			'void' => 91,
+			"struct" => 60
+		},
+		GOTOS => {
+			'identifier' => 93,
+			'struct' => 56,
+			'enum' => 58,
+			'type' => 94,
+			'union' => 67,
+			'bitmap' => 64,
+			'usertype' => 92
+		}
+	},
+	{#State 54
+		DEFAULT => -10
+	},
+	{#State 55
+		DEFAULT => -63,
+		GOTOS => {
+			'property_list' => 95
+		}
+	},
+	{#State 56
+		DEFAULT => -26
+	},
+	{#State 57
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 96
+		}
+	},
+	{#State 58
+		DEFAULT => -28
+	},
+	{#State 59
+		DEFAULT => -14
+	},
+	{#State 60
+		ACTIONS => {
+			'IDENTIFIER' => 86
+		},
+		DEFAULT => -91,
+		GOTOS => {
+			'optional_identifier' => 97
+		}
+	},
+	{#State 61
+		DEFAULT => -16
+	},
+	{#State 62
+		ACTIONS => {
+			'IDENTIFIER' => 86
+		},
+		DEFAULT => -91,
+		GOTOS => {
+			'optional_identifier' => 98
+		}
+	},
+	{#State 63
+		ACTIONS => {
+			'IDENTIFIER' => 86
+		},
+		DEFAULT => -91,
+		GOTOS => {
+			'optional_identifier' => 99
+		}
+	},
+	{#State 64
+		DEFAULT => -29
+	},
+	{#State 65
+		DEFAULT => -13
+	},
+	{#State 66
+		DEFAULT => -15
+	},
+	{#State 67
+		DEFAULT => -27
+	},
+	{#State 68
+		DEFAULT => -95
+	},
+	{#State 69
+		DEFAULT => -4
+	},
+	{#State 70
+		ACTIONS => {
+			";" => 100
+		}
+	},
+	{#State 71
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -77
+	},
+	{#State 72
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"*" => 43,
+			"{" => 38,
+			"&" => 39,
+			"/" => 40,
+			"(" => 41,
+			"|" => 42,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -81
+	},
+	{#State 73
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"*" => 43,
+			"{" => 38,
+			"&" => 39,
+			"/" => 40,
+			"(" => 41,
+			"|" => 42,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -86
+	},
+	{#State 74
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -85
+	},
+	{#State 75
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"*" => 43,
+			"{" => 38,
+			"&" => 39,
+			"/" => 40,
+			"(" => 41,
+			"|" => 42,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -71
+	},
+	{#State 76
+		ACTIONS => {
+			"}" => 101,
+			"," => 102
+		}
+	},
+	{#State 77
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -83
+	},
+	{#State 78
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -84
+	},
+	{#State 79
+		ACTIONS => {
+			"," => 102,
+			")" => 103
+		}
+	},
+	{#State 80
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -82
+	},
+	{#State 81
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -79
+	},
+	{#State 82
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -78
+	},
+	{#State 83
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -80
+	},
+	{#State 84
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"|" => 42,
+			"(" => 41,
+			"*" => 43,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -70
+	},
+	{#State 85
+		ACTIONS => {
+			'IDENTIFIER' => 9,
+			"union" => 49,
+			"enum" => 62,
+			"bitmap" => 63,
+			"[" => 7,
+			'void' => 91,
+			"struct" => 60
+		},
+		GOTOS => {
+			'identifier' => 93,
+			'struct' => 56,
+			'enum' => 58,
+			'type' => 104,
+			'union' => 67,
+			'bitmap' => 64,
+			'usertype' => 92
+		}
+	},
+	{#State 86
+		DEFAULT => -90
+	},
+	{#State 87
+		ACTIONS => {
+			"{" => 105
+		}
+	},
+	{#State 88
+		ACTIONS => {
+			";" => 68
+		},
+		DEFAULT => -94,
+		GOTOS => {
+			'optional_semicolon' => 106
+		}
+	},
+	{#State 89
+		DEFAULT => -11
+	},
+	{#State 90
+		DEFAULT => -30
+	},
+	{#State 91
+		DEFAULT => -33
+	},
+	{#State 92
+		DEFAULT => -31
+	},
+	{#State 93
+		DEFAULT => -32
+	},
+	{#State 94
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 107
+		}
+	},
+	{#State 95
+		ACTIONS => {
+			"enum" => 111,
+			"bitmap" => 112,
+			"[" => 7
+		},
+		GOTOS => {
+			'decl_enum' => 108,
+			'decl_bitmap' => 109,
+			'decl_type' => 110
+		}
+	},
+	{#State 96
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 113
+		}
+	},
+	{#State 97
+		ACTIONS => {
+			"{" => 114
+		}
+	},
+	{#State 98
+		ACTIONS => {
+			"{" => 115
+		}
+	},
+	{#State 99
+		ACTIONS => {
+			"{" => 116
+		}
+	},
+	{#State 100
+		DEFAULT => -6
+	},
+	{#State 101
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 117,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 102
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 118,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 103
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 119,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 104
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 120
+		}
+	},
+	{#State 105
+		DEFAULT => -48,
+		GOTOS => {
+			'union_elements' => 121
+		}
+	},
+	{#State 106
+		DEFAULT => -7
+	},
+	{#State 107
+		ACTIONS => {
+			"(" => 122
+		}
+	},
+	{#State 108
+		DEFAULT => -21
+	},
+	{#State 109
+		DEFAULT => -22
+	},
+	{#State 110
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 123
+		}
+	},
+	{#State 111
+		DEFAULT => -23
+	},
+	{#State 112
+		DEFAULT => -24
+	},
+	{#State 113
+		ACTIONS => {
+			"[" => 124,
+			"=" => 126
+		},
+		GOTOS => {
+			'array_len' => 125
+		}
+	},
+	{#State 114
+		DEFAULT => -54,
+		GOTOS => {
+			'element_list1' => 127
+		}
+	},
+	{#State 115
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 128,
+			'enum_element' => 129,
+			'enum_elements' => 130
+		}
+	},
+	{#State 116
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 133,
+			'bitmap_elements' => 132,
+			'bitmap_element' => 131
+		}
+	},
+	{#State 117
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"*" => 43,
+			"{" => 38,
+			"&" => 39,
+			"/" => 40,
+			"(" => 41,
+			"|" => 42,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -88
+	},
+	{#State 118
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"*" => 43,
+			"{" => 38,
+			"&" => 39,
+			"/" => 40,
+			"(" => 41,
+			"|" => 42,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -72
+	},
+	{#State 119
+		ACTIONS => {
+			"<" => 35,
+			"~" => 36,
+			"{" => 38
+		},
+		DEFAULT => -87
+	},
+	{#State 120
+		ACTIONS => {
+			"[" => 124
+		},
+		DEFAULT => -60,
+		GOTOS => {
+			'array_len' => 134
+		}
+	},
+	{#State 121
+		ACTIONS => {
+			"}" => 135
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'optional_base_element' => 137,
+			'property_list' => 136
+		}
+	},
+	{#State 122
+		ACTIONS => {
+			"," => -56,
+			"void" => 141,
+			")" => -56
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'base_element' => 138,
+			'element_list2' => 140,
+			'property_list' => 139
+		}
+	},
+	{#State 123
+		ACTIONS => {
+			";" => 142
+		}
+	},
+	{#State 124
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			"]" => 143,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 144,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 125
+		ACTIONS => {
+			"=" => 145
+		}
+	},
+	{#State 126
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 146,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 127
+		ACTIONS => {
+			"}" => 147
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'base_element' => 148,
+			'property_list' => 139
+		}
+	},
+	{#State 128
+		ACTIONS => {
+			"=" => 149
+		},
+		DEFAULT => -37
+	},
+	{#State 129
+		DEFAULT => -35
+	},
+	{#State 130
+		ACTIONS => {
+			"}" => 150,
+			"," => 151
+		}
+	},
+	{#State 131
+		DEFAULT => -40
+	},
+	{#State 132
+		ACTIONS => {
+			"}" => 152,
+			"," => 153
+		}
+	},
+	{#State 133
+		ACTIONS => {
+			"=" => 154
+		}
+	},
+	{#State 134
+		ACTIONS => {
+			";" => 155
+		}
+	},
+	{#State 135
+		DEFAULT => -50
+	},
+	{#State 136
+		ACTIONS => {
+			"[" => 7
+		},
+		DEFAULT => -63,
+		GOTOS => {
+			'base_or_empty' => 156,
+			'base_element' => 157,
+			'empty_element' => 158,
+			'property_list' => 159
+		}
+	},
+	{#State 137
+		DEFAULT => -49
+	},
+	{#State 138
+		DEFAULT => -58
+	},
+	{#State 139
+		ACTIONS => {
+			'IDENTIFIER' => 9,
+			"union" => 49,
+			"enum" => 62,
+			"bitmap" => 63,
+			"[" => 7,
+			'void' => 91,
+			"struct" => 60
+		},
+		GOTOS => {
+			'identifier' => 93,
+			'struct' => 56,
+			'enum' => 58,
+			'type' => 160,
+			'union' => 67,
+			'bitmap' => 64,
+			'usertype' => 92
+		}
+	},
+	{#State 140
+		ACTIONS => {
+			"," => 161,
+			")" => 162
+		}
+	},
+	{#State 141
+		DEFAULT => -57
+	},
+	{#State 142
+		DEFAULT => -20
+	},
+	{#State 143
+		ACTIONS => {
+			"[" => 124
+		},
+		DEFAULT => -60,
+		GOTOS => {
+			'array_len' => 163
+		}
+	},
+	{#State 144
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"|" => 42,
+			"(" => 41,
+			"*" => 43,
+			"." => 44,
+			"]" => 164,
+			">" => 45
+		}
+	},
+	{#State 145
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 165,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 146
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			";" => 166,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"|" => 42,
+			"(" => 41,
+			"*" => 43,
+			"." => 44,
+			">" => 45
+		}
+	},
+	{#State 147
+		DEFAULT => -43
+	},
+	{#State 148
+		ACTIONS => {
+			";" => 167
+		}
+	},
+	{#State 149
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 168,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 150
+		DEFAULT => -34
+	},
+	{#State 151
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 128,
+			'enum_element' => 169
+		}
+	},
+	{#State 152
+		DEFAULT => -39
+	},
+	{#State 153
+		ACTIONS => {
+			'IDENTIFIER' => 9
+		},
+		GOTOS => {
+			'identifier' => 133,
+			'bitmap_element' => 170
+		}
+	},
+	{#State 154
+		ACTIONS => {
+			'CONSTANT' => 28,
+			'TEXT' => 22,
+			'IDENTIFIER' => 9
+		},
+		DEFAULT => -73,
+		GOTOS => {
+			'identifier' => 23,
+			'anytext' => 171,
+			'text' => 24,
+			'constant' => 27
+		}
+	},
+	{#State 155
+		DEFAULT => -25
+	},
+	{#State 156
+		DEFAULT => -47
+	},
+	{#State 157
+		ACTIONS => {
+			";" => 172
+		}
+	},
+	{#State 158
+		DEFAULT => -46
+	},
+	{#State 159
+		ACTIONS => {
+			'IDENTIFIER' => 9,
+			"union" => 49,
+			";" => 173,
+			"enum" => 62,
+			"bitmap" => 63,
+			'void' => 91,
+			"[" => 7,
+			"struct" => 60
+		},
+		GOTOS => {
+			'identifier' => 93,
+			'struct' => 56,
+			'enum' => 58,
+			'type' => 160,
+			'union' => 67,
+			'bitmap' => 64,
+			'usertype' => 92
+		}
+	},
+	{#State 160
+		DEFAULT => -52,
+		GOTOS => {
+			'pointers' => 174
+		}
+	},
+	{#State 161
+		DEFAULT => -63,
+		GOTOS => {
+			'base_element' => 175,
+			'property_list' => 139
+		}
+	},
+	{#State 162
+		ACTIONS => {
+			";" => 176
+		}
+	},
+	{#State 163
+		DEFAULT => -61
+	},
+	{#State 164
+		ACTIONS => {
+			"[" => 124
+		},
+		DEFAULT => -60,
+		GOTOS => {
+			'array_len' => 177
+		}
+	},
+	{#State 165
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			";" => 178,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"|" => 42,
+			"(" => 41,
+			"*" => 43,
+			"." => 44,
+			">" => 45
+		}
+	},
+	{#State 166
+		DEFAULT => -17
+	},
+	{#State 167
+		DEFAULT => -55
+	},
+	{#State 168
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"|" => 42,
+			"(" => 41,
+			"*" => 43,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -38
+	},
+	{#State 169
+		DEFAULT => -36
+	},
+	{#State 170
+		DEFAULT => -41
+	},
+	{#State 171
+		ACTIONS => {
+			"-" => 34,
+			"<" => 35,
+			"+" => 37,
+			"~" => 36,
+			"&" => 39,
+			"{" => 38,
+			"/" => 40,
+			"|" => 42,
+			"(" => 41,
+			"*" => 43,
+			"." => 44,
+			">" => 45
+		},
+		DEFAULT => -42
+	},
+	{#State 172
+		DEFAULT => -45
+	},
+	{#State 173
+		DEFAULT => -44
+	},
+	{#State 174
+		ACTIONS => {
+			'IDENTIFIER' => 9,
+			"*" => 180
+		},
+		GOTOS => {
+			'identifier' => 179
+		}
+	},
+	{#State 175
+		DEFAULT => -59
+	},
+	{#State 176
+		DEFAULT => -19
+	},
+	{#State 177
+		DEFAULT => -62
+	},
+	{#State 178
+		DEFAULT => -18
+	},
+	{#State 179
+		ACTIONS => {
+			"[" => 124
+		},
+		DEFAULT => -60,
+		GOTOS => {
+			'array_len' => 181
+		}
+	},
+	{#State 180
+		DEFAULT => -53
+	},
+	{#State 181
+		DEFAULT => -51
+	}
+],
+                                  yyrules  =>
+[
+	[#Rule 0
+		 '$start', 2, undef
+	],
+	[#Rule 1
+		 'idl', 0, undef
+	],
+	[#Rule 2
+		 'idl', 2,
+sub
+#line 19 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+	],
+	[#Rule 3
+		 'idl', 2,
+sub
+#line 20 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+	],
+	[#Rule 4
+		 'coclass', 7,
+sub
+#line 24 "build/pidl/idl.yp"
+{$_[3] => {
+               "TYPE" => "COCLASS", 
+	       "PROPERTIES" => $_[1],
+	       "NAME" => $_[3],
+	       "DATA" => $_[5],
+		   "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		   "LINE" => $_[0]->YYData->{LINE},
+          }}
+	],
+	[#Rule 5
+		 'interface_names', 0, undef
+	],
+	[#Rule 6
+		 'interface_names', 4,
+sub
+#line 36 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+	],
+	[#Rule 7
+		 'interface', 8,
+sub
+#line 40 "build/pidl/idl.yp"
+{$_[3] => {
+               "TYPE" => "INTERFACE", 
+	       "PROPERTIES" => $_[1],
+	       "NAME" => $_[3],
+	       "BASE" => $_[4],
+	       "DATA" => $_[6],
+		   "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		   "LINE" => $_[0]->YYData->{LINE},
+          }}
+	],
+	[#Rule 8
+		 'base_interface', 0, undef
+	],
+	[#Rule 9
+		 'base_interface', 2,
+sub
+#line 53 "build/pidl/idl.yp"
+{ $_[2] }
+	],
+	[#Rule 10
+		 'definitions', 1,
+sub
+#line 57 "build/pidl/idl.yp"
+{ [ $_[1] ] }
+	],
+	[#Rule 11
+		 'definitions', 2,
+sub
+#line 58 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+	],
+	[#Rule 12
+		 'definition', 1, undef
+	],
+	[#Rule 13
+		 'definition', 1, undef
+	],
+	[#Rule 14
+		 'definition', 1, undef
+	],
+	[#Rule 15
+		 'definition', 1, undef
+	],
+	[#Rule 16
+		 'definition', 1, undef
+	],
+	[#Rule 17
+		 'const', 6,
+sub
+#line 66 "build/pidl/idl.yp"
+{{
+                     "TYPE"  => "CONST", 
+		     "DTYPE"  => $_[2],
+		     "NAME"  => $_[3],
+		     "VALUE" => $_[5],
+		     "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		     "LINE" => $_[0]->YYData->{LINE},
+        }}
+	],
+	[#Rule 18
+		 'const', 7,
+sub
+#line 75 "build/pidl/idl.yp"
+{{
+                     "TYPE"  => "CONST", 
+		     "DTYPE"  => $_[2],
+		     "NAME"  => $_[3],
+		     "ARRAY_LEN" => $_[4],
+		     "VALUE" => $_[6],
+		     "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		     "LINE" => $_[0]->YYData->{LINE},
+        }}
+	],
+	[#Rule 19
+		 'function', 7,
+sub
+#line 88 "build/pidl/idl.yp"
+{{
+		"TYPE" => "FUNCTION",
+		"NAME" => $_[3],
+		"RETURN_TYPE" => $_[2],
+		"PROPERTIES" => $_[1],
+		"ELEMENTS" => $_[5],
+		"FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		"LINE" => $_[0]->YYData->{LINE},
+	  }}
+	],
+	[#Rule 20
+		 'declare', 5,
+sub
+#line 100 "build/pidl/idl.yp"
+{{
+	             "TYPE" => "DECLARE", 
+                     "PROPERTIES" => $_[2],
+		     "NAME" => $_[4],
+		     "DATA" => $_[3],
+		     "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		     "LINE" => $_[0]->YYData->{LINE},
+        }}
+	],
+	[#Rule 21
+		 'decl_type', 1, undef
+	],
+	[#Rule 22
+		 'decl_type', 1, undef
+	],
+	[#Rule 23
+		 'decl_enum', 1,
+sub
+#line 114 "build/pidl/idl.yp"
+{{
+                     "TYPE" => "ENUM"
+        }}
+	],
+	[#Rule 24
+		 'decl_bitmap', 1,
+sub
+#line 120 "build/pidl/idl.yp"
+{{
+                     "TYPE" => "BITMAP"
+        }}
+	],
+	[#Rule 25
+		 'typedef', 6,
+sub
+#line 126 "build/pidl/idl.yp"
+{{
+	             "TYPE" => "TYPEDEF", 
+                     "PROPERTIES" => $_[2],
+		     "NAME" => $_[4],
+		     "DATA" => $_[3],
+		     "ARRAY_LEN" => $_[5],
+		     "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		     "LINE" => $_[0]->YYData->{LINE},
+        }}
+	],
+	[#Rule 26
+		 'usertype', 1, undef
+	],
+	[#Rule 27
+		 'usertype', 1, undef
+	],
+	[#Rule 28
+		 'usertype', 1, undef
+	],
+	[#Rule 29
+		 'usertype', 1, undef
+	],
+	[#Rule 30
+		 'typedecl', 2,
+sub
+#line 139 "build/pidl/idl.yp"
+{ $_[1] }
+	],
+	[#Rule 31
+		 'type', 1, undef
+	],
+	[#Rule 32
+		 'type', 1, undef
+	],
+	[#Rule 33
+		 'type', 1,
+sub
+#line 142 "build/pidl/idl.yp"
+{ "void" }
+	],
+	[#Rule 34
+		 'enum', 5,
+sub
+#line 146 "build/pidl/idl.yp"
+{{
+             "TYPE" => "ENUM", 
+			 "NAME" => $_[2],
+		     "ELEMENTS" => $_[4]
+        }}
+	],
+	[#Rule 35
+		 'enum_elements', 1,
+sub
+#line 154 "build/pidl/idl.yp"
+{ [ $_[1] ] }
+	],
+	[#Rule 36
+		 'enum_elements', 3,
+sub
+#line 155 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+	],
+	[#Rule 37
+		 'enum_element', 1, undef
+	],
+	[#Rule 38
+		 'enum_element', 3,
+sub
+#line 159 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 39
+		 'bitmap', 5,
+sub
+#line 163 "build/pidl/idl.yp"
+{{
+             "TYPE" => "BITMAP", 
+			 "NAME" => $_[2],
+		     "ELEMENTS" => $_[4]
+        }}
+	],
+	[#Rule 40
+		 'bitmap_elements', 1,
+sub
+#line 171 "build/pidl/idl.yp"
+{ [ $_[1] ] }
+	],
+	[#Rule 41
+		 'bitmap_elements', 3,
+sub
+#line 172 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+	],
+	[#Rule 42
+		 'bitmap_element', 3,
+sub
+#line 175 "build/pidl/idl.yp"
+{ "$_[1] ( $_[3] )" }
+	],
+	[#Rule 43
+		 'struct', 5,
+sub
+#line 179 "build/pidl/idl.yp"
+{{
+             "TYPE" => "STRUCT", 
+			 "NAME" => $_[2],
+		     "ELEMENTS" => $_[4]
+        }}
+	],
+	[#Rule 44
+		 'empty_element', 2,
+sub
+#line 187 "build/pidl/idl.yp"
+{{
+		 "NAME" => "",
+		 "TYPE" => "EMPTY",
+		 "PROPERTIES" => $_[1],
+		 "POINTERS" => 0,
+		 "ARRAY_LEN" => [],
+		 "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		 "LINE" => $_[0]->YYData->{LINE},
+	 }}
+	],
+	[#Rule 45
+		 'base_or_empty', 2, undef
+	],
+	[#Rule 46
+		 'base_or_empty', 1, undef
+	],
+	[#Rule 47
+		 'optional_base_element', 2,
+sub
+#line 201 "build/pidl/idl.yp"
+{ $_[2]->{PROPERTIES} = Parse::Pidl::Util::FlattenHash([$_[1],$_[2]->{PROPERTIES}]); $_[2] }
+	],
+	[#Rule 48
+		 'union_elements', 0, undef
+	],
+	[#Rule 49
+		 'union_elements', 2,
+sub
+#line 206 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+	],
+	[#Rule 50
+		 'union', 5,
+sub
+#line 210 "build/pidl/idl.yp"
+{{
+             "TYPE" => "UNION", 
+		     "NAME" => $_[2],
+		     "ELEMENTS" => $_[4]
+        }}
+	],
+	[#Rule 51
+		 'base_element', 5,
+sub
+#line 218 "build/pidl/idl.yp"
+{{
+			   "NAME" => $_[4],
+			   "TYPE" => $_[2],
+			   "PROPERTIES" => $_[1],
+			   "POINTERS" => $_[3],
+			   "ARRAY_LEN" => $_[5],
+		       "FILE" => $_[0]->YYData->{INPUT_FILENAME},
+		       "LINE" => $_[0]->YYData->{LINE},
+              }}
+	],
+	[#Rule 52
+		 'pointers', 0,
+sub
+#line 232 "build/pidl/idl.yp"
+{ 0 }
+	],
+	[#Rule 53
+		 'pointers', 2,
+sub
+#line 233 "build/pidl/idl.yp"
+{ $_[1]+1 }
+	],
+	[#Rule 54
+		 'element_list1', 0, undef
+	],
+	[#Rule 55
+		 'element_list1', 3,
+sub
+#line 238 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[2]); $_[1] }
+	],
+	[#Rule 56
+		 'element_list2', 0, undef
+	],
+	[#Rule 57
+		 'element_list2', 1, undef
+	],
+	[#Rule 58
+		 'element_list2', 1,
+sub
+#line 244 "build/pidl/idl.yp"
+{ [ $_[1] ] }
+	],
+	[#Rule 59
+		 'element_list2', 3,
+sub
+#line 245 "build/pidl/idl.yp"
+{ push(@{$_[1]}, $_[3]); $_[1] }
+	],
+	[#Rule 60
+		 'array_len', 0, undef
+	],
+	[#Rule 61
+		 'array_len', 3,
+sub
+#line 250 "build/pidl/idl.yp"
+{ push(@{$_[3]}, "*"); $_[3] }
+	],
+	[#Rule 62
+		 'array_len', 4,
+sub
+#line 251 "build/pidl/idl.yp"
+{ push(@{$_[4]}, "$_[2]"); $_[4] }
+	],
+	[#Rule 63
+		 'property_list', 0, undef
+	],
+	[#Rule 64
+		 'property_list', 4,
+sub
+#line 257 "build/pidl/idl.yp"
+{ Parse::Pidl::Util::FlattenHash([$_[1],$_[3]]); }
+	],
+	[#Rule 65
+		 'properties', 1,
+sub
+#line 260 "build/pidl/idl.yp"
+{ $_[1] }
+	],
+	[#Rule 66
+		 'properties', 3,
+sub
+#line 261 "build/pidl/idl.yp"
+{ Parse::Pidl::Util::FlattenHash([$_[1], $_[3]]); }
+	],
+	[#Rule 67
+		 'property', 1,
+sub
+#line 264 "build/pidl/idl.yp"
+{{ "$_[1]" => "1"     }}
+	],
+	[#Rule 68
+		 'property', 4,
+sub
+#line 265 "build/pidl/idl.yp"
+{{ "$_[1]" => "$_[3]" }}
+	],
+	[#Rule 69
+		 'listtext', 1, undef
+	],
+	[#Rule 70
+		 'listtext', 3,
+sub
+#line 270 "build/pidl/idl.yp"
+{ "$_[1] $_[3]" }
+	],
+	[#Rule 71
+		 'commalisttext', 1, undef
+	],
+	[#Rule 72
+		 'commalisttext', 3,
+sub
+#line 275 "build/pidl/idl.yp"
+{ "$_[1],$_[3]" }
+	],
+	[#Rule 73
+		 'anytext', 0,
+sub
+#line 279 "build/pidl/idl.yp"
+{ "" }
+	],
+	[#Rule 74
+		 'anytext', 1, undef
+	],
+	[#Rule 75
+		 'anytext', 1, undef
+	],
+	[#Rule 76
+		 'anytext', 1, undef
+	],
+	[#Rule 77
+		 'anytext', 3,
+sub
+#line 281 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 78
+		 'anytext', 3,
+sub
+#line 282 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 79
+		 'anytext', 3,
+sub
+#line 283 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 80
+		 'anytext', 3,
+sub
+#line 284 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 81
+		 'anytext', 3,
+sub
+#line 285 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 82
+		 'anytext', 3,
+sub
+#line 286 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 83
+		 'anytext', 3,
+sub
+#line 287 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 84
+		 'anytext', 3,
+sub
+#line 288 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 85
+		 'anytext', 3,
+sub
+#line 289 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 86
+		 'anytext', 3,
+sub
+#line 290 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]" }
+	],
+	[#Rule 87
+		 'anytext', 5,
+sub
+#line 291 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+	],
+	[#Rule 88
+		 'anytext', 5,
+sub
+#line 292 "build/pidl/idl.yp"
+{ "$_[1]$_[2]$_[3]$_[4]$_[5]" }
+	],
+	[#Rule 89
+		 'identifier', 1, undef
+	],
+	[#Rule 90
+		 'optional_identifier', 1, undef
+	],
+	[#Rule 91
+		 'optional_identifier', 0, undef
+	],
+	[#Rule 92
+		 'constant', 1, undef
+	],
+	[#Rule 93
+		 'text', 1,
+sub
+#line 306 "build/pidl/idl.yp"
+{ "\"$_[1]\"" }
+	],
+	[#Rule 94
+		 'optional_semicolon', 0, undef
+	],
+	[#Rule 95
+		 'optional_semicolon', 1, undef
+	]
+],
+                                  @_);
+    bless($self,$class);
+}
+
+#line 317 "build/pidl/idl.yp"
+
+
+use Parse::Pidl::Util;
+
+#####################################################################
+# 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;
+    if (ref($v) eq "ARRAY") {
+	foreach my $i (0 .. $#{$v}) {
+	    CleanData($v->[$i]);
+	    if (ref($v->[$i]) eq "ARRAY" && $#{$v->[$i]}==-1) { 
+		    $v->[$i] = undef; 
+		    next; 
+	    }
+	}
+	# this removes any undefined elements from the array
+	@{$v} = grep { defined $_ } @{$v};
+    } elsif (ref($v) eq "HASH") {
+	foreach my $x (keys %{$v}) {
+	    CleanData($v->{$x});
+	    if (!defined $v->{$x}) { delete($v->{$x}); next; }
+	    if (ref($v->{$x}) eq "ARRAY" && $#{$v->{$x}}==-1) { delete($v->{$x}); next; }
+	}
+    }
+	return $v;
+}
+
+sub _Error {
+    if (exists $_[0]->YYData->{ERRMSG}) {
+		print $_[0]->YYData->{ERRMSG};
+		delete $_[0]->YYData->{ERRMSG};
+		return;
+	};
+	my $line = $_[0]->YYData->{LINE};
+	my $last_token = $_[0]->YYData->{LAST_TOKEN};
+	my $file = $_[0]->YYData->{INPUT_FILENAME};
+	
+	print "$file:$line: Syntax error near '$last_token'\n";
+}
+
+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->{INPUT_FILENAME} = $2;
+				goto again;
+			}
+			if (s/^\#line (\d+) \"(.*?)\"( \d+|)//) {
+				$parser->YYData->{LINE} = $1-1;
+				$parser->YYData->{INPUT_FILENAME} = $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|const|typedef|declare|union
+			      |struct|enum|bitmap|void)$/x) {
+				return $1;
+			}
+			return('IDENTIFIER',$1);
+		}
+		if (s/^(.)//s) {
+			$parser->YYData->{LAST_TOKEN} = $1;
+			return($1,$1);
+		}
+	}
+}
+
+sub parse_idl($$)
+{
+	my ($self,$filename) = @_;
+
+	my $saved_delim = $/;
+	undef $/;
+	my $cpp = $ENV{CPP};
+	if (! defined $cpp) {
+		$cpp = "cpp"
+	}
+	my $data = `$cpp -D__PIDL__ -xc $filename`;
+	$/ = $saved_delim;
+
+    $self->YYData->{INPUT} = $data;
+    $self->YYData->{LINE} = 0;
+    $self->YYData->{LAST_TOKEN} = "NONE";
+
+	my $idl = $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error );
+
+	return CleanData($idl);
+}
+
+1;