148 lines
3.3 KiB
Perl
Executable File
148 lines
3.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Update the dll dependencies in the dlls main Makefile.in.
|
|
# Must be run in the dlls/ directory of the Wine tree.
|
|
#
|
|
# Copyright 2001 Alexandre Julliard
|
|
#
|
|
|
|
$makefiles = `find . -name Makefile.in -print`;
|
|
|
|
%imports = ();
|
|
%directories = ();
|
|
%altnames = ();
|
|
|
|
foreach $i (split(/\s/,$makefiles))
|
|
{
|
|
open MAKE,$i;
|
|
while (<MAKE>)
|
|
{
|
|
chop;
|
|
if (/^MODULE\s*=\s*([a-zA-Z0-9_.]+)/)
|
|
{
|
|
$module = $1;
|
|
($directories{$module} = $i) =~ s/^\.\/(.*)\/[^\/]+$/$1/;
|
|
next;
|
|
}
|
|
if (/^ALTNAMES\s*=\s*(.*)/)
|
|
{
|
|
my @list = split(/\s/,$1);
|
|
$altnames{$module} = \@list;
|
|
next;
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach $mod (sort keys %directories)
|
|
{
|
|
my $spec = sprintf("%s/%s.spec", $directories{$mod}, $mod);
|
|
open SPEC,$spec or die "cannot open $spec";
|
|
$imports{$mod} = [ ];
|
|
while (<SPEC>)
|
|
{
|
|
if (/^\#?import\s+(-delay\s+)?([a-zA-Z0-9_]+)\.dll/)
|
|
{
|
|
my $imp = $2;
|
|
push @{$imports{$mod}}, $imp;
|
|
next;
|
|
}
|
|
if (/^\#?import\s+(-delay\s+)?([a-zA-Z0-9_.]+)/)
|
|
{
|
|
my $imp = $2;
|
|
push @{$imports{$mod}}, $imp;
|
|
next;
|
|
}
|
|
}
|
|
}
|
|
|
|
open OLDMAKE,"Makefile.in" or die "cannot open Makefile.in";
|
|
open NEWMAKE,">Makefile.in.new" or die "cannot create Makefile.in.new";
|
|
|
|
while (<OLDMAKE>)
|
|
{
|
|
last if (/^EXTRADLLNAMES/);
|
|
print NEWMAKE $_;
|
|
}
|
|
close OLDMAKE;
|
|
|
|
printf NEWMAKE "EXTRADLLNAMES =";
|
|
foreach $extra (values %altnames) { push @extra, @$extra; }
|
|
foreach $extra (sort @extra)
|
|
{
|
|
printf NEWMAKE " \\\n\t%s", $extra;
|
|
}
|
|
|
|
printf NEWMAKE "\n\nSUBDIRS =";
|
|
foreach $dir (sort values %directories)
|
|
{
|
|
printf NEWMAKE " \\\n\t%s", $dir;
|
|
}
|
|
printf NEWMAKE "\n";
|
|
|
|
print NEWMAKE <<EOF;
|
|
|
|
\@MAKE_RULES\@
|
|
|
|
all: \$(DLLS:%=lib%.\@LIBEXT\@) \$(EXTRADLLNAMES:%=lib%.\@LIBEXT\@)
|
|
|
|
# Map library name to directory
|
|
|
|
EOF
|
|
|
|
foreach $mod (sort keys %directories)
|
|
{
|
|
my $count = 0;
|
|
printf NEWMAKE "lib%s.\@LIBEXT\@", $mod;
|
|
foreach $i (sort @{$altnames{$mod}})
|
|
{
|
|
if ($count++ >= 3)
|
|
{
|
|
$count = 0;
|
|
printf NEWMAKE " \\\n ";
|
|
}
|
|
printf NEWMAKE " lib%s.\@LIBEXT\@", $i;
|
|
}
|
|
printf NEWMAKE ": %s/lib%s.\@LIBEXT\@\n", $directories{$mod}, $mod;
|
|
printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/lib%s.\@LIBEXT\@ \$@\n\n", $directories{$mod}, $mod;
|
|
}
|
|
|
|
print NEWMAKE "# Inter-dll dependencies (only necessary for dynamic libs)\n\n";
|
|
|
|
my @depends = ();
|
|
foreach $mod (sort keys %imports)
|
|
{
|
|
next unless $#{$imports{$mod}} >= 0;
|
|
my $dep = sprintf("%s/lib%s.\@LIBEXT\@:", $directories{$mod}, $mod);
|
|
foreach $i (@{$imports{$mod}})
|
|
{
|
|
$dep .= sprintf(" lib%s.\@LIBEXT\@", $i);
|
|
}
|
|
push @depends, $dep . "\n";
|
|
}
|
|
print NEWMAKE sort @depends;
|
|
|
|
print NEWMAKE <<EOF;
|
|
|
|
\$(DLLFILES): dummy
|
|
\@cd `dirname \$\@` && \$(MAKE)
|
|
|
|
\$(DLLFILES:%=%_install_): dummy
|
|
\@cd `dirname \$\@` && \$(MAKE) install
|
|
|
|
\$(DLLFILES:%=%_uninstall_): dummy
|
|
\@cd `dirname \$\@` && \$(MAKE) uninstall
|
|
|
|
\$(DLLFILES:%=%_checklink_): dummy
|
|
\@cd `dirname \$\@` && \$(MAKE) checklink
|
|
|
|
install:: \$(DLLFILES:%=%_install_)
|
|
|
|
uninstall:: \$(DLLFILES:%=%_uninstall_)
|
|
|
|
checklink:: \$(DLLFILES:%=%_checklink_)
|
|
EOF
|
|
|
|
close NEWMAKE;
|
|
rename "Makefile.in.new", "Makefile.in";
|
|
printf "Successfully updated Makefile.in\n";
|