commit 0704650f642cfd8e78ea4c7791444926cca74bcc
author Patrik Stridvall <ps@leissner.se> Fri Jul 19 00:31:05 2002 +0000
committer Alexandre Julliard <julliard@winehq.org> Fri Jul 19 00:31:05 2002 +0000
tree 24b0aa3c4a6a0109074041f62fa80a9e334ee58c
parent a3868218d095eb59b87d3592683b874edc1dd5d9

Merged all API files into two files (Win16/Win32).

tools/winapi_check/modules.pm

diff --git a/tools/winapi_check/modules.pm b/tools/winapi_check/modules.pm
index 42c02cf..051aabf 100644
--- a/tools/winapi_check/modules.pm
+++ b/tools/winapi_check/modules.pm
@@ -49,15 +49,24 @@
 
     open(IN, "< $file") || die "$file: $!\n";
     local $/ = "\n";
-    while(<IN>) {
+    my $header = 1;
+    my $lookahead = 0;
+    while($lookahead || defined($_ = <IN>)) {
+	$lookahead = 0;
 	s/^\s*(.*?)\s*$/$1/;
 	s/^(.*?)\s*#.*$/$1/;
 	/^$/ && next;
 
-	if(/^name\s*(\S*)/) { $module = $1; }
-	if(/^type\s*(\w+)/) { $type = $1; }
+	if($header)  {
+	    if(/^name\s*(\S*)/) { $module = $1; }
+	    if(/^\d+|@/) { $header = 0; $lookahead = 1; }
+	    next;
+	}
 
-	if(defined($module) && defined($type)) { last; }
+	if(/^(\d+|@)\s+pascal(?:16)?/) {
+	    $type = "win16";
+	    last;
+	}
     }
     close(IN);
 
@@ -67,7 +76,7 @@
     }
 
     if(!defined($type)) {
-	$type = "";
+	$type = "win32";
     }
 
     return ($type, $module);
@@ -143,8 +152,6 @@
     foreach my $spec_file (@spec_files) {
 	(my $type, my $module) = get_spec_file_type("$wine_dir/$spec_file");
 
-	if(!$type) { $type = "win32"; }
-
 	$$spec_file2module{$spec_file} = $module;
 	$$module2spec_file{$module} = $spec_file;