1 package winapi_options
;
5 sub parser_comma_list
{
8 if(defined($prefix) && $prefix eq "no") {
9 return { active
=> 0, filter
=> 0, hash
=> {} };
10 } elsif(defined($value)) {
12 for my $name (split /,/, $value) {
15 return { active
=> 1, filter
=> 1, hash
=> \
%names };
17 return { active
=> 1, filter
=> 0, hash
=> {} };
22 "debug" => { default => 0, description
=> "debug mode" },
23 "help" => { default => 0, description
=> "help mode" },
24 "verbose" => { default => 0, description
=> "verbose mode" },
26 "progress" => { default => 1, description
=> "show progress" },
28 "win16" => { default => 1, description
=> "Win16 checking" },
29 "win32" => { default => 1, description
=> "Win32 checking" },
31 "shared" => { default => 0, description
=> "show shared functions between Win16 and Win32" },
32 "shared-segmented" => { default => 0, description
=> "segmented shared functions between Win16 and Win32 checking" },
34 "config" => { default => 1, parent
=> "local", description
=> "check configuration include consistancy" },
35 "config-unnessary" => { default => 0, parent
=> "config", description
=> "check for unnessary #include \"config.h\"" },
37 "spec-mismatch" => { default => 0, description
=> "spec file mismatch checking" },
39 "local" => { default => 1, description
=> "local checking" },
41 default => { active
=> 1, filter
=> 0, hash
=> {} },
43 parser
=> \
&parser_comma_list
,
44 description
=> "module filter"
47 "argument" => { default => 1, parent
=> "local", description
=> "argument checking" },
48 "argument-count" => { default => 1, parent
=> "argument", description
=> "argument count checking" },
49 "argument-forbidden" => {
50 default => { active
=> 1, filter
=> 0, hash
=> {} },
52 parser
=> \
&parser_comma_list
,
53 description
=> "argument forbidden checking"
56 default => { active
=> 1, filter
=> 1, hash
=> { double
=> 1 } },
58 parser
=> \
&parser_comma_list
,
59 description
=> "argument kind checking"
61 "calling-convention" => { default => 1, parent
=> "local", description
=> "calling convention checking" },
62 "calling-convention-win16" => { default => 0, parent
=> "calling-convention", description
=> "calling convention checking (Win16)" },
63 "calling-convention-win32" => { default => 1, parent
=> "calling-convention", description
=> "calling convention checking (Win32)" },
64 "misplaced" => { default => 1, parent
=> "local", description
=> "check for misplaced functions" },
65 "statements" => { default => 0, parent
=> "local", description
=> "check for statements inconsistances" },
66 "cross-call" => { default => 0, parent
=> "statements", description
=> "check for cross calling functions" },
67 "cross-call-win32-win16" => {
68 default => 0, parent
=> "cross-call", description
=> "check for cross calls between win32 and win16"
70 "cross-call-unicode-ascii" => {
71 default => 0, parent
=> "cross-call", description
=> "check for cross calls between Unicode and ASCII"
73 "debug-messages" => { default => 0, parent
=> "statements", description
=> "check for debug messages inconsistances" },
78 description
=> "check for documentation inconsistances"
80 "documentation-pedantic" => {
82 parent
=> "documentation",
83 description
=> "be pendantic when checking for documentation inconsistances"
86 "documentation-arguments" => {
88 parent
=> "documentation",
89 description
=> "check for arguments documentation inconsistances\n"
91 "documentation-comment-indent" => {
93 parent
=> "documentation", description
=> "check for documentation comment indent inconsistances"
95 "documentation-comment-width" => {
97 parent
=> "documentation", description
=> "check for documentation comment width inconsistances"
99 "documentation-ordinal" => {
101 parent
=> "documentation",
102 description
=> "check for documentation ordinal inconsistances\n"
105 "prototype" => {default => 0, parent
=> ["local", "headers"], description
=> "prototype checking" },
106 "global" => { default => 1, description
=> "global checking" },
107 "declared" => { default => 1, parent
=> "global", description
=> "declared checking" },
108 "implemented" => { default => 0, parent
=> "local", description
=> "implemented checking" },
109 "implemented-win32" => { default => 0, parent
=> "implemented", description
=> "implemented as win32 checking" },
110 "include" => { default => 1, parent
=> "global", description
=> "include checking" },
111 "headers" => { default => 0, parent
=> "global", description
=> "headers checking" },
112 "headers-duplicated" => { default => 0, parent
=> "headers", description
=> "duplicated function declarations checking" },
113 "headers-misplaced" => { default => 0, parent
=> "headers", description
=> "misplaced function declarations checking" },
114 "stubs" => { default => 0, parent
=> "global", description
=> "stubs checking" }
117 my %short_options = (
125 my $class = ref($proto) || $proto;
127 bless ($self, $class);
129 my $output = \
${$self->{OUTPUT
}};
132 my $refarguments = shift;
133 my $wine_dir = shift;
135 $self->options_set("default");
137 my $c_files = \@
{$self->{C_FILES
}};
138 my $h_files = \@
{$self->{H_FILES
}};
139 my $module = \
${$self->{MODULE
}};
140 my $global = \
${$self->{GLOBAL
}};
144 if($wine_dir eq ".") {
150 while(defined($_ = shift @
$refarguments)) {
151 if(/^--(all|none)$/) {
152 $self->options_set("$1");
154 } elsif(/^-([^=]*)(=(.*))?$/) {
164 if($name =~ /^([^-].*)$/) {
165 $name = $short_options{$1};
167 $name =~ s/^-(.*)$/$1/;
171 if(defined($name) && $name =~ /^no-(.*)$/) {
174 if(defined($value)) {
175 $$output->write("options with prefix 'no' can't take parameters\n");
183 $option = $options{$name};
186 if(defined($option)) {
187 my $key = $$option{key
};
188 my $parser = $$option{parser
};
189 my $refvalue = \
${$self->{$key}};
192 if(defined($$option{parent
})) {
193 if(ref($$option{parent
}) eq "ARRAY") {
194 @parents = @
{$$option{parent
}};
196 @parents = $$option{parent
};
200 if(defined($parser)) {
201 $$refvalue = &$parser($prefix,$value);
203 if(defined($value)) {
205 } elsif(!defined($prefix)) {
212 if((ref($$refvalue) eq "HASH" && $$refvalue->{active
}) || $$refvalue) {
213 while($#parents >= 0) {
214 my @old_parents = @parents;
216 foreach my $parent (@old_parents) {
217 my $parentkey = $options{$parent}{key
};
218 my $refparentvalue = \
${$self->{$parentkey}};
220 $$refparentvalue = 1;
222 if(defined($options{$parent}{parent
})) {
223 if(ref($options{$parent}{parent
}) eq "ARRAY") {
224 push @parents, @
{$options{$parent}{parent
}};
226 push @parents, $options{$parent}{parent
};
236 if(/^--module-dlls$/) {
237 my @dirs = `cd dlls && find . -type d ! -name CVS`;
239 for my $dir (@dirs) {
241 $dir =~ s/^\.\/(.*)$/$1/;
245 $$module = { active
=> 1, filter
=> 1, hash
=> \
%names };
248 $$output->write("unknown option: $_\n");
253 $$output->write("$_: no such file or directory\n");
269 foreach my $file (@files) {
270 if($file =~ /\.c$/) {
271 push @c_files, $file;
272 } elsif($file =~ /\.h$/) {
273 push @h_files, $file;
279 if($#c_files == -1 && $#h_files == -1 &&
280 ($#paths == -1 || ($#paths == 0 && $paths[0] eq $wine_dir)))
283 push @h_files, "$wine_dir/include";
288 if($#paths != -1 || $#c_files != -1) {
289 my $c_command = "find " . join(" ", @paths, @c_files) . " -name \\*.c";
291 @
$c_files = sort(map {
293 if(defined($found{$_}) || /glue\.c|spec\.c$/) {
299 } split(/\n/, `$c_command`));
302 if($#h_files != -1) {
303 my $h_command = "find " . join(" ", @h_files) . " -name \\*.h";
306 @
$h_files = sort(map {
308 if(defined($found{$_})) {
314 } split(/\n/, `$h_command`));
326 for my $name (sort(keys(%options))) {
327 my $option = $options{$name};
330 $$option{key
} = $key;
331 my $refvalue = \
${$self->{$key}};
334 $$refvalue = $$option{default};
336 if($name !~ /^help|debug|verbose|module$/) {
337 if(ref($$refvalue) ne "HASH") {
340 $$refvalue = { active
=> 1, filter
=> 0, hash
=> {} };
344 if($name !~ /^help|debug|verbose|module$/) {
345 if(ref($$refvalue) ne "HASH") {
348 $$refvalue = { active
=> 0, filter
=> 0, hash
=> {} };
359 for my $name (sort(keys(%options))) {
360 if(length($name) > $maxname) {
361 $maxname = length($name);
365 print "usage: winapi-check [--help] [<files>]\n";
367 for my $name (sort(keys(%options))) {
368 my $option = $options{$name};
369 my $description = $$option{description
};
370 my $default = $$option{default};
371 my $current = ${$self->{$$option{key
}}};
373 my $value = $current;
376 if(ref($value) ne "HASH") {
378 $output = "--no-$name";
383 if($value->{active
}) {
384 $output = "--[no-]$name\[=<value>]";
386 $output = "--$name\[=<value>]";
391 for (0..(($maxname - length($name) + 17) - (length($output) - length($name) + 1))) { print " "; }
392 if(ref($value) ne "HASH") {
399 if($value->{active
}) {
405 if($default == $current) {
406 print "$description (default)\n";
408 print "$description\n";
416 my $name = $winapi_options::AUTOLOAD
;
417 $name =~ s/^.*::(.[^:]*)$/\U$1/;
419 my $refvalue = $self->{$name};
420 if(!defined($refvalue)) {
421 die "<internal>: winapi_options.pm: member $name does not exists\n";
424 if(ref($$refvalue) ne "HASH") {
427 return $$refvalue->{active
};
431 sub c_files
{ my $self = shift; return @
{$self->{C_FILES
}}; }
433 sub h_files
{ my $self = shift; return @
{$self->{H_FILES
}}; }
437 my $refvalue = $self->{MODULE
};
442 return $$refvalue->{active
} && (!$$refvalue->{filter
} || $$refvalue->{hash
}->{$name});
448 sub report_argument_forbidden
{
450 my $refargument_forbidden = $self->{ARGUMENT_FORBIDDEN
};
454 return $$refargument_forbidden->{active
} && (!$$refargument_forbidden->{filter
} || $$refargument_forbidden->{hash
}->{$type});
457 sub report_argument_kind
{
459 my $refargument_kind = $self->{ARGUMENT_KIND
};
463 return $$refargument_kind->{active
} && (!$$refargument_kind->{filter
} || $$refargument_kind->{hash
}->{$kind});