- API files update

- Minor bug fixes
This commit is contained in:
Patrik Stridvall 2002-01-07 21:08:18 +00:00 committed by Alexandre Julliard
parent 718b1b711b
commit aa4efd49b1
16 changed files with 55 additions and 42 deletions

View File

@ -12,6 +12,8 @@ UINT
int
%ptr
ABORTPROC16
BITMAP16 *
BITMAPINFO *
BITMAPINFOHEADER *

View File

@ -54,6 +54,7 @@ UINT16 *
WINDOWPLACEMENT16 *
WNDCLASS16 *
WNDCLASSEX16 *
WNDPROC
WORD *
void *

View File

@ -37,6 +37,7 @@ BITMAP *
BITMAPINFO *
BITMAPINFOHEADER *
COLORADJUSTMENT *
DCHOOKPROC
DEVMODEA *
DEVMODEW *
DOCINFOA *

View File

@ -49,6 +49,7 @@ UINT16
BOOL *
BY_HANDLE_FILE_INFORMATION *
CHAR_INFO *
DWORD *
CALINFO_ENUMPROCA
CONTEXT *

View File

@ -27,14 +27,16 @@ ULONGLONG
__non_rtti_object *
_HEAPINFO *
_INITTERMFUN *
_JUMP_BUFFER *
_onexit_t
_onexit_t **
LPDWORD *
MSVCRT_EXCEPTION_FRAME *
MSVCRT_FILE *
MSVCRT_compar_fn_t
MSVCRT_exception *
MSVCRT_fpos_t *
MSVCRT_free_func
MSVCRT_malloc_func
MSVCRT_matherr_func
MSVCRT_new_handler_func
MSVCRT_sig_handler_func
@ -56,7 +58,8 @@ char **
char ***
exception *
int *
jmp_buf
struct __EXCEPTION_FRAME *
struct __EXCEPTION_FRAME **
struct _finddata_t *
struct _diskfree_t *
struct _stat *

View File

@ -36,7 +36,6 @@ WCHAR
int
long
size_t
unsigned int
unsigned long
@ -69,6 +68,7 @@ PACE_HEADER *
PACL
PACL *
PBOOLEAN
PCVOID
PDWORD
PEXCEPTION_FRAME
PEXCEPTION_RECORD
@ -103,18 +103,17 @@ ULONGLONG *
UNICODE_STRING *
VOID *
struct _TEB *
union cptable *
void *
%ptr --extension
EXCEPTION_FRAME **
GUID *
WCHAR *
WCHAR ***
char *
char ***
enum __DEBUG_CLASS
union generic_request *
va_list
%str

View File

@ -8,6 +8,7 @@ HBITMAP
HDROP
HGLOBAL
HMENU
HMODULE
HICON
HINSTANCE
HIMAGELIST
@ -22,7 +23,6 @@ ULONG
WORD
WPARAM
%long # --forbidden
int
@ -32,6 +32,7 @@ int
CLSID *
DLLVERSIONINFO *
DWORD *
FARPROC
HICON *
HIMAGELIST *
HWND *

View File

@ -15,8 +15,10 @@ HMENU
HMODULE
HPALETTE
HRESULT
HSHARED
HUSKEY
HWND
LANGID
LPARAM
LRESULT
UCHAR
@ -37,15 +39,19 @@ int
BOOL *
DLLVERSIONINFO *
HICON *
IFACE_INDEX_TBL *
IStream *
ITEMIDLIST *
IUnknown *
IUnknown **
LPBROWSEINFOW
LPBYTE
LPCITEMIDLIST
LPCLSID
LPCSTR *
LPCVOID
LPCWSTR *
LPDWORD
LPHWND
LPINT
LPITEMIDLIST
LPOPENFILENAMEW
@ -57,7 +63,9 @@ LPSTRRET
LPUNKNOWN *
LPVOID
LPVOID *
LPWORD
PHUSKEY
PVOID
REFIID
REFGUID
SHFILEINFOW *

View File

@ -5,7 +5,6 @@ CHAR
COLORREF
DWORD
INT
HANDLE
HDC
HBITMAP
HGDIOBJ

View File

@ -8,8 +8,10 @@ long
%ptr
IBindCtx *
IBindCtx **
IBindStatusCallback *
IBindStatusCallback **
IEnumFORMATETC *
IMoniker *
IMoniker **
LPVOID *

View File

@ -53,6 +53,7 @@ BOOL16
INT16
HANDLE16
HDRVR16
HGLOBAL16
HMODULE16
HINSTANCE16
HTASK16
@ -73,6 +74,7 @@ DLGPROC
DRAWSTATEPROC
GRAYSTRINGPROC
HANDLE *
HBRUSH *
HICON *
HKL *
HWND *
@ -145,10 +147,6 @@ DLGPROC16
HOOKPROC16
WNDPROC16
%ptr # --forbidden
int *
%str
LPSTR

