From 7aa0f3c41d8e5fa93fd4f5f162dc419bb3835d90 Mon Sep 17 00:00:00 2001
From: Francois Gouget <fgouget@free.fr>
Date: Mon, 29 Sep 2003 20:15:24 +0000
Subject: [PATCH] Update winapi and c2man so they know about -ret16. Remove
 support for the obsolete pascal16 and -noimport. Update modules.dat so winapi
 knows about the new dlls.

---
 tools/c2man.pl                 |  4 ++--
 tools/winapi/winapi.pm         | 12 ++++++------
 tools/winapi_check/modules.dat | 18 +++++++++++++-----
 3 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/tools/c2man.pl b/tools/c2man.pl
index 5798ae2f952..601b6580d60 100755
--- a/tools/c2man.pl
+++ b/tools/c2man.pl
@@ -252,11 +252,11 @@ sub process_spec_file
 
       for ($call_convention)
       {
-        /^(cdecl|stdcall|varargs|pascal|pascal16)$/
+        /^(cdecl|stdcall|varargs|pascal)$/
                  && do { $spec_details->{NUM_FUNCS}++;    last; };
         /^(variable|equate)$/
                  && do { $spec_details->{NUM_VARS}++;     last; };
-        /^(forward|extern)$/
+        /^(extern)$/
                  && do { $spec_details->{NUM_FORWARDS}++; last; };
         /^stub$/ && do { $spec_details->{NUM_STUBS}++;    last; };
         if ($opt_verbose > 0)
diff --git a/tools/winapi/winapi.pm b/tools/winapi/winapi.pm
index a8fb3dfb53a..3e9d7932388 100644
--- a/tools/winapi/winapi.pm
+++ b/tools/winapi/winapi.pm
@@ -49,10 +49,10 @@ sub import {
 
     my @spec_files16 = $modules->allowed_spec_files16;
     $win16api = 'winapi'->new("win16", \@spec_files16);
-    
+
     my @spec_files32 = $modules->allowed_spec_files32;
     $win32api = 'winapi'->new("win32", \@spec_files32);
-    
+
     @winapis = ($win16api, $win32api);
 
     for my $internal_name ($win32api->all_internal_functions) {
@@ -270,8 +270,8 @@ sub parse_spec_file {
 
 	my $ordinal;
 	if(/^(\d+|@)\s+
-	   (pascal|pascal16|stdcall|cdecl|varargs)\s+
-	   ((?:(?:-noimport|-noname|-norelay|-i386|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
+	   (pascal|stdcall|cdecl|varargs)\s+
+	   ((?:(?:-noname|-norelay|-i386|-ret16|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
 	{
 	    my $calling_convention = $2;
 	    my $flags = $3;
@@ -380,7 +380,7 @@ sub parse_spec_file {
 		    }
 		}
 	    }
-	} elsif(/^(\d+|@)\s+stub(?:\s+(-noimport|-noname|-norelay|-i386|-ret64|-private))?\s+(\S+)$/) {
+	} elsif(/^(\d+|@)\s+stub(?:\s+(-noname|-norelay|-i386|-ret16|-ret64|-private))?\s+(\S+)$/) {
 	    $ordinal = $1;
 
 	    my $flags = $2;
@@ -429,7 +429,7 @@ sub parse_spec_file {
 	    } else { # if($$function_external_module{$external_name} !~ /$module/) {
 		$$function_external_module{$external_name} .= " & $module";
 	    }
-	} elsif(/^(\d+|@)\s+extern(?:\s+(?:-noimport|-norelay|-i386|-ret64))?\s+(\S+)\s*(\S*)$/) {
+	} elsif(/^(\d+|@)\s+extern(?:\s+(?:-norelay|-i386|-ret16|-ret64))?\s+(\S+)\s*(\S*)$/) {
 	    $ordinal = $1;
 
 	    my $external_name = $2;
diff --git a/tools/winapi_check/modules.dat b/tools/winapi_check/modules.dat
index 36d5320a45e..0e2d19bc102 100644
--- a/tools/winapi_check/modules.dat
+++ b/tools/winapi_check/modules.dat
@@ -193,7 +193,7 @@ dlls/imm32
 
 dlls/iphlpapi
 
-% dlls/kernel/comm.spec
+% dlls/kernel/comm.drv.spec
 
 % dlls/kernel/krnl386.exe.spec
 
@@ -255,7 +255,7 @@ dlls/mswsock
 
 dlls/kernel
 
-% dlls/kernel/system.spec
+% dlls/kernel/system.drv.spec
 
 memory
 misc
@@ -315,6 +315,14 @@ dlls/msacm/msg711
 
 dlls/msacm/winemp3
 
+% dlls/mshtml/mshtml.spec
+
+dlls/mshtml
+
+% dlls/msi/msi.spec
+
+dlls/msi
+
 % dlls/msnet32/msnet32.spec
 
 dlls/msnet32
@@ -496,17 +504,17 @@ dlls/urlmon
 
 dlls/user/dde
 
-% dlls/user/display.spec
+% dlls/user/display.drv.spec
 
 dlls/user
 objects
 
-% dlls/user/keyboard.spec
+% dlls/user/keyboard.drv.spec
 
 dlls/user
 windows
 
-% dlls/user/mouse.spec
+% dlls/user/mouse.drv.spec
 
 dlls/user