tools/winapi_check/modules.pm

   1 package modules;
   2
   3 use strict;
   4
   5 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
   6 require Exporter;
   7
   8 @ISA = qw(Exporter);
   9 @EXPORT = qw();
  10 @EXPORT_OK = qw($modules);
  11
  12 use vars qw($modules);
  13
  14 sub new {
  15     my $proto = shift;
  16     my $class = ref($proto) || $proto;
  17     my $self  = {};
  18     bless ($self, $class);
  19
  20     my $options = \${$self->{OPTIONS}};
  21     my $output = \${$self->{OUTPUT}};
  22     my $spec_files = \%{$self->{SPEC_FILES}};
  23     my $spec_file2module = \%{$self->{SPEC_FILE2MODULE}};
  24
  25     $$options = shift;
  26     $$output = shift;
  27     my $wine_dir = shift;
  28     my $current_dir = shift;
  29     my $file_type = shift;
  30     my $module_file = shift;
  31
  32     $module_file =~ s/^\.\///;
  33
  34     my @all_spec_files = map {
  35         s/^.\/(.*)$/$1/;
  36         if(&$file_type($_) eq "winelib") {
  37             $_;
  38         } else {
  39             ();
  40         }
  41     } split(/\n/, `find $wine_dir -name \\*.spec`);
  42
  43     my %all_spec_files;
  44     foreach my $file (@all_spec_files) {
  45         $all_spec_files{$file}++ ;
  46     }
  47
  48     if($$options->progress) {
  49         $$output->progress("modules.dat");
  50     }
  51
  52     my $allowed_dir;
  53     my $spec_file;
  54
  55     open(IN, "< $module_file");
  56     local $/ = "\n";
  57     while(<IN>) {
  58         s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begining and end of line
  59         s/^(.*?)\s*#.*$/$1/;  # remove comments
  60         /^$/ && next;         # skip empty lines
  61
  62         if(/^%\s+(.*?)$/) {
  63             $spec_file = $1;
  64
  65             if(!-f "$wine_dir/$spec_file") {
  66                 $$output->write("modules.dat: $spec_file: file ($spec_file) doesn't exist or is no file\n");
  67             }
  68
  69             if($wine_dir eq ".") {
  70                 $all_spec_files{$spec_file}--;
  71             } else {
  72                 $all_spec_files{"$wine_dir/$spec_file"}--;
  73             }
  74             $$spec_files{""}{$spec_file}++; # FIXME: Kludge
  75             next;
  76         } else {
  77             $allowed_dir = $1;
  78         }
  79         $$spec_files{$allowed_dir}{$spec_file}++;
  80
  81         if(!-d "$wine_dir/$allowed_dir") {
  82             $$output->write("modules.dat: $spec_file: directory ($allowed_dir) doesn't exist or is no directory\n");
  83         }
  84     }
  85     close(IN);
  86
  87     foreach my $spec_file (sort(keys(%all_spec_files))) {
  88         if($all_spec_files{$spec_file} > 0) {
  89             $$output->write("modules.dat: $spec_file: exists but is not specified\n");
  90         }
  91     }
  92
  93     $modules = $self;
  94
  95     return $self;
  96 }
  97
  98 sub spec_file_module {
  99     my $self = shift;
 100
 101     my $spec_file2module = \%{$self->{SPEC_FILE2MODULE}};
 102     my $module2spec_file = \%{$self->{MODULE2SPEC_FILE}};
 103
 104     my $spec_file = shift;
 105     $spec_file =~ s/^\.\///;
 106
 107     my $module = shift;
 108
 109     $$spec_file2module{$spec_file}{$module}++;
 110     $$module2spec_file{$module}{$spec_file}++;
 111 }
 112
 113 sub is_allowed_module_in_file {
 114     my $self = shift;
 115
 116     my $spec_files = \%{$self->{SPEC_FILES}};
 117     my $spec_file2module = \%{$self->{SPEC_FILE2MODULE}};
 118
 119     my $module = shift;
 120     my $file = shift;
 121     $file =~ s/^\.\///;
 122
 123     my $dir = $file;
 124     $dir =~ s/\/[^\/]*$//;
 125
 126     foreach my $spec_file (sort(keys(%{$$spec_files{$dir}}))) {
 127         if($$spec_file2module{$spec_file}{$module}) {
 128             return 1;
 129         }
 130     }
 131
 132     return 0;
 133 }
 134
 135 sub allowed_modules_in_file {
 136     my $self = shift;
 137
 138     my $spec_files = \%{$self->{SPEC_FILES}};
 139     my $spec_file2module = \%{$self->{SPEC_FILE2MODULE}};
 140
 141     my $file = shift;
 142     $file =~ s/^\.\///;
 143
 144     my $dir = $file;
 145     $dir =~ s/\/[^\/]*$//;
 146
 147     my %allowed_modules = ();
 148     foreach my $spec_file (sort(keys(%{$$spec_files{$dir}}))) {
 149         foreach my $module (sort(keys(%{$$spec_file2module{$spec_file}}))) {
 150             $allowed_modules{$module}++;
 151         }
 152     }
 153
 154     return join(" & ", sort(keys(%allowed_modules)));
 155 }
 156
 157 sub allowed_spec_files {
 158     my $self = shift;
 159
 160     my $options = \${$self->{OPTIONS}};
 161     my $output = \${$self->{OUTPUT}};
 162     my $spec_files = \%{$self->{SPEC_FILES}};
 163
 164     my $wine_dir = shift;
 165     my $current_dir = shift;
 166
 167     my @dirs = map {
 168         s/^\.\/(.*)$/$1/;
 169         if(/^\.$/) {
 170             $current_dir;
 171         } else {
 172             if($current_dir ne ".") {
 173                 "$current_dir/$_";
 174             } else {
 175                 $_;
 176             }
 177         }
 178     } split(/\n/, `find . -type d ! -name CVS`);
 179
 180     my %allowed_spec_files = ();
 181     foreach my $dir (sort(@dirs)) {
 182         foreach my $spec_file (sort(keys(%{$$spec_files{$dir}}))) {
 183             $allowed_spec_files{$spec_file}++;
 184         }
 185     }
 186
 187     return sort(keys(%allowed_spec_files));
 188 }
 189
 190 sub found_module_in_dir {
 191     my $self = shift;
 192
 193     my $module = shift;
 194     my $dir = shift;
 195
 196     my $used_module_dirs = \%{$self->{USED_MODULE_DIRS}};
 197
 198     $$used_module_dirs{$module}{$dir}++;
 199 }
 200
 201 sub global_report {
 202     my $self = shift;
 203
 204     my $output = \${$self->{OUTPUT}};
 205     my $spec_files = \%{$self->{SPEC_FILES}};
 206     my $spec_file2module = \%{$self->{SPEC_FILE2MODULE}};
 207     my $used_module_dirs = \%{$self->{USED_MODULE_DIRS}};
 208
 209     my @messages;
 210     foreach my $dir (sort(keys(%$spec_files))) {
 211         if($dir eq "") { next; }
 212         foreach my $spec_file (sort(keys(%{$$spec_files{$dir}}))) {
 213             foreach my $module (sort(keys(%{$$spec_file2module{$spec_file}}))) {
 214                 if(!$$used_module_dirs{$module}{$dir}) {
 215                     push @messages, "modules.dat: $spec_file: directory ($dir) is not used\n";
 216                 }
 217             }
 218         }
 219     }
 220
 221     foreach my $message (sort(@messages)) {
 222         $$output->write($message);
 223     }
 224 }
 225
 226 1;