Commit 416a42c3 authored by Patrik Stridvall's avatar Patrik Stridvall Committed by Alexandre Julliard

Updated winapi_check to handle the new additions.

parent b7c84d3b
%long
POLICY_INFORMATION_CLASS
%long --extension
LSA_HANDLE
\ No newline at end of file
...@@ -5,3 +5,7 @@ HBITMAP ...@@ -5,3 +5,7 @@ HBITMAP
HDC HDC
HICON HICON
HWND HWND
%ptr
TRACKMOUSEEVENT *
\ No newline at end of file
%long
SQLHANDLE
SQLHDBC
SQLHDESC
SQLHENV
SQLHSTMT
SQLHWND
SQLINTEGER
SQLSMALLINT
SQLUINTEGER
SQLUSMALLINT
%long --extension
SQLRETURNTYPE
%ptr
SQLCHAR *
SQLHANDLE *
SQLHENV *
SQLHSTMT *
SQLINTEGER *
SQLPOINTER
SQLPOINTER *
SQLSMALLINT *
SQLUINTEGER *
SQLUSMALLINT *
...@@ -46,6 +46,7 @@ sub parse_api_file { ...@@ -46,6 +46,7 @@ sub parse_api_file {
my $module = shift; my $module = shift;
my $kind; my $kind;
my $extension = 0;
my $forbidden = 0; my $forbidden = 0;
$$output->progress("$file"); $$output->progress("$file");
...@@ -60,10 +61,13 @@ sub parse_api_file { ...@@ -60,10 +61,13 @@ sub parse_api_file {
if(s/^%(\S+)\s*//) { if(s/^%(\S+)\s*//) {
$kind = $1; $kind = $1;
$forbidden = 0; $forbidden = 0;
$extension = 0;
$$allowed_kind{$kind} = 1; $$allowed_kind{$kind} = 1;
if(/^--forbidden/) { if(/^--forbidden/) {
$forbidden = 1; $forbidden = 1;
} elsif(/^--extension/) {
$extension = 1;
} }
} elsif(defined($kind)) { } elsif(defined($kind)) {
my $type = $_; my $type = $_;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment