3 # Update spec files across dlls that share an implementation
5 # Copyright 2011 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
144 my $update_flags = 0;
145 my $show_duplicates = 0;
147 foreach my $arg (@ARGV)
149 if ($arg eq "-f") { $update_flags = 1; }
150 elsif ($arg eq "-d") { $show_duplicates = 1; }
153 # update a file if changed
159 open FILE
, ">$file.new" or die "cannot create $file.new";
162 rename "$file.new", "$file";
163 print "$file updated\n";
166 # update a file if changed
172 if (open FILE
, "<$file")
178 update_file
( $file, $new ) if $old ne $new;
181 # parse a spec file line
184 my ($name, $line, $str) = @_;
186 if ($str =~ /^\s*(\@|\d+)\s+(stdcall|cdecl|varargs|thiscall|stub|extern)\s+((?:-\S+\s+)*)([A-Za-z0-9_\@\$?]+)(?:\s*(\([^)]*\)))?(?:\s+([A-Za-z0-9_\@\$?.]+))?(\s*\#.*)?/)
188 return ( "ordinal" => $1, "callconv" => $2, "flags" => $3, "name" => $4, "args" => $5 || "",
189 "target" => $6 || $4, "comment" => $7, "spec" => $name );
191 return () if $str =~ /^\s*$/;
192 return () if $str =~ /^\s*\#/;
193 printf STDERR
"$name.spec:$line: error: Unrecognized line $_\n";
196 sub read_spec_file
($)
199 my $file = "dlls/$name/$name.spec";
201 open SPEC
, "<$file" or die "cannot open $file";
205 my %descr = parse_line
( $name, $., $_ );
208 my $func = $descr{name
};
209 if (defined $funcs{$func})
211 my %update = %{$funcs{$func}};
212 next if $update{ordinal
} ne $descr{ordinal
} or $update{callconv
} ne $descr{callconv
} or $update{args
} ne $descr{args
};
214 my $arch = $1 if $update{flags
} =~ /-arch=(\S+)/;
215 my $new_arch = $1 if $descr{flags
} =~ /-arch=(\S+)/;
216 next if !defined $arch or !defined $new_arch;
218 if (($arch eq "win32" and $new_arch eq "win64") or ($arch eq "win64" and $new_arch eq "win32"))
220 $funcs{$func}{flags
} =~ s/-arch=\S+\s+//;
224 $funcs{$func}{flags
} =~ s/-arch=$arch/-arch=$arch,$new_arch/;
227 next if $func eq "@";
228 $funcs{$func} = \
%descr;
233 sub update_spec_file
($)
236 my $file = "dlls/$name/$name.spec";
240 open SPEC
, "<$file" or die "cannot open $file";
246 my $commented_out = 0;
247 my %descr = parse_line
( $name, $., $_ );
250 # check for commented out exports
251 if (/^\s*\#\s*((?:\@|\d+)\s+)?((?:extern|stub|stdcall|cdecl|varargs|thiscall)\s+.*)/)
254 %descr = parse_line
( $name, $., ($1 || "\@ ") . $2 );
257 goto done
unless %descr;
259 my $func = $descr{name
};
260 if (!defined $funcs{$func})
262 $funcs{$func} = \
%descr unless $commented_out || $name =~ /-/;
266 my %parent = %{$funcs{$func}};
267 goto done
if $parent{spec
} eq $descr{spec
}; # the definition is in this spec file
268 goto done
if $descr{comment
} && $descr{comment
} =~ /don't forward/;
269 if ($descr{callconv
} ne "stub" && $descr{target
} !~ /\./ && !$commented_out)
271 printf "%s:%u: note: %s already defined in %s\n", $file, $., $func, $parent{spec
} if $show_duplicates;
275 my $flags = $descr{flags
};
276 if ($parent{callconv
} ne "stub" || $update_flags)
278 $flags = $parent{flags
};
279 $flags =~ s/-ordinal\s*// if $descr{ordinal
} eq "@";
280 $flags =~ s/-noname\s*// if $descr{ordinal
} eq "@";
281 $flags =~ s/-import\s*//;
282 if ($descr{flags
} =~ /-private/) # preserve -private flag
284 $flags = "-private " . $flags unless $flags =~ /-private/;
288 if ($parent{callconv
} ne "stub" || $parent{args
})
290 my $callconv = $parent{callconv
} ne "stub" ?
$parent{callconv
} :
291 $parent{spec
} =~ /(msvc|ucrtbase)/ ?
"cdecl" : "stdcall"; # hack
292 $_ = sprintf "$descr{ordinal} %s %s%s", $callconv, $flags, $func;
294 if ($parent{target
} =~ /$group_head\./) # use the same forward as parent if possible
296 $_ .= sprintf "%s %s", $parent{args
}, $parent{target
};
300 $_ .= sprintf "%s %s.%s", $parent{args
}, $parent{spec
}, $func;
305 $_ = sprintf "$descr{ordinal} stub %s%s", $flags, $func;
307 $_ .= $descr{comment
} || "";
313 update_file
( $file, $new ) if $old ne $new;
321 if ($args =~ /^\((.*)\)$/)
323 my @args = split /\s+/, $1;
324 $ret64 += 8 * scalar @args;
325 map { $ret32 += ($_ eq "int64") ?
8 : 4; } @args;
327 return ($ret32, $ret64);
330 sub get_syscalls_str
(@
)
332 my @syscalls = sort { $a->[0] cmp $b->[0] } @_;
335 for (my $i = 0; $i < @syscalls; $i++)
337 my ($name, $args) = @
{$syscalls[$i]};
338 $ret .= sprintf " \\\n SYSCALL_ENTRY( 0x%04x, %s, %u )", $i, $name, $args;
350 read_spec_file
( $spec );
352 foreach my $func (keys %funcs)
354 my $descr = $funcs{$func};
355 next unless $descr->{flags
} =~ /-syscall/;
356 next if $descr->{target
} ne $func && defined $funcs{$descr->{target
}};
357 my ($args32, $args64) = get_args_size
( $funcs{$func}->{args
} );
358 push @syscalls32, [ $func, $args32 ] unless $descr->{flags
} =~ /-arch=win64/;
359 push @syscalls64, [ $func, $args64 ] unless $descr->{flags
} =~ /-arch=win32/;
361 return (\
@syscalls32, \
@syscalls64);
364 sub update_syscalls
($$)
366 my ($spec, $file) = @_;
367 my ($syscalls32, $syscalls64) = read_syscalls
( $spec );
370 "/* Automatically generated by tools/make_specfiles */\n" .
371 "\n#define ALL_SYSCALLS32" . get_syscalls_str
( @
{$syscalls32} ) .
372 "\n#define ALL_SYSCALLS64" . get_syscalls_str
( @
{$syscalls64} ));
375 sub sync_spec_files
(@
)
379 read_spec_file
( $group_head );
380 foreach my $spec (@_) { update_spec_file
($spec); }
383 foreach my $group (@dll_groups)
385 sync_spec_files
( @
{$group} );
388 update_syscalls
( "ntdll", "dlls/ntdll/ntsyscalls.h" );
389 update_syscalls
( "win32u", "dlls/win32u/win32syscalls.h" );