commit 3e1ace5aa32c2995cedb0f75e3635a4ef57da0ed
author Dan Hipschman <dsh@linux.ucla.edu> Mon Jul 31 11:57:05 2006 -0700
committer Alexandre Julliard <julliard@winehq.org> Mon Jul 31 21:40:37 2006 +0200
tree 1bbafe413d581f8c33eb4fb83b0e1061b7562b7c
parent 23707beb461c7c44a17088de4c78d4f654ca2091

widl: Set type_t kind field correctly for all types.

tools/widl/parser.y

diff --git a/tools/widl/parser.y b/tools/widl/parser.y
index 123a23a..db78003 100644
--- a/tools/widl/parser.y
+++ b/tools/widl/parser.y
@@ -487,6 +487,7 @@
 	;
 
 enumdef: tENUM t_ident '{' enums '}'		{ $$ = get_typev(RPC_FC_ENUM16, $2, tsENUM);
+						  $$->kind = TKIND_ENUM;
 						  $$->fields = $4;
 						  $$->defined = TRUE;
                                                   if(in_typelib)
@@ -663,8 +664,8 @@
 	  m_attributes interfacedec		{ $$ = make_ifref($2); $$->attrs = $1; }
 	;
 
-dispinterface: tDISPINTERFACE aIDENTIFIER	{ $$ = get_type(0, $2, 0); }
-	|      tDISPINTERFACE aKNOWNTYPE	{ $$ = get_type(0, $2, 0); }
+dispinterface: tDISPINTERFACE aIDENTIFIER	{ $$ = get_type(0, $2, 0); $$->kind = TKIND_DISPATCH; }
+	|      tDISPINTERFACE aKNOWNTYPE	{ $$ = get_type(0, $2, 0); $$->kind = TKIND_DISPATCH; }
 	;
 
 dispinterfacehdr: attributes dispinterface	{ attr_t *attrs;
@@ -707,8 +708,8 @@
 	| ':' aKNOWNTYPE			{ $$ = find_type2($2, 0); }
 	;
 
-interface: tINTERFACE aIDENTIFIER		{ $$ = get_type(RPC_FC_IP, $2, 0); }
-	|  tINTERFACE aKNOWNTYPE		{ $$ = get_type(RPC_FC_IP, $2, 0); }
+interface: tINTERFACE aIDENTIFIER		{ $$ = get_type(RPC_FC_IP, $2, 0); $$->kind = TKIND_INTERFACE; }
+	|  tINTERFACE aKNOWNTYPE		{ $$ = get_type(RPC_FC_IP, $2, 0); $$->kind = TKIND_INTERFACE; }
 	;
 
 interfacehdr: attributes interface		{ $$ = $2;
@@ -742,8 +743,8 @@
 	| dispinterface ';'			{ $$ = $1; if (!parse_only && do_header) write_forward($$); }
 	;
 
-module:   tMODULE aIDENTIFIER			{ $$ = make_type(0, NULL); $$->name = $2; }
-	| tMODULE aKNOWNTYPE			{ $$ = make_type(0, NULL); $$->name = $2; }
+module:   tMODULE aIDENTIFIER			{ $$ = make_type(0, NULL); $$->name = $2; $$->kind = TKIND_MODULE; }
+	| tMODULE aKNOWNTYPE			{ $$ = make_type(0, NULL); $$->name = $2; $$->kind = TKIND_MODULE; }
 	;
 
 modulehdr: attributes module			{ $$ = $2;
@@ -780,6 +781,7 @@
 structdef: tSTRUCT t_ident '{' fields '}'	{ $$ = get_typev(RPC_FC_STRUCT, $2, tsSTRUCT);
                                                   /* overwrite RPC_FC_STRUCT with a more exact type */
 						  $$->type = get_struct_type( $4 );
+						  $$->kind = TKIND_RECORD;
 						  $$->fields = $4;
 						  $$->defined = TRUE;
                                                   if(in_typelib)
@@ -814,6 +816,7 @@
 	;
 
 uniondef: tUNION t_ident '{' fields '}'		{ $$ = get_typev(RPC_FC_NON_ENCAPSULATED_UNION, $2, tsUNION);
+						  $$->kind = TKIND_UNION;
 						  $$->fields = $4;
 						  $$->defined = TRUE;
 						}
@@ -821,8 +824,10 @@
 	  tSWITCH '(' s_field ')'
 	  m_ident '{' cases '}'			{ var_t *u = $7;
 						  $$ = get_typev(RPC_FC_ENCAPSULATED_UNION, $2, tsUNION);
+						  $$->kind = TKIND_UNION;
 						  if (!u) u = make_var("tagged_union");
 						  u->type = make_type(RPC_FC_NON_ENCAPSULATED_UNION, NULL);
+						  u->type->kind = TKIND_UNION;
 						  u->type->fields = $9;
 						  u->type->defined = TRUE;
 						  LINK(u, $5); $$->fields = u;