- API files update

- Minor bug fixes
2002-01-07 21:08:18 +00:00 · 2002-01-07 21:08:18 +00:00 · aa4efd49b1
parent 718b1b711b
commit aa4efd49b1
16 changed files with 55 additions and 42 deletions
--- a/tools/winapi_check/win16/gdi.api
+++ b/tools/winapi_check/win16/gdi.api
@ -12,6 +12,8 @@ UINT
 int

 %ptr
+
+ABORTPROC16
 BITMAP16 *
 BITMAPINFO *
 BITMAPINFOHEADER *
--- a/tools/winapi_check/win16/user.api
+++ b/tools/winapi_check/win16/user.api
@ -54,6 +54,7 @@ UINT16 *
 WINDOWPLACEMENT16 *
 WNDCLASS16 *
 WNDCLASSEX16 *
+WNDPROC
 WORD *
 void *

--- a/tools/winapi_check/win32/gdi32.api
+++ b/tools/winapi_check/win32/gdi32.api
@ -37,6 +37,7 @@ BITMAP *
 BITMAPINFO *
 BITMAPINFOHEADER *
 COLORADJUSTMENT *
+DCHOOKPROC
 DEVMODEA *
 DEVMODEW *
 DOCINFOA *
--- a/tools/winapi_check/win32/kernel32.api
+++ b/tools/winapi_check/win32/kernel32.api
@ -49,6 +49,7 @@ UINT16

 BOOL *
 BY_HANDLE_FILE_INFORMATION *
+CHAR_INFO *
 DWORD *
 CALINFO_ENUMPROCA
 CONTEXT *
--- a/tools/winapi_check/win32/msvcrt.api
+++ b/tools/winapi_check/win32/msvcrt.api
@ -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 *
--- a/tools/winapi_check/win32/ntdll.api
+++ b/tools/winapi_check/win32/ntdll.api
@ -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
--- a/tools/winapi_check/win32/shell32.api
+++ b/tools/winapi_check/win32/shell32.api
@ -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 *
--- a/tools/winapi_check/win32/shlwapi.api
+++ b/tools/winapi_check/win32/shlwapi.api
@ -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 *
--- a/tools/winapi_check/win32/ttydrv.api
+++ b/tools/winapi_check/win32/ttydrv.api
@ -5,7 +5,6 @@ CHAR
 COLORREF
 DWORD
 INT
-HANDLE
 HDC
 HBITMAP
 HGDIOBJ
--- a/tools/winapi_check/win32/urlmon.api
+++ b/tools/winapi_check/win32/urlmon.api
@ -8,8 +8,10 @@ long
 %ptr

 IBindCtx *
+IBindCtx **
 IBindStatusCallback *
 IBindStatusCallback **
+IEnumFORMATETC *
 IMoniker *
 IMoniker **
 LPVOID *
--- a/tools/winapi_check/win32/user32.api
+++ b/tools/winapi_check/win32/user32.api
@ -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
--- a/tools/winapi_check/win32/winedos.api
+++ b/tools/winapi_check/win32/winedos.api
@ -1,22 +1,14 @@
 %long

 BOOL
-BYTE
+DWORD
 HANDLE
-INT
 UINT
-ULONG_PTR
-WORD
-
+int

 %ptr

-CONTEXT86 *
-BYTE *
-DOSRELAY
-PAPCFUNC
-LPDOSTASK
-LPVOID
+DWORD *

 %str

--- a/tools/winapi_check/win32/wininet.api
+++ b/tools/winapi_check/win32/wininet.api
@ -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
--- a/tools/winapi_check/winapi.pm
+++ b/tools/winapi_check/winapi.pm
@ -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 {
--- a/tools/winapi_check/winapi_local.pm
+++ b/tools/winapi_check/winapi_local.pm
@ -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])) {
--- a/tools/winapi_check/winapi_parser.pm
+++ b/tools/winapi_check/winapi_parser.pm
@ -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)