#!/usr/bin/perl -w # # Build the auto-generated parts of the Wine makefiles. # # Copyright 2006 Alexandre Julliard # # This library is free software; you can redistribute it and/or # modify it under the terms of the GNU Lesser General Public # License as published by the Free Software Foundation; either # version 2.1 of the License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; if not, write to the Free Software # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA # use strict; # Dlls and programs that are 16-bit specific my %modules16 = ( "ifsmgr.vxd" => 1, "mmdevldr.vxd" => 1, "monodebg.vxd" => 1, "vdhcp.vxd" => 1, "vmm.vxd" => 1, "vnbt.vxd" => 1, "vnetbios.vxd" => 1, "vtdapi.vxd" => 1, "vwin32.vxd" => 1, "w32skrnl.dll" => 1, "winevdm.exe" => 1, "wow32.dll" => 1, ); my %exported_wine_headers = ( "wine/debug.h" => 1, "wine/exception.h" => 1, "wine/itss.idl" => 1, "wine/svcctl.idl" => 1, ); my %ignored_source_files = ( "dlls/wineps.drv/afm2c.c" => 1, "dlls/wineps.drv/mkagl.c" => 1, "include/config.h.in" => 1, "include/stamp-h.in" => 1, "programs/winetest/dist.rc" => 1, "tools/makedep.c" => 1, ); my @source_vars = ( "BISON_SRCS", "C_SRCS", "FONT_SRCS", "HEADER_SRCS", "IDL_SRCS", "IN_SRCS", "LEX_SRCS", "MANPAGES", "MC_SRCS", "OBJC_SRCS", "PO_SRCS", "RC_SRCS", "SOURCES", "SVG_SRCS", "XTEMPLATE_SRCS" ); my (@makefiles, %makefiles); my @nls_files; sub dirname($) { my $ret = shift; return "" unless $ret =~ /\//; $ret =~ s!/[^/]*$!!; return $ret; } # update a file if changed sub update_file($$) { my $file = shift; my $new = shift; open FILE, ">$file.new" or die "cannot create $file.new"; print FILE $new; close FILE; rename "$file.new", "$file"; print "$file updated\n"; if ($file eq "configure.ac") { system "autoconf"; print "configure updated\n"; } } # replace some lines in a file between two markers sub replace_in_file($$$@) { my $file = shift; my $start = shift; my $end = shift; my ($old, $new); open OLD_FILE, "$file" or die "cannot open $file"; while (<OLD_FILE>) { $old .= $_; last if /$start/; $new .= $_; } $new .= join "", @_; my $skip = 1; while (<OLD_FILE>) { $old .= $_; $new .= $_ unless $skip; $skip = 0 if /$end/; } close OLD_FILE; update_file($file, $new) if $old ne $new; } # replace all source variables in a makefile sub replace_makefile_variables($) { my $file = shift; my $make = $makefiles{$file}; my $source_vars_regexp = join "|", @source_vars; my %replaced; my $old; my $new; open OLD_FILE, "$file.in" or die "cannot open $file.in"; while (<OLD_FILE>) { $old .= $_; if (/^\s*($source_vars_regexp)(\s*)=/) { # try to preserve formatting my $var = $1; my $spaces = $2; my $replaced = 0; my @values; if (defined ${$make}{"=$var"}) { @values = @{${$make}{"=$var"}}; ${$make}{$var} = \@values; } else { undef ${$make}{$var}; } my $multiline = /\\$/ || (@values > 1); my $old_str = $_; while (/\\$/) { $_ = <OLD_FILE>; last unless $_; $old .= $_; $old_str .= $_; } my $new_str = ""; if (!@values) { # nothing } elsif ($multiline) { $new_str = "$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n"; $new .= $new_str; } else { $new_str = "$var$spaces= @values\n"; $new .= $new_str; } $replaced{$var} = 1; next; } $new .= $_; } # if we are using SOURCES, ignore the other variables unless ($replaced{"SOURCES"}) { foreach my $var (@source_vars) { next if defined $replaced{$var}; next if $var eq "SOURCES"; next unless defined ${$make}{"=$var"}; my @values = @{${$make}{"=$var"}}; next unless @values; $new .= "\n$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n"; } } close OLD_FILE; update_file("$file.in", $new) if $old ne $new; } # parse the specified makefile and load the variables sub parse_makefile($) { my $file = shift; my %make; ($make{"=dir"} = $file) =~ s/[^\/]+$//; open MAKE, "$file.in" or die "cannot open $file.in\n"; while (<MAKE>) { chomp; next if (/^\s*#/); while (/\\$/) { chop; $_ .= <MAKE>; chomp; } # merge continued lines next if (/^\s*$/); if (/\@[A-Z_]+\@/) # config.status substitution variable { die "Configure substitution is not allowed in $file" unless $file eq "Makefile"; } if (/^\s*(MODULE|IMPORTLIB|TESTDLL|STATICLIB|PARENTSRC|EXTRADLLFLAGS)\s*=\s*(.*)/) { my $var = $1; $make{$var} = $2; next; } my $source_vars_regexp = join "|", @source_vars; if (/^\s*($source_vars_regexp|PROGRAMS|EXTRA_TARGETS|EXTRA_OBJS|INSTALL_LIB|INSTALL_DEV)\s*=\s*(.*)/) { my $var = $1; my @list = split(/\s+/, $2); $make{$var} = \@list; next; } if (/^\s*(TOPSRCDIR|TOPOBJDIR|SRCDIR|VPATH)\s*=\s*(.*)/) { die "Variable $1 in $file.in is obsolete"; } } return %make; } # read pragma makedep flags from a source file sub get_makedep_flags($) { my $file = shift; my %flags; open FILE, $file or die "cannot open $file"; if ($file =~ /\.sfd$/) { while (<FILE>) { next unless /^UComments:\s*\"(.*)\"$/; foreach my $pragma (split /\+AAoA/, $1) { next unless $pragma =~ /^#\s*pragma\s+makedep\s+(.*)/; foreach my $flag (split /\s+/, $1) { $flags{$flag} = 1; last if $flag eq "font"; } } } } else { while (<FILE>) { next unless /^#\s*pragma\s+makedep\s+(.*)/; foreach my $flag (split /\s+/, $1) { last if $flag eq "depend"; $flags{$flag} = 1; } } } close FILE; return %flags; } sub get_parent_makefile($) { my $file = shift; my %make = %{$makefiles{$file}}; my $reldir = $make{"PARENTSRC"} || ""; return "" unless $reldir; (my $path = $file) =~ s/\/Makefile$/\//; while ($reldir =~ /^\.\.\//) { $reldir =~ s/^\.\.\///; $path =~ s/[^\/]+\/$//; } return "$path$reldir/Makefile"; } # preserve shared source files that are listed in the existing makefile sub preserve_shared_source_files($$$) { my ($make, $parent, $var) = @_; my %srcs; return unless defined ${$parent}{"=$var"}; foreach my $file (@{${$parent}{"=$var"}}) { $srcs{$file} = 1; } foreach my $file (@{${$make}{"=$var"}}) { $srcs{$file} = 0; } foreach my $file (@{${$make}{$var}}) { next unless defined $srcs{$file} && $srcs{$file} == 1; push @{${$make}{"=$var"}}, $file; } } # assign source files to their respective makefile sub assign_sources_to_makefiles(@) { foreach my $file (@_) { next if defined $ignored_source_files{$file}; next if $file =~ /Makefile\.in$/; my $dir = dirname( $file ); my $subdir = $dir; while ($dir && !defined $makefiles{"$dir/Makefile"}) { $dir = dirname( $dir ); } $subdir =~ s/^$dir\/?//; next unless $dir; die "no makefile found for $file\n" unless defined $makefiles{"$dir/Makefile"}; my $make = $makefiles{"$dir/Makefile"}; my $name = substr( $file, length($dir) + 1 ); next if $file =~ /^include\/wine\// && !get_makedep_flags($file) && !$exported_wine_headers{$name}; if ($name =~ /\.m$/) { push @{${$make}{"=OBJC_SRCS"}}, $name; } elsif ($name =~ /\.l$/) { push @{${$make}{"=LEX_SRCS"}}, $name; } elsif ($name =~ /\.y$/) { push @{${$make}{"=BISON_SRCS"}}, $name; } elsif ($name =~ /\.svg$/) { push @{${$make}{"=SVG_SRCS"}}, $name; } elsif ($name =~ /\.sfd$/) { push @{${$make}{"=FONT_SRCS"}}, $name; } elsif ($name =~ /\.c$/) { push @{${$make}{"=C_SRCS"}}, $name; } elsif ($name =~ /\.h$/ || $name =~ /\.rh$/ || $name =~ /\.inl$/ || $name =~ /\.x$/) { next if $dir ne "include"; } elsif ($name =~ /\.rc$/) { push @{${$make}{"=RC_SRCS"}}, $name; } elsif ($name =~ /\.mc$/) { push @{${$make}{"=MC_SRCS"}}, $name; } elsif ($name =~ /\.po$/) { push @{${$make}{"=PO_SRCS"}}, $name; } elsif ($name =~ /\.idl$/) { die "no makedep flags specified in $file" unless $dir eq "include" || get_makedep_flags($file); push @{${$make}{"=IDL_SRCS"}}, $name; } elsif ($name =~ /\.man\.in$/) { push @{${$make}{"=MANPAGES"}}, $name; } elsif ($name =~ /\.in$/) { push @{${$make}{"=IN_SRCS"}}, $name; } elsif ($name =~ /\.spec$/) { next unless defined ${$make}{"TESTDLL"}; } elsif ($name =~ /\.nls$/) { push @nls_files, $name if $dir eq "nls"; } elsif ($dir ne "loader") # loader dir contains misc files { next; } push @{${$make}{"=SOURCES"}}, $name; } # preserve shared source files from the parent makefile foreach my $file (@makefiles) { my $make = $makefiles{$file}; my $parent = get_parent_makefile( $file ); next unless $parent; preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "C_SRCS" ); preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "RC_SRCS" ); preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "IDL_SRCS" ); preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "LEX_SRCS" ); preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "BISON_SRCS" ); } } ################################################################ # update the makefile list in configure.ac sub update_makefiles(@) { my (@lines); foreach my $file (sort @_) { next if $file eq "Makefile"; my %make = %{$makefiles{$file}}; (my $dir = $file) =~ s/^(.*)\/Makefile/$1/; my $args = ""; if (defined($make{"TESTDLL"})) # test { die "TESTDLL should not be defined in $file" unless $file =~ /\/tests\/Makefile$/; die "MODULE should not be defined in $file" if defined $make{"MODULE"}; die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"}; } elsif (defined($make{"STATICLIB"})) { die "MODULE should not be defined in $file" if defined $make{"MODULE"}; die "invalid STATICLIB name" unless $make{"STATICLIB"} =~ /\.a$/; } elsif (defined($make{"MODULE"})) # dll or program { (my $name = $file) =~ s/^(dlls|programs)\/(.*)\/Makefile/$2/; my $dllflags = $make{"EXTRADLLFLAGS"} || ""; die "invalid MODULE name" if $make{"MODULE"} =~ /\.a$/; die "MODULE should not be defined in $file" unless $file =~ /^(dlls|programs)\//; die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"}; if ($file =~ /^programs\//) { die "EXTRADLLFLAGS should be defined in $file" unless $dllflags; die "EXTRADLLFLAGS should contain -mconsole or -mwindows in $file" unless $dllflags =~ /-m(console|windows)/; die "Invalid MODULE in $file" unless ($name =~ /\./ && $make{"MODULE"} eq $name) || $make{"MODULE"} eq "$name.exe"; } else { die "EXTRADLLFLAGS should not contain -mconsole or -mwindows in $file" if $dllflags =~ /-m(console|windows)/; die "Invalid MODULE in $file" unless ($name =~ /\./ && $make{"MODULE"} eq $name) || $make{"MODULE"} eq "$name.dll"; } if (defined $make{"IMPORTLIB"}) { die "IMPORTLIB not allowed in programs\n" if $file =~ /^programs\//; die "Invalid IMPORTLIB name in $file" if $make{"IMPORTLIB"} =~ /\./; } $args = ",enable_win16" if $make{"MODULE"} =~ /16$/ || $modules16{$make{"MODULE"}}; } elsif ($file =~ /^tools.*\/Makefile$/) { die "MODULE should not be defined in $file" if defined $make{"MODULE"}; die "STATICLIB should not be defined in $file" if defined $make{"STATICLIB"}; die "EXTRADLLFLAGS should not be defined in $file" if defined $make{"EXTRADLLFLAGS"}; $args = ",,[test \"x\$enable_tools\" = xno]"; } push @lines, "WINE_CONFIG_MAKEFILE($dir$args)\n"; } # update the source variables in all the makefiles foreach my $file (sort @_) { replace_makefile_variables( $file ); } push @lines, "dnl End of auto-generated output commands\n"; replace_in_file( "configure.ac", '^WINE_CONFIG_MAKEFILE', '^dnl End of auto-generated output commands\n$', @lines); } sub update_wine_inf() { my @lines; push @lines, "[NlsFiles]", sort grep(!/^sort/, @nls_files); push @lines, "\n[SortFiles]", sort grep(/^sort/, @nls_files); push @lines, "\n[WineSourceDirs]\n"; replace_in_file "loader/wine.inf.in", '^\[NlsFiles\]', '^\[WineSourceDirs\]', join( "\n", @lines ); } my $git_dir = $ENV{GIT_DIR} || ".git"; die "needs to be run from a git checkout" unless -e $git_dir; my @all_files = split /\0/, `git ls-files -c -z`; map { $ignored_source_files{$_} = 1; } split /\0/, `git ls-files -d -z`; @makefiles = map { (my $ret = $_) =~ s/\.in$//; $ret; } grep /Makefile.in$/, @all_files; foreach my $file (sort @makefiles) { my %make = parse_makefile( $file ); $makefiles{$file} = \%make; } assign_sources_to_makefiles( @all_files ); update_makefiles( @makefiles ); update_wine_inf();