mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-06 13:40:39 +00:00
winapi_extract: --spec-files has been broken for a long time and does not seem to be useful so remove it.
This commit is contained in:
parent
05a4d26c47
commit
0ab4df02d6
|
@ -45,14 +45,14 @@ use winapi_c_parser;
|
|||
use winapi_function;
|
||||
|
||||
use vars qw($win16api $win32api @winapis);
|
||||
if ($options->spec_files || $options->implemented || $options->stub_statistics || $options->winetest) {
|
||||
if ($options->implemented || $options->stub_statistics || $options->winetest) {
|
||||
require winapi;
|
||||
import winapi qw($win16api $win32api @winapis);
|
||||
}
|
||||
|
||||
my %module2entries;
|
||||
my %module2spec_file;
|
||||
if($options->spec_files || $options->winetest) {
|
||||
if($options->winetest) {
|
||||
local $_;
|
||||
|
||||
foreach my $spec_file (get_spec_files("winelib")) {
|
||||
|
@ -194,7 +194,7 @@ if($options->headers) {
|
|||
}
|
||||
|
||||
my @c_files = ();
|
||||
if($options->spec_files || $options->pseudo_implemented || $options->pseudo_stub_statistics) {
|
||||
if($options->pseudo_implemented || $options->pseudo_stub_statistics) {
|
||||
@c_files = $options->c_files;
|
||||
@c_files = files_skip(@c_files);
|
||||
@c_files = files_filter("winelib", @c_files);
|
||||
|
@ -299,7 +299,7 @@ foreach my $file (@h_files, @c_files) {
|
|||
$old_function->statements_line($function->statements_line);
|
||||
$old_function->statements($function->statements);
|
||||
|
||||
if($options->spec_files || $options->winetest) {
|
||||
if($options->winetest) {
|
||||
documentation_specifications($old_function);
|
||||
}
|
||||
|
||||
|
@ -445,108 +445,6 @@ sub output_function($$$$$) {
|
|||
}
|
||||
}
|
||||
|
||||
if($options->spec_files) {
|
||||
foreach my $winapi (@winapis) {
|
||||
my $type = $winapi->name;
|
||||
|
||||
if($type eq "win16" && !$options->win16) { next; }
|
||||
if($type eq "win32" && !$options->win32) { next; }
|
||||
|
||||
foreach my $module ($winapi->all_modules) {
|
||||
my $spec_file = $module2spec_file{$module};
|
||||
|
||||
if(!defined($spec_file) || !defined($type)) {
|
||||
$output->write("$module: doesn't exist\n");
|
||||
next;
|
||||
}
|
||||
|
||||
$spec_file .= "2";
|
||||
|
||||
$output->progress("$spec_file");
|
||||
open(OUT, "> $wine_dir/$spec_file") || die "Error: Can't open $wine_dir/$spec_file: $!\n";
|
||||
|
||||
if(exists($specifications{$module}{init})) {
|
||||
my $function = $specifications{$module}{init}{function};
|
||||
print OUT "init " . $function->internal_name . "\n";
|
||||
}
|
||||
print OUT "\n";
|
||||
|
||||
my %debug_channels;
|
||||
if(exists($specifications{$module}{init})) {
|
||||
my $function = $specifications{$module}{init}{function};
|
||||
foreach my $debug_channel (@{$function->debug_channels}) {
|
||||
$debug_channels{$debug_channel}++;
|
||||
}
|
||||
}
|
||||
foreach my $ordinal (sort {$a <=> $b} keys(%{$specifications{$module}{fixed}})) {
|
||||
my $function = $specifications{$module}{fixed}{$ordinal}{function};
|
||||
foreach my $debug_channel (@{$function->debug_channels}) {
|
||||
$debug_channels{$debug_channel}++;
|
||||
}
|
||||
}
|
||||
foreach my $name (sort(keys(%{$specifications{$module}{unfixed}}))) {
|
||||
my $function = $specifications{$module}{unfixed}{$name}{function};
|
||||
foreach my $debug_channel (@{$function->debug_channels}) {
|
||||
$debug_channels{$debug_channel}++;
|
||||
}
|
||||
}
|
||||
foreach my $name (sort(keys(%{$specifications{$module}{unknown}}))) {
|
||||
my $function = $specifications{$module}{unknown}{$name}{function};
|
||||
foreach my $debug_channel (@{$function->debug_channels}) {
|
||||
$debug_channels{$debug_channel}++;
|
||||
}
|
||||
}
|
||||
|
||||
my @debug_channels = sort(keys(%debug_channels));
|
||||
if($#debug_channels >= 0) {
|
||||
print OUT "debug_channels (" . join(" ", @debug_channels) . ")\n";
|
||||
print OUT "\n";
|
||||
}
|
||||
|
||||
my $empty = 1;
|
||||
|
||||
if(!$empty) {
|
||||
print OUT "\n";
|
||||
$empty = 1;
|
||||
}
|
||||
foreach my $external_name (sort(keys(%{$specifications{$module}{unknown}}))) {
|
||||
my $entry = $specifications{$module}{unknown}{$external_name};
|
||||
my $ordinal = $entry->{ordinal};
|
||||
my $function = $entry->{function};
|
||||
print OUT "# ";
|
||||
output_function(\*OUT, $type, $ordinal, $external_name, $function);
|
||||
$empty = 0;
|
||||
}
|
||||
|
||||
if(!$empty) {
|
||||
print OUT "\n";
|
||||
$empty = 1;
|
||||
}
|
||||
foreach my $ordinal (sort {$a <=> $b} keys(%{$specifications{$module}{fixed}})) {
|
||||
my $entry = $specifications{$module}{fixed}{$ordinal};
|
||||
my $external_name = $entry->{external_name};
|
||||
my $function = $entry->{function};
|
||||
output_function(\*OUT, $type, $ordinal, $external_name, $function);
|
||||
$empty = 0;
|
||||
}
|
||||
|
||||
if(!$empty) {
|
||||
print OUT "\n";
|
||||
$empty = 1;
|
||||
}
|
||||
foreach my $external_name (sort(keys(%{$specifications{$module}{unfixed}}))) {
|
||||
my $entry = $specifications{$module}{unfixed}{$external_name};
|
||||
my $ordinal = $entry->{ordinal};
|
||||
my $function = $entry->{function};
|
||||
output_function(\*OUT, $type, $ordinal, $external_name, $function);
|
||||
$empty = 0;
|
||||
}
|
||||
|
||||
close(OUT);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if($options->stub_statistics) {
|
||||
foreach my $winapi (@winapis) {
|
||||
my $type = $winapi->name;
|
||||
|
|
|
@ -46,7 +46,6 @@ my %options_long = (
|
|||
"implemented" => { default => 0, parent => "old", description => "implemented functions extraction" },
|
||||
"pseudo-implemented" => { default => 0, parent => "implemented", description => "pseudo implemented functions extraction" },
|
||||
"struct" => { default => 0, parent => "headers", description => "struct extraction" },
|
||||
"spec-files" => { default => 0, parent => "old", description => "spec files extraction" },
|
||||
"stub-statistics" => { default => 0, parent => "old", description => "stub statistics" },
|
||||
"pseudo-stub-statistics" => { default => 0, parent => "stub-statistics", description => "pseudo stub statistics" },
|
||||
"winetest" => { default => 0, parent => "old", description => "winetest extraction" },
|
||||
|
|
Loading…
Reference in a new issue