tools/winapi/winapi_cleanup

   1 #! /usr/bin/perl -w
   2
   3 # Copyright 2002 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18 #
  19
  20 use strict;
  21
  22 BEGIN {
  23     $0 =~ m%^(.*?/?tools)/winapi/winapi_cleanup$%;
  24     require "$1/winapi/setup.pm";
  25 }
  26
  27 use config qw($current_dir $wine_dir file_absolutize file_directory);
  28 use output qw($output);
  29 use winapi_cleanup_options qw($options);
  30
  31 use nativeapi qw($nativeapi);
  32 use util qw(edit_file);
  33
  34 if($options->progress) {
  35     $output->enable_progress;
  36 } else {
  37     $output->disable_progress;
  38 }
  39
  40 ########################################################################
  41 # cleanup_file
  42
  43 sub cleanup_file {
  44     local *IN = shift;
  45     local *OUT = shift;
  46
  47     my $file = shift;
  48     my $dir = do {
  49         my $file2 = file_absolutize($file);
  50         my $dir = file_directory($file2);
  51         "$wine_dir/$dir";
  52     };
  53
  54     my $indent;
  55     my @comments = ();
  56     my $format_comments = sub {
  57         local $_ = "";
  58         if ($#comments == 0) {
  59             my $comment = $comments[0];
  60
  61             $_ = "$indent/*$comment */";
  62         } elsif ($#comments > 0) {
  63             $_ = "$indent/*\n";
  64             foreach my $comment (@comments) {
  65                 $_ .= "$indent *$comment\n";
  66             }
  67             $_ .= "$indent */";
  68         }
  69         $indent = "";
  70         @comments = ();
  71
  72         return $_;
  73     };
  74
  75     my $in_comment = 0;
  76     my $modified = 0;
  77     while (<IN>) {
  78         chomp;
  79
  80         if ($options->trailing_whitespace) {
  81             s/(.*?)\s+$/$1/ && do { $modified = 1; };
  82         } else {
  83             s/(.*?)\r$/$1/ && do { $modified = 1; };
  84         }
  85
  86         if ($options->cpp_comments) {
  87             if ($in_comment) {
  88                 if(/^.*?\*\//) {
  89                     $in_comment = 0;
  90                 }
  91             } elsif (/^([^\"\/]*?(?:\"[^\"]*?\"[^\"]*?)*?)\/\*(.*?)$/) {
  92                 my $indent2 = $1;
  93                 my $comment = $2;
  94                 if($comment !~ /^.*?\*\//) {
  95                     $in_comment = 1;
  96                 }
  97             } elsif (/^([^\"\/]*?(?:\"[^\"]*?\"[^\"]*?)*?)\/\/(.*?)\s*$/) {
  98                 my $indent2 = $1;
  99                 my $comment = $2;
 100
 101                 if ($indent2 =~ /^\s*$/) {
 102                     if (!$indent || $indent eq $indent2) {
 103                         $indent = $indent2;
 104                         push @comments, $comment;
 105                         next;
 106                     } else {
 107                         $_ .= "$indent2/*$comment */";
 108                     }
 109                 } else {
 110                     my $comments = &$format_comments();
 111                     if ($comments) {
 112                         $_  = "$comments\n$indent2/*$comment */";
 113                     } else {
 114                         $_  = "$indent2/*$comment */";
 115                     }
 116
 117                     $modified = 1;
 118                 }
 119             } else {
 120                 my $comments = &$format_comments();
 121                 if ($comments) {
 122                     $_  = "$comments\n$_";
 123                     $modified = 1;
 124                 }
 125             }
 126         }
 127
 128         if ($options->include_quotes) {
 129             my $module = "";
 130             if ($dir =~ m%^$wine_dir/(?:controls|windows)$%) {
 131                 $module = "user";
 132             } elsif ($dir =~ m%^$wine_dir/(?:graphics)$%) {
 133                 $module = "gdi";
 134             } elsif ($dir =~ m%^$wine_dir/(?:graphics|windows)/x11drv$%) {
 135                 $module = "x11drv";
 136             } elsif ($dir =~ m%^$wine_dir/dlls/(.*?)/.*?$%) {
 137                 $module = $1;
 138             }
 139
 140             if (/^(\s*\#\s*include\s+)(?:<(.*?)>|\"(.*?)\")(.*?)\s*$/) {
 141                 my $prefix = $1;
 142                 my $header = $2 || $3;
 143                 my $local = !defined($2) && defined($3);
 144                 my $suffix = $4;
 145
 146                 my $exists_system = 0; {
 147                     my @system_paths = qw(/usr/include /usr/local/include /usr/X11R6/include);
 148                     foreach my $path (@system_paths) {
 149                         $exists_system ||= (-e "$path/$header" || 0);
 150                     }
 151                     $exists_system ||= $nativeapi->is_conditional_header($header);
 152                 }
 153
 154                 my $exists_windows = 0; {
 155                     if ($header !~ m%^wine/% && $header ne "config.h") {
 156                         $exists_windows ||= (-e "$wine_dir/include/$header" || 0);
 157                     }
 158                 }
 159
 160                 my $exists_wine = 0; {
 161                     $exists_wine ||= ($header eq "config.h");
 162
 163                     if ($header =~ m%^wine/%) {
 164                         $exists_wine ||= (-e "$wine_dir/include/$header" || 0);
 165                     }
 166                 }
 167
 168                 my $exists_local = 0; {
 169                     $exists_local ||= ($header eq "y.tab.h");
 170
 171                     my @local_paths = ();
 172                     push @local_paths, "$dir" if $dir !~ m%^$wine_dir/include%;
 173                     push @local_paths, "$wine_dir/dlls/$module" if $module;
 174                     foreach my $path (@local_paths) {
 175                         $exists_local ||= (-e "$path/$header" || 0);
 176                     }
 177                 }
 178
 179                 if (!$exists_system && !$exists_windows && !$exists_wine && !$exists_local) {
 180                     $output->write("warning: header '$header': doesn't exist\n");
 181                 } elsif (($exists_system + $exists_windows + $exists_wine + $exists_local) > 1) {
 182                     if ($header !~ /^(?:async\.h|comcat\.h|sql(?:ext|types)?\.h|thread\.h|user\.h)$/) {
 183                         $output->write("warning: header '$header': more than one possibillity\n");
 184                     }
 185                 }
 186
 187                 if (!$local && $exists_local) {
 188                     $_ = "$prefix\"$header\"$suffix";
 189                     $modified = 1;
 190                 } elsif ($local && !$exists_local && ($exists_system || $exists_windows || $exists_wine)) {
 191                     $_ = "$prefix<$header>$suffix";
 192                     $modified = 1;
 193                 }
 194             }
 195         }
 196
 197         print OUT "$_\n";
 198     }
 199
 200     my $comments = &$format_comments();
 201     if ($comments) {
 202         print OUT "$comments\n";
 203         $modified = 1;
 204     }
 205
 206     return $modified;
 207 }
 208
 209 ########################################################################
 210 # main
 211
 212 my @h_files = $options->h_files;
 213 my @c_files = $options->c_files;
 214
 215 my $progress_output;
 216 my $progress_current = 0;
 217 my $progress_max = scalar(@h_files) + scalar(@c_files);
 218
 219 foreach my $file (@h_files) {
 220     $progress_current++;
 221     $output->progress("$file (file $progress_current of $progress_max)");
 222     $output->prefix("$file: ");
 223
 224     if (edit_file($file, \&cleanup_file, @_, $file)) {
 225         $output->write("$file: modified\n");
 226     }
 227 }
 228
 229 foreach my $file (@c_files) {
 230     $progress_current++;
 231     $output->progress("$file (file $progress_current of $progress_max)");
 232     $output->prefix("$file: ");
 233
 234     if (edit_file($file, \&cleanup_file, $file)) {
 235         $output->write("$file: modified\n");
 236     }
 237 }