Fixed ShellExecute functions when ddeexec was present in registry.
[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
9 $makefiles = `find . -name Makefile.in -print`;
10
11 %imports = ();
12 %directories = ();
13 %altnames = ();
14
15 # list of special dlls that can be switched on or off by configure
16 %special_dlls =
17 (
18   "ddraw"    => "XFILES",
19   "glu32"    => "GLU32FILES",
20   "opengl32" => "OPENGLFILES",
21   "x11drv"   => "XFILES"
22 );
23
24 foreach $i (split(/\s/,$makefiles))
25 {
26     open MAKE,$i;
27     while (<MAKE>)
28     {
29         chop;
30         if (/^MODULE\s*=\s*([a-zA-Z0-9_.]+)/)
31         {
32             $module = $1;
33             ($directories{$module} = $i) =~ s/^\.\/(.*)\/[^\/]+$/$1/;
34             next;
35         }
36         if (/^ALTNAMES\s*=\s*(.*)/)
37         {
38             my @list = split(/\s/,$1);
39             $altnames{$module} = \@list;
40             next;
41         }
42     }
43 }
44
45 foreach $mod (sort keys %directories)
46 {
47     my $spec = sprintf("%s/%s.spec", $directories{$mod}, $mod);
48     open SPEC,$spec or die "cannot open $spec";
49     $imports{$mod} = [ ];
50     while (<SPEC>)
51     {
52         if (/^\#?import\s+(-delay\s+)?([a-zA-Z0-9_]+)\.dll/)
53         {
54             my $imp = $2;
55             push @{$imports{$mod}}, $imp;
56             next;
57         }
58         if (/^\#?import\s+(-delay\s+)?([a-zA-Z0-9_.]+)/)
59         {
60             my $imp = $2;
61             push @{$imports{$mod}}, $imp;
62             next;
63         }
64     }
65 }
66
67 open NEWMAKE,">Makefile.in.new" or die "cannot create Makefile.in.new";
68
69 ################################################################
70 # makefile header
71
72 print NEWMAKE <<EOF;
73 # Automatically generated by make_dlls; DO NOT EDIT!!
74
75 TOPSRCDIR = \@top_srcdir\@
76 TOPOBJDIR = ..
77 SRCDIR    = \@srcdir\@
78 VPATH     = \@srcdir\@
79 LIBEXT    = \@LIBEXT\@
80
81 EOF
82
83 ################################################################
84 # output special dlls configure definitions
85
86 printf NEWMAKE "# special configure-dependent targets\n\n";
87 my %specials = ();
88 foreach $mod (sort keys %special_dlls)
89 {
90     $specials{$special_dlls{$mod}} .= " " . $mod;
91 }
92 foreach $i (sort keys %specials)
93 {
94     printf NEWMAKE "%s =%s\n", $i, $specials{$i};
95 }
96 printf NEWMAKE "EXTRADIRS =";
97 foreach $i (sort keys %specials) { printf NEWMAKE " \@%s\@", $i; }
98 printf NEWMAKE "\n\n";
99
100
101 ################################################################
102 # output the subdirs list
103
104 print NEWMAKE <<EOF;
105 # Subdir list
106
107 SUBDIRS = \\
108 EOF
109 printf NEWMAKE "\t\$(EXTRADIRS)";
110 foreach $dir (sort values %directories)
111 {
112     next if defined($special_dlls{$dir});  # skip special dlls
113     printf NEWMAKE " \\\n\t%s", $dir;
114 }
115 printf NEWMAKE "\n";
116
117
118 ################################################################
119 # output the all: target
120
121 my %targets = ();  # use a hash to get rid of duplicate target names
122 foreach $mod (sort keys %directories)
123 {
124     next if defined($special_dlls{$mod});  # skip special dlls
125     $targets{sprintf("lib%s.\$(LIBEXT)",$mod)} = 1;
126     next unless defined $altnames{$mod};
127     foreach $i (sort @{$altnames{$mod}})
128     {
129         $targets{sprintf("lib%s.\$(LIBEXT)",$i)} = 1;
130     }
131 }
132 print NEWMAKE <<EOF;
133
134 # Main target
135
136 all: \\
137         \$(EXTRADIRS:%=lib%.\$(LIBEXT)) \\
138 EOF
139 printf NEWMAKE "\t%s\n", join( " \\\n\t", sort keys %targets );
140
141
142 ################################################################
143 # output the lib name -> directory rules
144
145 print NEWMAKE <<EOF;
146
147 \@MAKE_RULES\@
148
149 # Map library name to directory
150
151 EOF
152
153 foreach $mod (sort keys %directories)
154 {
155     printf NEWMAKE "lib%s.\$(LIBEXT)", $mod;
156     if (defined $altnames{$mod})
157     {
158         my $count = 1;
159         foreach $i (sort @{$altnames{$mod}})
160         {
161             if (!($count++ % 3)) { printf NEWMAKE " \\\n "; }
162             printf NEWMAKE " lib%s.\$(LIBEXT)", $i;
163         }
164     }
165     printf NEWMAKE ": %s/lib%s.\$(LIBEXT)\n", $directories{$mod}, $mod;
166     printf NEWMAKE "\t\$(RM) \$@ && \$(LN_S) %s/lib%s.\$(LIBEXT) \$@\n\n", $directories{$mod}, $mod;
167 }
168
169
170 ################################################################
171 # output the inter-dll dependencies and rules
172
173 print NEWMAKE "# Inter-dll dependencies\n\n";
174
175 my @depends = ();
176 foreach $mod (sort keys %imports)
177 {
178     my $count = 1;
179     my $dep = sprintf("%s/lib%s.\$(LIBEXT): dummy", $directories{$mod}, $mod);
180     foreach $i (@{$imports{$mod}})
181     {
182         if ($count++ >= 3)
183         {
184             $count = 0;
185             $dep .= " \\\n ";
186         }
187         $dep .= sprintf(" lib%s.\$(LIBEXT)", $i);
188     }
189     $dep .= sprintf("\n\t\@cd %s && \$(MAKE) lib%s.\$(LIBEXT)\n\n",$directories{$mod}, $mod);
190     push @depends, $dep;
191 }
192 print NEWMAKE sort @depends;
193
194
195 ################################################################
196 # makefile trailer
197
198 print NEWMAKE <<EOF;
199 # Misc rules
200
201 \$(SUBDIRS:%=%/__test__): dummy
202         \@cd `dirname \$\@` && \$(MAKE) test
203
204 \$(SUBDIRS:%=%/__checklink__): dummy
205         \@cd `dirname \$\@` && \$(MAKE) checklink
206
207 \$(SUBDIRS:%=%/__debug_channels__): dummy
208         \@cd `dirname \$\@` && \$(MAKE) debug_channels
209
210 install:: \$(SUBDIRS:%=%/__install__)
211
212 uninstall:: \$(SUBDIRS:%=%/__uninstall__)
213
214 test:: \$(SUBDIRS:%=%/__test__)
215
216 checklink:: \$(SUBDIRS:%=%/__checklink__)
217
218 debug_channels:: \$(SUBDIRS:%=%/__debug_channels__)
219 EOF
220
221 close NEWMAKE;
222 rename "Makefile.in.new", "Makefile.in";
223 printf "Successfully updated Makefile.in\n";