tools/make_makefiles

   1 #!/usr/bin/perl -w
   2 #
   3 # Build the auto-generated parts of the Wine makefiles.
   4 #
   5 # Copyright 2006 Alexandre Julliard
   6 #
   7 # This library is free software; you can redistribute it and/or
   8 # modify it under the terms of the GNU Lesser General Public
   9 # License as published by the Free Software Foundation; either
  10 # version 2.1 of the License, or (at your option) any later version.
  11 #
  12 # This library is distributed in the hope that it will be useful,
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 # Lesser General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU Lesser General Public
  18 # License along with this library; if not, write to the Free Software
  19 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20 #
  21
  22 use strict;
  23
  24 # Dlls and programs that are 16-bit specific
  25 my %modules16 =
  26 (
  27   "ifsmgr.vxd" => 1,
  28   "mmdevldr.vxd" => 1,
  29   "monodebg.vxd" => 1,
  30   "vdhcp.vxd" => 1,
  31   "vmm.vxd" => 1,
  32   "vnbt.vxd" => 1,
  33   "vnetbios.vxd" => 1,
  34   "vtdapi.vxd" => 1,
  35   "vwin32.vxd" => 1,
  36   "w32skrnl.dll" => 1,
  37   "winevdm.exe" => 1,
  38   "wow32.dll" => 1,
  39 );
  40
  41 my %ignored_source_files = (
  42     "dlls/wineps.drv/afm2c.c" => 1,
  43     "dlls/wineps.drv/mkagl.c" => 1,
  44     "tools/makedep.c" => 1,
  45 );
  46
  47 my (@makefiles, %makefiles);
  48 my @nls_files;
  49
  50 sub dirname($)
  51 {
  52     my $ret = shift;
  53     return "" unless $ret =~ /\//;
  54     $ret =~ s!/[^/]*$!!;
  55     return $ret;
  56 }
  57
  58 # update a file if changed
  59 sub update_file($$)
  60 {
  61     my $file = shift;
  62     my $new = shift;
  63
  64     open FILE, ">$file.new" or die "cannot create $file.new";
  65     print FILE $new;
  66     close FILE;
  67     rename "$file.new", "$file";
  68     print "$file updated\n";
  69     if ($file eq "configure.ac")
  70     {
  71         system "autoconf";
  72         print "configure updated\n";
  73     }
  74 }
  75
  76 # replace some lines in a file between two markers
  77 sub replace_in_file($$$@)
  78 {
  79     my $file = shift;
  80     my $start = shift;
  81     my $end = shift;
  82     my ($old, $new);
  83
  84     open OLD_FILE, "$file" or die "cannot open $file";
  85     while (<OLD_FILE>)
  86     {
  87         $old .= $_;
  88         last if /$start/;
  89         $new .= $_;
  90     }
  91
  92     $new .= join "", @_;
  93
  94     my $skip = 1;
  95     while (<OLD_FILE>)
  96     {
  97         $old .= $_;
  98         $new .= $_ unless $skip;
  99         $skip = 0 if /$end/;
 100     }
 101
 102     close OLD_FILE;
 103     update_file($file, $new) if $old ne $new;
 104 }
 105
 106 # replace all source variables in a makefile
 107 sub replace_makefile_variables($)
 108 {
 109     my $file = shift;
 110     my $make = $makefiles{$file};
 111     my $old;
 112     my $new;
 113     my $replaced = 0;
 114     my $value = "";
 115
 116     $value = "\\\n\t" . join(" \\\n\t", sort @{${$make}{"=SOURCES"}}) if defined ${$make}{"=SOURCES"};
 117
 118     open OLD_FILE, $file or die "cannot open $file";
 119     while (<OLD_FILE>)
 120     {
 121         $old .= $_;
 122         if (/^\s*SOURCES\s*=/)
 123         {
 124             my $old_str = $_;
 125             while (/\\$/)
 126             {
 127                 $_ = <OLD_FILE>;
 128                 last unless $_;
 129                 $old .= $_;
 130                 $old_str .= $_;
 131             }
 132             $new .= "SOURCES = $value\n" if $value;
 133             $replaced = 1;
 134             next;
 135         }
 136         $new .= $_;
 137     }
 138     unless ($replaced)
 139     {
 140         $new .= "\nSOURCES = $value\n" if $value;
 141     }
 142     close OLD_FILE;
 143     update_file($file, $new) if $old ne $new;
 144 }
 145
 146 # parse the specified makefile and load the variables
 147 sub parse_makefile($)
 148 {
 149     my $file = shift;
 150     my %make;
 151
 152     ($make{"=dir"} = $file) =~ s/[^\/]+$//;
 153
 154     open MAKE, $file or die "cannot open $file\n";
 155
 156     while (<MAKE>)
 157     {
 158         chomp;
 159         next if (/^\s*#/);
 160         while (/\\$/) { chop; $_ .= <MAKE>; chomp; }  # merge continued lines
 161         next if (/^\s*$/);
 162
 163         if (/\@[A-Z_]+\@/)  # config.status substitution variable
 164         {
 165             die "Configure substitution is not allowed in $file" unless $file eq "Makefile.in";
 166         }
 167         if (/^\s*(MODULE|IMPORTLIB|TESTDLL|STATICLIB|PARENTSRC|EXTRADLLFLAGS)\s*=\s*(.*)/)
 168         {
 169             my $var = $1;
 170             $make{$var} = $2;
 171             next;
 172         }
 173         if (/^\s*(SOURCES|PROGRAMS|EXTRA_TARGETS|EXTRA_OBJS|INSTALL_LIB|INSTALL_DEV)\s*=\s*(.*)/)
 174         {
 175             my $var = $1;
 176             my @list = split(/\s+/, $2);
 177             $make{$var} = \@list;
 178             next;
 179         }
 180         if (/^\s*(TOPSRCDIR|TOPOBJDIR|SRCDIR|VPATH)\s*=\s*(.*)/)
 181         {
 182             die "Variable $1 in $file is obsolete";
 183         }
 184     }
 185
 186     return %make;
 187 }
 188
 189 # read pragma makedep flags from a source file
 190 sub get_makedep_flags($)
 191 {
 192     my $file = shift;
 193     my %flags;
 194
 195     open FILE, $file or die "cannot open $file";
 196     if ($file =~ /\.sfd$/)
 197     {
 198         while (<FILE>)
 199         {
 200             next unless /^UComments:\s*\"(.*)\"$/;
 201             foreach my $pragma (split /\+AAoA/, $1)
 202             {
 203                 next unless $pragma =~ /^#\s*pragma\s+makedep\s+(.*)/;
 204                 foreach my $flag (split /\s+/, $1)
 205                 {
 206                     $flags{$flag} = 1;
 207                     last if $flag eq "font";
 208                 }
 209             }
 210         }
 211     }
 212     else
 213     {
 214         while (<FILE>)
 215         {
 216             next unless /^#\s*pragma\s+makedep\s+(.*)/;
 217             foreach my $flag (split /\s+/, $1)
 218             {
 219                 last if $flag eq "depend";
 220                 $flags{$flag} = 1;
 221             }
 222         }
 223     }
 224     close FILE;
 225     return %flags;
 226 }
 227
 228 sub get_parent_makefile($)
 229 {
 230     my $file = shift;
 231     my %make = %{$makefiles{$file}};
 232     my $reldir = $make{"PARENTSRC"} || "";
 233     return "" unless $reldir;
 234     (my $path = $file) =~ s/\/Makefile\.in$/\//;
 235     while ($reldir =~ /^\.\.\//)
 236     {
 237         $reldir =~ s/^\.\.\///;
 238         $path =~ s/[^\/]+\/$//;
 239     }
 240     return "$path$reldir/Makefile.in";
 241 }
 242
 243 # preserve shared source files that are listed in the existing makefile
 244 sub preserve_shared_source_files($$)
 245 {
 246     my ($make, $parent) = @_;
 247     my %srcs;
 248
 249     return unless defined ${$parent}{"=SOURCES"};
 250     foreach my $file (@{${$parent}{"=SOURCES"}}) { $srcs{$file} = 1; }
 251     foreach my $file (@{${$make}{"=SOURCES"}}) { $srcs{$file} = 0; }
 252
 253     foreach my $file (@{${$make}{SOURCES}})
 254     {
 255         next unless defined $srcs{$file} && $srcs{$file} == 1;
 256         push @{${$make}{"=SOURCES"}}, $file;
 257     }
 258 }
 259
 260 # assign source files to their respective makefile
 261 sub assign_sources_to_makefiles(@)
 262 {
 263     foreach my $file (@_)
 264     {
 265         next if defined $ignored_source_files{$file};
 266         next if $file =~ /Makefile\.in$/;
 267         my $dir = dirname( $file );
 268         my $subdir = $dir;
 269
 270         while ($dir && !defined $makefiles{"$dir/Makefile.in"}) { $dir = dirname( $dir ); }
 271         $subdir =~ s/^$dir\/?//;
 272         next unless $dir;
 273
 274         die "no makefile found for $file\n" unless defined $makefiles{"$dir/Makefile.in"};
 275
 276         my $make = $makefiles{"$dir/Makefile.in"};
 277         my $name = substr( $file, length($dir) + 1 );
 278
 279         if ($name =~ /\.h$/)
 280         {
 281             next if $dir ne "include";
 282         }
 283         elsif ($name =~ /\.idl$/)
 284         {
 285             die "no makedep flags specified in $file" unless $dir eq "include" || get_makedep_flags($file);
 286         }
 287         elsif ($name =~ /\.spec$/)
 288         {
 289             my $dllflags = ${$make}{"EXTRADLLFLAGS"} || "";
 290             next unless defined ${$make}{"TESTDLL"} ||
 291                 ($dllflags =~ /-Wb,--data-only/) ||
 292                 ($dllflags =~ /-Wl,--subsystem,native/);
 293         }
 294         elsif ($name =~ /\.nls$/)
 295         {
 296             push @nls_files, $name if $dir eq "nls";
 297         }
 298         elsif ($name =~ /\.xml$/)
 299         {
 300             next unless $dir eq "dlls/winewayland.drv";
 301         }
 302         elsif ($name !~ /\.(c|in|inl|l|m|mc|po|rc|rh|sfd|svg|x|y)$/)
 303         {
 304             next unless $dir eq "loader";  # loader dir contains misc files
 305         }
 306         push @{${$make}{"=SOURCES"}}, $name;
 307     }
 308
 309     # preserve shared source files from the parent makefile
 310     foreach my $file (@makefiles)
 311     {
 312         my $make = $makefiles{$file};
 313         my $parent = get_parent_makefile( $file );
 314         next unless $parent;
 315         preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent} );
 316     }
 317 }
 318
 319 ################################################################
 320 # update the makefile list in configure.ac
 321
 322 sub update_makefiles(@)
 323 {
 324     my (@lines);
 325
 326     foreach my $file (sort @_)
 327     {
 328         next if $file eq "Makefile.in";
 329         my %make = %{$makefiles{$file}};
 330         (my $dir = $file) =~ s/^(.*)\/Makefile\.in/$1/;
 331         my $args = "";
 332         if (defined($make{"TESTDLL"}))  # test
 333         {
 334             die "TESTDLL should not be defined in $file" unless $file =~ /\/tests\/Makefile\.in$/;
 335             die "MODULE should not be defined in $file" if defined $make{"MODULE"};
 336             die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"};
 337         }
 338         elsif (defined($make{"STATICLIB"}))
 339         {
 340             die "MODULE should not be defined in $file" if defined $make{"MODULE"};
 341             die "invalid STATICLIB name" unless $make{"STATICLIB"} =~ /\.a$/;
 342         }
 343         elsif (defined($make{"MODULE"}))  # dll or program
 344         {
 345             (my $name = $file) =~ s/^(dlls|programs)\/(.*)\/Makefile\.in/$2/;
 346             my $dllflags = $make{"EXTRADLLFLAGS"} || "";
 347             die "invalid MODULE name" if $make{"MODULE"} =~ /\.a$/;
 348             die "MODULE should not be defined in $file" unless $file =~ /^(dlls|programs)\//;
 349             die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"};
 350             if ($file =~ /^programs\//)
 351             {
 352                 die "EXTRADLLFLAGS should be defined in $file" unless $dllflags;
 353                 die "EXTRADLLFLAGS should contain -mconsole or -mwindows in $file" unless $dllflags =~ /-m(console|windows)/;
 354                 die "Invalid MODULE in $file" unless ($name =~ /\./ && $make{"MODULE"} eq $name) || $make{"MODULE"} eq "$name.exe";
 355             }
 356             else
 357             {
 358                 die "EXTRADLLFLAGS should not contain -mconsole or -mwindows in $file" if $dllflags =~ /-m(console|windows)/;
 359                 die "Invalid MODULE in $file" unless ($name =~ /\./ && $make{"MODULE"} eq $name) || $make{"MODULE"} eq "$name.dll";
 360             }
 361             if (defined $make{"IMPORTLIB"})
 362             {
 363                 die "IMPORTLIB not allowed in programs\n" if $file =~ /^programs\//;
 364                 die "Invalid IMPORTLIB name in $file" if $make{"IMPORTLIB"} =~ /\./;
 365             }
 366             $args = ",enable_win16" if $make{"MODULE"} =~ /16$/ || $modules16{$make{"MODULE"}};
 367         }
 368         elsif ($file =~ /^tools.*\/Makefile\.in$/)
 369         {
 370             die "MODULE should not be defined in $file" if defined $make{"MODULE"};
 371             die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"};
 372             die "EXTRADLLFLAGS should not be defined in $file" if defined $make{"EXTRADLLFLAGS"};
 373             $args = ",,[test \"x\$enable_tools\" = xno]";
 374         }
 375         push @lines, "WINE_CONFIG_MAKEFILE($dir$args)\n";
 376     }
 377
 378     # update the source variables in all the makefiles
 379
 380     foreach my $file (sort @_) { replace_makefile_variables( $file ); }
 381
 382     push @lines, "dnl End of auto-generated output commands\n";
 383     replace_in_file( "configure.ac", '^WINE_CONFIG_MAKEFILE', '^dnl End of auto-generated output commands\n$', @lines);
 384 }
 385
 386 sub update_wine_inf()
 387 {
 388     my @lines;
 389     push @lines, "[NlsFiles]", sort grep(!/^sort/, @nls_files);
 390     push @lines, "\n[SortFiles]", sort grep(/^sort/, @nls_files);
 391     push @lines, "\n[WineSourceDirs]\n";
 392     replace_in_file "loader/wine.inf.in", '^\[NlsFiles\]', '^\[WineSourceDirs\]', join( "\n", @lines );
 393 }
 394
 395 my $git_dir = $ENV{GIT_DIR} || ".git";
 396 die "needs to be run from a git checkout" unless -e $git_dir;
 397
 398 my @all_files = split /\0/, `git ls-files -c -z` or die "cannot get files list";
 399 map { $ignored_source_files{$_} = 1; } split /\0/, `git ls-files -d -z`;
 400 @makefiles = grep /Makefile.in$/, @all_files;
 401
 402 foreach my $file (sort @makefiles)
 403 {
 404     my %make = parse_makefile( $file );
 405     $makefiles{$file} = \%make;
 406 }
 407
 408 assign_sources_to_makefiles( @all_files );
 409 update_makefiles( @makefiles );
 410 update_wine_inf();