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