winapi_check: Fix support for .ocx API documentation.
The module name must include non-default extensions, for instance 'wshom.ocx'. Truncating the module name prevents later lookups from finding the API's spec file declaration. Signed-off-by: Francois Gouget <fgouget@free.fr> Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
parent
08cdea91ba
commit
5fec867694
|
@ -77,11 +77,10 @@ sub check_documentation($) {
|
||||||
my $found_name = 0;
|
my $found_name = 0;
|
||||||
my $found_ordinal = 0;
|
my $found_ordinal = 0;
|
||||||
|
|
||||||
$module =~ s/\.(acm|dll|drv|exe|ocx)$//; # FIXME: Kludge
|
|
||||||
$module = "kernel" if $module eq "krnl386"; # FIXME: Kludge
|
$module = "kernel" if $module eq "krnl386"; # FIXME: Kludge
|
||||||
|
|
||||||
foreach (split(/\n/, $documentation)) {
|
foreach (split(/\n/, $documentation)) {
|
||||||
if(/^(\s*)\*(\s*)(\@|\S+)(\s*)([\(\[])(\w+)\.(\@|\d+)([\)\]])/) {
|
if(/^(\s*)\*(\s*)(\@|\S+)(\s*)([\(\[])(\w+(?:\.\w+)?)\.(\@|\d+)([\)\]])/) {
|
||||||
my $external_name2 = $3;
|
my $external_name2 = $3;
|
||||||
my $module2 = $6;
|
my $module2 = $6;
|
||||||
my $ordinal2 = $7;
|
my $ordinal2 = $7;
|
||||||
|
|
Loading…
Reference in New Issue