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_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 my $output = "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_spec_files {
 102     $output->progress("$wine_dir: searching for *.spec");
 103
 104     my @spec_files = map {
 105         s%^\./%%;
 106         s%^$wine_dir/%%;
 107         if(file_type($_) eq "winelib") {
 108             $_;
 109         } else {
 110             ();
 111         }
 112     } split(/\n/, `find $wine_dir -name \\*.spec`);
 113
 114     return @spec_files;
 115 }
 116
 117 1;