- Updated the API files.

- Minor bug fixes
This commit is contained in:
Patrik Stridvall 2000-03-28 19:29:13 +00:00 committed by Alexandre Julliard
parent 3699ef77d4
commit 6d5299523c
3 changed files with 9 additions and 9 deletions

View File

@ -94,7 +94,7 @@ LPMODULEENTRY
LPOVERLAPPED LPOVERLAPPED
LPOVERLAPPED_COMPLETION_ROUTINE LPOVERLAPPED_COMPLETION_ROUTINE
LPPROCESSENTRY LPPROCESSENTRY
LPPROCESS_HEAP_ENTRY * LPPROCESS_HEAP_ENTRY
LPPROCESS_INFORMATION LPPROCESS_INFORMATION
LPPROGRESS_ROUTINE LPPROGRESS_ROUTINE
LPSECURITY_ATTRIBUTES LPSECURITY_ATTRIBUTES

View File

@ -255,13 +255,13 @@ foreach my $file ($options->files) {
} }
$name2 = $name1; $name2 = $name1;
$name2 =~ s/([AW])$/16$1/; # $name2 =~ s/([AW])$/16$1/;
$name3 = $name1; $name3 = $name1;
$name3 =~ s/16(([AW])?)$/$1/; $name3 =~ s/16(([AW])?)$/$1/;
$name4 = $name1; $name4 = $name1;
$name4 =~ s/^(.*?)(?:16)?$/\U$1\E/; # $name4 =~ s/^(.*?)(?:16)?$/\U$1\E/;
$name5 = $name1; $name5 = $name1;
$name5 = s/^(.*?)16_fn(.*?)$/$116_$2/; $name5 = s/^(.*?)16_fn(.*?)$/$116_$2/;
@ -274,10 +274,10 @@ foreach my $file ($options->files) {
} }
$name2 = $name1; $name2 = $name1;
$name2 =~ s/([AW])$/32$1/; # $name2 =~ s/([AW])$/32$1/;
$name3 = $name1; $name3 = $name1;
$name3 =~ s/32(([AW])?)$/$1/; # $name3 =~ s/32(([AW])?)$/$1/;
$name4 = $name1; $name4 = $name1;
$name4 =~ s/AW$//; $name4 =~ s/AW$//;
@ -301,7 +301,7 @@ foreach my $file ($options->files) {
$name5 = $name1; $name5 = $name1;
} }
if($name !~ /^SMapLS|SUnMapLS/ && $documentation !~ /($name|$name1|$name2|$name3|$name4|$name5)/) { if($name !~ /^SMapLS|SUnMapLS/ && $documentation !~ /\b($name|$name1|$name2|$name3|$name4|$name5)\b/) {
$output->write("$file: $name: \\\n"); $output->write("$file: $name: \\\n");
$output->write("$documentation\n"); $output->write("$documentation\n");
} }

View File

@ -59,7 +59,7 @@ my %options = (
"calling-convention" => { default => 0, parent => "local", description => "calling convention checking" }, "calling-convention" => { default => 0, parent => "local", description => "calling convention checking" },
"misplaced" => { default => 0, parent => "local", description => "check for misplaced functions" }, "misplaced" => { default => 0, parent => "local", description => "check for misplaced functions" },
"cross-call" => { default => 0, parent => "local", description => "check for cross calling functions" }, "cross-call" => { default => 0, parent => "local", description => "check for cross calling functions" },
"documentation" => { default => 0, parent => "local", description => "check for documentation inconsistances\n" }, "documentation" => { default => 1, parent => "local", description => "check for documentation inconsistances\n" },
"global" => { default => 1, description => "global checking" }, "global" => { default => 1, description => "global checking" },
"declared" => { default => 1, parent => "global", description => "declared checking" }, "declared" => { default => 1, parent => "global", description => "declared checking" },
@ -173,14 +173,14 @@ sub new {
$paths = join(" ",@$files); $paths = join(" ",@$files);
} }
@$files = map { @$files = sort(map {
s/^.\/(.*)$/$1/; s/^.\/(.*)$/$1/;
if(!/spec\.c$/) { if(!/spec\.c$/) {
$_; $_;
} else { } else {
(); ();
} }
} split(/\n/, `find $paths -name \\*.c`); } split(/\n/, `find $paths -name \\*.c`));
return $self; return $self;
} }