Sweden-Number/dlls/make_dlls

#!/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";