View File

@ -1,22 +1,14 @@
%long
BOOL
BYTE
DWORD
HANDLE
INT
UINT
ULONG_PTR
WORD
int
%ptr
CONTEXT86 *
BYTE *
DOSRELAY
PAPCFUNC
LPDOSTASK
LPVOID
DWORD *
%str

View File

@ -2,16 +2,19 @@
BOOL
DWORD
FILETIME
HINTERNET
HRESULT
INTERNET_PORT
%ptr
LPBYTE
LPCSTR *
LPCVOID
LPDWORD
LPINTERNET_BUFFERSA
LPINTERNET_CACHE_ENTRY_INFOA
LPURL_COMPONENTSA
LPVOID
LPWIN32_FIND_DATAA

View File

@ -237,16 +237,24 @@ sub parse_spec_file {
my $ordinal;
if(/^(\d+|@)\s+
(pascal|pascal16|stdcall|cdecl|register|interrupt|varargs)
(?:\s+(?:-noimport|-norelay|-i386|-ret64))*\s+(\S+)\s*\(\s*(.*?)\s*\)\s*(\S+)$/x)
(pascal|pascal16|stdcall|cdecl|varargs)\s+
((?:(?:-noimport|-norelay|-i386|-ret64|-register|-interrupt)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S+)$/x)
{
my $calling_convention = $2;
my $external_name = $3;
my $arguments = $4;
my $internal_name = $5;
my $flags = $3;
my $external_name = $4;
my $arguments = $5;
my $internal_name = $6;
$ordinal = $1;
$flags =~ s/\s+/ /g;
if($flags =~ /(?:-register|-interrupt)/) {
if($arguments) { $arguments .= " "; }
$arguments .= "ptr";
}
if(!$$function_internal_name{$external_name}) {
$$function_internal_name{$external_name} = $internal_name;
} else {

View File

@ -127,16 +127,7 @@ sub _check_function {
my $declared_calling_convention = $winapi->function_internal_calling_convention($internal_name);
my @declared_argument_kinds = split(/\s+/, $winapi->function_internal_arguments($internal_name));
if($declared_calling_convention =~ /^register|interrupt$/) {
push @declared_argument_kinds, "ptr";
}
if($declared_calling_convention =~ /^register|interupt$/ &&
(($winapi->name eq "win32" && $implemented_calling_convention eq "stdcall") ||
(($winapi->name eq "win16" && $implemented_calling_convention =~ /^pascal/))))
{
# correct
} elsif($implemented_calling_convention ne $declared_calling_convention &&
if($implemented_calling_convention ne $declared_calling_convention &&
$implemented_calling_convention ne "asm" &&
!($declared_calling_convention =~ /^pascal/ && $forbidden_return_type) &&
!($implemented_calling_convention =~ /^cdecl|varargs$/ && $declared_calling_convention =~ /^cdecl|varargs$/))
@ -178,7 +169,9 @@ sub _check_function {
my $type = $_;
my $kind = "unknown";
$winapi->type_used_in_module($type,$module);
if(!defined($kind = $winapi->translate_argument($type))) {
if($type eq "CONTEXT86 *") {
$kind = "context86";
} elsif(!defined($kind = $winapi->translate_argument($type))) {
$output->write("no translation defined: " . $type . "\n");
} elsif(!$winapi->is_allowed_kind($kind) ||
!$winapi->allowed_type_in_module($type, $module)) {
@ -211,7 +204,9 @@ sub _check_function {
$argument_types[$n] = "";
}
if(!$winapi->is_allowed_kind($argument_kinds[$n]) ||
if($argument_kinds[$n] eq "context86") {
# Nothing
} elsif(!$winapi->is_allowed_kind($argument_kinds[$n]) ||
!$winapi->allowed_type_in_module($argument_types[$n], $module))
{
if($options->report_argument_forbidden($argument_types[$n])) {

View File

@ -528,7 +528,7 @@ sub parse_c_file {
&$type_end([@names]);
} elsif(/typedef\s+
(?:(?:const\s+|enum\s+|long\s+|signed\s+|short\s+|struct\s+|union\s+|unsigned\s+)*?)
(\w+)\s+
(\w+(?:\s*\*+\s*)?)\s+
(?:(\w+)\s*)?
\((?:(\w+)\s+)?\s*\*\s*(\w+)\s*\)\s*
(?:\(([^\)]*)\)|\[([^\]]*)\])\s*;/sx)