ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/winapi/win32.api
View File

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

21
tools/winapi/winapi.pm
View File

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

13
tools/winapi_check/winapi_documentation.pm
View File

@ -86,7 +86,9 @@ sub check_documentation {
my $module2 = $6;
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 ||
length($4) < 1 || $5 ne "(" || $8 ne ")")
@ -104,8 +106,9 @@ sub check_documentation {
}
}
}
if(($options->documentation_name && !$found_name) ||
($options->documentation_ordinal && !$found_ordinal))
if((($options->documentation_name && !$found_name) ||
($options->documentation_ordinal && !$found_ordinal)) &&
!$winapi->function_wine_extension($module, $external_name))
{
$documentation_error = 1;
$output->write("documentation: expected $external_name (\U$module\E.$ordinal): \\\n$documentation\n");
@ -143,12 +146,14 @@ sub check_documentation {
$ordinal eq $ordinal2 &&
($external_name2 eq "@" ||
($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"))
{
$found = 1;
last;
}
}
if(!$found) {
$output->write("documentation: $external_name (\U$module\E.$ordinal) wrong\n");