dlls/make_dlls

   1 #!/usr/bin/perl -w
   2 #
   3 # Update the dll dependencies in the dlls main Makefile.in.
   4 # Must be run in the dlls/ directory of the Wine tree.
   5 #
   6 # Copyright 2001 Alexandre Julliard
   7 #
   8
   9 $makefiles = `find . -name Makefile.in -print`;
  10
  11 %imports = ();
  12 %directories = ();
  13 %altnames = ();
  14
  15 # list of special dlls that can be switched on or off by configure
  16 %special_dlls =
  17 (
  18   "ddraw"    => "XFILES",
  19   "glu32"    => "GLU32FILES",
  20   "opengl32" => "OPENGLFILES",
  21   "x11drv"   => "XFILES"
  22 );
  23
  24 foreach $i (split(/\s/,$makefiles))
  25 {
  26     open MAKE,$i;
  27     while (<MAKE>)
  28     {
  29         chop;
  30         if (/^MODULE\s*=\s*([a-zA-Z0-9_.]+)/)
  31         {
  32             $module = $1;
  33             ($directories{$module} = $i) =~ s/^\.\/(.*)\/[^\/]+$/$1/;
  34             next;
  35         }
  36         if (/^ALTNAMES\s*=\s*(.*)/)
  37         {
  38             my @list = split(/\s/,$1);
  39             $altnames{$module} = \@list;
  40             next;
  41         }
  42     }
  43 }
  44
  45 foreach $mod (sort keys %directories)
  46 {
  47     my $spec = sprintf("%s/%s.spec", $directories{$mod}, $mod);
  48     open SPEC,$spec or die "cannot open $spec";
  49     $imports{$mod} = [ ];
  50     while (<SPEC>)
  51     {
  52         if (/^\#?import\s+(-delay\s+)?([a-zA-Z0-9_]+)\.dll/)
  53         {
  54             my $imp = $2;
  55             push @{$imports{$mod}}, $imp;
  56             next;
  57         }
  58         if (/^\#?import\s+(-delay\s+)?([a-zA-Z0-9_.]+)/)
  59         {
  60             my $imp = $2;
  61             push @{$imports{$mod}}, $imp;
  62             next;
  63         }
  64     }
  65 }
  66
  67 open NEWMAKE,">Makefile.in.new" or die "cannot create Makefile.in.new";
  68
  69 ################################################################
  70 # makefile header
  71
  72 print NEWMAKE <<EOF;
  73 # Automatically generated by make_dlls; DO NOT EDIT!!
  74
  75 TOPSRCDIR = \@top_srcdir\@
  76 TOPOBJDIR = ..
  77 SRCDIR    = \@srcdir\@
  78 VPATH     = \@srcdir\@
  79 LIBEXT    = \@LIBEXT\@
  80
  81 EOF
  82
  83 ################################################################
  84 # output special dlls configure definitions
  85
  86 printf NEWMAKE "# special configure-dependent targets\n\n";
  87 my %specials = ();
  88 foreach $mod (sort keys %special_dlls)
  89 {
  90     $specials{$special_dlls{$mod}} .= " " . $mod;
  91 }
  92 foreach $i (sort keys %specials)
  93 {
  94     printf NEWMAKE "%s =%s\n", $i, $specials{$i};
  95 }
  96 printf NEWMAKE "EXTRADIRS =";
  97 foreach $i (sort keys %specials) { printf NEWMAKE " \@%s\@", $i; }
  98 printf NEWMAKE "\n\n";
  99
 100
 101 ################################################################
 102 # output the subdirs list
 103
 104 print NEWMAKE <<EOF;
 105 # Subdir list
 106
 107 SUBDIRS = \\
 108 EOF
 109 printf NEWMAKE "\t\$(EXTRADIRS)";
 110 foreach $dir (sort values %directories)
 111 {
 112     next if defined($special_dlls{$dir});  # skip special dlls
 113     printf NEWMAKE " \\\n\t%s", $dir;
 114 }
 115 printf NEWMAKE "\n";
 116
 117
 118 ################################################################
 119 # output the all: target
 120
 121 my %targets = ();  # use a hash to get rid of duplicate target names
 122 foreach $mod (sort keys %directories)
 123 {
 124     next if defined($special_dlls{$mod});  # skip special dlls
 125     $targets{sprintf("lib%s.\$(LIBEXT)",$mod)} = 1;
 126     next unless defined $altnames{$mod};
 127     foreach $i (sort @{$altnames{$mod}})
 128     {
 129         $targets{sprintf("lib%s.\$(LIBEXT)",$i)} = 1;
 130     }
 131 }
 132 print NEWMAKE <<EOF;
 133
 134 # Main target
 135
 136 all: \\
 137         \$(EXTRADIRS:%=lib%.\$(LIBEXT)) \\
 138 EOF
 139 printf NEWMAKE "\t%s\n", join( " \\\n\t", sort keys %targets );
 140
 141
 142 ################################################################
 143 # output the lib name -> directory rules
 144
 145 print NEWMAKE <<EOF;
 146
 147 \@MAKE_RULES\@
 148
 149 # Map library name to directory
 150
 151 EOF
 152
 153 foreach $mod (sort keys %directories)
 154 {
 155     printf NEWMAKE "lib%s.\$(LIBEXT)", $mod;
 156     if (defined $altnames{$mod})
 157     {
 158         my $count = 1;
 159         foreach $i (sort @{$altnames{$mod}})
 160         {
 161             if (!($count++ % 3)) { printf NEWMAKE " \\\n "; }
 162             printf NEWMAKE " lib%s.\$(LIBEXT)", $i;
 163         }
 164     }
 165     printf NEWMAKE ": %s/lib%s.\$(LIBEXT)\n", $directories{$mod}, $mod;
 166     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/lib%s.\$(LIBEXT) \$@\n\n", $directories{$mod}, $mod;
 167 }
 168
 169
 170 ################################################################
 171 # output the inter-dll dependencies and rules
 172
 173 print NEWMAKE "# Inter-dll dependencies\n\n";
 174
 175 my @depends = ();
 176 foreach $mod (sort keys %imports)
 177 {
 178     my $count = 1;
 179     my $dep = sprintf("%s/lib%s.\$(LIBEXT): dummy", $directories{$mod}, $mod);
 180     foreach $i (@{$imports{$mod}})
 181     {
 182         if ($count++ >= 3)
 183         {
 184             $count = 0;
 185             $dep .= " \\\n ";
 186         }
 187         $dep .= sprintf(" lib%s.\$(LIBEXT)", $i);
 188     }
 189     $dep .= sprintf("\n\t\@cd %s && \$(MAKE) lib%s.\$(LIBEXT)\n\n",$directories{$mod}, $mod);
 190     push @depends, $dep;
 191 }
 192 print NEWMAKE sort @depends;
 193
 194
 195 ################################################################
 196 # makefile trailer
 197
 198 print NEWMAKE <<EOF;
 199 # Misc rules
 200
 201 \$(SUBDIRS:%=%/__test__): dummy
 202         \@cd `dirname \$\@` && \$(MAKE) test
 203
 204 \$(SUBDIRS:%=%/__checklink__): dummy
 205         \@cd `dirname \$\@` && \$(MAKE) checklink
 206
 207 \$(SUBDIRS:%=%/__debug_channels__): dummy
 208         \@cd `dirname \$\@` && \$(MAKE) debug_channels
 209
 210 install:: \$(SUBDIRS:%=%/__install__)
 211
 212 uninstall:: \$(SUBDIRS:%=%/__uninstall__)
 213
 214 test:: \$(SUBDIRS:%=%/__test__)
 215
 216 checklink:: \$(SUBDIRS:%=%/__checklink__)
 217
 218 debug_channels:: \$(SUBDIRS:%=%/__debug_channels__)
 219 EOF
 220
 221 close NEWMAKE;
 222 rename "Makefile.in.new", "Makefile.in";
 223 printf "Successfully updated Makefile.in\n";