tools/winapi/winapi_fixup_editor.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_editor;

 use strict;

 use options qw($options);
 use output qw($output);
 use winapi qw($win16api $win32api @winapis);

 use util;

 sub new($$) {
     my $proto = shift;
     my $class = ref($proto) || $proto;
     my $self  = {};
     bless ($self, $class);

     my $file = \${$self->{FILE}};

     $$file = shift;

     return $self;
 }

 sub add_trigger($$$) {
     my $self = shift;

     my $triggers = \%{$self->{TRIGGERS}};

     my $line = shift;
     my $action = shift;

     if(!defined($$triggers{$line})) {
 	$$triggers{$line} = [];
     }

     push @{$$triggers{$line}}, $action;
 }

 sub replace($$$$$$) {
     my $self = shift;

     my $begin_line = shift;
     my $begin_column = shift;
     my $end_line = shift;
     my $end_column = shift;
     my $replace = shift;

     my $file = \${$self->{FILE}};

     my $line = $begin_line;
     my $action = {};

     $self->add_trigger($begin_line, {
 	type => "replace",
 	begin_line => $begin_line,
 	begin_column => $begin_column,
 	end_line => $end_line,
 	end_column => $end_column,
 	replace => $replace
     });
 }

 sub flush($) {
     my $self = shift;

     my $file = \${$self->{FILE}};
     my $triggers = \%{$self->{TRIGGERS}};

     my $editor = sub {
 	local *IN = shift;
 	local *OUT = shift;

 	my $modified = 0;

 	my $again = 0;
 	my $lookahead = 0;
 	my $lookahead_count = 0;
 	LINE: while($again || defined(my $current = <IN>)) {
 	    if(!$again) {
 		chomp $current;

 		if($lookahead) {
 		    $lookahead = 0;
 		    $_ .= "\n" . $current;
 		    $lookahead_count++;
 		} else {
 		    $_ = $current;
 		    $lookahead_count = 0;
 		}
 	    } else {
 		$lookahead_count = 0;
 		$again = 0;
 	    }

 	    my $line = $. - $lookahead_count;
 	    foreach my $action (@{$$triggers{$line}}) {
     		if($. < $action->{end_line}) {
 		    $lookahead = 1;
 		    next LINE;
 		}

 		my $type = $action->{type};
 		my $begin_line = $action->{begin_line};
 		my $begin_column = $action->{begin_column};
 		my $end_line = $action->{end_line};
 		my $end_column = $action->{end_column};

 		if($type eq "replace") {
 		    my $replace = $action->{replace};

 		    my @lines = split(/\n/, $_);
 		    if($#lines < 0) {
 			@lines = ($_);
 		    }

 		    my $begin = "";
 		    my $column = 0;
 		    $_ = $lines[0];
 		    while($column < $begin_column - 1 && s/^.//) {
 			$begin .= $&;
 			if($& eq "\t") {
 			    $column = $column + 8 - $column % 8;
 			} else {
 			    $column++;
 			}
 		    }

 		    my $column2 = 0;
 		    $_ = $lines[$#lines];
 		    while($column2 < $end_column && s/^.//) {
 			if($& eq "\t") {
 			    $column2 = $column2 + 8 - $column2 % 8;
 			} else {
 			    $column2++;
 			}
 		    }
 		    my $end = $_;

 		    $_ = "$begin$replace$end";
 		    if($options->modify) {
 			$modified = 1;
 		    } else {
 			$output->write("$$file:$begin_line.$begin_column-$end_line.$end_column: $replace\n");
 		    }
 		}
 	    }

 	    print OUT "$_\n";
 	}

 	return $modified;
     };

     my $modified = 0;
     if(1) {
 	$modified = edit_file($$file, $editor);
     }

     if(!$modified) {
 	$self->flush_old;
     }
 }

 ########################################################################
 # Hack for backward compabillity
 #

 my %insert_line;
 my %substitute_line;
 my %delete_line;

 my %spec_file;

 sub flush_old($) {
     my $self = shift;

     my $file = ${$self->{FILE}};

     my $editor = sub {
 	local *IN = shift;
 	local *OUT = shift;

 	my $modified = 0;
 	while(<IN>) {
 	    chomp;

 	    my $line;

 	    $line = $insert_line{$.};
 	    if(defined($line)) {
 		if($options->modify) {
 		    $_ = "$line$_";
 		    $modified = 1;
 		} else {
 		    my $line2 = $line; chomp($line2);
 		    my @line2 = split(/\n/, $line2);
 		    if($#line2 > 0) {
 			$output->write("$file: $.: insert: \\\n");
 			foreach my $line2 (@line2) {
 			    $output->write("'$line2'\n");
 			}
 		    } else {
 			$output->write("$file: $.: insert: '$line2'\n");
 		    }
 		}
 	    }

 	    my $search = $substitute_line{$.}{search};
 	    my $replace = $substitute_line{$.}{replace};

 	    if(defined($search) && defined($replace)) {
 		my $modified2 = 0;
 		if(s/$search/$replace/) {
 		    if($options->modify) {
 			$modified = 1;
 		    }
 		    $modified2 = 1;
 		}

 		if(!$options->modify || !$modified2) {
 		    my $search2;
 		    my $replace2;
 		    if(!$modified2) {
 			$search2 = "unmatched search";
 			$replace2 = "unmatched replace";
 		    } else {
 			$search2 = "search";
 			$replace2 = "replace";
 		    }
 		    $output->write("$file: $.: $search2 : '$search'\n");

 		    my @replace2 = split(/\n/, $replace);
 		    if($#replace2 > 0) {
 			$output->write("$file: $.: $replace2: \\\n");
 			foreach my $replace2 (@replace2) {
 			    $output->write("'$replace2'\n");
 			}
 		    } else {
 			$output->write("$file: $.: $replace2: '$replace'\n");
 		    }
 		}
 	    }

 	    $line = $delete_line{$.};
 	    if(defined($line)) {
 		if(/$line/) {
 		    if($options->modify) {
 			$modified = 1;
 			next;
 		    } else {
 			$output->write("$file: $.: delete: '$line'\n");
 		    }
 		} else {
 		    $output->write("$file: $.: unmatched delete: '$line'\n");
 		}
 	    }

 	    print OUT "$_\n";
 	}

 	return $modified;
     };

     my $n = 0;
     while(defined(each %insert_line)) { $n++; }
     while(defined(each %substitute_line)) { $n++; }
     while(defined(each %delete_line)) { $n++; }
     if($n > 0) {
 	edit_file($file, $editor);
     }

     foreach my $module (sort(keys(%spec_file))) {
 	my $file;
 	foreach my $winapi (@winapis) {
 	    $file = ($winapi->module_file($module) || $file);
 	}

 	if(defined($file)) {
 	    $file = file_normalize($file);
 	}

 	my @substitutes = @{$spec_file{$module}};

 	my $editor = sub {
 	    local *IN = shift;
 	    local *OUT = shift;

 	    my $modified = 0;
 	    while(<IN>) {
 		chomp;

 		my @substitutes2 = ();
 		foreach my $substitute (@substitutes) {
 		    my $search = $substitute->{search};
 		    my $replace = $substitute->{replace};

 		    if(s/$search/$replace/) {
 			if($options->modify) {
 			    $modified = 1;
 			} else {
 			    $output->write("$file: search : '$search'\n");
 			    $output->write("$file: replace: '$replace'\n");
 			}
 			next;
 		    } else {
 			push @substitutes2, $substitute;
 		    }
 		}
 		@substitutes = @substitutes2;

 		print OUT "$_\n";
 	    }

 	    return $modified;
 	};

 	if(defined($file)) {
 	    edit_file($file, $editor);
 	} else {
 	    $output->write("$module: doesn't have any spec file\n");
 	}

 	if($#substitutes >= 0) {
 	    foreach my $substitute (@substitutes) {
 		my $search = $substitute->{search};
 		my $replace = $substitute->{replace};

 		$output->write("$file: unmatched search : '$search'\n");
 		$output->write("$file: unmatched replace: '$replace'\n");
 	    }
 	}

     }

     %insert_line = ();
     %substitute_line = ();
     %delete_line = ();

     %spec_file = ();
 }

 sub delete_line($$$) {
     my $self = shift;

     my $line = shift;
     my $pattern = shift;

     $delete_line{$line} = $pattern;
 }

 sub insert_line($$$) {
     my $self = shift;

     my $line = shift;
     my $insert = shift;

     $insert_line{$line} = $insert;
 }

 sub substitute_line($$$$) {
     my $self = shift;

     my $line = shift;
     my $search = shift;
     my $replace = shift;

     $substitute_line{$line}{search} = $search;
     $substitute_line{$line}{replace} = $replace;
 }

 sub replace_spec_file($$$$) {
     my $self = shift;

     my $module = shift;
     my $search = shift;
     my $replace = shift;

     my $substitute = {};
     $substitute->{search} = $search;
     $substitute->{replace} = $replace;

     if(!defined($spec_file{$module})) {
 	$spec_file{$module} = [];
     }

     push @{$spec_file{$module}}, $substitute;
 }

 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_editor;

	use strict;

	use options qw($options);
	use output qw($output);
	use winapi qw($win16api $win32api @winapis);

	use util;

	sub new($$) {
	my $proto = shift;
	my $class = ref($proto) \|\| $proto;
	my $self = {};
	bless ($self, $class);

	my $file = \${$self->{FILE}};

	$$file = shift;

	return $self;
	}

	sub add_trigger($$$) {
	my $self = shift;

	my $triggers = \%{$self->{TRIGGERS}};

	my $line = shift;
	my $action = shift;

	if(!defined($$triggers{$line})) {
	$$triggers{$line} = [];
	}

	push @{$$triggers{$line}}, $action;
	}

	sub replace($$$$$$) {
	my $self = shift;

	my $begin_line = shift;
	my $begin_column = shift;
	my $end_line = shift;
	my $end_column = shift;
	my $replace = shift;

	my $file = \${$self->{FILE}};

	my $line = $begin_line;
	my $action = {};

	$self->add_trigger($begin_line, {
	type => "replace",
	begin_line => $begin_line,
	begin_column => $begin_column,
	end_line => $end_line,
	end_column => $end_column,
	replace => $replace
	});
	}

	sub flush($) {
	my $self = shift;

	my $file = \${$self->{FILE}};
	my $triggers = \%{$self->{TRIGGERS}};

	my $editor = sub {
	local *IN = shift;
	local *OUT = shift;

	my $modified = 0;

	my $again = 0;
	my $lookahead = 0;
	my $lookahead_count = 0;
	LINE: while($again \|\| defined(my $current = <IN>)) {
	if(!$again) {
	chomp $current;

	if($lookahead) {
	$lookahead = 0;
	$_ .= "\n" . $current;
	$lookahead_count++;
	} else {
	$_ = $current;
	$lookahead_count = 0;
	}
	} else {
	$lookahead_count = 0;
	$again = 0;
	}

	my $line = $. - $lookahead_count;
	foreach my $action (@{$$triggers{$line}}) {
	if($. < $action->{end_line}) {
	$lookahead = 1;
	next LINE;
	}

	my $type = $action->{type};
	my $begin_line = $action->{begin_line};
	my $begin_column = $action->{begin_column};
	my $end_line = $action->{end_line};
	my $end_column = $action->{end_column};

	if($type eq "replace") {
	my $replace = $action->{replace};

	my @lines = split(/\n/, $_);
	if($#lines < 0) {
	@lines = ($_);
	}

	my $begin = "";
	my $column = 0;
	$_ = $lines[0];
	while($column < $begin_column - 1 && s/^.//) {
	$begin .= $&;
	if($& eq "\t") {
	$column = $column + 8 - $column % 8;
	} else {
	$column++;
	}
	}

	my $column2 = 0;
	$_ = $lines[$#lines];
	while($column2 < $end_column && s/^.//) {
	if($& eq "\t") {
	$column2 = $column2 + 8 - $column2 % 8;
	} else {
	$column2++;
	}
	}
	my $end = $_;

	$_ = "$begin$replace$end";
	if($options->modify) {
	$modified = 1;
	} else {
	$output->write("$$file:$begin_line.$begin_column-$end_line.$end_column: $replace\n");
	}
	}
	}

	print OUT "$_\n";
	}

	return $modified;
	};

	my $modified = 0;
	if(1) {
	$modified = edit_file($$file, $editor);
	}

	if(!$modified) {
	$self->flush_old;
	}
	}

	########################################################################
	# Hack for backward compabillity
	#

	my %insert_line;
	my %substitute_line;
	my %delete_line;

	my %spec_file;

	sub flush_old($) {
	my $self = shift;

	my $file = ${$self->{FILE}};

	my $editor = sub {
	local *IN = shift;
	local *OUT = shift;

	my $modified = 0;
	while(<IN>) {
	chomp;

	my $line;

	$line = $insert_line{$.};
	if(defined($line)) {
	if($options->modify) {
	$_ = "$line$_";
	$modified = 1;
	} else {
	my $line2 = $line; chomp($line2);
	my @line2 = split(/\n/, $line2);
	if($#line2 > 0) {
	$output->write("$file: $.: insert: \\\n");
	foreach my $line2 (@line2) {
	$output->write("'$line2'\n");
	}
	} else {
	$output->write("$file: $.: insert: '$line2'\n");
	}
	}
	}

	my $search = $substitute_line{$.}{search};
	my $replace = $substitute_line{$.}{replace};

	if(defined($search) && defined($replace)) {
	my $modified2 = 0;
	if(s/$search/$replace/) {
	if($options->modify) {
	$modified = 1;
	}
	$modified2 = 1;
	}

	if(!$options->modify \|\| !$modified2) {
	my $search2;
	my $replace2;
	if(!$modified2) {
	$search2 = "unmatched search";
	$replace2 = "unmatched replace";
	} else {
	$search2 = "search";
	$replace2 = "replace";
	}
	$output->write("$file: $.: $search2 : '$search'\n");

	my @replace2 = split(/\n/, $replace);
	if($#replace2 > 0) {
	$output->write("$file: $.: $replace2: \\\n");
	foreach my $replace2 (@replace2) {
	$output->write("'$replace2'\n");
	}
	} else {
	$output->write("$file: $.: $replace2: '$replace'\n");
	}
	}
	}

	$line = $delete_line{$.};
	if(defined($line)) {
	if(/$line/) {
	if($options->modify) {
	$modified = 1;
	next;
	} else {
	$output->write("$file: $.: delete: '$line'\n");
	}
	} else {
	$output->write("$file: $.: unmatched delete: '$line'\n");
	}
	}

	print OUT "$_\n";
	}

	return $modified;
	};

	my $n = 0;
	while(defined(each %insert_line)) { $n++; }
	while(defined(each %substitute_line)) { $n++; }
	while(defined(each %delete_line)) { $n++; }
	if($n > 0) {
	edit_file($file, $editor);
	}

	foreach my $module (sort(keys(%spec_file))) {
	my $file;
	foreach my $winapi (@winapis) {
	$file = ($winapi->module_file($module) \|\| $file);
	}

	if(defined($file)) {
	$file = file_normalize($file);
	}

	my @substitutes = @{$spec_file{$module}};

	my $editor = sub {
	local *IN = shift;
	local *OUT = shift;

	my $modified = 0;
	while(<IN>) {
	chomp;

	my @substitutes2 = ();
	foreach my $substitute (@substitutes) {
	my $search = $substitute->{search};
	my $replace = $substitute->{replace};

	if(s/$search/$replace/) {
	if($options->modify) {
	$modified = 1;
	} else {
	$output->write("$file: search : '$search'\n");
	$output->write("$file: replace: '$replace'\n");
	}
	next;
	} else {
	push @substitutes2, $substitute;
	}
	}
	@substitutes = @substitutes2;

	print OUT "$_\n";
	}

	return $modified;
	};

	if(defined($file)) {
	edit_file($file, $editor);
	} else {
	$output->write("$module: doesn't have any spec file\n");
	}

	if($#substitutes >= 0) {
	foreach my $substitute (@substitutes) {
	my $search = $substitute->{search};
	my $replace = $substitute->{replace};

	$output->write("$file: unmatched search : '$search'\n");
	$output->write("$file: unmatched replace: '$replace'\n");
	}
	}

	}

	%insert_line = ();
	%substitute_line = ();
	%delete_line = ();

	%spec_file = ();
	}

	sub delete_line($$$) {
	my $self = shift;

	my $line = shift;
	my $pattern = shift;

	$delete_line{$line} = $pattern;
	}

	sub insert_line($$$) {
	my $self = shift;

	my $line = shift;
	my $insert = shift;

	$insert_line{$line} = $insert;
	}

	sub substitute_line($$$$) {
	my $self = shift;

	my $line = shift;
	my $search = shift;
	my $replace = shift;

	$substitute_line{$line}{search} = $search;
	$substitute_line{$line}{replace} = $replace;
	}

	sub replace_spec_file($$$$) {
	my $self = shift;

	my $module = shift;
	my $search = shift;
	my $replace = shift;

	my $substitute = {};
	$substitute->{search} = $search;
	$substitute->{replace} = $replace;

	if(!defined($spec_file{$module})) {
	$spec_file{$module} = [];
	}

	push @{$spec_file{$module}}, $substitute;
	}

	1;