2002-03-10 00:29:33 +01:00
|
|
|
#
|
|
|
|
# Copyright 1999, 2000, 2001 Patrik Stridvall
|
|
|
|
#
|
|
|
|
# This library is free software; you can redistribute it and/or
|
|
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
|
|
# License as published by the Free Software Foundation; either
|
|
|
|
# version 2.1 of the License, or (at your option) any later version.
|
|
|
|
#
|
|
|
|
# This library is distributed in the hope that it will be useful,
|
|
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
# Lesser General Public License for more details.
|
|
|
|
#
|
|
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
|
|
# License along with this library; if not, write to the Free Software
|
|
|
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
#
|
|
|
|
|
1999-09-23 17:14:20 +02:00
|
|
|
package nativeapi;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
2001-07-14 02:48:41 +02:00
|
|
|
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
|
|
|
require Exporter;
|
|
|
|
|
|
|
|
@ISA = qw(Exporter);
|
|
|
|
@EXPORT = qw();
|
|
|
|
@EXPORT_OK = qw($nativeapi);
|
|
|
|
|
|
|
|
use vars qw($nativeapi);
|
|
|
|
|
2001-07-26 23:42:12 +02:00
|
|
|
use config qw(&file_type $current_dir $wine_dir $winapi_check_dir);
|
|
|
|
use options qw($options);
|
|
|
|
use output qw($output);
|
|
|
|
|
|
|
|
$nativeapi = 'nativeapi'->new;
|
|
|
|
|
1999-09-23 17:14:20 +02:00
|
|
|
sub new {
|
|
|
|
my $proto = shift;
|
|
|
|
my $class = ref($proto) || $proto;
|
|
|
|
my $self = {};
|
|
|
|
bless ($self, $class);
|
|
|
|
|
|
|
|
my $functions = \%{$self->{FUNCTIONS}};
|
1999-10-24 23:45:39 +02:00
|
|
|
my $conditionals = \%{$self->{CONDITIONALS}};
|
|
|
|
my $conditional_headers = \%{$self->{CONDITIONAL_HEADERS}};
|
1999-10-31 03:08:38 +01:00
|
|
|
my $conditional_functions = \%{$self->{CONDITIONAL_FUNCTIONS}};
|
1999-09-23 17:14:20 +02:00
|
|
|
|
2001-07-26 23:42:12 +02:00
|
|
|
my $api_file = "$winapi_check_dir/nativeapi.dat";
|
2002-03-11 02:17:04 +01:00
|
|
|
my $configure_ac_file = "$wine_dir/configure.ac";
|
2001-07-26 23:42:12 +02:00
|
|
|
my $config_h_in_file = "$wine_dir/include/config.h.in";
|
1999-09-23 17:14:20 +02:00
|
|
|
|
1999-11-08 00:35:03 +01:00
|
|
|
$api_file =~ s/^\.\///;
|
2002-03-11 02:17:04 +01:00
|
|
|
$configure_ac_file =~ s/^\.\///;
|
1999-11-08 00:35:03 +01:00
|
|
|
$config_h_in_file =~ s/^\.\///;
|
|
|
|
|
2001-08-22 20:09:15 +02:00
|
|
|
$output->progress("$api_file");
|
1999-10-31 03:08:38 +01:00
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
open(IN, "< $api_file");
|
2000-04-15 22:39:55 +02:00
|
|
|
local $/ = "\n";
|
1999-09-23 17:14:20 +02:00
|
|
|
while(<IN>) {
|
2001-07-14 02:48:41 +02:00
|
|
|
s/^\s*(.*?)\s*$/$1/; # remove whitespace at begin and end of line
|
|
|
|
s/^(.*?)\s*#.*$/$1/; # remove comments
|
|
|
|
/^$/ && next; # skip empty lines
|
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
$$functions{$_}++;
|
|
|
|
}
|
|
|
|
close(IN);
|
|
|
|
|
2002-03-11 02:17:04 +01:00
|
|
|
$output->progress("$configure_ac_file");
|
1999-10-31 03:08:38 +01:00
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
my $again = 0;
|
2002-03-11 02:17:04 +01:00
|
|
|
open(IN, "< $configure_ac_file");
|
1999-10-24 23:45:39 +02:00
|
|
|
local $/ = "\n";
|
|
|
|
while($again || (defined($_ = <IN>))) {
|
|
|
|
$again = 0;
|
|
|
|
chomp;
|
2000-09-04 22:20:47 +02:00
|
|
|
if(/^(.*?)\\$/) {
|
|
|
|
my $current = $1;
|
|
|
|
my $next = <IN>;
|
|
|
|
if(defined($next)) {
|
|
|
|
# remove trailing whitespace
|
|
|
|
$current =~ s/\s+$//;
|
|
|
|
|
|
|
|
# remove leading whitespace
|
|
|
|
$next =~ s/^\s+//;
|
|
|
|
|
|
|
|
$_ = $current . " " . $next;
|
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
$again = 1;
|
|
|
|
next;
|
|
|
|
}
|
|
|
|
}
|
2000-09-04 22:20:47 +02:00
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
# remove leading and trailing whitespace
|
|
|
|
s/^\s*(.*?)\s*$/$1/;
|
|
|
|
|
2000-09-04 22:20:47 +02:00
|
|
|
# skip emty lines
|
|
|
|
if(/^$/) { next; }
|
|
|
|
|
|
|
|
# skip comments
|
|
|
|
if(/^dnl/) { next; }
|
|
|
|
|
2001-07-02 03:21:48 +02:00
|
|
|
if(/^AC_CHECK_HEADERS\(\s*([^,\)]*)(?:,|\))?/) {
|
|
|
|
foreach my $name (split(/\s+/, $1)) {
|
1999-10-31 03:08:38 +01:00
|
|
|
$$conditional_headers{$name}++;
|
|
|
|
}
|
2001-07-02 03:21:48 +02:00
|
|
|
} elsif(/^AC_CHECK_FUNCS\(\s*([^,\)]*)(?:,|\))?/) {
|
|
|
|
foreach my $name (split(/\s+/, $1)) {
|
1999-10-31 03:08:38 +01:00
|
|
|
$$conditional_functions{$name}++;
|
1999-10-24 23:45:39 +02:00
|
|
|
}
|
|
|
|
} elsif(/^AC_FUNC_ALLOCA/) {
|
|
|
|
$$conditional_headers{"alloca.h"}++;
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
close(IN);
|
|
|
|
|
2001-08-22 20:09:15 +02:00
|
|
|
$output->progress("$config_h_in_file");
|
1999-10-31 03:08:38 +01:00
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
open(IN, "< $config_h_in_file");
|
|
|
|
local $/ = "\n";
|
|
|
|
while(<IN>) {
|
2000-09-04 22:20:47 +02:00
|
|
|
# remove leading and trailing whitespace
|
|
|
|
s/^\s*(.*?)\s*$/$1/;
|
|
|
|
|
|
|
|
# skip emty lines
|
|
|
|
if(/^$/) { next; }
|
|
|
|
|
|
|
|
if(/^\#undef\s+(\S+)$/) {
|
1999-10-24 23:45:39 +02:00
|
|
|
$$conditionals{$1}++;
|
|
|
|
}
|
1999-09-23 17:14:20 +02:00
|
|
|
}
|
|
|
|
close(IN);
|
|
|
|
|
2001-07-14 02:48:41 +02:00
|
|
|
$nativeapi = $self;
|
|
|
|
|
1999-09-23 17:14:20 +02:00
|
|
|
return $self;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub is_function {
|
|
|
|
my $self = shift;
|
|
|
|
my $functions = \%{$self->{FUNCTIONS}};
|
|
|
|
|
|
|
|
my $name = shift;
|
|
|
|
|
|
|
|
return $$functions{$name};
|
|
|
|
}
|
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
sub is_conditional {
|
|
|
|
my $self = shift;
|
|
|
|
my $conditionals = \%{$self->{CONDITIONALS}};
|
|
|
|
|
|
|
|
my $name = shift;
|
|
|
|
|
|
|
|
return $$conditionals{$name};
|
|
|
|
}
|
|
|
|
|
2000-09-04 22:20:47 +02:00
|
|
|
sub found_conditional {
|
|
|
|
my $self = shift;
|
|
|
|
my $conditional_found = \%{$self->{CONDITIONAL_FOUND}};
|
|
|
|
|
|
|
|
my $name = shift;
|
|
|
|
|
|
|
|
$$conditional_found{$name}++;
|
|
|
|
}
|
|
|
|
|
1999-10-24 23:45:39 +02:00
|
|
|
sub is_conditional_header {
|
|
|
|
my $self = shift;
|
|
|
|
my $conditional_headers = \%{$self->{CONDITIONAL_HEADERS}};
|
|
|
|
|
|
|
|
my $name = shift;
|
|
|
|
|
|
|
|
return $$conditional_headers{$name};
|
|
|
|
}
|
|
|
|
|
1999-10-31 03:08:38 +01:00
|
|
|
sub is_conditional_function {
|
|
|
|
my $self = shift;
|
|
|
|
my $conditional_functions = \%{$self->{CONDITIONAL_FUNCTIONS}};
|
|
|
|
|
|
|
|
my $name = shift;
|
|
|
|
|
|
|
|
return $$conditional_functions{$name};
|
|
|
|
}
|
|
|
|
|
2000-09-04 22:20:47 +02:00
|
|
|
sub global_report {
|
|
|
|
my $self = shift;
|
|
|
|
|
|
|
|
my $output = \${$self->{OUTPUT}};
|
|
|
|
my $conditional_found = \%{$self->{CONDITIONAL_FOUND}};
|
|
|
|
my $conditionals = \%{$self->{CONDITIONALS}};
|
|
|
|
|
|
|
|
my @messages;
|
|
|
|
foreach my $name (sort(keys(%$conditionals))) {
|
|
|
|
if($name =~ /^const|inline|size_t$/) { next; }
|
|
|
|
|
|
|
|
if(0 && !$$conditional_found{$name}) {
|
|
|
|
push @messages, "config.h.in: conditional $name not used\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
foreach my $message (sort(@messages)) {
|
2001-07-26 23:42:12 +02:00
|
|
|
$output->write($message);
|
2000-09-04 22:20:47 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1999-09-23 17:14:20 +02:00
|
|
|
1;
|