- Don't add standard headers for the dll separation hacks.

- API files update.
This commit is contained in:
Patrik Stridvall 2002-09-24 18:27:47 +00:00 committed by Alexandre Julliard
parent e2e5097648
commit de306f2e67
3 changed files with 33 additions and 7 deletions

View File

@ -1346,15 +1346,19 @@ NET_API_STATUS
%ptr %ptr
LPBYTE *
LPDWORD LPDWORD
LPVOID LPVOID
LPVOID * LPVOID *
LPWSTR * LPWSTR *
PBROWSER_EMULATED_DOMAIN *
PBYTE * PBYTE *
PNCB PNCB
PVOID *
%wstr %wstr
LPCWSTR
LPWSTR LPWSTR
%%ntdll.dll %%ntdll.dll

View File

@ -216,6 +216,7 @@ sub parse_spec_file {
my $function_forward = \%{$self->{FUNCTION_FORWARD}}; my $function_forward = \%{$self->{FUNCTION_FORWARD}};
my $function_internal_module = \%{$self->{FUNCTION_INTERNAL_MODULE}}; my $function_internal_module = \%{$self->{FUNCTION_INTERNAL_MODULE}};
my $function_external_module = \%{$self->{FUNCTION_EXTERNAL_MODULE}}; my $function_external_module = \%{$self->{FUNCTION_EXTERNAL_MODULE}};
my $function_wine_extension = \%{$self->{FUNCTION_WINE_EXTENSION}};
my $modules = \%{$self->{MODULES}}; my $modules = \%{$self->{MODULES}};
my $module_files = \%{$self->{MODULE_FILES}}; my $module_files = \%{$self->{MODULE_FILES}};
my $module_external_calling_convention = \%{$self->{MODULE_EXTERNAL_CALLING_CONVENTION}}; my $module_external_calling_convention = \%{$self->{MODULE_EXTERNAL_CALLING_CONVENTION}};
@ -225,13 +226,13 @@ sub parse_spec_file {
my %ordinals; my %ordinals;
my $module; my $module;
my $wine_extension = 0;
$output->lazy_progress("$file"); $output->lazy_progress("$file");
$module = $file; $module = $file;
$module =~ s/^.*?([^\/]*)\.spec$/$1/; $module =~ s/^.*?([^\/]*)\.spec$/$1/;
open(IN, "< $file") || die "$file: $!\n"; open(IN, "< $file") || die "$file: $!\n";
$/ = "\n"; $/ = "\n";
my $header = 1; my $header = 1;
@ -239,7 +240,12 @@ sub parse_spec_file {
while($lookahead || defined($_ = <IN>)) { while($lookahead || defined($_ = <IN>)) {
$lookahead = 0; $lookahead = 0;
s/^\s*(.*?)\s*$/$1/; s/^\s*(.*?)\s*$/$1/;
s/^(.*?)\s*#.*$/$1/; if(s/^(.*?)\s*\#\s*(.*)\s*$/$1/) {
my $comment = $2;
if ($comment =~ /^Wine/) { # FIXME: Kludge
$wine_extension = 1;
}
}
/^$/ && next; /^$/ && next;
if($header) { if($header) {
@ -310,6 +316,7 @@ sub parse_spec_file {
} else { } else {
$$function_external_module{$external_name} .= " & $module"; $$function_external_module{$external_name} .= " & $module";
} }
$$function_wine_extension{$module}{$external_name} = $wine_extension;
if(0 && $options->spec_mismatch) { if(0 && $options->spec_mismatch) {
if($external_name eq "@") { if($external_name eq "@") {
@ -879,6 +886,16 @@ sub function_external_module {
return $$function_external_module{$name}; return $$function_external_module{$name};
} }
sub function_wine_extension {
my $self = shift;
my $function_wine_extension = \%{$self->{FUNCTION_WINE_EXTENSION}};
my $module = shift;
my $name = shift;
return $$function_wine_extension{$module}{$name};
}
sub is_function_stub { sub is_function_stub {
my $self = shift; my $self = shift;
my $module_external_calling_convention = \%{$self->{MODULE_EXTERNAL_CALLING_CONVENTION}}; my $module_external_calling_convention = \%{$self->{MODULE_EXTERNAL_CALLING_CONVENTION}};

View File

@ -86,7 +86,9 @@ sub check_documentation {
my $module2 = $6; my $module2 = $6;
my $ordinal2 = $7; my $ordinal2 = $7;
if ($winapi->function_wine_extension(lc($module2), $external_name2)) {
$output->write("documentation: $external_name2 (\U$module2\E.$ordinal2) is a Wine extension \\\n$documentation\n");
}
if(length($1) != 1 || length($2) < 1 || if(length($1) != 1 || length($2) < 1 ||
length($4) < 1 || $5 ne "(" || $8 ne ")") length($4) < 1 || $5 ne "(" || $8 ne ")")
@ -104,8 +106,9 @@ sub check_documentation {
} }
} }
} }
if(($options->documentation_name && !$found_name) || if((($options->documentation_name && !$found_name) ||
($options->documentation_ordinal && !$found_ordinal)) ($options->documentation_ordinal && !$found_ordinal)) &&
!$winapi->function_wine_extension($module, $external_name))
{ {
$documentation_error = 1; $documentation_error = 1;
$output->write("documentation: expected $external_name (\U$module\E.$ordinal): \\\n$documentation\n"); $output->write("documentation: expected $external_name (\U$module\E.$ordinal): \\\n$documentation\n");
@ -143,12 +146,14 @@ sub check_documentation {
$ordinal eq $ordinal2 && $ordinal eq $ordinal2 &&
($external_name2 eq "@" || ($external_name2 eq "@" ||
($win16api->is_module($module2) && !$win16api->is_function_stub_in_module($module2, $external_name2)) || ($win16api->is_module($module2) && !$win16api->is_function_stub_in_module($module2, $external_name2)) ||
($win32api->is_module($module2) && !$win32api->is_function_stub_in_module($module2, $external_name2))) && ($win32api->is_module($module2) && !$win32api->is_function_stub_in_module($module2, $external_name2))) ||
$modules->is_allowed_module_in_file($module2, "$current_dir/$file")) $modules->is_allowed_module_in_file($module2, "$current_dir/$file"))
{ {
$found = 1; $found = 1;
last; last;
} }
} }
if(!$found) { if(!$found) {
$output->write("documentation: $external_name (\U$module\E.$ordinal) wrong\n"); $output->write("documentation: $external_name (\U$module\E.$ordinal) wrong\n");