tools/winapi/make_filter

   1 #!/usr/bin/perl
   2 #
   3 # Copyright 1999, 2000, 2001 Patrik Stridvall
   4 #
   5 # This library is free software; you can redistribute it and/or
   6 # modify it under the terms of the GNU Lesser General Public
   7 # License as published by the Free Software Foundation; either
   8 # version 2.1 of the License, or (at your option) any later version.
   9 #
  10 # This library is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 # Lesser General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU Lesser General Public
  16 # License along with this library; if not, write to the Free Software
  17 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18 #
  19
  20 use strict;
  21 use warnings 'all';
  22
  23 BEGIN {
  24     $0 =~ m%^(.*?/?tools)/winapi/make_filter$%;
  25     require "$1/winapi/setup.pm";
  26 }
  27
  28 use config qw(
  29     file_absolutize file_normalize
  30     $current_dir $wine_dir
  31 );
  32 use output qw($output);
  33 use make_filter_options qw($options);
  34
  35 use make_parser qw($directory $tool $file $line $message);
  36
  37 if($options->progress) {
  38     $output->enable_progress;
  39 } else {
  40     $output->disable_progress;
  41 }
  42
  43 ########################################################################
  44 # main
  45 ########################################################################
  46
  47 my $command = $options->make . " " . join(" ", $options->arguments);
  48 open(IN, "($command) 2>&1 |") || die "Cannot execute command $command: $!";
  49
  50 while(<IN>) {
  51     chomp;
  52
  53     if(!make_parser::line($_)) {
  54         next;
  55     }
  56
  57     if($message) {
  58         if($file && $line) {
  59             if($directory && $directory ne "." && $file !~ m%^/%) {
  60                 $output->write(file_normalize("$directory/$file") . ":$line: $message\n");
  61             } else {
  62                 $output->write("$file:$line: $message\n");
  63             }
  64         } elsif($file) {
  65             if($directory && $directory ne "." && $file !~ m%^/%) {
  66                 $output->write(file_normalize("$directory/$file") . ": $message\n");
  67             } else {
  68                 $output->write("$file: $message\n");
  69             }
  70         } else {
  71             if($directory && $directory ne ".") {
  72                 $output->write("$directory: $tool: $message\n");
  73             } elsif($tool) {
  74                 $output->write("$tool: $message\n");
  75             } else {
  76                 $output->write("$message\n");
  77             }
  78         }
  79     } elsif($tool eq "make") {
  80         if($directory && $directory ne ".") {
  81             $output->progress("$directory: make");
  82         }
  83     }
  84 }
  85
  86 close(IN);
  87
  88 $output->hide_progress();