git.oblomov.eu Git - wine/blob - 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 # This library is free software; you can redistribute it and/or
   9 # modify it under the terms of the GNU Lesser General Public
  10 # License as published by the Free Software Foundation; either
  11 # version 2.1 of the License, or (at your option) any later version.
  12 #
  13 # This library is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 # Lesser General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU Lesser General Public
  19 # License along with this library; if not, write to the Free Software
  20 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  21 #
  22
  23 $makefiles = `find . -name Makefile.in -print`;
  24
  25 %imports = ();
  26 %directories = ();
  27 %altnames = ();
  28 %linked_dlls = ();
  29
  30 # list of special dlls that can be switched on or off by configure
  31 %special_dlls =
  32 (
  33   "ddraw"    => "XFILES",
  34   "glu32"    => "GLU32FILES",
  35   "opengl32" => "OPENGLFILES",
  36   "x11drv"   => "XFILES"
  37 );
  38
  39 foreach $i (split(/\s/,$makefiles))
  40 {
  41     open MAKE,$i;
  42     while (<MAKE>)
  43     {
  44         chop;
  45         if (/^MODULE\s*=\s*([a-zA-Z0-9_.]+)/)
  46         {
  47             $module = $1;
  48             $imports{$module} = [ ];
  49             ($directories{$module} = $i) =~ s/^\.\/(.*)\/[^\/]+$/$1/;
  50             next;
  51         }
  52         if (/^ALTNAMES\s*=\s*(.*)/)
  53         {
  54             my @list = split(/\s/,$1);
  55             $altnames{$module} = \@list;
  56             next;
  57         }
  58         if (/^(DELAYIMPORTS|IMPORTS)\s*=\s*(.*)/)
  59         {
  60             my @list = map { /\./ ? $_ : $_ . ".dll"; } split(/\s/,$2);
  61             push @{$imports{$module}}, @list;
  62             next;
  63         }
  64         if (/^LDIMPORTS\s*=\s*(.*)/)
  65         {
  66             my @list = map { /\./ ? $_ : $_ . ".dll"; } split(/\s/,$1);
  67             $linked_dlls{$module} = \@list;
  68             next;
  69         }
  70     }
  71     push @{$imports{$module}}, "kernel32.dll" unless @{$imports{$module}} || $module eq "ntdll.dll";
  72 }
  73
  74 open NEWMAKE,">Makefile.in.new" or die "cannot create Makefile.in.new";
  75
  76 ################################################################
  77 # makefile header
  78
  79 print NEWMAKE <<EOF;
  80 # Automatically generated by make_dlls; DO NOT EDIT!!
  81
  82 TOPSRCDIR = \@top_srcdir\@
  83 TOPOBJDIR = ..
  84 SRCDIR    = \@srcdir\@
  85 VPATH     = \@srcdir\@
  86
  87 EOF
  88
  89 ################################################################
  90 # output special dlls configure definitions
  91
  92 printf NEWMAKE "# special configure-dependent targets\n\n";
  93 my %specials = ();
  94 foreach $mod (sort keys %special_dlls)
  95 {
  96     $specials{$special_dlls{$mod}} .= " " . $mod;
  97 }
  98 foreach $i (sort keys %specials)
  99 {
 100     printf NEWMAKE "%s =%s\n", $i, $specials{$i};
 101 }
 102 printf NEWMAKE "EXTRADIRS =";
 103 foreach $i (sort keys %specials) { printf NEWMAKE " \@%s\@", $i; }
 104 printf NEWMAKE "\n\n";
 105
 106
 107 ################################################################
 108 # output the subdirs list
 109
 110 print NEWMAKE <<EOF;
 111 # Subdir list
 112
 113 SUBDIRS = \\
 114 EOF
 115 printf NEWMAKE "\t\$(EXTRADIRS)";
 116 foreach $dir (sort values %directories)
 117 {
 118     next if defined($special_dlls{$dir});  # skip special dlls
 119     printf NEWMAKE " \\\n\t%s", $dir;
 120 }
 121 printf NEWMAKE "\n";
 122
 123
 124 ################################################################
 125 # output the all: target
 126
 127 my %targets = ();  # use a hash to get rid of duplicate target names
 128 foreach $mod (sort keys %directories)
 129 {
 130     next if defined($special_dlls{$directories{$mod}});  # skip special dlls
 131     $targets{sprintf("%s\$(DLLEXT)",$mod)} = 1;
 132     next unless defined $altnames{$mod};
 133     foreach $i (sort @{$altnames{$mod}})
 134     {
 135         $targets{sprintf("%s\$(DLLEXT)",$i)} = 1;
 136     }
 137 }
 138 print NEWMAKE <<EOF;
 139
 140 # Main target
 141
 142 \@MAKE_RULES\@
 143
 144 all: \\
 145         \$(EXTRADIRS:%=%.dll\$(DLLEXT)) \\
 146 EOF
 147 printf NEWMAKE "\t%s\n", join( " \\\n\t", sort keys %targets );
 148
 149
 150 ################################################################
 151 # output the lib name -> directory rules
 152
 153 print NEWMAKE <<EOF;
 154
 155 # Map library name to directory
 156
 157 EOF
 158
 159 foreach $mod (sort keys %directories)
 160 {
 161     printf NEWMAKE "%s\$(DLLEXT)", $mod;
 162     if (defined $altnames{$mod})
 163     {
 164         my $count = 1;
 165         foreach $i (sort @{$altnames{$mod}})
 166         {
 167             if (!($count++ % 3)) { printf NEWMAKE " \\\n "; }
 168             printf NEWMAKE " %s\$(DLLEXT)", $i;
 169         }
 170     }
 171     printf NEWMAKE ": %s/%s\$(DLLEXT)\n", $directories{$mod}, $mod;
 172     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/%s\$(DLLEXT) \$@\n\n", $directories{$mod}, $mod;
 173 }
 174
 175
 176 ################################################################
 177 # output the inter-dll dependencies and rules
 178
 179 print NEWMAKE "# Inter-dll dependencies\n\n";
 180
 181 my @depends = ();
 182 foreach $mod (sort keys %imports)
 183 {
 184     my $count = 1;
 185     my $dep = sprintf("%s/%s\$(DLLEXT): dummy", $directories{$mod}, $mod);
 186     foreach $i (@{$imports{$mod}})
 187     {
 188         if ($count++ >= 3)
 189         {
 190             $count = 0;
 191             $dep .= " \\\n ";
 192         }
 193         $dep .= sprintf(" %s\$(DLLEXT)", $i);
 194     }
 195     foreach $i (@{$linked_dlls{$mod}})
 196     {
 197         if ($count++ >= 3)
 198         {
 199             $count = 0;
 200             $dep .= " \\\n ";
 201         }
 202         $dep .= sprintf(" lib%s.\$(LIBEXT)", $i);
 203     }
 204     $dep .= sprintf("\n\t\@cd %s && \$(MAKE) %s\$(DLLEXT)\n\n",$directories{$mod}, $mod);
 205     push @depends, $dep;
 206 }
 207 print NEWMAKE sort @depends;
 208
 209
 210 ################################################################
 211 # output the linkable dlls special links
 212
 213 %linkable_dlls = ();
 214 foreach $mod (keys %imports)
 215 {
 216     foreach $i (@{$linked_dlls{$mod}}) { $linkable_dlls{$i} = 1; }
 217 }
 218
 219 print NEWMAKE "# Special targets for dlls that we need to link to\n\n";
 220 foreach $mod (keys %linkable_dlls)
 221 {
 222     printf NEWMAKE "lib%s.\$(LIBEXT): %s/%s\$(DLLEXT)\n", $mod, $directories{$mod}, $mod;
 223     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/%s\$(DLLEXT) \$@\n\n", $directories{$mod}, $mod;
 224 }
 225
 226 ################################################################
 227 # makefile trailer
 228
 229 print NEWMAKE <<EOF;
 230 # Misc rules
 231
 232 \$(SUBDIRS:%=%/__checklink__): dummy
 233         \@cd `dirname \$\@` && \$(MAKE) checklink
 234
 235 install:: \$(SUBDIRS:%=%/__install__)
 236
 237 uninstall:: \$(SUBDIRS:%=%/__uninstall__)
 238         -rmdir \$(dlldir)
 239
 240 check test:: \$(SUBDIRS:%=%/__test__)
 241
 242 checklink:: \$(SUBDIRS:%=%/__checklink__)
 243 EOF
 244
 245 close NEWMAKE;
 246 rename "Makefile.in.new", "Makefile.in";
 247 printf "Successfully updated Makefile.in\n";