commit 91a36868535d63e2f18d5fe4385c0d26f4fe264f
author Patrik Stridvall <ps@leissner.se> Wed Oct 09 18:12:02 2002 +0000
committer Alexandre Julliard <julliard@winehq.org> Wed Oct 09 18:12:02 2002 +0000
tree 0ca7a392a34292e0f9f0b771f98ffe4e0a33c76c
parent 7bdf2ff9f43bfa92de52a39983ac3dc91cfb86ec

Reorganized the code for better support of data structures parsing.

tools/winapi/winapi_extract

diff --git a/tools/winapi/winapi_extract b/tools/winapi/winapi_extract
index 7216349..d89e8e7 100755
--- a/tools/winapi/winapi_extract
+++ b/tools/winapi/winapi_extract
@@ -328,13 +328,14 @@
 	my $name = $type->name;
 	
 	foreach my $field ($type->fields) {
-	    (my $field_type, my $field_name) = @$field;
+	    my $field_type_name = $field->type_name;
+	    my $field_name = $field->name;
 
 	    if ($options->struct) {
 		if ($name) {
-		    $output->write("$name:$field_type:$field_name\n");
+		    $output->write("$name:$field_type_name:$field_name\n");
 		} else {
-		    $output->write("$kind $_name:$field_type:$field_name\n");
+		    $output->write("$kind $_name:$field_type_name:$field_name\n");
 		}
 	    }
 	}