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 %exported_wine_headers = (
  42     "wine/debug.h" => 1,
  43     "wine/exception.h" => 1,
  44     "wine/itss.idl" => 1,
  45     "wine/svcctl.idl" => 1,
  46 );
  47
  48 my %ignored_source_files = (
  49     "dlls/wineps.drv/afm2c.c" => 1,
  50     "dlls/wineps.drv/mkagl.c" => 1,
  51     "include/config.h.in" => 1,
  52     "include/stamp-h.in" => 1,
  53     "programs/winetest/dist.rc" => 1,
  54     "tools/makedep.c" => 1,
  55 );
  56
  57 my @source_vars = (
  58     "BISON_SRCS",
  59     "C_SRCS",
  60     "FONT_SRCS",
  61     "HEADER_SRCS",
  62     "IDL_SRCS",
  63     "IN_SRCS",
  64     "LEX_SRCS",
  65     "MANPAGES",
  66     "MC_SRCS",
  67     "OBJC_SRCS",
  68     "PO_SRCS",
  69     "RC_SRCS",
  70     "SOURCES",
  71     "SVG_SRCS",
  72     "XTEMPLATE_SRCS"
  73 );
  74
  75 my (@makefiles, %makefiles);
  76 my @nls_files;
  77
  78 sub dirname($)
  79 {
  80     my $ret = shift;
  81     return "" unless $ret =~ /\//;
  82     $ret =~ s!/[^/]*$!!;
  83     return $ret;
  84 }
  85
  86 # update a file if changed
  87 sub update_file($$)
  88 {
  89     my $file = shift;
  90     my $new = shift;
  91
  92     open FILE, ">$file.new" or die "cannot create $file.new";
  93     print FILE $new;
  94     close FILE;
  95     rename "$file.new", "$file";
  96     print "$file updated\n";
  97     if ($file eq "configure.ac")
  98     {
  99         system "autoconf";
 100         print "configure updated\n";
 101     }
 102 }
 103
 104 # replace some lines in a file between two markers
 105 sub replace_in_file($$$@)
 106 {
 107     my $file = shift;
 108     my $start = shift;
 109     my $end = shift;
 110     my ($old, $new);
 111
 112     open OLD_FILE, "$file" or die "cannot open $file";
 113     while (<OLD_FILE>)
 114     {
 115         $old .= $_;
 116         last if /$start/;
 117         $new .= $_;
 118     }
 119
 120     $new .= join "", @_;
 121
 122     my $skip = 1;
 123     while (<OLD_FILE>)
 124     {
 125         $old .= $_;
 126         $new .= $_ unless $skip;
 127         $skip = 0 if /$end/;
 128     }
 129
 130     close OLD_FILE;
 131     update_file($file, $new) if $old ne $new;
 132 }
 133
 134 # replace all source variables in a makefile
 135 sub replace_makefile_variables($)
 136 {
 137     my $file = shift;
 138     my $make = $makefiles{$file};
 139     my $source_vars_regexp = join "|", @source_vars;
 140     my %replaced;
 141     my $old;
 142     my $new;
 143
 144     open OLD_FILE, "$file.in" or die "cannot open $file.in";
 145     while (<OLD_FILE>)
 146     {
 147         $old .= $_;
 148         if (/^\s*($source_vars_regexp)(\s*)=/)
 149         {
 150             # try to preserve formatting
 151             my $var = $1;
 152             my $spaces = $2;
 153             my $replaced = 0;
 154             my @values;
 155
 156             if (defined ${$make}{"=$var"})
 157             {
 158                 @values = @{${$make}{"=$var"}};
 159                 ${$make}{$var} = \@values;
 160             }
 161             else
 162             {
 163                 undef ${$make}{$var};
 164             }
 165             my $multiline = /\\$/ || (@values > 1);
 166             my $old_str = $_;
 167             while (/\\$/)
 168             {
 169                 $_ = <OLD_FILE>;
 170                 last unless $_;
 171                 $old .= $_;
 172                 $old_str .= $_;
 173             }
 174             my $new_str = "";
 175             if (!@values)
 176             {
 177                 # nothing
 178             }
 179             elsif ($multiline)
 180             {
 181                 $new_str = "$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
 182                 $new .= $new_str;
 183             }
 184             else
 185             {
 186                 $new_str = "$var$spaces= @values\n";
 187                 $new .= $new_str;
 188             }
 189             $replaced{$var} = 1;
 190             next;
 191         }
 192         $new .= $_;
 193     }
 194     # if we are using SOURCES, ignore the other variables
 195     unless ($replaced{"SOURCES"})
 196     {
 197         foreach my $var (@source_vars)
 198         {
 199             next if defined $replaced{$var};
 200             next if $var eq "SOURCES";
 201             next unless defined ${$make}{"=$var"};
 202             my @values = @{${$make}{"=$var"}};
 203             next unless @values;
 204             $new .= "\n$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
 205         }
 206     }
 207     close OLD_FILE;
 208     update_file("$file.in", $new) if $old ne $new;
 209 }
 210
 211 # parse the specified makefile and load the variables
 212 sub parse_makefile($)
 213 {
 214     my $file = shift;
 215     my %make;
 216
 217     ($make{"=dir"} = $file) =~ s/[^\/]+$//;
 218
 219     open MAKE, "$file.in" or die "cannot open $file.in\n";
 220
 221     while (<MAKE>)
 222     {
 223         chomp;
 224         next if (/^\s*#/);
 225         while (/\\$/) { chop; $_ .= <MAKE>; chomp; }  # merge continued lines
 226         next if (/^\s*$/);
 227
 228         if (/\@[A-Z_]+\@/)  # config.status substitution variable
 229         {
 230             die "Configure substitution is not allowed in $file" unless $file eq "Makefile";
 231         }
 232         if (/^\s*(MODULE|IMPORTLIB|TESTDLL|STATICLIB|PARENTSRC|EXTRADLLFLAGS)\s*=\s*(.*)/)
 233         {
 234             my $var = $1;
 235             $make{$var} = $2;
 236             next;
 237         }
 238         my $source_vars_regexp = join "|", @source_vars;
 239         if (/^\s*($source_vars_regexp|PROGRAMS|EXTRA_TARGETS|EXTRA_OBJS|INSTALL_LIB|INSTALL_DEV)\s*=\s*(.*)/)
 240         {
 241             my $var = $1;
 242             my @list = split(/\s+/, $2);
 243             $make{$var} = \@list;
 244             next;
 245         }
 246         if (/^\s*(TOPSRCDIR|TOPOBJDIR|SRCDIR|VPATH)\s*=\s*(.*)/)
 247         {
 248             die "Variable $1 in $file.in is obsolete";
 249         }
 250     }
 251
 252     return %make;
 253 }
 254
 255 # read pragma makedep flags from a source file
 256 sub get_makedep_flags($)
 257 {
 258     my $file = shift;
 259     my %flags;
 260
 261     open FILE, $file or die "cannot open $file";
 262     if ($file =~ /\.sfd$/)
 263     {
 264         while (<FILE>)
 265         {
 266             next unless /^UComments:\s*\"(.*)\"$/;
 267             foreach my $pragma (split /\+AAoA/, $1)
 268             {
 269                 next unless $pragma =~ /^#\s*pragma\s+makedep\s+(.*)/;
 270                 foreach my $flag (split /\s+/, $1)
 271                 {
 272                     $flags{$flag} = 1;
 273                     last if $flag eq "font";
 274                 }
 275             }
 276         }
 277     }
 278     else
 279     {
 280         while (<FILE>)
 281         {
 282             next unless /^#\s*pragma\s+makedep\s+(.*)/;
 283             foreach my $flag (split /\s+/, $1)
 284             {
 285                 last if $flag eq "depend";
 286                 $flags{$flag} = 1;
 287             }
 288         }
 289     }
 290     close FILE;
 291     return %flags;
 292 }
 293
 294 sub get_parent_makefile($)
 295 {
 296     my $file = shift;
 297     my %make = %{$makefiles{$file}};
 298     my $reldir = $make{"PARENTSRC"} || "";
 299     return "" unless $reldir;
 300     (my $path = $file) =~ s/\/Makefile$/\//;
 301     while ($reldir =~ /^\.\.\//)
 302     {
 303         $reldir =~ s/^\.\.\///;
 304         $path =~ s/[^\/]+\/$//;
 305     }
 306     return "$path$reldir/Makefile";
 307 }
 308
 309 # preserve shared source files that are listed in the existing makefile
 310 sub preserve_shared_source_files($$$)
 311 {
 312     my ($make, $parent, $var) = @_;
 313     my %srcs;
 314
 315     return unless defined ${$parent}{"=$var"};
 316     foreach my $file (@{${$parent}{"=$var"}}) { $srcs{$file} = 1; }
 317     foreach my $file (@{${$make}{"=$var"}}) { $srcs{$file} = 0; }
 318
 319     foreach my $file (@{${$make}{$var}})
 320     {
 321         next unless defined $srcs{$file} && $srcs{$file} == 1;
 322         push @{${$make}{"=$var"}}, $file;
 323     }
 324 }
 325
 326 # assign source files to their respective makefile
 327 sub assign_sources_to_makefiles(@)
 328 {
 329     foreach my $file (@_)
 330     {
 331         next if defined $ignored_source_files{$file};
 332         next if $file =~ /Makefile\.in$/;
 333         my $dir = dirname( $file );
 334         my $subdir = $dir;
 335
 336         while ($dir && !defined $makefiles{"$dir/Makefile"}) { $dir = dirname( $dir ); }
 337         $subdir =~ s/^$dir\/?//;
 338         next unless $dir;
 339
 340         die "no makefile found for $file\n" unless defined $makefiles{"$dir/Makefile"};
 341
 342         my $make = $makefiles{"$dir/Makefile"};
 343         my $name = substr( $file, length($dir) + 1 );
 344
 345         next if $file =~ /^include\/wine\// && !get_makedep_flags($file) && !$exported_wine_headers{$name};
 346
 347         if ($name =~ /\.m$/) { push @{${$make}{"=OBJC_SRCS"}}, $name; }
 348         elsif ($name =~ /\.l$/) { push @{${$make}{"=LEX_SRCS"}}, $name; }
 349         elsif ($name =~ /\.y$/) { push @{${$make}{"=BISON_SRCS"}}, $name; }
 350         elsif ($name =~ /\.svg$/) { push @{${$make}{"=SVG_SRCS"}}, $name; }
 351         elsif ($name =~ /\.sfd$/)
 352         {
 353             push @{${$make}{"=FONT_SRCS"}}, $name;
 354         }
 355         elsif ($name =~ /\.c$/)
 356         {
 357             push @{${$make}{"=C_SRCS"}}, $name;
 358         }
 359         elsif ($name =~ /\.h$/ || $name =~ /\.rh$/ || $name =~ /\.inl$/ || $name =~ /\.x$/)
 360         {
 361             next if $dir ne "include";
 362         }
 363         elsif ($name =~ /\.rc$/)
 364         {
 365             push @{${$make}{"=RC_SRCS"}}, $name;
 366         }
 367         elsif ($name =~ /\.mc$/)
 368         {
 369             push @{${$make}{"=MC_SRCS"}}, $name;
 370         }
 371         elsif ($name =~ /\.po$/)
 372         {
 373             push @{${$make}{"=PO_SRCS"}}, $name;
 374         }
 375         elsif ($name =~ /\.idl$/)
 376         {
 377             die "no makedep flags specified in $file" unless $dir eq "include" || get_makedep_flags($file);
 378             push @{${$make}{"=IDL_SRCS"}}, $name;
 379         }
 380         elsif ($name =~ /\.man\.in$/)
 381         {
 382             push @{${$make}{"=MANPAGES"}}, $name;
 383         }
 384         elsif ($name =~ /\.in$/)
 385         {
 386             push @{${$make}{"=IN_SRCS"}}, $name;
 387         }
 388         elsif ($name =~ /\.spec$/)
 389         {
 390             next unless defined ${$make}{"TESTDLL"};
 391         }
 392         elsif ($name =~ /\.nls$/)
 393         {
 394             push @nls_files, $name if $dir eq "nls";
 395         }
 396         elsif ($dir ne "loader")  # loader dir contains misc files
 397         {
 398             next;
 399         }
 400         push @{${$make}{"=SOURCES"}}, $name;
 401     }
 402
 403     # preserve shared source files from the parent makefile
 404     foreach my $file (@makefiles)
 405     {
 406         my $make = $makefiles{$file};
 407         my $parent = get_parent_makefile( $file );
 408         next unless $parent;
 409         preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "C_SRCS" );
 410         preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "RC_SRCS" );
 411         preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "IDL_SRCS" );
 412         preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "LEX_SRCS" );
 413         preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "BISON_SRCS" );
 414     }
 415 }
 416
 417 ################################################################
 418 # update the makefile list in configure.ac
 419
 420 sub update_makefiles(@)
 421 {
 422     my (@lines);
 423
 424     foreach my $file (sort @_)
 425     {
 426         next if $file eq "Makefile";
 427         my %make = %{$makefiles{$file}};
 428         (my $dir = $file) =~ s/^(.*)\/Makefile/$1/;
 429         my $args = "";
 430         if (defined($make{"TESTDLL"}))  # test
 431         {
 432             die "TESTDLL should not be defined in $file" unless $file =~ /\/tests\/Makefile$/;
 433             die "MODULE should not be defined in $file" if defined $make{"MODULE"};
 434             die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"};
 435         }
 436         elsif (defined($make{"STATICLIB"}))
 437         {
 438             die "MODULE should not be defined in $file" if defined $make{"MODULE"};
 439             die "invalid STATICLIB name" unless $make{"STATICLIB"} =~ /\.a$/;
 440         }
 441         elsif (defined($make{"MODULE"}))  # dll or program
 442         {
 443             (my $name = $file) =~ s/^(dlls|programs)\/(.*)\/Makefile/$2/;
 444             my $dllflags = $make{"EXTRADLLFLAGS"} || "";
 445             die "invalid MODULE name" if $make{"MODULE"} =~ /\.a$/;
 446             die "MODULE should not be defined in $file" unless $file =~ /^(dlls|programs)\//;
 447             die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"};
 448             if ($file =~ /^programs\//)
 449             {
 450                 die "EXTRADLLFLAGS should be defined in $file" unless $dllflags;
 451                 die "EXTRADLLFLAGS should contain -mconsole or -mwindows in $file" unless $dllflags =~ /-m(console|windows)/;
 452                 die "Invalid MODULE in $file" unless ($name =~ /\./ && $make{"MODULE"} eq $name) || $make{"MODULE"} eq "$name.exe";
 453             }
 454             else
 455             {
 456                 die "EXTRADLLFLAGS should not contain -mconsole or -mwindows in $file" if $dllflags =~ /-m(console|windows)/;
 457                 die "Invalid MODULE in $file" unless ($name =~ /\./ && $make{"MODULE"} eq $name) || $make{"MODULE"} eq "$name.dll";
 458             }
 459             if (defined $make{"IMPORTLIB"})
 460             {
 461                 die "IMPORTLIB not allowed in programs\n" if $file =~ /^programs\//;
 462                 die "Invalid IMPORTLIB name in $file" if $make{"IMPORTLIB"} =~ /\./;
 463             }
 464             $args = ",enable_win16" if $make{"MODULE"} =~ /16$/ || $modules16{$make{"MODULE"}};
 465         }
 466         elsif ($file =~ /^tools.*\/Makefile$/)
 467         {
 468             die "MODULE should not be defined in $file" if defined $make{"MODULE"};
 469             die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"};
 470             die "EXTRADLLFLAGS should not be defined in $file" if defined $make{"EXTRADLLFLAGS"};
 471             $args = ",,[test \"x\$enable_tools\" = xno]";
 472         }
 473         push @lines, "WINE_CONFIG_MAKEFILE($dir$args)\n";
 474     }
 475
 476     # update the source variables in all the makefiles
 477
 478     foreach my $file (sort @_) { replace_makefile_variables( $file ); }
 479
 480     push @lines, "dnl End of auto-generated output commands\n";
 481     replace_in_file( "configure.ac", '^WINE_CONFIG_MAKEFILE', '^dnl End of auto-generated output commands\n$', @lines);
 482 }
 483
 484 sub update_wine_inf()
 485 {
 486     my @lines;
 487     push @lines, "[NlsFiles]", sort grep(!/^sort/, @nls_files);
 488     push @lines, "\n[SortFiles]", sort grep(/^sort/, @nls_files);
 489     push @lines, "\n[WineSourceDirs]\n";
 490     replace_in_file "loader/wine.inf.in", '^\[NlsFiles\]', '^\[WineSourceDirs\]', join( "\n", @lines );
 491 }
 492
 493 my $git_dir = $ENV{GIT_DIR} || ".git";
 494 die "needs to be run from a git checkout" unless -e $git_dir;
 495
 496 my @all_files = split /\0/, `git ls-files -c -z`;
 497 map { $ignored_source_files{$_} = 1; } split /\0/, `git ls-files -d -z`;
 498 @makefiles = map { (my $ret = $_) =~ s/\.in$//; $ret; } grep /Makefile.in$/, @all_files;
 499
 500 foreach my $file (sort @makefiles)
 501 {
 502     my %make = parse_makefile( $file );
 503     $makefiles{$file} = \%make;
 504 }
 505
 506 assign_sources_to_makefiles( @all_files );
 507 update_makefiles( @makefiles );
 508 update_wine_inf();