widl: Add new function, type_iface_get_stmts.
[wine] / tools / make_makefiles
1 #!/usr/bin/perl -w
2 #
3 # Build the auto-generated parts of the Wine makefiles.
4 #
5 # Copyright 2006 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 # Make rules files
23 my %makerules =
24 (
25  "MAKE_RULES" => "Make.rules",
26  "MAKE_DLL_RULES" => "dlls/Makedll.rules",
27  "MAKE_IMPLIB_RULES" => "dlls/Makeimplib.rules",
28  "MAKE_TEST_RULES" => "dlls/Maketest.rules",
29  "MAKE_PROG_RULES" => "programs/Makeprog.rules",
30 );
31
32 # Programs that we want to install in the bin directory too
33 my %bin_install =
34 (
35   "msiexec" => 1,
36   "notepad" => 1,
37   "progman" => 1,
38   "regedit" => 1,
39   "regsvr32" => 1,
40   "uninstaller" => 1,
41   "wineboot" => 1,
42   "winebrowser" => 1,
43   "winecfg" => 1,
44   "wineconsole" => 1,
45   "winedbg" => 1,
46   "winefile" => 1,
47   "winemine" => 1,
48   "winepath" => 1,
49 );
50
51 # Programs that we don't want to install at all
52 my %dont_install =
53 (
54   "cmdlgtst" => 1,
55   "view" => 1,
56   "winetest" => 1,
57 );
58
59 # Default patterns for top-level .gitignore
60 my @ignores = (
61     "*.[oa]",
62     "*.ok",
63     "*.res",
64     "*.so",
65     "/autom4te.cache",
66     "/config.cache",
67     "/config.log",
68     "/config.status",
69     "/TAGS",
70     "/tags",
71     "Makefile",
72     "dlldata.c",
73     "dlls/*/*.def",
74     "dlls/*/tests/*crosstest.exe",
75     "dlls/*/tests/testlist.c",
76     "include/config.h",
77     "include/stamp-h",
78     "programs/winetest/tests.rc",
79     "programs/winetest/*_test.exe",
80 );
81
82 # Source files and their resulting target to ignore
83 my @ignore_srcs = (
84     [ 'BISON_SRCS',   '\.y',   '.tab.c' ],
85     [ 'BISON_SRCS',   '\.y',   '.tab.h' ],
86     [ 'LEX_SRCS',     '\.l',   '.yy.c' ],
87     [ 'MC_SRCS',      '\.mc',  '.mc.rc' ],
88     [ 'IDL_TLB_SRCS', '\.idl', '.tlb' ],
89     [ 'IDL_H_SRCS',   '\.idl', '.h' ],
90     [ 'IDL_C_SRCS',   '\.idl', '.h' ],
91     [ 'IDL_I_SRCS',   '\.idl', '.h' ],
92     [ 'IDL_P_SRCS',   '\.idl', '.h' ],
93     [ 'IDL_S_SRCS',   '\.idl', '.h' ],
94     [ 'IDL_C_SRCS',   '\.idl', '_c.c' ],
95     [ 'IDL_I_SRCS',   '\.idl', '_i.c' ],
96     [ 'IDL_P_SRCS',   '\.idl', '_p.c' ],
97     [ 'IDL_S_SRCS',   '\.idl', '_s.c' ],
98 );
99
100 my %exported_wine_headers = (
101     "wine/debug.h" => 1,
102     "wine/exception.h" => 1,
103     "wine/library.h" => 1,
104     "wine/unicode.h" => 1,
105     "wine/itss.idl" => 1,
106     "wine/svcctl.idl" => 1,
107 );
108
109 my %private_idl_headers = (
110     "axcore.idl" => 1,
111     "axextend.idl" => 1,
112     "dbinit.idl" => 1,
113     "dbprop.idl" => 1,
114     "dbs.idl" => 1,
115     "devenum.idl" => 1,
116     "dyngraph.idl" => 1,
117     "vmrender.idl" => 1,
118     "wine/wined3d.idl" => 1,
119 );
120
121 my (@makefiles, %makefiles);
122
123 # update a file if changed
124 sub update_file($)
125 {
126     my $file = shift;
127     my $ret = !(-f $file) || system "cmp $file $file.new >/dev/null";
128     if (!$ret)
129     {
130         unlink "$file.new";
131     }
132     else
133     {
134         rename "$file.new", "$file";
135         print "$file updated\n";
136         if ($file eq "configure.ac")
137         {
138             system "autoconf";
139             print "configure updated\n";
140         }
141     }
142     return $ret;
143 }
144
145 # replace some lines in a file between two markers
146 sub replace_in_file($$$@)
147 {
148     my $file = shift;
149     my $start = shift;
150     my $end = shift;
151
152     open NEW_FILE, ">$file.new" or die "cannot create $file.new";
153
154     if (defined($start))
155     {
156         open OLD_FILE, "$file" or die "cannot open $file";
157         while (<OLD_FILE>)
158         {
159             last if /$start/;
160             print NEW_FILE $_;
161         }
162     }
163
164     print NEW_FILE @_;
165
166     if (defined($end))
167     {
168         my $skip=1;
169         while (<OLD_FILE>)
170         {
171             print NEW_FILE $_ unless $skip;
172             $skip = 0 if /$end/;
173         }
174     }
175
176     close OLD_FILE if defined($start);
177     close NEW_FILE;
178     return update_file($file);
179 }
180
181 # parse the specified makefile to identify the rules file
182 sub parse_makefile($)
183 {
184     my $file = shift;
185     my %make;
186
187     ($make{"=dir"} = $file) =~ s/[^\/]+$//;
188
189     open MAKE, "$file.in" or die "cannot open $file.in\n";
190
191     while (<MAKE>)
192     {
193         chomp;
194         while (/\\$/) { chop; $_ .= <MAKE>; chomp; }  # merge continued lines
195
196         if (/^\@(MAKE.*RULES)\@/)
197         {
198             my $var = $1;
199             $make{"=rules"} = $makerules{$var};
200             next;
201         }
202         if (/^(MODULE|IMPORTLIB|TESTDLL)\s*=\s*(.*)/)
203         {
204             $make{$1} = $2;
205             next;
206         }
207         if (/^(BISON_SRCS|LEX_SRCS|IDL_[CHIPS]_SRCS|IDL_TLB_SRCS|IMPLIB_SRCS|MC_SRCS|RC_SRCS|RC_SRCS16|RC_BINARIES|SPEC_SRCS16|EXTRA_OBJS16|MANPAGES|PROGRAMS)\s*=\s*(.*)/)
208         {
209             my @list = split(/\s+/, $2);
210             $make{$1} = \@list;
211             next;
212         }
213     }
214     return %make;
215 }
216
217
218 ################################################################
219 # update the makefile list in configure.ac
220
221 sub update_makefiles(@)
222 {
223     my (@lines);
224
225     foreach my $var (sort { $makerules{$a} cmp $makerules{$b}; } keys %makerules)
226     {
227         my $file = $makerules{$var};
228         my %make = %{$makefiles{$file}};
229         my $rules = $make{"=rules"} ? ",[$make{\"=rules\"}]" : "";
230         push @lines, "WINE_CONFIG_MAKERULES([$file],[$var]$rules)\n";
231     }
232     push @lines, "\n";
233
234     foreach my $file (sort @_)
235     {
236         my %make = %{$makefiles{$file}};
237         my $rules = $make{"=rules"};
238         my $args = "";
239         if ($rules eq $makerules{"MAKE_DLL_RULES"}) { $args = ",[dlls],[ALL_DLL_DIRS]"; }
240         elsif ($rules eq $makerules{"MAKE_IMPLIB_RULES"}) { $args = ",[dlls],[ALL_IMPLIB_DIRS]"; }
241         elsif ($rules eq $makerules{"MAKE_TEST_RULES"}) { $args = ",[dlls],[ALL_TEST_DIRS],[enable_tests]"; }
242         elsif ($rules eq $makerules{"MAKE_PROG_RULES"})
243         {
244             (my $name = $file) =~ s/^programs\/(.*)\/Makefile/$1/;
245             $args = ",[programs],[ALL_PROGRAM_DIRS";
246             $args .= ",ALL_PROGRAM_INSTALL_DIRS" unless $dont_install{$name};
247             $args .= ",ALL_PROGRAM_BIN_INSTALL_DIRS" if $bin_install{$name};
248             $args .= "]";
249         }
250         elsif ($file =~ /^[^\/]*\/Makefile$/) { $args = ",[],[ALL_TOP_DIRS]"; }
251         push @lines, "WINE_CONFIG_MAKEFILE([$file],[$rules]$args)\n";
252     }
253
254     push @lines, "\ndnl Build dependencies for test files compiled into winetest\n";
255     replace_in_file( "configure.ac", '^WINE_CONFIG_MAKERULES', '^dnl Build dependencies for test files compiled into winetest$', @lines);
256 }
257
258
259 ################################################################
260 # process ignore targets for generic source files
261
262 sub update_ignores(@)
263 {
264     my @ignores;
265
266     foreach my $file (sort @_)
267     {
268         my %makefile = %{$makefiles{$file}};
269         my @list;
270
271         foreach my $src (@ignore_srcs)
272         {
273             my @pattern = @{$src};
274             next unless defined $makefile{$pattern[0]};
275             push @list, map { (my $ret = $_) =~ s/$pattern[1]$/$pattern[2]/; $ret; } @{$makefile{$pattern[0]}};
276         }
277         foreach my $f (@list)
278         {
279             push @ignores, $makefile{"=dir"} . $f unless $f =~ /\$\(.*\)/;  # skip make variables
280         }
281     }
282     return @ignores;
283 }
284
285 ################################################################
286 # update dlls/Makefile.in
287
288 sub update_dlls(@)
289 {
290     my (%directories, %importlibs, %static_implibs, %staticlib_dirs, %altnames);
291     my $text = "";
292     my @ignores = ();
293
294     foreach my $make (@_)
295     {
296         my %makefile = %{$makefiles{$make}};
297         next if ($makefile{"=rules"} eq $makerules{"MAKE_TEST_RULES"});
298
299         next unless defined $makefile{"MODULE"};
300         my $module = $makefile{"MODULE"};
301         (my $dir = $makefile{"=dir"}) =~ s/^dlls\/(.*)\//$1/;
302
303         if ($makefile{"=rules"} eq $makerules{"MAKE_IMPLIB_RULES"})
304         {
305             $staticlib_dirs{$module} = $dir;
306             die "invalid module $module in dir $staticlib_dirs{$module}\n" if "$staticlib_dirs{$module}" ne $module;
307         }
308         else
309         {
310             die "invalid module $module" unless $module =~ /\./;
311             (my $mod = $module) =~ s/\.dll$//;
312             die "invalid directory $dir for module $module\n" unless $mod eq $dir;
313             $directories{$module} = $dir;
314         }
315
316         if (defined $makefile{"IMPORTLIB"})
317         {
318             if ($makefile{"IMPORTLIB"} =~ /^([a-zA-Z0-9_.]+)/)
319             {
320                 $importlibs{$module} = $1;
321             }
322             else
323             {
324                 die "invalid importlib name $makefile{IMPORTLIB} in $make";
325             }
326         }
327
328         $static_implibs{$module} = 1 if defined $makefile{"IMPLIB_SRCS"};
329
330         if (defined $makefile{"SPEC_SRCS16"})
331         {
332             my @list = map { $_ =~ s/\.spec$//; $_ .= ".dll" unless $_ =~ /\./; $_; } @{$makefile{"SPEC_SRCS16"}};
333             $altnames{$module} = \@list;
334         }
335         if (defined $makefile{"EXTRA_OBJS16"})
336         {
337             foreach my $obj (@{$makefile{"EXTRA_OBJS16"}})
338             {
339                 if ($obj =~ /^(.*\.(exe|mod))\.o/) { push @{$altnames{$module}}, $1; }
340             }
341         }
342     }
343
344     # output the list of 16-bit files
345
346     my @targets16 = ();
347     foreach my $mod (sort keys %directories)
348     {
349         next unless defined $altnames{$mod};
350         foreach my $i (sort @{$altnames{$mod}})
351         {
352             push @targets16, $i . "16";
353         }
354     }
355     $text .= "# 16-bit dlls\n\n";
356     $text .= "WIN16_FILES = \\\n";
357     $text .=  "\t" . join( " \\\n\t", sort @targets16 ) . "\n\n";
358     $text .= "\@MAKE_RULES\@\n\n";
359
360     # output the all: target
361
362     $text .= "# Main target\n\n";
363     $text .= "all: \$(BUILDSUBDIRS) \@WIN16_FILES\@\n\n";
364
365     # output the lib name -> directory rules
366
367     $text .= "# Placeholders for 16-bit libraries\n\n";
368     foreach my $mod (sort keys %directories)
369     {
370         next unless defined $altnames{$mod};
371         $text .= sprintf "%s:\n", join(" ", map { $_ . "16"; } sort @{$altnames{$mod}});
372         $text .= sprintf "\techo \"%s\" >\$\@\n\n", $mod;
373     }
374
375     # output the import libraries rules
376
377     $text .= "# Import libraries\n\n";
378     $text .= "STATIC_IMPLIBEXT = \$(IMPLIBEXT:def=def.a)\n\n";
379
380     my @lib_symlinks = ();
381     foreach my $mod (sort keys %importlibs)
382     {
383         my $dir = $directories{$mod};
384         my $lib = $importlibs{$mod};
385         if ($lib ne $dir) { push @lib_symlinks, $mod; }
386     }
387     $text .= "IMPORT_SYMLINKS =";
388     foreach my $mod (sort @lib_symlinks)
389     {
390         $text .= sprintf " \\\n\tlib%s.\$(IMPLIBEXT)", $importlibs{$mod};
391     }
392
393     $text .= "\n\nIMPORT_LIBS = \\\n\t\$(IMPORT_SYMLINKS)";
394     foreach my $mod (sort keys %staticlib_dirs)
395     {
396         $text .= sprintf " \\\n\t%s/lib%s.a", $staticlib_dirs{$mod}, $mod;
397     }
398     foreach my $mod (sort keys %importlibs)
399     {
400         $text .= " \\\n\t$directories{$mod}/lib$importlibs{$mod}.\$(IMPLIBEXT)";
401         next unless defined $static_implibs{$mod};
402         $text .= " \\\n\t$directories{$mod}/lib$importlibs{$mod}.\$(STATIC_IMPLIBEXT)";
403     }
404     $text .= "\n\nCROSS_IMPLIBS =";
405     foreach my $mod (sort @lib_symlinks)
406     {
407         $text .= sprintf " \\\n\tlib%s.a", $importlibs{$mod};
408     }
409     foreach my $mod (sort keys %importlibs)
410     {
411         next if defined $static_implibs{$mod};
412         $text .= " \\\n\t$directories{$mod}/lib$importlibs{$mod}.a";
413     }
414     $text .= "\n\n";
415     $text .= "\$(TESTSUBDIRS:%=%/__crosstest__): \$(CROSS_IMPLIBS)\n\n";
416     $text .= "implib: \$(IMPORT_LIBS)\n\n";
417     $text .= "testsubdirs: \$(TESTSUBDIRS)\n\n";
418     $text .= ".PHONY: implib testsubdirs\n\n";
419
420     foreach my $mod (sort keys %importlibs)
421     {
422         my $dir = $directories{$mod};
423         my $lib = $importlibs{$mod};
424         my $spec = $mod;
425         $spec =~ s/\.dll$//;
426         if (defined($static_implibs{$mod}))
427         {
428             $text .= sprintf "%s/lib%s.def: %s/%s.spec \$(WINEBUILD)\n", $dir, $lib, $dir, $spec;
429             $text .= sprintf "\t\@cd %s && \$(MAKE) lib%s.def\n\n", $dir, $lib;
430             $text .= sprintf "%s/lib%s.\$(STATIC_IMPLIBEXT): dummy\n", $dir, $lib, $dir, $spec;
431             $text .= sprintf "\t\@cd %s && \$(MAKE) lib%s.\$(STATIC_IMPLIBEXT)\n\n", $dir, $lib;
432         }
433         else
434         {
435             $text .= sprintf "%s/lib%s.def %s/lib%s.a: %s/%s.spec \$(WINEBUILD)\n",
436                              $dir, $lib, $dir, $lib, $dir, $spec;
437             $text .= sprintf "\t\@cd %s && \$(MAKE) `basename \$\@`\n\n", $dir;
438         }
439     }
440     foreach my $mod (sort @lib_symlinks)
441     {
442         my $dir = $directories{$mod};
443         my $lib = "lib" . $importlibs{$mod};
444         $text .= sprintf "%s.a: %s/%s.a\n", $lib, $dir, $lib;
445         $text .= sprintf "\t\$(RM) \$@ && \$(LN_S) %s/%s.a \$@\n\n", $dir, $lib;
446         $text .= sprintf "%s.def: %s/%s.def\n", $lib, $dir, $lib;
447         $text .= sprintf "\t\$(RM) \$@ && \$(LN_S) %s/%s.def \$@\n\n", $dir, $lib;
448     }
449
450     $text .= "\$(BUILDSUBDIRS): \$(IMPORT_LIBS)\n";
451     $text .= "\$(INSTALLSUBDIRS:%=%/__install__) \$(INSTALLSUBDIRS:%=%/__install-lib__): \$(IMPORT_LIBS)\n\n";
452
453     # output the inter-dll dependencies and rules
454
455     $text .= "# Map library name to the corresponding directory\n\n";
456
457     foreach my $mod (sort keys %staticlib_dirs)
458     {
459         $text .= sprintf "%s/lib%s.a: %s\n", $staticlib_dirs{$mod}, $mod, $staticlib_dirs{$mod};
460     }
461     $text .= "\n# Misc rules\n";
462
463     replace_in_file( "dlls/Makefile.in",
464                      '^# 16-bit dlls',
465                      '^# Misc rules',
466                      $text );
467
468     # .gitignore file
469
470     foreach my $mod (sort @lib_symlinks)
471     {
472         push @ignores, "dlls/lib$importlibs{$mod}.def";
473     }
474     foreach my $mod (sort keys %directories)
475     {
476         next unless defined $altnames{$mod};
477         push @ignores, map { "dlls/" . $_ . "16"; } @{$altnames{$mod}};
478     }
479
480     return @ignores;
481 }
482
483
484 ################################################################
485 # update include/Makefile.in
486
487 sub update_includes()
488 {
489     return unless -d ".git";
490     my (@h_srcs, @private_idl_srcs, @public_idl_srcs, @tlb_srcs, %subdirs);
491     my @includes = map { s/^include\///; $_; } split /\0/, `git ls-files -c -z include`;
492     foreach my $incl (@includes)
493     {
494         if ($incl =~ /(.*)\//) { $subdirs{$1} = 1; }
495         next if ($incl =~ /\.in$/);
496         if ($incl =~ /^wine\// && !$exported_wine_headers{$incl})
497         {
498             if ($private_idl_headers{$incl}) { push @private_idl_srcs, $incl; }
499             next;
500         }
501         if ($incl =~ /stdole2\.idl$/) { push @tlb_srcs, $incl; }
502         elsif ($private_idl_headers{$incl}) { push @h_srcs, $incl; }
503         elsif ($incl =~ /\.h$/) { push @h_srcs, $incl; }
504         elsif ($incl =~ /\.rh$/) { push @h_srcs, $incl; }
505         elsif ($incl =~ /\.inl$/) { push @h_srcs, $incl; }
506         elsif ($incl =~ /\.idl$/) { push @public_idl_srcs, $incl; }
507         else { die "unknown file $incl in include dir"; }
508     }
509     replace_in_file( "include/Makefile.in", '^PRIVATE_IDL_H_SRCS\s*=', '^INSTALLDIRS',
510                      "PRIVATE_IDL_H_SRCS = \\\n\t",
511                      join( " \\\n\t", sort @private_idl_srcs ),
512                      "\n\nPUBLIC_IDL_H_SRCS = \\\n\t",
513                      join( " \\\n\t", sort @public_idl_srcs ),
514                      "\n\nIDL_TLB_SRCS = \\\n\t",
515                      join( " \\\n\t", sort @tlb_srcs ),
516                      "\n\nSRCDIR_INCLUDES = \\\n\t\$(IDL_TLB_SRCS) \\\n\t\$(PUBLIC_IDL_H_SRCS) \\\n\t",
517                      join( " \\\n\t", sort @h_srcs ),
518                      "\n\nEXTRASUBDIRS = ",
519                      join( " ", sort keys %subdirs ),
520                      "\n\nINSTALLDIRS = \\\n" );
521     return map { s/(.*)\.idl$/include\/$1.h/; $_; } @public_idl_srcs, @private_idl_srcs;
522 }
523
524
525 ################################################################
526 # update the main .gitignore
527
528 sub update_gitignore(@)
529 {
530     my @ignores = values %makerules;
531
532     foreach my $make (@makefiles)
533     {
534         my %makefile = %{$makefiles{$make}};
535         my $dir = $makefile{"=dir"};
536         if (defined $makefile{"MANPAGES"})
537         {
538             push @ignores, map { $dir . $_; } @{$makefile{"MANPAGES"}};
539         }
540         if (defined $makefile{"PROGRAMS"})
541         {
542             push @ignores, map { s/\$\(EXEEXT\)//; $dir . $_; } @{$makefile{"PROGRAMS"}};
543         }
544         if ($dir =~ /^programs\/(.*)\/$/)
545         {
546             push @ignores, "$dir$1";
547         }
548     }
549
550     # prepend a slash to paths that don't have one
551     @ignores = map { $_ =~ s/^([^\/]+)$/\/$1/; $_; } @ignores;
552
553     # get rid of duplicates
554     my %ignores = ();
555     foreach my $i (@ignores, @_) { $ignores{$i} = 1; }
556
557     replace_in_file( ".gitignore", undef, undef,
558                      "# Automatically generated by make_makefiles; DO NOT EDIT!!\n",
559                      join("\n", sort keys %ignores), "\n" );
560 }
561
562
563 if (-d ".git")
564 {
565     @makefiles = map { s/\.in$//; $_; } split /\0/, `git ls-files -c -z Makefile.in \\*/Makefile.in`;
566 }
567 else
568 {
569     @makefiles = map { s/^\.\/(.*)\.in/$1/; $_; } split(/\s/,`find . -name Makefile.in -print`);
570 }
571
572 foreach my $file (sort values %makerules, @makefiles)
573 {
574     my %make = parse_makefile( $file );
575     $makefiles{$file} = \%make;
576 }
577
578 update_makefiles( @makefiles );
579 push @ignores, update_includes();
580 push @ignores, update_ignores( @makefiles );
581 push @ignores, update_dlls( sort grep /^dlls\//, @makefiles );
582 update_gitignore( @ignores );