#!@PERL@ -w#  This script is free software; you can redistribute it and/or modify#  it under the terms of the GNU General Public License version 2 as#  published by the Free Software Foundation.##  See the COPYING and AUTHORS files for more details.# Extract or update a section from a combined patch + documentation +# meta information file.use FileHandle;use Getopt::Long;use File::Temp qw(tempfile);use strict;# This ugly trick lets the script work even if gettext support is missing.# We did so because Locale::gettext doesn't ship with the standard perl# distribution.BEGIN {    if (eval { require Locale::gettext }) {	import Locale::gettext;	require POSIX;	import POSIX, qw(setlocale);    } else {	eval '	    use constant LC_MESSAGES => 0;	    sub setlocale($$) { }	    sub bindtextdomain($$) { }	    sub textdomain($) { }	    sub gettext($) { shift }	'    }}setlocale(LC_MESSAGES, "");bindtextdomain("quilt", "@LOCALEDIR@");textdomain("quilt");sub _($) {    return gettext(shift);}my $select;my $update;if (!GetOptions("s|select=s" => \$select,		"u|update=s" => \$update) ||    (!defined $select && !defined $update)) {	print STDERR sprintf(_("USAGE: %s {-s|-u} section file [< replacement]\n"), $0);	exit 1;}foreach my $arg (@ARGV) {	my $fh;	if (! -e $arg) {		$fh = new FileHandle("/dev/null");	} elsif ($arg =~ /\.gz$/) {		$fh = new FileHandle("gzip -cd $arg |");	} elsif ($arg =~ /\.bz2$/) {		$fh = new FileHandle("bzip2 -cd $arg |");	} else {		$fh = new FileHandle("< $arg");	}	unless ($fh) {		print STDERR "$arg: $!\n";		next;	}	if (defined $select) {		my $section = "head";		my $newline = "";		while (<$fh>) {			if (/^%(.*)/) {				last if $section eq $select;				$section = $1;				next;			}			if ($section eq $select) {				print $newline;				if ($_ eq "\n") {					$newline = $_;				} else {					$newline="";					print;				}			}		}	} elsif (defined $update) {		my ($fh2, $tempname) = tempfile("$arg.XXXXXX");		if ($arg =~ /\.gz$/) {			$fh2->close();			if (! -e $tempname) {				die sprintf(_("File %s disappeared!\n"), $tempname);			}			$fh2 = new FileHandle("| gzip -c > $tempname");		} elsif ($arg =~ /\.bz2$/) {			$fh2->close();			if (! -e $tempname) {				die sprintf(_("File %s disappeared!\n"), $tempname);			}			$fh2 = new FileHandle("| bzip2 -c > $tempname");		}		unless ($fh2) {			die "$tempname: $!\n";		}		# Copy things before updated section		my $last_was_newline=1; # start first section in first line		while (<$fh>) {			if (/^%(.*)/ && $1 eq $update) {				last;			}			$last_was_newline = ($_ eq "\n");			print $fh2 $_;		}		print $fh2 "\n"			unless ($last_was_newline);		# Create/replace updated section		print $fh2 "%$update\n";		while (<STDIN>) {			print $fh2 $_;		}		print $fh2 "\n";		# Skip obsolete section		while (<$fh>) {			if (/^%(.*)/) {				print $fh2 $_;				last;			}		}		# Copy things after updated section		while (<$fh>) {			print $fh2 $_;		}		unless (close $fh2) {			die "$arg.patch: $!\n";		}		if (-e $arg) {			unlink "$arg~";			unless (rename $arg, "$arg~") {				die sprintf(_("Failed to rename %s to %s: %s\n"), $arg, "$arg~", $!);			}		}		unless (rename $tempname, $arg) {			rename("$arg~", $arg);			die sprintf(_("Failed to rename %s to %s: %s\n"), $tempname, $arg, $!);		}	}	close $fh;}