parent
3699ef77d4
commit
6d5299523c
|
@ -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
|
||||||
|
|
|
@ -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");
|
||||||
}
|
}
|
||||||
|
|
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue