kernel32: Fixed buffer overrun in get_registry_locale_info.
[wine] / dlls / make_dlls
1 #!/usr/bin/perl -w
2 #
3 # Update the dll dependencies in the dlls main Makefile.in.
4 #
5 # Copyright 2001 Alexandre Julliard
6 #
7 # This library is free software; you can redistribute it and/or
8 # modify it under the terms of the GNU Lesser General Public
9 # License as published by the Free Software Foundation; either
10 # version 2.1 of the License, or (at your option) any later version.
11 #
12 # This library is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 # Lesser General Public License for more details.
16 #
17 # You should have received a copy of the GNU Lesser General Public
18 # License along with this library; if not, write to the Free Software
19 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 #
21
22 use strict;
23
24 my %directories = ();
25 my %testdirs = ();
26 my %importlibs = ();
27 my %static_implibs = ();
28 my %staticlib_dirs = ();
29 my %altnames = ();
30
31 # list of special dlls that can be switched on or off by configure
32 my %special_dlls =
33 (
34   "glu32"    => "GLU32FILES",
35   "glut32"   => "GLUT32FILES",
36   "opengl32" => "OPENGLFILES",
37   "wined3d"  => "OPENGLFILES",
38   "winex11.drv" => "XFILES",
39   "winequartz.drv" => "QUARTZFILES"
40 );
41
42 sub needs_symlink($)
43 {
44     (my $mod = $_[0]) =~ s/\.dll$//;
45     return $mod ne $directories{$_[0]};
46 }
47
48 sub update_file($)
49 {
50     my $file = shift;
51     if (!system "cmp $file $file.new >/dev/null")
52     {
53         unlink "$file.new";
54         print "$file is unchanged\n";
55     }
56     else
57     {
58         rename "$file.new", "$file";
59         print "$file updated\n";
60         if (-x "./config.status" && $file =~ /(.*Makefile)\.in$/)
61         {
62             system "./config.status", $1;
63         }
64     }
65 }
66
67 # if we are inside the dlls dir, go up one level
68 if (! -f "configure.ac" && -f "../configure.ac") { chdir(".."); }
69
70 my @args = @ARGV;
71 if (!@args) { @args = map { s/^(.*)\.in/$1/; $_; } split(/\s/,`find dlls -name Makefile.in -print`); }
72
73 foreach my $i (@args)
74 {
75     if ($i =~ /dlls\/(.*)\/tests\/Makefile/)
76     {
77         $testdirs{$1} = "$1/tests";
78         next;
79     }
80
81     open MAKE, "$i.in" or die "cannot open $i.in\n";
82
83     my $module = undef;
84     my $dir = $i;
85
86     while (<MAKE>)
87     {
88         chop;
89         # EPP hack to disable this DLL... the MKDLL_SKIP comment must appear
90         # at the very top of the Makefile.in
91         last if (/^\#\s*MKDLL_SKIP/);
92
93         if (/^MODULE\s*=\s*([a-zA-Z0-9_.]+)/)
94         {
95             $module = $1;
96             if ($module =~ /^lib.*\.a$/)
97             {
98                 ($staticlib_dirs{$module} = $i) =~ s/^dlls\/(.*)\/[^\/]+$/$1/;
99                 die "invalid module $module in dir $staticlib_dirs{$module}\n" if "lib$staticlib_dirs{$module}.a" ne $module;
100             }
101             else
102             {
103                 ($directories{$module} = $i) =~ s/^dlls\/(.*)\/[^\/]+$/$1/;
104             }
105             next;
106         }
107         if (/^IMPORTLIB\s*=\s*([a-zA-Z0-9_.]+)\.\$\(IMPLIBEXT\)/)
108         {
109             $importlibs{$module} = $1;
110             next;
111         }
112         if (/^IMPLIB_SRCS\s*=/)
113         {
114             $static_implibs{$module} = 1;
115             next;
116         }
117         if (/^SPEC_SRCS16\s*=\s*(.*)/)
118         {
119             my $specs = $1;
120             while ($specs =~ /\s*(.*)\\$/) { $specs = $1 . <MAKE>; }
121             my @list = split(/\s+/,$specs);
122             @list = map { $_ =~ s/\.spec$//; $_ .= ".dll" unless $_ =~ /\./; $_; } @list;
123             $altnames{$module} = \@list;
124             next;
125         }
126     }
127     close MAKE;
128 }
129
130 open NEWMAKE,">dlls/Makefile.in.new" or die "cannot create dlls/Makefile.in.new";
131
132 ################################################################
133 # makefile header
134
135 print NEWMAKE <<EOF;
136 # Automatically generated by make_dlls; DO NOT EDIT!!
137
138 TOPSRCDIR = \@top_srcdir\@
139 TOPOBJDIR = ..
140 SRCDIR    = \@srcdir\@
141 VPATH     = \@srcdir\@
142
143 EOF
144
145 ################################################################
146 # output special dlls configure definitions
147
148 printf NEWMAKE "# special configure-dependent targets\n\n";
149 my %specials = ();
150 foreach my $mod (sort keys %special_dlls)
151 {
152     $specials{$special_dlls{$mod}} .= " " . $mod;
153 }
154 foreach my $i (sort keys %specials)
155 {
156     printf NEWMAKE "%s =%s\n", $i, $specials{$i};
157 }
158 printf NEWMAKE "EXTRADIRS =";
159 foreach my $i (sort keys %specials) { printf NEWMAKE " \@%s\@", $i; }
160 printf NEWMAKE "\n\n";
161
162
163 ################################################################
164 # output the subdirs list
165
166 print NEWMAKE "# Subdir list\n\nBASEDIRS =";
167 foreach my $dir (sort values %directories)
168 {
169     next if defined($special_dlls{$dir});  # skip special dlls
170     printf NEWMAKE " \\\n\t%s", $dir;
171 }
172
173 print NEWMAKE "\n\nIMPLIBSUBDIRS = \\\n\t";
174 print NEWMAKE join " \\\n\t", sort values %staticlib_dirs;
175
176 print NEWMAKE "\n\nTESTSUBDIRS = \\\n\t";
177 print NEWMAKE join " \\\n\t", sort values %testdirs;
178
179 print NEWMAKE "\n\nSUBDIRS = \\\n\t";
180 print NEWMAKE join " \\\n\t", "\$(BASEDIRS)", "\$(IMPLIBSUBDIRS)", "\$(TESTSUBDIRS)",
181                               sort keys %special_dlls;
182 print NEWMAKE <<EOF;
183
184
185 BUILDSUBDIRS   = \$(BASEDIRS) \$(EXTRADIRS) \$(TESTSUBDIRS)
186 INSTALLSUBDIRS = \$(BASEDIRS) \$(EXTRADIRS) \$(IMPLIBSUBDIRS)
187 DOCSUBDIRS     = \$(BASEDIRS) \$(EXTRADIRS)
188 EOF
189
190 ################################################################
191 # output the all: target
192
193 my %targets = ();  # use a hash to get rid of duplicate target names
194 my %targets16 = ();
195 foreach my $mod (sort keys %directories)
196 {
197     next if defined($special_dlls{$directories{$mod}});  # skip special dlls
198     $targets{$mod . ".so"} = 1 if needs_symlink($mod);
199     next unless defined $altnames{$mod};
200     foreach my $i (sort @{$altnames{$mod}})
201     {
202         $targets16{$i . "16"} = $mod;
203     }
204 }
205
206 print NEWMAKE <<EOF;
207
208 \@MAKE_RULES\@
209
210 # Symbolic links
211
212 WIN16_FILES = \\
213 EOF
214 printf NEWMAKE "\t%s\n", join( " \\\n\t", sort keys %targets16 );
215
216 print NEWMAKE <<EOF;
217
218 SYMLINKS_SO = \\
219         \@WIN16_FILES\@ \\
220 EOF
221 printf NEWMAKE "\t%s\n", join( " \\\n\t", sort keys %targets );
222
223 print NEWMAKE <<EOF;
224
225 # Main target
226
227 all: \$(BUILDSUBDIRS) symlinks\$(DLLEXT)
228
229 .PHONY: symlinks symlinks.so implib
230
231 symlinks.so: \$(SYMLINKS_SO)
232
233 symlinks: \$(BUILDSUBDIRS)
234
235 EOF
236
237 ################################################################
238 # output the lib name -> directory rules
239
240 print NEWMAKE "# Map symlink name to the corresponding library\n\n";
241 foreach my $mod (sort keys %directories)
242 {
243     next unless needs_symlink($mod);
244     printf NEWMAKE "%s.so: %s/%s.so\n", $mod, $directories{$mod}, $mod;
245     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/%s.so \$@\n\n", $directories{$mod}, $mod;
246 }
247
248 print NEWMAKE "# Placeholders for 16-bit libraries\n\n";
249 foreach my $mod (sort keys %directories)
250 {
251     next unless defined $altnames{$mod};
252     printf NEWMAKE "%s:\n", join(" ", map { $_ . "16"; } sort @{$altnames{$mod}});
253     printf NEWMAKE "\techo \"%s\" >\$\@\n\n", $mod;
254 }
255
256 ################################################################
257 # output the import libraries rules
258
259 print NEWMAKE "# Import libraries\n\n";
260 print NEWMAKE "STATIC_IMPLIBEXT = \$(IMPLIBEXT:def=def.a)\n\n";
261
262 my @lib_symlinks = ();
263 foreach my $mod (sort keys %importlibs)
264 {
265     my $dir = $directories{$mod};
266     my $lib = $importlibs{$mod};
267     if ($lib ne "lib" . $dir) { push @lib_symlinks, $mod; }
268 }
269 print NEWMAKE "IMPORT_SYMLINKS =";
270 foreach my $mod (sort @lib_symlinks)
271 {
272     printf NEWMAKE " \\\n\t%s.\$(IMPLIBEXT)", $importlibs{$mod};
273 }
274
275 print NEWMAKE "\n\nIMPORT_LIBS = \\\n\t\$(IMPORT_SYMLINKS)";
276 foreach my $mod (sort keys %staticlib_dirs)
277 {
278     printf NEWMAKE " \\\n\t%s/%s", $staticlib_dirs{$mod}, $mod;
279 }
280 foreach my $mod (sort keys %importlibs)
281 {
282     my $dir = $directories{$mod};
283     my $def = $mod;
284     $def =~ s/\.(dll|drv)$//;
285     printf NEWMAKE " \\\n\t%s/lib%s.\$(IMPLIBEXT)", $dir, $def;
286     printf NEWMAKE " \\\n\t%s/lib%s.\$(STATIC_IMPLIBEXT)", $dir, $def if $static_implibs{$mod};
287 }
288 print NEWMAKE "\n\n";
289 print NEWMAKE "implib: \$(IMPORT_LIBS)\n\n";
290
291 foreach my $mod (sort keys %importlibs)
292 {
293     my $dir = $directories{$mod};
294     my $lib = $importlibs{$mod};
295     my $spec = $mod;
296     $spec =~ s/\.dll$//;
297     printf NEWMAKE "%s/%s.\$(IMPLIBEXT): %s/%s.spec \$(WINEBUILD)\n", $dir, $lib, $dir, $spec;
298     printf NEWMAKE "\t\@cd %s && \$(MAKE) %s.\$(IMPLIBEXT)\n\n", $dir, $lib;
299     next unless $static_implibs{$mod};
300     printf NEWMAKE "%s/%s.\$(STATIC_IMPLIBEXT): dummy\n", $dir, $lib, $dir, $spec;
301     printf NEWMAKE "\t\@cd %s && \$(MAKE) %s.\$(STATIC_IMPLIBEXT)\n\n", $dir, $lib;
302 }
303 foreach my $mod (sort @lib_symlinks)
304 {
305     my $dir = $directories{$mod};
306     my $lib = $importlibs{$mod} . ".\$(IMPLIBEXT)";
307     printf NEWMAKE "%s: %s/%s\n", $lib, $dir, $lib;
308     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/%s \$@\n\n", $dir, $lib;
309 }
310
311 print NEWMAKE <<EOF;
312 \$(BUILDSUBDIRS): \$(IMPORT_LIBS)
313 \$(INSTALLSUBDIRS:%=%/__install__) \$(INSTALLSUBDIRS:%=%/__install-lib__): \$(IMPORT_LIBS)
314
315 EOF
316
317 ################################################################
318 # output the inter-dll dependencies and rules
319
320 print NEWMAKE "# Map library name to the corresponding directory\n\n";
321
322 foreach my $mod (sort keys %directories)
323 {
324     next unless needs_symlink($mod);
325     printf NEWMAKE "%s/%s.so: %s\n", $directories{$mod}, $mod, $directories{$mod};
326 }
327 foreach my $mod (sort keys %staticlib_dirs)
328 {
329     printf NEWMAKE "%s/%s: %s\n", $staticlib_dirs{$mod}, $mod, $staticlib_dirs{$mod};
330 }
331
332 ################################################################
333 # makefile trailer
334
335 print NEWMAKE <<EOF;
336
337 # Misc rules
338
339 install-lib:: \$(INSTALLSUBDIRS:%=%/__install-lib__)
340
341 install-dev:: \$(INSTALLSUBDIRS:%=%/__install-dev__)
342
343 uninstall::
344         -rmdir \$(DESTDIR)\$(dlldir)
345
346 clean::
347         \$(RM) \$(IMPORT_SYMLINKS) \$(WIN16_FILES)
348 EOF
349
350 close NEWMAKE;
351 update_file("dlls/Makefile.in");
352
353 ################################################################
354 # .gitignore file
355
356 open GITIGNORE, ">dlls/.gitignore.new" or die "cannot create dlls/.gitignore.new";
357 print GITIGNORE "# Automatically generated by make_dlls; DO NOT EDIT!!\n";
358
359 my @ignores =
360 (
361  "/Makedll.rules",
362  "/Makeimplib.rules",
363  "/Maketest.rules",
364  "*/tests/testlist.c",
365  "*/tests/*.ok",
366 );
367
368 foreach my $mod (sort @lib_symlinks)
369 {
370     push @ignores, "/$importlibs{$mod}.def";
371 }
372 foreach my $mod (sort keys %directories)
373 {
374     next unless defined $altnames{$mod};
375     push @ignores, map { "/" . $_ . "16"; } @{$altnames{$mod}};
376 }
377 foreach my $mod (sort keys %importlibs)
378 {
379     my $dir = $directories{$mod};
380     my $def = $mod;
381     $def =~ s/\.(dll|drv)$//;
382     push @ignores, "$dir/lib$def.def";
383 }
384
385 print GITIGNORE join("\n", sort @ignores) . "\n";
386
387 close GITIGNORE;
388 update_file("dlls/.gitignore");