tools/winapi/winapi_fixup_documentation.pm - wine - Git at Google

 #
 # Copyright 1999, 2000, 2001 Patrik Stridvall
 #
 # This library is free software; you can redistribute it and/or
 # modify it under the terms of the GNU Lesser General Public
 # License as published by the Free Software Foundation; either
 # version 2.1 of the License, or (at your option) any later version.
 #
 # This library is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # Lesser General Public License for more details.
 #
 # You should have received a copy of the GNU Lesser General Public
 # License along with this library; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 #

 package winapi_fixup_documentation;

 use strict;

 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 require Exporter;

 @ISA = qw(Exporter);
 @EXPORT = qw();
 @EXPORT_OK = qw(fixup_documentation);

 use config qw($current_dir $wine_dir);
 use modules qw($modules);
 use options qw($options);
 use output qw($output);
 use winapi qw($win16api $win32api @winapis);

 my %documentation_line_used;

 sub fixup_documentation($$) {
     my $function = shift;
     my $editor = shift;

     my $file = $function->file;
     my $documentation_line = $function->documentation_line;
     my $documentation = $function->documentation;
     my $function_line = $function->function_line;
     my $linkage = $function->linkage;
     my $return_type = $function->return_type;
     my $calling_convention = $function->calling_convention;
     my $internal_name = $function->internal_name;
     my $statements = $function->statements;

     if($linkage eq "static" ||
        ($linkage eq "extern" && !defined($statements)) ||
        ($linkage eq "" && !defined($statements)))
     {
 	return;
     }

     my @external_names = $function->external_names;
     if($#external_names < 0) {
 	return;
     }

     if($documentation_line_used{$file}{documentation_line}) {
 	$documentation = undef;
     }
     $documentation_line_used{$file}{$documentation_line}++;

     my @module_ordinal_entries = ();
     foreach my $entry2 ($function->get_all_module_ordinal) {
 	(my $external_name2, my $module2, my $ordinal2) = @$entry2;
 	if(($external_name2 eq "@" ||
 	    ($win16api->is_module($module2) && !$win16api->is_function_stub_in_module($module2, $external_name2)) ||
 	    ($win32api->is_module($module2) && !$win32api->is_function_stub_in_module($module2, $external_name2))) &&
 	       $modules->is_allowed_module_in_file($module2, "$current_dir/$file"))
 	{
 	    push @module_ordinal_entries, $entry2;
 	}
     }

     my $spec_modified = 0;

     if($options->stub && defined($documentation)) {
 	my $calling_convention16 = $function->calling_convention16;
 	my $calling_convention32 = $function->calling_convention32;

 	foreach my $winapi (@winapis) {
 	    my @entries = ();
 	    my $module = $winapi->function_internal_module($internal_name);
 	    my $ordinal = $winapi->function_internal_ordinal($internal_name);

 	    if($winapi->is_function_stub_in_module($module, $internal_name)) {
 		my $external_name = $internal_name;
 		if($winapi->name eq "win16") {
 		    $external_name =~ s/(?:_)?16([AW]?)$//;
 		    if(defined($1)) {
 			$external_name .= $1;
 		    }
 		}
 		push @entries, [$external_name, $module, $ordinal];
 	    }

 	    foreach (split(/\n/, $documentation)) {
 		if(/^\s*\*\s*(\S+)\s*[\(\[]\s*(\w+)\s*\.\s*([^\s\)\]]*)\s*[\)\]].*?$/) {
 		    my $external_name = $1;
 		    my $module = lc($2);
 		    my $ordinal = $3;

 		    if($external_name ne "@" &&
 		       $winapi->is_module($module) &&
 		       $winapi->is_function_stub_in_module($module, $external_name) &&
 		       $internal_name !~ /^\U$module\E_\Q$external_name\E$/)
 		    {
 			push @entries, [$external_name, $module, $ordinal];
 		    }
 		}
 	    }

 	    foreach my $entry (@entries) {
 		(my $external_name, my $module, my $ordinal) = @$entry;

 		my $refargument_types = $function->argument_types;

 		if(!defined($refargument_types)) {
 		    next;
 		}

 		my $abort = 0;
 		my $n;
 		my @argument_kinds = map {
 		    my $type = $_;
 		    my $kind;
 		    if($type ne "..." && !defined($kind = $winapi->translate_argument($type))) {
 			$output->write("no win*.api translation defined: " . $type . "\n");
 		    }

 		    # FIXME: Kludge
 		    if(defined($kind) && $kind eq "longlong") {
 			$n += 2;
 			("long", "long");
 		    } elsif(defined($kind)) {
 			$n++;
 			$kind;
 		    } elsif($type eq "...") {
 			if($winapi->name eq "win16") {
 			    $calling_convention16 = "pascal"; # FIXME: Is this correct?
 			} else {
 			    $calling_convention32 = "varargs";
 			}
 			();
 		    } else {
 			$abort = 1;
 			$n++;
 			"undef";
 		    }
 		} @$refargument_types;

 		my $search = "^\\s*$ordinal\\s+stub\\s+$external_name\\s*(?:#.*?)?\$";
 		my $replace;
 		if($winapi->name eq "win16") {
 		    $replace = "$ordinal $calling_convention16 $external_name(@argument_kinds) $internal_name";
 		} else {
 		    $replace = "$ordinal $calling_convention32 $external_name(@argument_kinds) $internal_name";
 		}

 		if(!$abort) {
 		    $spec_modified = 1;
 		    $editor->replace_spec_file($module, $search, $replace);
 		}
 	    }
 	}
     }

     my %found_external_names;
     foreach my $external_name (@external_names) {
 	$found_external_names{$external_name} = {};
     }

     my $documentation_modified = 0;

     if(!$spec_modified &&
        (defined($documentation) && !$documentation_modified) &&
        ($options->documentation_name || $options->documentation_ordinal ||
 	$options->documentation_missing))
     {
 	local $_;

 	my $line3;
 	my $search;
 	my $replace;

 	my $count = 0;
 	my $line2 = $documentation_line - 1;
 	foreach (split(/\n/, $documentation)) {
 	    $line2++;
 	    if(/^(\s*\*\s*(\S+)\s*)((?:\s*[\(\[]\s*\w+(?:\s*\.\s*[^\s\)\]]*\s*)?[\)\]])+)(.*?)$/) {
 		my $part1 = $1;
 		my $external_name = $2;
 		my $part3 = $3;
 		my $part4 = $4;

 		$part4 =~ s/\s*$//;

 		my @entries = ();
 		while($part3 =~ s/^\s*([\(\[]\s*(\w+)(?:\s*\.\s*([^\s\)\]]*)\s*)?[\)\]])//) {
 		    push @entries, [$1, $2, $3];
 		}

 		my $found = 0;
 		foreach my $external_name2 (@external_names) {
 		    if($external_name eq $external_name2) {
 			foreach my $entry (@entries) {
 			    (undef, my $module, undef) = @$entry;
 			    $found_external_names{$external_name2}{$module} = 1;
 			}
 			$found = 1;
 			last;
 			}
 		}

 		my $replaced = 0;
 		my $replace2 = "";
 		foreach my $entry (@entries) {
 		    my $part12 = $part1;
 		    (my $part32, my $module, my $ordinal) = @$entry;

 		    foreach my $entry2 (@module_ordinal_entries) {
 			(my $external_name2, my $module2, my $ordinal2) = @$entry2;

 			if($options->documentation_name && lc($module) eq $module2 &&
 			   $external_name ne $external_name2)
 			{
 			    if(!$found && $part12 =~ s/\b\Q$external_name\E\b/$external_name2/) {
 				$external_name = $external_name2;
 				$replaced++;
 			    }
 			}

 			if($options->documentation_ordinal &&
 			   $external_name eq $external_name2 &&
 			   lc($module) eq $module2 &&
 			   ($#entries > 0 || !defined($ordinal) || ($ordinal ne $ordinal2)))
 			{
 			    if(defined($ordinal)) {
 				if($part32 =~ s/\Q$module\E\s*.\s*\Q$ordinal\E/\U$module2\E.$ordinal2/ || $#entries > 0) {
 				    $replaced++;
 				}
 			    } else {
 				if($part32 =~ s/\Q$module\E/\U$module2\E.$ordinal2/ || $#entries > 0) {
 				    $replaced++;
 				}
 			    }
 			}
 		    }
 		    if($replace2) { $replace2 .= "\n"; }
 		    $replace2 .= "$part12$part32$part4";
 		}

 		if($replaced > 0) {
 		    $line3 = $line2;
 		    $search = "^\Q$_\E\$";
 		    $replace = $replace2;
 		}
 		$count++;
 	    } elsif(/^(\s*\*\s*)([^\s\(]+)(?:\(\))?\s*$/) {
 		my $part1 = $1;
 		my $external_name = $2;

 		if($internal_name =~ /^(?:\S+_)?\Q$external_name\E(?:16)?$/) {
 		    foreach my $entry (@module_ordinal_entries) {
 			(my $external_name2, my $module, my $ordinal) = @$entry;

 			$line3 = $line2;
 			$search = "^\Q$_\E\$";
 			$replace = "$part1$external_name2 (\U$module\E.$ordinal)";
 		    }
 		    $count++;
 		}
 	    }
 	}

 	if(defined($line3) && defined($search) && defined($replace)) {
 	    if($count > 1 || $#external_names >= 1) {
 		$output->write("multiple entries (fixup not supported)\n");
 		# $output->write("s/$search/$replace/\n");
 		# $output->write("@external_names\n");
 	    } else {
 		$documentation_modified = 1;
 		$editor->substitute_line($line3, $search, $replace);
 	    }
 	}
     }

     if(!$spec_modified && !$documentation_modified &&
        $options->documentation_missing && defined($documentation))
     {
 	my $part1;
 	my $part2;
 	my $part3;
 	my $part4;
 	my $line3 = 0;

 	my $line2 = $documentation_line - 1;
 	foreach (split(/\n/, $documentation)) {
 	    $line2++;
 	    if(/^(\s*\*\s*)(\S+\s*)([\(\[])\s*\w+\s*\.\s*[^\s\)\]]*\s*([\)\]]).*?$/) {
 		$part1 = $1;
 		$part2 = $2;
 		$part3 = $3;
 		$part4 = $4;

 		$part2 =~ s/\S/ /g;

 		$line3 = $line2 + 1;
 	    }
 	}

 	foreach my $entry2 (@module_ordinal_entries) {
 	    (my $external_name2, my $module2, my $ordinal2) = @$entry2;

 	    my $found = 0;
 	    foreach my $external_name (keys(%found_external_names)) {
 		foreach my $module3 (keys(%{$found_external_names{$external_name}})) {
 		    if($external_name eq $external_name2 && uc($module2) eq $module3) {
 			$found = 1;
 		    }
 		}
 	    }
 	    # FIXME: Not 100% correct
 	    if(!$found &&
 	       !$win16api->is_function_stub_in_module($module2, $internal_name) &&
 	       !$win32api->is_function_stub_in_module($module2, $internal_name))
 	    {
 		if($line3 > 0) {
 		    $documentation_modified = 1;
 		    $part2 = $external_name2 . " " x (length($part2) - length($external_name2));
 		    $editor->insert_line($line3, "$part1$part2$part3\U$module2\E.$ordinal2$part4\n");
 		} else {
 		    $output->write("$external_name2 (\U$module2\E.$ordinal2) missing (fixup not supported)\n");
 		}
 	    }
 	}
     }

     if(!$documentation_modified &&
        defined($documentation) &&
        $options->documentation_wrong)
     {
 	my $line2 = $documentation_line - 1;
 	foreach (split(/\n/, $documentation)) {
 	    $line2++;
 	    if(/^\s*\*\s*(\S+)\s*[\(\[]\s*(\w+)\s*\.\s*([^\s\)\]]*)\s*[\)\]].*?$/) {
 		my $external_name = $1;
 		my $module = $2;
 		my $ordinal = $3;

 		my $found = 0;
 		foreach my $entry2 (@module_ordinal_entries) {
 		    (my $external_name2, my $module2, my $ordinal2) = @$entry2;

 		    if($external_name eq $external_name2 &&
 		       lc($module) eq $module2 &&
 		       $ordinal eq $ordinal2)
 		    {
 			$found = 1;
 		    }
 		}
 		if(!$found) {
 		    if(1) {
 			$documentation_modified = 1;

 			$editor->delete_line($line2, "^\Q$_\E\$");
 		    } else {
 			$output->write("$external_name (\U$module\E.$ordinal) wrong (fixup not supported)\n");
 		    };
 		}
 	    }
 	}
     }

     if(!$spec_modified && !$documentation_modified && !defined($documentation))
     {
 	my $insert = "";
 	foreach my $winapi (@winapis) {
 	    my $external_name = $winapi->function_external_name($internal_name);
 	    my $module = $winapi->function_internal_module($internal_name);
 	    my $ordinal = $winapi->function_internal_ordinal($internal_name);

 	    if(defined($external_name) && defined($module) && defined($ordinal)) {
 		$insert .= " *\t\t$external_name (\U$module\E.$ordinal)\n";
 	    }
 	}
 	if($insert) {
 	    $editor->insert_line($function_line,
 				 "/" . "*" x 71 . "\n" .
 				 "$insert" .
 				 " */\n");
 	}
     }
 }

 1;
	#
	# Copyright 1999, 2000, 2001 Patrik Stridvall
	#
	# This library is free software; you can redistribute it and/or
	# modify it under the terms of the GNU Lesser General Public
	# License as published by the Free Software Foundation; either
	# version 2.1 of the License, or (at your option) any later version.
	#
	# This library is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	# Lesser General Public License for more details.
	#
	# You should have received a copy of the GNU Lesser General Public
	# License along with this library; if not, write to the Free Software
	# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
	#

	package winapi_fixup_documentation;

	use strict;

	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
	require Exporter;

	@ISA = qw(Exporter);
	@EXPORT = qw();
	@EXPORT_OK = qw(fixup_documentation);

	use config qw($current_dir $wine_dir);
	use modules qw($modules);
	use options qw($options);
	use output qw($output);
	use winapi qw($win16api $win32api @winapis);

	my %documentation_line_used;

	sub fixup_documentation($$) {
	my $function = shift;
	my $editor = shift;

	my $file = $function->file;
	my $documentation_line = $function->documentation_line;
	my $documentation = $function->documentation;
	my $function_line = $function->function_line;
	my $linkage = $function->linkage;
	my $return_type = $function->return_type;
	my $calling_convention = $function->calling_convention;
	my $internal_name = $function->internal_name;
	my $statements = $function->statements;

	if($linkage eq "static" \|\|
	($linkage eq "extern" && !defined($statements)) \|\|
	($linkage eq "" && !defined($statements)))
	{
	return;
	}

	my @external_names = $function->external_names;
	if($#external_names < 0) {
	return;
	}

	if($documentation_line_used{$file}{documentation_line}) {
	$documentation = undef;
	}
	$documentation_line_used{$file}{$documentation_line}++;

	my @module_ordinal_entries = ();
	foreach my $entry2 ($function->get_all_module_ordinal) {
	(my $external_name2, my $module2, my $ordinal2) = @$entry2;
	if(($external_name2 eq "@" \|\|
	($win16api->is_module($module2) && !$win16api->is_function_stub_in_module($module2, $external_name2)) \|\|
	($win32api->is_module($module2) && !$win32api->is_function_stub_in_module($module2, $external_name2))) &&
	$modules->is_allowed_module_in_file($module2, "$current_dir/$file"))
	{
	push @module_ordinal_entries, $entry2;
	}
	}

	my $spec_modified = 0;

	if($options->stub && defined($documentation)) {
	my $calling_convention16 = $function->calling_convention16;
	my $calling_convention32 = $function->calling_convention32;

	foreach my $winapi (@winapis) {
	my @entries = ();
	my $module = $winapi->function_internal_module($internal_name);
	my $ordinal = $winapi->function_internal_ordinal($internal_name);

	if($winapi->is_function_stub_in_module($module, $internal_name)) {
	my $external_name = $internal_name;
	if($winapi->name eq "win16") {
	$external_name =~ s/(?:_)?16([AW]?)$//;
	if(defined($1)) {
	$external_name .= $1;
	}
	}
	push @entries, [$external_name, $module, $ordinal];
	}

	foreach (split(/\n/, $documentation)) {
	if(/^\s\\s(\S+)\s[\(\[]\s(\w+)\s\.\s([^\s\)\]])\s[\)\]].?$/) {
	my $external_name = $1;
	my $module = lc($2);
	my $ordinal = $3;

	if($external_name ne "@" &&
	$winapi->is_module($module) &&
	$winapi->is_function_stub_in_module($module, $external_name) &&
	$internal_name !~ /^\U$module\E_\Q$external_name\E$/)
	{
	push @entries, [$external_name, $module, $ordinal];
	}
	}
	}

	foreach my $entry (@entries) {
	(my $external_name, my $module, my $ordinal) = @$entry;

	my $refargument_types = $function->argument_types;

	if(!defined($refargument_types)) {
	next;
	}

	my $abort = 0;
	my $n;
	my @argument_kinds = map {
	my $type = $_;
	my $kind;
	if($type ne "..." && !defined($kind = $winapi->translate_argument($type))) {
	$output->write("no win*.api translation defined: " . $type . "\n");
	}

	# FIXME: Kludge
	if(defined($kind) && $kind eq "longlong") {
	$n += 2;
	("long", "long");
	} elsif(defined($kind)) {
	$n++;
	$kind;
	} elsif($type eq "...") {
	if($winapi->name eq "win16") {
	$calling_convention16 = "pascal"; # FIXME: Is this correct?
	} else {
	$calling_convention32 = "varargs";
	}
	();
	} else {
	$abort = 1;
	$n++;
	"undef";
	}
	} @$refargument_types;

	my $search = "^\\s$ordinal\\s+stub\\s+$external_name\\s(?:#.*?)?\$";
	my $replace;
	if($winapi->name eq "win16") {
	$replace = "$ordinal $calling_convention16 $external_name(@argument_kinds) $internal_name";
	} else {
	$replace = "$ordinal $calling_convention32 $external_name(@argument_kinds) $internal_name";
	}

	if(!$abort) {
	$spec_modified = 1;
	$editor->replace_spec_file($module, $search, $replace);
	}
	}
	}
	}

	my %found_external_names;
	foreach my $external_name (@external_names) {
	$found_external_names{$external_name} = {};
	}

	my $documentation_modified = 0;

	if(!$spec_modified &&
	(defined($documentation) && !$documentation_modified) &&
	($options->documentation_name \|\| $options->documentation_ordinal \|\|
	$options->documentation_missing))
	{
	local $_;

	my $line3;
	my $search;
	my $replace;

	my $count = 0;
	my $line2 = $documentation_line - 1;
	foreach (split(/\n/, $documentation)) {
	$line2++;
	if(/^(\s\\s(\S+)\s)((?:\s[\(\[]\s\w+(?:\s\.\s[^\s\)\]]\s)?[\)\]])+)(.*?)$/) {
	my $part1 = $1;
	my $external_name = $2;
	my $part3 = $3;
	my $part4 = $4;

	$part4 =~ s/\s*$//;

	my @entries = ();
	while($part3 =~ s/^\s([\(\[]\s(\w+)(?:\s\.\s([^\s\)\]])\s)?[\)\]])//) {
	push @entries, [$1, $2, $3];
	}

	my $found = 0;
	foreach my $external_name2 (@external_names) {
	if($external_name eq $external_name2) {
	foreach my $entry (@entries) {
	(undef, my $module, undef) = @$entry;
	$found_external_names{$external_name2}{$module} = 1;
	}
	$found = 1;
	last;
	}
	}

	my $replaced = 0;
	my $replace2 = "";
	foreach my $entry (@entries) {
	my $part12 = $part1;
	(my $part32, my $module, my $ordinal) = @$entry;

	foreach my $entry2 (@module_ordinal_entries) {
	(my $external_name2, my $module2, my $ordinal2) = @$entry2;

	if($options->documentation_name && lc($module) eq $module2 &&
	$external_name ne $external_name2)
	{
	if(!$found && $part12 =~ s/\b\Q$external_name\E\b/$external_name2/) {
	$external_name = $external_name2;
	$replaced++;
	}
	}

	if($options->documentation_ordinal &&
	$external_name eq $external_name2 &&
	lc($module) eq $module2 &&
	($#entries > 0 \|\| !defined($ordinal) \|\| ($ordinal ne $ordinal2)))
	{
	if(defined($ordinal)) {
	if($part32 =~ s/\Q$module\E\s.\s\Q$ordinal\E/\U$module2\E.$ordinal2/ \|\| $#entries > 0) {
	$replaced++;
	}
	} else {
	if($part32 =~ s/\Q$module\E/\U$module2\E.$ordinal2/ \|\| $#entries > 0) {
	$replaced++;
	}
	}
	}
	}
	if($replace2) { $replace2 .= "\n"; }
	$replace2 .= "$part12$part32$part4";
	}

	if($replaced > 0) {
	$line3 = $line2;
	$search = "^\Q$_\E\$";
	$replace = $replace2;
	}
	$count++;
	} elsif(/^(\s\\s)([^\s\(]+)(?:\(\))?\s$/) {
	my $part1 = $1;
	my $external_name = $2;

	if($internal_name =~ /^(?:\S+_)?\Q$external_name\E(?:16)?$/) {
	foreach my $entry (@module_ordinal_entries) {
	(my $external_name2, my $module, my $ordinal) = @$entry;

	$line3 = $line2;
	$search = "^\Q$_\E\$";
	$replace = "$part1$external_name2 (\U$module\E.$ordinal)";
	}
	$count++;
	}
	}
	}

	if(defined($line3) && defined($search) && defined($replace)) {
	if($count > 1 \|\| $#external_names >= 1) {
	$output->write("multiple entries (fixup not supported)\n");
	# $output->write("s/$search/$replace/\n");
	# $output->write("@external_names\n");
	} else {
	$documentation_modified = 1;
	$editor->substitute_line($line3, $search, $replace);
	}
	}
	}

	if(!$spec_modified && !$documentation_modified &&
	$options->documentation_missing && defined($documentation))
	{
	my $part1;
	my $part2;
	my $part3;
	my $part4;
	my $line3 = 0;

	my $line2 = $documentation_line - 1;
	foreach (split(/\n/, $documentation)) {
	$line2++;
	if(/^(\s\\s)(\S+\s)([\(\[])\s\w+\s\.\s[^\s\)\]]\s([\)\]]).?$/) {
	$part1 = $1;
	$part2 = $2;
	$part3 = $3;
	$part4 = $4;

	$part2 =~ s/\S/ /g;

	$line3 = $line2 + 1;
	}
	}

	foreach my $entry2 (@module_ordinal_entries) {
	(my $external_name2, my $module2, my $ordinal2) = @$entry2;

	my $found = 0;
	foreach my $external_name (keys(%found_external_names)) {
	foreach my $module3 (keys(%{$found_external_names{$external_name}})) {
	if($external_name eq $external_name2 && uc($module2) eq $module3) {
	$found = 1;
	}
	}
	}
	# FIXME: Not 100% correct
	if(!$found &&
	!$win16api->is_function_stub_in_module($module2, $internal_name) &&
	!$win32api->is_function_stub_in_module($module2, $internal_name))
	{
	if($line3 > 0) {
	$documentation_modified = 1;
	$part2 = $external_name2 . " " x (length($part2) - length($external_name2));
	$editor->insert_line($line3, "$part1$part2$part3\U$module2\E.$ordinal2$part4\n");
	} else {
	$output->write("$external_name2 (\U$module2\E.$ordinal2) missing (fixup not supported)\n");
	}
	}
	}
	}

	if(!$documentation_modified &&
	defined($documentation) &&
	$options->documentation_wrong)
	{
	my $line2 = $documentation_line - 1;
	foreach (split(/\n/, $documentation)) {
	$line2++;
	if(/^\s\\s(\S+)\s[\(\[]\s(\w+)\s\.\s([^\s\)\]])\s[\)\]].?$/) {
	my $external_name = $1;
	my $module = $2;
	my $ordinal = $3;

	my $found = 0;
	foreach my $entry2 (@module_ordinal_entries) {
	(my $external_name2, my $module2, my $ordinal2) = @$entry2;

	if($external_name eq $external_name2 &&
	lc($module) eq $module2 &&
	$ordinal eq $ordinal2)
	{
	$found = 1;
	}
	}
	if(!$found) {
	if(1) {
	$documentation_modified = 1;

	$editor->delete_line($line2, "^\Q$_\E\$");
	} else {
	$output->write("$external_name (\U$module\E.$ordinal) wrong (fixup not supported)\n");
	};
	}
	}
	}
	}

	if(!$spec_modified && !$documentation_modified && !defined($documentation))
	{
	my $insert = "";
	foreach my $winapi (@winapis) {
	my $external_name = $winapi->function_external_name($internal_name);
	my $module = $winapi->function_internal_module($internal_name);
	my $ordinal = $winapi->function_internal_ordinal($internal_name);

	if(defined($external_name) && defined($module) && defined($ordinal)) {
	$insert .= " *\t\t$external_name (\U$module\E.$ordinal)\n";
	}
	}
	if($insert) {
	$editor->insert_line($function_line,
	"/" . "*" x 71 . "\n" .
	"$insert" .
	" */\n");
	}
	}
	}

	1;