ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

winapi_check: Print the line number when an error or warning is found in the API files.

This commit is contained in:
Francois Gouget 2007-01-26 13:21:54 +01:00 committed by Alexandre Julliard
parent 6a45cd1bfc
commit 9b28bd0a3d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/winapi/winapi.pm
View File

@ -139,7 +139,9 @@ sub parse_api_file($$) {
open(IN, "< $winapi_dir/$file") || die "$winapi_dir/$file: $!\n"; open(IN, "< $winapi_dir/$file") || die "$winapi_dir/$file: $!\n";
$/ = "\n"; $/ = "\n";
my $linenum=0;
while(<IN>) { while(<IN>) {
$linenum++;
s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begin and end of line s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begin and end of line
s/^(.*?)\s*#.*$/$1/; # remove comments s/^(.*?)\s*#.*$/$1/; # remove comments
/^$/ && next; # skip empty lines /^$/ && next; # skip empty lines
@ -193,12 +195,12 @@ sub parse_api_file($$) {
if(!$forbidden) { if(!$forbidden) {
if(defined($module)) { if(defined($module)) {
if($$allowed_modules_unlimited{$type}) { if($$allowed_modules_unlimited{$type}) {
$output->write("$file: type ($type) already specified as an unlimited type\n"); $output->write("$file:$linenum: type ($type) already specified as an unlimited type\n");
} elsif(!$$allowed_modules{$type}{$module}) { } elsif(!$$allowed_modules{$type}{$module}) {
$$allowed_modules{$type}{$module} = 1; $$allowed_modules{$type}{$module} = 1;
$$allowed_modules_limited{$type} = 1; $$allowed_modules_limited{$type} = 1;
} else { } else {
$output->write("$file: type ($type) already specified\n"); $output->write("$file:$linenum: type ($type) already specified\n");
} }
} else { } else {
$$allowed_modules_unlimited{$type} = 1; $$allowed_modules_unlimited{$type} = 1;
@ -207,14 +209,14 @@ sub parse_api_file($$) {
$$allowed_modules_limited{$type} = 1; $$allowed_modules_limited{$type} = 1;
} }
if(defined($$translate_argument{$type}) && $$translate_argument{$type} ne $kind) { if(defined($$translate_argument{$type}) && $$translate_argument{$type} ne $kind) {
$output->write("$file: type ($type) respecified as different kind ($kind != $$translate_argument{$type})\n"); $output->write("$file:$linenum: type ($type) respecified as different kind ($kind != $$translate_argument{$type})\n");
} else { } else {
$$translate_argument{$type} = $kind; $$translate_argument{$type} = $kind;
} }
$$type_format{$module}{$type} = $format; $$type_format{$module}{$type} = $format;
} else { } else {
$output->write("$file: file must begin with %<type> statement\n"); $output->write("$file:$linenum: file must begin with %<type> statement\n");
exit 1; exit 1;
} }
} }