gdiplus: Check whether region path points really fit into shorts.
[wine.git] / tools / make_makefiles
blob72c2254f6888b2a8d29481040d9916369a7c00fe
1 #!/usr/bin/perl -w
3 # Build the auto-generated parts of the Wine makefiles.
5 # Copyright 2006 Alexandre Julliard
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.
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.
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
22 use strict;
24 # Make rules files
25 my %makerules =
27 "MAKE_RULES" => "Make.rules",
30 # Programs that we want to install in the bin directory too
31 my %bin_install =
33 "msiexec" => 1,
34 "notepad" => 1,
35 "regedit" => 1,
36 "regsvr32" => 1,
37 "wineboot" => 1,
38 "winecfg" => 1,
39 "wineconsole" => 1,
40 "winedbg" => 1,
41 "winefile" => 1,
42 "winemine" => 1,
43 "winepath" => 1,
46 # Programs that we don't want to install at all
47 my %dont_install =
49 "winetest" => 1,
52 # Dlls and programs that are 16-bit specific
53 my %modules16 =
55 "ifsmgr.vxd" => 1,
56 "mmdevldr.vxd" => 1,
57 "monodebg.vxd" => 1,
58 "vdhcp.vxd" => 1,
59 "vmm.vxd" => 1,
60 "vnbt.vxd" => 1,
61 "vnetbios.vxd" => 1,
62 "vtdapi.vxd" => 1,
63 "vwin32.vxd" => 1,
64 "w32skrnl.dll" => 1,
65 "winevdm.exe" => 1,
66 "wow32.dll" => 1,
69 # Default patterns for top-level .gitignore
70 my @ignores = (
71 "*.[oa]",
72 "*.exe",
73 "*.fake",
74 "*.man",
75 "*.ok",
76 "*.res",
77 "*.so",
78 "/autom4te.cache",
79 "/config.cache",
80 "/config.log",
81 "/config.status",
82 "/configure.lineno",
83 "/TAGS",
84 "/tags",
85 "/wine",
86 "/wine64",
87 "Makefile",
88 "dlldata.c",
89 "dlls/*/*.def",
90 "dlls/shell32/AUTHORS",
91 "*/*/tests/testlist.c",
92 "include/config.h",
93 "include/stamp-h",
94 "msg.pot",
95 "po/*.mo",
96 "programs/winetest/build.nfo",
97 "programs/winetest/build.rc",
98 "rsrc.pot",
99 "tools/makedep",
102 # Source files and their resulting target to ignore
103 my @ignore_srcs = (
104 [ 'BISON_SRCS', '\.y', '.tab.c' ],
105 [ 'BISON_SRCS', '\.y', '.tab.h' ],
106 [ 'LEX_SRCS', '\.l', '.yy.c' ],
107 [ 'IDL_TLB_SRCS', '\.idl', '.tlb' ],
108 [ 'IDL_H_SRCS', '\.idl', '.h' ],
109 [ 'IDL_C_SRCS', '\.idl', '.h' ],
110 [ 'IDL_I_SRCS', '\.idl', '.h' ],
111 [ 'IDL_P_SRCS', '\.idl', '.h' ],
112 [ 'IDL_S_SRCS', '\.idl', '.h' ],
113 [ 'IDL_C_SRCS', '\.idl', '_c.c' ],
114 [ 'IDL_I_SRCS', '\.idl', '_i.c' ],
115 [ 'IDL_P_SRCS', '\.idl', '_p.c' ],
116 [ 'IDL_S_SRCS', '\.idl', '_s.c' ],
117 [ 'PUBLIC_IDL_H_SRCS', '\.idl', '.h' ],
118 [ 'PRIVATE_IDL_H_SRCS', '\.idl', '.h' ],
119 [ 'XTEMPLATE_SRCS', '\.x', '.h' ],
122 my %exported_wine_headers = (
123 "wine/debug.h" => 1,
124 "wine/exception.h" => 1,
125 "wine/library.h" => 1,
126 "wine/unicode.h" => 1,
127 "wine/itss.idl" => 1,
128 "wine/svcctl.idl" => 1,
131 my %private_idl_headers = (
132 "access.idl" => 1,
133 "asynot.idl" => 1,
134 "asysta.idl" => 1,
135 "axcore.idl" => 1,
136 "axextend.idl" => 1,
137 "binres.idl" => 1,
138 "chprst.idl" => 1,
139 "cmdbas.idl" => 1,
140 "cmdtxt.idl" => 1,
141 "crtrow.idl" => 1,
142 "dbccmd.idl" => 1,
143 "dbcses.idl" => 1,
144 "dbdsad.idl" => 1,
145 "dbinit.idl" => 1,
146 "dbprop.idl" => 1,
147 "dbs.idl" => 1,
148 "devenum.idl" => 1,
149 "dyngraph.idl" => 1,
150 "errrec.idl" => 1,
151 "opnrst.idl" => 1,
152 "row.idl" => 1,
153 "rowchg.idl" => 1,
154 "rowpos.idl" => 1,
155 "rowpsc.idl" => 1,
156 "rstbas.idl" => 1,
157 "rstinf.idl" => 1,
158 "rstloc.idl" => 1,
159 "rstnot.idl" => 1,
160 "srcrst.idl" => 1,
161 "sesprp.idl" => 1,
162 "vmrender.idl" => 1,
163 "xmldom.idl" => 1,
164 "xmldso.idl" => 1,
165 "wine/winedxgi.idl" => 1,
168 my %ignored_source_files = (
169 "dlls/wineps.drv/afm2c.c" => 1,
170 "dlls/wineps.drv/mkagl.c" => 1,
171 "programs/winetest/dist.rc" => 1,
174 my (@linguas, @makefiles, %makefiles);
176 sub dirname($)
178 my $ret = shift;
179 return "" unless $ret =~ /\//;
180 $ret =~ s!/[^/]*$!!;
181 return $ret;
184 # update a file if changed
185 sub update_file($)
187 my $file = shift;
188 my $ret = !(-f $file) || system "cmp $file $file.new >/dev/null";
189 if (!$ret)
191 unlink "$file.new";
193 else
195 rename "$file.new", "$file";
196 print "$file updated\n";
197 if ($file eq "configure.ac")
199 system "autoconf";
200 print "configure updated\n";
203 return $ret;
206 # replace some lines in a file between two markers
207 sub replace_in_file($$$@)
209 my $file = shift;
210 my $start = shift;
211 my $end = shift;
213 open NEW_FILE, ">$file.new" or die "cannot create $file.new";
215 if (defined($start))
217 open OLD_FILE, "$file" or die "cannot open $file";
218 while (<OLD_FILE>)
220 last if /$start/;
221 print NEW_FILE $_;
225 print NEW_FILE @_;
227 if (defined($end))
229 my $skip=1;
230 while (<OLD_FILE>)
232 print NEW_FILE $_ unless $skip;
233 $skip = 0 if /$end/;
237 close OLD_FILE if defined($start);
238 close NEW_FILE;
239 return update_file($file);
242 # replace a variable in a makefile
243 sub replace_makefile_variable($$)
245 my ($file, $var) = @_;
246 my $make = $makefiles{$file};
247 my $replaced = 0;
248 my @values;
250 if (defined ${$make}{"=$var"})
252 @values = @{${$make}{"=$var"}};
253 ${$make}{$var} = \@values;
255 else
257 return unless defined ${$make}{$var};
258 undef ${$make}{$var};
261 open NEW_FILE, ">$file.in.new" or die "cannot create $file.in.new";
263 open OLD_FILE, "$file.in" or die "cannot open $file.in";
264 while (<OLD_FILE>)
266 if (/^\s*($var\s*)=/)
268 # try to preserve formatting
269 my $prefix = $1;
270 my $multiline = /\\$/ || (@values > 1);
271 while (/\\$/)
273 $_ = <OLD_FILE>;
274 last unless $_;
276 if (!@values)
278 # nothing
280 elsif ($multiline)
282 print NEW_FILE "$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
284 else
286 print NEW_FILE "$prefix= @values\n";
288 $replaced = 1;
289 next;
291 if (/^\@MAKE/ && !$replaced && @values)
293 print NEW_FILE "$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
295 print NEW_FILE $_;
297 close OLD_FILE;
298 close NEW_FILE;
299 return update_file("$file.in");
302 # parse the specified makefile and load the variables
303 sub parse_makefile($)
305 my $file = shift;
306 my %make;
308 ($make{"=dir"} = $file) =~ s/[^\/]+$//;
310 open MAKE, "$file.in" or die "cannot open $file.in\n";
312 while (<MAKE>)
314 chomp;
315 next if (/^\s*#/);
316 while (/\\$/) { chop; $_ .= <MAKE>; chomp; } # merge continued lines
317 next if (/^\s*$/);
319 if (/^\@(MAKE.*RULES)\@/)
321 my $var = $1;
322 $make{"=rules"} = $makerules{$var} || $var;
323 next;
325 if (/^\s*(MODULE|IMPORTLIB|TESTDLL|MANPAGE|PARENTSRC)\s*=\s*(.*)/)
327 my $var = $1;
328 $make{$var} = $2;
329 ${$make{"=flags"}}{"implib"} = 1 if $var eq "IMPORTLIB";
330 ${$make{"=flags"}}{"manpage"} = 1 if $var eq "MANPAGE";
331 next;
333 if (/^\s*(BISON_SRCS|LEX_SRCS|IDL_[CHIPRS]_SRCS|IDL_TLB_SRCS|IMPLIB_SRCS|C_SRCS|OBJC_SRCS|MC_SRCS|RC_SRCS|PO_SRCS|SVG_SRCS|PROGRAMS)\s*=\s*(.*)/)
335 my $var = $1;
336 my @list = split(/\s+/, $2);
337 $make{$var} = \@list;
338 ${$make{"=flags"}}{"clean"} = 1 if $var eq "PROGRAMS";
339 next;
341 if (/(install-lib|install-dev|clean)\s*:/)
343 ${$make{"=flags"}}{$1} = 1;
344 next;
346 if (/^\s*(TOPSRCDIR|TOPOBJDIR|SRCDIR|VPATH)\s*=\s*(.*)/)
348 die "Variable $1 in $file.in is obsolete";
352 if ($file =~ /^programs\/([^\/]+)\/Makefile/)
354 ${$make{"=flags"}}{"install"} = 1 unless $dont_install{$1};
355 ${$make{"=flags"}}{"installbin"} = 1 if $bin_install{$1};
358 if (defined $make{"=flags"} && defined $make{"=rules"} &&
359 ($make{"=rules"} eq "MAKE_DLL_RULES" ||
360 $make{"=rules"} eq "MAKE_PROG_RULES"))
362 die "Custom install-lib rule not allowed in $file" if defined ${$make{"=flags"}}{"install-lib"};
363 die "Custom install-dev rule not allowed in $file" if defined ${$make{"=flags"}}{"install-dev"};
366 return %make;
369 # read pragma makedep flags from a source file
370 sub get_makedep_flags($)
372 my $file = shift;
373 my %flags;
375 open FILE, $file or die "cannot open $file";
376 while (<FILE>)
378 next unless /^#\s*pragma\s+makedep\s+(.*)/;
379 foreach my $flag (split /\s+/, $1)
381 last if $flag eq "depend";
382 $flags{$flag} = 1;
385 close FILE;
386 return %flags;
389 sub get_parent_makefile($)
391 my $file = shift;
392 my %make = %{$makefiles{$file}};
393 my $reldir = $make{"PARENTSRC"} || "";
394 return "" unless $reldir;
395 (my $path = $file) =~ s/\/Makefile$/\//;
396 while ($reldir =~ /^\.\.\//)
398 $reldir =~ s/^\.\.\///;
399 $path =~ s/[^\/]+\/$//;
401 return "$path$reldir/Makefile";
404 # preserve shared source files that are listed in the existing makefile
405 sub preserve_shared_source_files($$$)
407 my ($make, $parent, $var) = @_;
408 my %srcs;
410 return unless defined ${$parent}{"=$var"};
411 foreach my $file (@{${$parent}{"=$var"}}) { $srcs{$file} = 1; }
412 foreach my $file (@{${$make}{"=$var"}}) { $srcs{$file} = 0; }
414 foreach my $file (@{${$make}{$var}})
416 next unless defined $srcs{$file} && $srcs{$file} == 1;
417 push @{${$make}{"=$var"}}, $file;
421 # assign source files to their respective makefile
422 sub assign_sources_to_makefiles(@)
424 foreach my $file (@_)
426 next if defined $ignored_source_files{$file};
427 my $dir = dirname( $file );
428 my $subdir = $dir;
430 while ($dir && !defined $makefiles{"$dir/Makefile"}) { $dir = dirname( $dir ); }
431 $subdir =~ s/^$dir\/?//;
432 next unless $dir;
434 die "no makefile found for $file\n" unless defined $makefiles{"$dir/Makefile"};
436 my $make = $makefiles{"$dir/Makefile"};
437 my $name = substr( $file, length($dir) + 1 );
439 ${$make}{"=flags"}{"clean"} = 1 if $subdir;
441 if ($dir eq "include")
443 next if ($name =~ /\.in$/);
444 if ($name =~ /^wine\// && !$exported_wine_headers{$name})
446 if ($private_idl_headers{$name}) { push @{${$make}{"=PRIVATE_IDL_H_SRCS"}}, $name; }
447 next;
449 if ($name =~ /stdole2\.idl$/) { push @{${$make}{"=IDL_TLB_SRCS"}}, $name; }
450 elsif ($private_idl_headers{$name}) { push @{${$make}{"=SRCDIR_INCLUDES"}}, $name; }
451 elsif ($name =~ /\.h$/) { push @{${$make}{"=SRCDIR_INCLUDES"}}, $name; }
452 elsif ($name =~ /\.x$/) { push @{${$make}{"=XTEMPLATE_SRCS"}}, $name; }
453 elsif ($name =~ /\.rh$/) { push @{${$make}{"=SRCDIR_INCLUDES"}}, $name; }
454 elsif ($name =~ /\.inl$/) { push @{${$make}{"=SRCDIR_INCLUDES"}}, $name; }
455 elsif ($name =~ /\.idl$/) { push @{${$make}{"=PUBLIC_IDL_H_SRCS"}}, $name; }
456 else { die "unknown file $name in include dir"; }
458 else
460 if ($name =~ /\.m$/) { push @{${$make}{"=OBJC_SRCS"}}, $name; }
461 elsif ($name =~ /\.l$/) { push @{${$make}{"=LEX_SRCS"}}, $name; }
462 elsif ($name =~ /\.y$/) { push @{${$make}{"=BISON_SRCS"}}, $name; }
463 elsif ($name =~ /\.svg$/) { push @{${$make}{"=SVG_SRCS"}}, $name; }
464 elsif ($name =~ /\.c$/)
466 my %flags = get_makedep_flags( $file );
467 if (defined $flags{"implib"})
469 push @{${$make}{"=IMPLIB_SRCS"}}, $name;
470 ${${$make}{"=flags"}}{"staticimplib"} = 1;
472 push @{${$make}{"=C_SRCS"}}, $name;
474 elsif ($name =~ /\.rc$/)
476 my %flags = get_makedep_flags( $file );
477 if (defined $flags{"po"})
479 push @{${$make}{"=PO_SRCS"}}, $name;
480 ${${$make}{"=flags"}}{"po"} = 1;
482 push @{${$make}{"=RC_SRCS"}}, $name;
484 elsif ($name =~ /\.mc$/)
486 push @{${$make}{"=MC_SRCS"}}, $name;
487 ${${$make}{"=flags"}}{"mc"} = 1;
489 elsif ($name =~ /\.idl$/)
491 my %flags = get_makedep_flags( $file );
492 push @{${$make}{"=IDL_C_SRCS"}}, $name if defined $flags{"client"};
493 push @{${$make}{"=IDL_H_SRCS"}}, $name if defined $flags{"header"};
494 push @{${$make}{"=IDL_I_SRCS"}}, $name if defined $flags{"ident"};
495 push @{${$make}{"=IDL_P_SRCS"}}, $name if defined $flags{"proxy"};
496 push @{${$make}{"=IDL_R_SRCS"}}, $name if defined $flags{"register"};
497 push @{${$make}{"=IDL_S_SRCS"}}, $name if defined $flags{"server"};
498 push @{${$make}{"=IDL_TLB_SRCS"}}, $name if defined $flags{"typelib"};
499 ${${$make}{"=flags"}}{"clean"} = 1;
504 # add extra variables to include source list
505 my $make = $makefiles{"include/Makefile"};
506 unshift @{${$make}{"=SRCDIR_INCLUDES"}}, "\$(XTEMPLATE_SRCS)";
507 unshift @{${$make}{"=SRCDIR_INCLUDES"}}, "\$(PUBLIC_IDL_H_SRCS)";
508 unshift @{${$make}{"=SRCDIR_INCLUDES"}}, "\$(IDL_TLB_SRCS)";
510 # preserve shared source files from the parent makefile
511 foreach my $file (@makefiles)
513 my %make = %{$makefiles{$file}};
514 my $parent = get_parent_makefile( $file );
515 next unless $parent;
516 preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "C_SRCS" );
517 preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "LEX_SRCS" );
518 preserve_shared_source_files( $makefiles{$file}, $makefiles{$parent}, "BISON_SRCS" );
522 ################################################################
523 # update the makefile list in configure.ac
525 sub update_makefiles(@)
527 my (@lines);
529 foreach my $var (sort { $makerules{$a} cmp $makerules{$b}; } keys %makerules)
531 my $file = $makerules{$var};
532 my %make = %{$makefiles{$file}};
533 my $rules = $make{"=rules"} ? ",[$make{\"=rules\"}]" : "";
534 push @lines, "WINE_CONFIG_MAKERULES([$file],[$var]$rules)\n";
536 push @lines, "\n";
538 foreach my $file (sort @_)
540 my %make = %{$makefiles{$file}};
541 my $rules = $make{"=rules"};
542 my $args = "";
543 my $is_win16 = $make{"MODULE"} && ($make{"MODULE"} =~ /16$/ || $modules16{$make{"MODULE"}});
544 my $flag_args = defined $make{"=flags"} ? ",[" . join(",",sort keys %{$make{"=flags"}}) ."]" : "";
545 if ($rules eq "MAKE_DLL_RULES")
547 (my $name = $file) =~ s/^dlls\/(.*)\/Makefile/$1/;
548 if ($name =~ /\./)
550 die "Invalid MODULE in $file" unless $make{"MODULE"} eq $name;
552 else
554 die "Invalid MODULE in $file" unless $make{"MODULE"} eq "$name.dll";
556 my $implib = $make{"IMPORTLIB"} || "";
557 $args .= "," if $is_win16 || defined $make{"=flags"};
558 $args .= "enable_win16" if $is_win16;
559 $args .= $flag_args;
560 $args .= ",[$implib]" if $implib && $implib ne $name;
561 push @lines, "WINE_CONFIG_DLL($name$args)\n";
563 elsif ($rules eq "MAKE_PROG_RULES")
565 (my $name = $file) =~ s/^programs\/(.*)\/Makefile/$1/;
566 if ($name =~ /\./)
568 die "Invalid MODULE in $file" unless $make{"MODULE"} eq $name;
570 else
572 die "Invalid MODULE in $file" unless $make{"MODULE"} eq "$name.exe";
574 $args .= "," if $is_win16 || defined $make{"=flags"};
575 $args .= "enable_win16" if $is_win16;
576 push @lines, "WINE_CONFIG_PROGRAM($name$args$flag_args)\n";
578 elsif ($rules eq "MAKE_TEST_RULES")
580 (my $dir = $file) =~ s/^(.*)\/Makefile/$1/;
581 push @lines, "WINE_CONFIG_TEST($dir$flag_args)\n";
583 elsif ($rules eq "MAKE_IMPLIB_RULES")
585 (my $name = $file) =~ s/^dlls\/(.*)\/Makefile/$1/;
586 push @lines, "WINE_CONFIG_LIB($name$flag_args)\n";
588 elsif ($file =~ /^tools.*\/Makefile$/)
590 (my $name = $file) =~ s/^(.*)\/Makefile/$1/;
591 push @lines, "WINE_CONFIG_TOOL($name$flag_args)\n";
593 elsif ($file =~ /\/Makefile$/)
595 (my $name = $file) =~ s/^(.*)\/Makefile/$1/;
596 $args = "[$name]";
597 $args .= "," if defined $make{"=flags"};
598 push @lines, "WINE_CONFIG_MAKEFILE($args$flag_args)\n";
602 push @lines, "\nAC_SUBST([LINGUAS],[\"\\\n", join( " \\\n", sort @linguas ), "\"])\n\n";
604 # update the source variables in all the makefiles
606 foreach my $file (sort @_)
608 replace_makefile_variable( $file, "LEX_SRCS" );
609 replace_makefile_variable( $file, "BISON_SRCS" );
610 replace_makefile_variable( $file, "MC_SRCS" );
611 replace_makefile_variable( $file, "SVG_SRCS" );
612 replace_makefile_variable( $file, "C_SRCS" );
613 replace_makefile_variable( $file, "OBJC_SRCS" );
614 replace_makefile_variable( $file, "RC_SRCS" );
615 replace_makefile_variable( $file, "PO_SRCS" );
616 replace_makefile_variable( $file, "PRIVATE_IDL_H_SRCS" );
617 replace_makefile_variable( $file, "PUBLIC_IDL_H_SRCS" );
618 replace_makefile_variable( $file, "IDL_C_SRCS" );
619 replace_makefile_variable( $file, "IDL_I_SRCS" );
620 replace_makefile_variable( $file, "IDL_P_SRCS" );
621 replace_makefile_variable( $file, "IDL_R_SRCS" );
622 replace_makefile_variable( $file, "IDL_S_SRCS" );
623 replace_makefile_variable( $file, "IDL_TLB_SRCS" );
624 replace_makefile_variable( $file, "XTEMPLATE_SRCS" );
625 replace_makefile_variable( $file, "IMPLIB_SRCS" );
626 replace_makefile_variable( $file, "SRCDIR_INCLUDES" );
629 push @lines, "dnl End of auto-generated output commands\n";
630 replace_in_file( "configure.ac", '^WINE_CONFIG_MAKERULES', '^dnl End of auto-generated output commands\n$', @lines);
634 ################################################################
635 # process ignore targets for generic source files
637 sub update_ignores(@)
639 my @ignores;
641 foreach my $file (sort @_)
643 my %makefile = %{$makefiles{$file}};
644 my @list;
646 foreach my $src (@ignore_srcs)
648 my @pattern = @{$src};
649 next unless defined $makefile{$pattern[0]};
650 next if $pattern[0] eq "IDL_TLB_SRCS" && $makefile{"=rules"} eq "MAKE_DLL_RULES";
651 push @list, map { (my $ret = $_) =~ s/$pattern[1]$/$pattern[2]/; $ret; } @{$makefile{$pattern[0]}};
653 foreach my $f (@list)
655 push @ignores, $makefile{"=dir"} . $f unless $f =~ /\$\(.*\)/; # skip make variables
658 if (defined $makefile{"IMPORTLIB"})
660 if ($makefile{"IMPORTLIB"} =~ /^([a-zA-Z0-9_.]+)/)
662 if ("dlls/$1/" ne $makefile{"=dir"}) { push @ignores, "dlls/lib$1.def"; }
664 else
666 die "invalid importlib name $makefile{IMPORTLIB} in $file";
670 return @ignores;
674 ################################################################
675 # update the main .gitignore
677 sub update_gitignore(@)
679 my @ignores = values %makerules;
681 foreach my $make (@makefiles)
683 my %makefile = %{$makefiles{$make}};
684 my $dir = $makefile{"=dir"};
685 if (defined $makefile{"PROGRAMS"})
687 push @ignores, map { s/\$\(EXEEXT\)//; $dir . $_; } @{$makefile{"PROGRAMS"}};
691 # prepend a slash to paths that don't have one
692 @ignores = map { $_ =~ s/^([^\/]+)$/\/$1/; $_; } @ignores;
694 # get rid of duplicates
695 my %ignores = ();
696 foreach my $i (@ignores, @_) { $ignores{$i} = 1; }
698 replace_in_file( ".gitignore", undef, undef,
699 "# Automatically generated by make_makefiles; DO NOT EDIT!!\n",
700 join("\n", sort keys %ignores), "\n" );
704 ################################################################
705 # update the LINGUAS file
707 sub update_linguas(@)
709 replace_in_file( "po/LINGUAS", undef, undef, join("\n", sort @_), "\n" );
713 die "needs to be run from a git checkout" unless -d ".git";
715 my @all_files = split /\0/, `git ls-files -c -z`;
716 @linguas = map { (my $ret = $_) =~ s/^po\/(.*)\.po/$1/; $ret; } grep /^po\/.*\.po$/, @all_files;
717 @makefiles = map { (my $ret = $_) =~ s/\.in$//; $ret; } grep /Makefile.in$/, @all_files;
719 foreach my $file (sort values %makerules, @makefiles)
721 my %make = parse_makefile( $file );
722 $makefiles{$file} = \%make;
725 assign_sources_to_makefiles( @all_files );
726 update_linguas( @linguas );
727 update_makefiles( @makefiles );
728 push @ignores, update_ignores( @makefiles );
729 update_gitignore( @ignores );