git.oblomov.eu Git - wine/blob - tools/winapi_check/nativeapi.pm

   1 #
   2 # Copyright 1999, 2000, 2001 Patrik Stridvall
   3 #
   4 # This library is free software; you can redistribute it and/or
   5 # modify it under the terms of the GNU Lesser General Public
   6 # License as published by the Free Software Foundation; either
   7 # version 2.1 of the License, or (at your option) any later version.
   8 #
   9 # This library is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 # Lesser General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU Lesser General Public
  15 # License along with this library; if not, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17 #
  18
  19 package nativeapi;
  20
  21 use strict;
  22
  23 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  24 require Exporter;
  25
  26 @ISA = qw(Exporter);
  27 @EXPORT = qw();
  28 @EXPORT_OK = qw($nativeapi);
  29
  30 use vars qw($nativeapi);
  31
  32 use config qw(&file_type $current_dir $wine_dir $winapi_check_dir);
  33 use options qw($options);
  34 use output qw($output);
  35
  36 $nativeapi = 'nativeapi'->new;
  37
  38 sub new {
  39     my $proto = shift;
  40     my $class = ref($proto) || $proto;
  41     my $self  = {};
  42     bless ($self, $class);
  43
  44     my $functions = \%{$self->{FUNCTIONS}};
  45     my $conditionals = \%{$self->{CONDITIONALS}};
  46     my $conditional_headers = \%{$self->{CONDITIONAL_HEADERS}};
  47     my $conditional_functions = \%{$self->{CONDITIONAL_FUNCTIONS}};
  48
  49     my $api_file = "$winapi_check_dir/nativeapi.dat";
  50     my $configure_ac_file = "$wine_dir/configure.ac";
  51     my $config_h_in_file = "$wine_dir/include/config.h.in";
  52
  53     $api_file =~ s/^\.\///;
  54     $configure_ac_file =~ s/^\.\///;
  55     $config_h_in_file =~ s/^\.\///;
  56
  57
  58     $$conditional_headers{"config.h"}++;
  59
  60     $output->progress("$api_file");
  61
  62     open(IN, "< $api_file");
  63     local $/ = "\n";
  64     while(<IN>) {
  65         s/^\s*(.*?)\s*$/$1/; # remove whitespace at begin and end of line
  66         s/^(.*?)\s*#.*$/$1/; # remove comments
  67         /^$/ && next;        # skip empty lines
  68
  69         $$functions{$_}++;
  70     }
  71     close(IN);
  72
  73     $output->progress("$configure_ac_file");
  74
  75     my $again = 0;
  76     open(IN, "< $configure_ac_file");
  77     local $/ = "\n";
  78     while($again || (defined($_ = <IN>))) {
  79         $again = 0;
  80         chomp;
  81         if(/^(.*?)\\$/) {
  82             my $current = $1;
  83             my $next = <IN>;
  84             if(defined($next)) {
  85                 # remove trailing whitespace
  86                 $current =~ s/\s+$//;
  87
  88                 # remove leading whitespace
  89                 $next =~ s/^\s+//;
  90
  91                 $_ = $current . " " . $next;
  92
  93                 $again = 1;
  94                 next;
  95             }
  96         }
  97
  98         # remove leading and trailing whitespace
  99         s/^\s*(.*?)\s*$/$1/;
 100
 101         # skip emty lines
 102         if(/^$/) { next; }
 103
 104         # skip comments
 105         if(/^dnl/) { next; }
 106
 107         if(/AC_CHECK_HEADERS\(\s*([^,\)]*)(?:,|\))?/) {
 108             my $headers = $1;
 109             $headers =~ s/^\s*\[\s*(.*?)\s*\]\s*$/$1/;
 110             foreach my $name (split(/\s+/, $headers)) {
 111                 $$conditional_headers{$name}++;
 112             }
 113         } elsif(/AC_CHECK_FUNCS\(\s*([^,\)]*)(?:,|\))?/) {
 114             my $funcs = $1;
 115             $funcs =~ s/^\s*\[\s*(.*?)\s*\]\s*$/$1/;
 116             foreach my $name (split(/\s+/, $funcs)) {
 117                 $$conditional_functions{$name}++;
 118             }
 119         } elsif(/AC_FUNC_ALLOCA/) {
 120             $$conditional_headers{"alloca.h"}++;
 121         } elsif (/AC_DEFINE\(\s*HAVE_(.*?)_H/) {
 122             my $name = lc($1);
 123             $name =~ s/_/\//;
 124             $name .= ".h";
 125
 126             next if $name =~ m%correct/%;
 127
 128             $$conditional_headers{$name}++;
 129         }
 130
 131     }
 132     close(IN);
 133
 134     $output->progress("$config_h_in_file");
 135
 136     open(IN, "< $config_h_in_file");
 137     local $/ = "\n";
 138     while(<IN>) {
 139         # remove leading and trailing whitespace
 140         s/^\s*(.*?)\s*$/$1/;
 141
 142         # skip emty lines
 143         if(/^$/) { next; }
 144
 145         if(/^\#undef\s+(\S+)$/) {
 146             $$conditionals{$1}++;
 147         }
 148     }
 149     close(IN);
 150
 151     $nativeapi = $self;
 152
 153     return $self;
 154 }
 155
 156 sub is_function {
 157     my $self = shift;
 158     my $functions = \%{$self->{FUNCTIONS}};
 159
 160     my $name = shift;
 161
 162     return ($$functions{$name} || 0);
 163 }
 164
 165 sub is_conditional {
 166     my $self = shift;
 167     my $conditionals = \%{$self->{CONDITIONALS}};
 168
 169     my $name = shift;
 170
 171     return ($$conditionals{$name} || 0);
 172 }
 173
 174 sub found_conditional {
 175     my $self = shift;
 176     my $conditional_found = \%{$self->{CONDITIONAL_FOUND}};
 177
 178     my $name = shift;
 179
 180     $$conditional_found{$name}++;
 181 }
 182
 183 sub is_conditional_header {
 184     my $self = shift;
 185     my $conditional_headers = \%{$self->{CONDITIONAL_HEADERS}};
 186
 187     my $name = shift;
 188
 189     return ($$conditional_headers{$name} || 0);
 190 }
 191
 192 sub is_conditional_function {
 193     my $self = shift;
 194     my $conditional_functions = \%{$self->{CONDITIONAL_FUNCTIONS}};
 195
 196     my $name = shift;
 197
 198     return ($$conditional_functions{$name} || 0);
 199 }
 200
 201 sub global_report {
 202     my $self = shift;
 203
 204     my $output = \${$self->{OUTPUT}};
 205     my $conditional_found = \%{$self->{CONDITIONAL_FOUND}};
 206     my $conditionals = \%{$self->{CONDITIONALS}};
 207
 208     my @messages;
 209     foreach my $name (sort(keys(%$conditionals))) {
 210         if($name =~ /^const|inline|size_t$/) { next; }
 211
 212         if(0 && !$$conditional_found{$name}) {
 213             push @messages, "config.h.in: conditional $name not used\n";
 214         }
 215     }
 216
 217     foreach my $message (sort(@messages)) {
 218         $output->write($message);
 219     }
 220 }
 221
 222 1;