From 5e61a8bda30e96bef5a1c6e265f4d6d19695102d Mon Sep 17 00:00:00 2001
From: Andreas Gruenbacher <agruen@suse.de>
Date: Sat, 14 Jan 2006 18:44:11 +0000
Subject: - Move scripts directory to quilt/scripts to simplify running quilt  
 directly from the source tree. - test/Makefile: merge into Makefile.in
 (target check). - Makefile.in: clean up.

---
 scripts/parse-patch.in | 160 -------------------------------------------------
 1 file changed, 160 deletions(-)
 delete mode 100644 scripts/parse-patch.in

(limited to 'scripts/parse-patch.in')

diff --git a/scripts/parse-patch.in b/scripts/parse-patch.in
deleted file mode 100644
index cb5a8e5..0000000
--- a/scripts/parse-patch.in
+++ /dev/null
@@ -1,160 +0,0 @@
-#!@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;
-}
-- 
cgit