tools/winapi/config.pm

   1 package config;
   2
   3 use strict;
   4
   5 use setup qw($current_dir $wine_dir $winapi_dir $winapi_check_dir);
   6
   7 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
   8 require Exporter;
   9
  10 @ISA = qw(Exporter);
  11 @EXPORT = qw(
  12     &file_absolutize &file_normalize
  13     &file_type &files_filter
  14     &file_skip &files_skip
  15     &get_c_files &get_h_files &get_spec_files
  16 );
  17 @EXPORT_OK = qw(
  18     $current_dir $wine_dir $winapi_dir $winapi_check_dir
  19 );
  20
  21 use vars qw($current_dir $wine_dir $winapi_dir $winapi_check_dir);
  22
  23 use output qw($output);
  24
  25 sub file_type {
  26     local $_ = shift;
  27
  28     $_ = file_absolutize($_);
  29
  30     m%^(?:libtest|rc|server|tests|tools)/% && return "";
  31     m%^(?:programs|debugger|miscemu)/% && return "wineapp";
  32     m%^(?:library|tsx11|unicode)/% && return "library";
  33     m%^windows/x11drv/wineclipsrv.c% && return "application";
  34
  35     return "winelib";
  36 }
  37
  38 sub files_filter {
  39     my $type = shift;
  40
  41     my @files;
  42     foreach my $file (@_) {
  43         if(file_type($file) eq $type) {
  44             push @files, $file;
  45         }
  46     }
  47
  48     return @files;
  49 }
  50
  51 sub file_skip {
  52     local $_ = shift;
  53
  54     $_ = file_absolutize($_);
  55
  56     m%^(?:libtest|programs|rc|server|tests|tools)/% && return 1;
  57     m%^(?:debugger|miscemu|tsx11|server|unicode)/% && return 1;
  58     m%^dlls/wineps/data/% && return 1;
  59     m%^windows/x11drv/wineclipsrv.c% && return 1;
  60     m%^dlls/winmm/wineoss/midipatch.c% && return 1;
  61
  62     return 0;
  63 }
  64
  65 sub files_skip {
  66     my @files;
  67     foreach my $file (@_) {
  68         if(!file_skip($file)) {
  69             push @files, $file;
  70         }
  71     }
  72
  73     return @files;
  74 }
  75
  76 sub file_absolutize {
  77     local $_ = shift;
  78
  79     $_ = file_normalize($_);
  80     if(!s%^$wine_dir/%%) {
  81         $_ = "$current_dir/$_";
  82     }
  83     s%^\./%%;
  84
  85     return $_;
  86 }
  87
  88 sub file_normalize {
  89     local $_ = shift;
  90
  91     foreach my $dir (split(m%/%, $current_dir)) {
  92         s%^(\.\./)*\.\./$dir/%%;
  93         if(defined($1)) {
  94             $_ = "$1$_";
  95         }
  96     }
  97
  98     return $_;
  99 }
 100
 101 sub _get_files {
 102     my $extension = shift;
 103     my $type = shift;
 104
 105     $output->progress("$wine_dir: searching for *.$extension");
 106
 107     my @files = map {
 108         s%^\./%%;
 109         s%^$wine_dir/%%;
 110         if(file_type($_) eq $type) {
 111             $_;
 112         } else {
 113             ();
 114         }
 115     } split(/\n/, `find $wine_dir -name \\*.$extension`);
 116
 117     return @files;
 118 }
 119
 120 sub get_c_files { return _get_files("c", @_); }
 121 sub get_h_files { return _get_files("h", @_); }
 122 sub get_spec_files { return _get_files("spec", @_); }
 123
 124 1;