Merged all API files into two files (Win16/Win32).
diff --git a/tools/winapi_check/winapi_documentation.pm b/tools/winapi_check/winapi_documentation.pm
index 837ff9f..cc6d868 100644
--- a/tools/winapi_check/winapi_documentation.pm
+++ b/tools/winapi_check/winapi_documentation.pm
@@ -76,6 +76,8 @@
{
my $found_name = 0;
my $found_ordinal = 0;
+
+ $module =~ s/\.(acm|dll|drv|exe|ocx)$//; # FIXME: Kludge
foreach (split(/\n/, $documentation)) {
if(/^(\s*)\*(\s*)(\@|\S+)(\s*)([\(\[])(\w+)\.(\@|\d+)([\)\]])/) {
my $external_name2 = $3;
@@ -120,12 +122,19 @@
my $module = $2;
my $ordinal = $3;
+ if(!$options->documentation_pedantic && $ordinal ne "@") {
+ $ordinal = int($ordinal);
+ }
+
my $found = 0;
foreach my $entry2 (winapi::get_all_module_internal_ordinal($internal_name)) {
(my $external_name2, my $module2, my $ordinal2) = @$entry2;
+ my $_module2 = $module2;
+ $_module2 =~ s/\.(acm|dll|drv|exe|ocx)$//; # FIXME: Kludge
+
if($external_name eq $external_name2 &&
- lc($module) eq $module2 &&
+ lc($module) eq $_module2 &&
$ordinal eq $ordinal2 &&
($external_name2 eq "@" ||
($win16api->is_module($module2) && !$win16api->is_function_stub_in_module($module2, $external_name2)) ||
@@ -133,6 +142,7 @@
$modules->is_allowed_module_in_file($module2, "$current_dir/$file"))
{
$found = 1;
+ last;
}
}
if(!$found) {
