Run make clean in all directories, even the ones we don't compile in.
[wine] / 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 use strict;
24
25 my $makefiles = `find . -name Makefile.in -print`;
26
27 my %imports = ();
28 my %directories = ();
29 my %altnames = ();
30 my %linked_dlls = ();
31
32 # list of special dlls that can be switched on or off by configure
33 my %special_dlls =
34 (
35   "ddraw"    => "XFILES",
36   "glu32"    => "GLU32FILES",
37   "opengl32" => "OPENGLFILES",
38   "x11drv"   => "XFILES"
39 );
40
41 foreach my $i (split(/\s/,$makefiles))
42 {
43     my $module;
44
45     open MAKE,$i;
46
47     $module = undef;
48     while (<MAKE>)
49     {
50         chop;
51         # EPP hack to disable this DLL... the MKDLL_SKIP comment must appear
52         # at the very top of the Makefile.in
53         last if (/^\#\s*MKDLL_SKIP/);
54
55         if (/^MODULE\s*=\s*([a-zA-Z0-9_.]+)/)
56         {
57             $module = $1;
58             $imports{$module} = [ ];
59             ($directories{$module} = $i) =~ s/^\.\/(.*)\/[^\/]+$/$1/;
60             next;
61         }
62         if (/^ALTNAMES\s*=\s*(.*)/)
63         {
64             my @list = split(/\s/,$1);
65             $altnames{$module} = \@list;
66             next;
67         }
68         if (/^(DELAYIMPORTS|IMPORTS)\s*=\s*(.*)/)
69         {
70             my @list = map { /\./ ? $_ : $_ . ".dll"; } split(/\s/,$2);
71             push @{$imports{$module}}, @list;
72             next;
73         }
74         if (/^LDIMPORTS\s*=\s*(.*)/)
75         {
76             my @list = map { /\./ ? $_ : $_ . ".dll"; } split(/\s/,$1);
77             $linked_dlls{$module} = \@list;
78             next;
79         }
80     }
81     close MAKE;
82     push @{$imports{$module}}, "kernel32.dll" unless !defined($module) || @{$imports{$module}} || $module eq "ntdll.dll";
83 }
84
85 open NEWMAKE,">Makefile.in.new" or die "cannot create Makefile.in.new";
86
87 ################################################################
88 # makefile header
89
90 print NEWMAKE <<EOF;
91 # Automatically generated by make_dlls; DO NOT EDIT!!
92
93 TOPSRCDIR = \@top_srcdir\@
94 TOPOBJDIR = ..
95 SRCDIR    = \@srcdir\@
96 VPATH     = \@srcdir\@
97
98 EOF
99
100 ################################################################
101 # output special dlls configure definitions
102
103 printf NEWMAKE "# special configure-dependent targets\n\n";
104 my %specials = ();
105 foreach my $mod (sort keys %special_dlls)
106 {
107     $specials{$special_dlls{$mod}} .= " " . $mod;
108 }
109 foreach my $i (sort keys %specials)
110 {
111     printf NEWMAKE "%s =%s\n", $i, $specials{$i};
112 }
113 printf NEWMAKE "EXTRADIRS =";
114 foreach my $i (sort keys %specials) { printf NEWMAKE " \@%s\@", $i; }
115 printf NEWMAKE "\n\n";
116
117
118 ################################################################
119 # output the subdirs list
120
121 print NEWMAKE "# Subdir list\n\nBASEDIRS =";
122 foreach my $dir (sort values %directories)
123 {
124     next if defined($special_dlls{$dir});  # skip special dlls
125     printf NEWMAKE " \\\n\t%s", $dir;
126 }
127
128 printf NEWMAKE "\n\nSUBDIRS = \\\n\t\$(BASEDIRS)";
129 foreach my $dir (sort keys %special_dlls)
130 {
131     printf NEWMAKE " \\\n\t%s", $dir;
132 }
133 printf NEWMAKE <<EOF;
134
135
136 BUILDSUBDIRS = \$(BASEDIRS) \$(EXTRADIRS)
137 EOF
138
139 ################################################################
140 # output the all: target
141
142 my %targets = ();  # use a hash to get rid of duplicate target names
143 foreach my $mod (sort keys %directories)
144 {
145     next if defined($special_dlls{$directories{$mod}});  # skip special dlls
146     $targets{sprintf("%s\$(DLLEXT)",$mod)} = 1;
147     next unless defined $altnames{$mod};
148     foreach my $i (sort @{$altnames{$mod}})
149     {
150         $targets{sprintf("%s\$(DLLEXT)",$i)} = 1;
151     }
152 }
153 print NEWMAKE <<EOF;
154
155 # Main target
156
157 \@MAKE_RULES\@
158
159 all: \\
160         \$(EXTRADIRS:%=%.dll\$(DLLEXT)) \\
161 EOF
162 printf NEWMAKE "\t%s\n", join( " \\\n\t", sort keys %targets );
163
164
165 ################################################################
166 # output the lib name -> directory rules
167
168 print NEWMAKE <<EOF;
169
170 # Map library name to directory
171
172 EOF
173
174 foreach my $mod (sort keys %directories)
175 {
176     printf NEWMAKE "%s\$(DLLEXT)", $mod;
177     if (defined $altnames{$mod})
178     {
179         my $count = 1;
180         foreach my $i (sort @{$altnames{$mod}})
181         {
182             if (!($count++ % 3)) { printf NEWMAKE " \\\n "; }
183             printf NEWMAKE " %s\$(DLLEXT)", $i;
184         }
185     }
186     printf NEWMAKE ": %s\n", $directories{$mod};
187     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/%s\$(DLLEXT) \$@\n\n", $directories{$mod}, $mod;
188 }
189
190
191 ################################################################
192 # output the inter-dll dependencies and rules
193
194 print NEWMAKE "# Inter-dll dependencies\n\n";
195
196 my @depends = ();
197 foreach my $mod (sort keys %imports)
198 {
199     my $count = 0;
200     my $dep = sprintf("%s:", $directories{$mod});
201     $dep .= " " x (8-length($directories{$mod}));
202     foreach my $i (@{$imports{$mod}})
203     {
204         if ($count++ >= 4)
205         {
206             $count = 1;
207             $dep .= " \\\n" . " " x 9;
208         }
209         $dep .= sprintf(" %s\$(DLLEXT)", $i);
210     }
211     foreach my $i (@{$linked_dlls{$mod}})
212     {
213         if ($count++ >= 4)
214         {
215             $count = 1;
216             $dep .= " \\\n" . " " x 9;
217         }
218         $dep .= sprintf(" lib%s.\$(LIBEXT)", $i);
219     }
220     push @depends, $dep . "\n";
221 }
222 print NEWMAKE sort @depends;
223
224
225 ################################################################
226 # output the linkable dlls special links
227
228 my %linkable_dlls = ();
229 foreach my $mod (keys %imports)
230 {
231     foreach my $i (@{$linked_dlls{$mod}}) { $linkable_dlls{$i} = 1; }
232 }
233
234 print NEWMAKE "\n# Special targets for dlls that we need to link to\n\n";
235 foreach my $mod (keys %linkable_dlls)
236 {
237     printf NEWMAKE "lib%s.\$(LIBEXT): %s\n", $mod, $directories{$mod};
238     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/%s\$(DLLEXT) \$@\n\n", $directories{$mod}, $mod;
239 }
240
241 ################################################################
242 # makefile trailer
243
244 print NEWMAKE <<EOF;
245 # Misc rules
246
247 \$(BUILDSUBDIRS:%=%/__checklink__): dummy
248         \@cd `dirname \$\@` && \$(MAKE) checklink
249
250 install:: \$(BUILDSUBDIRS:%=%/__install__)
251
252 uninstall:: \$(BUILDSUBDIRS:%=%/__uninstall__)
253         -rmdir \$(dlldir)
254
255 check test:: \$(BUILDSUBDIRS:%=%/__test__)
256
257 checklink:: \$(BUILDSUBDIRS:%=%/__checklink__)
258 EOF
259
260 close NEWMAKE;
261 rename "Makefile.in.new", "Makefile.in";
262 printf "Successfully updated Makefile.in\n";