Removed some more trailing whitespace.
diff --git a/tools/winapi_check/winapi.pm b/tools/winapi_check/winapi.pm
index 207b5b7..3209344 100644
--- a/tools/winapi_check/winapi.pm
+++ b/tools/winapi_check/winapi.pm
@@ -83,8 +83,8 @@
if($modules->is_allowed_module($module)) {
$self->parse_api_file($file,$module);
}
- }
-
+ }
+
foreach my $forward_name (sort(keys(%$function_forward))) {
$$function_forward{$forward_name} =~ /^(\S*):(\S*)\.(\S*)$/;
(my $from_module, my $to_module, my $external_name) = ($1, $2, $3);
@@ -197,7 +197,7 @@
} else {
$$translate_argument{$type} = $kind;
}
-
+
$$type_format{$module}{$type} = $format;
} else {
$output->write("$file: file must begin with %<type> statement\n");
@@ -251,7 +251,7 @@
if(/^type\s*(\w+)/) { $type = $1; }
if(/^\d+|@/) { $header = 0; $lookahead = 1; }
next;
- }
+ }
my $ordinal;
if(/^(\d+|@)\s+
@@ -405,7 +405,7 @@
$lookahead = 1;
}
}
-
+
if(defined($ordinal)) {
if($ordinal ne "@" && $ordinals{$ordinal}) {
$output->write("$file: ordinal redefined: $_\n");
@@ -580,11 +580,11 @@
if(defined($module) && defined($type)) {
local $_;
foreach (split(/ & /, $module)) {
- if(defined($formats)) {
- $formats .= "|";
+ if(defined($formats)) {
+ $formats .= "|";
} else {
$formats = "";
- }
+ }
if(defined($$type_format{$_}{$type})) {
$formats .= $$type_format{$_}{$type};
}
@@ -885,7 +885,7 @@
my $ordinal;
while(defined($name = shift @name) &&
defined($module = shift @module) &&
- defined($ordinal = shift @ordinal))
+ defined($ordinal = shift @ordinal))
{
push @entries, [$name, $module, $ordinal];
}
@@ -936,17 +936,17 @@
@ordinal = split(/ & /, $ordinal);
}
}
-
+
my $name;
my $module;
my $ordinal;
while(defined($name = shift @name) &&
defined($module = shift @module) &&
- defined($ordinal = shift @ordinal))
+ defined($ordinal = shift @ordinal))
{
push @entries, [$name, $module, $ordinal];
}
-
+
return @entries;
}
