From: joey <joey>
Date: Tue, 17 Aug 1999 05:05:44 +0000 (+0000)
Subject: r178: Removed
X-Git-Tag: 4.2.5~416
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=aced3d9f3589e56fca0354cc4be7d1a9ee664954;p=debhelper.git

r178: Removed
---

diff --git a/debian/emacsen-install b/debian/emacsen-install
deleted file mode 100644
index e69de29..0000000
diff --git a/debian/emacsen-remove b/debian/emacsen-remove
deleted file mode 100644
index e69de29..0000000
diff --git a/debian/init.d b/debian/init.d
deleted file mode 100644
index e69de29..0000000
diff --git a/dh_getopt.pl b/dh_getopt.pl
deleted file mode 100755
index bb7d513..0000000
--- a/dh_getopt.pl
+++ /dev/null
@@ -1,138 +0,0 @@
-#!/usr/bin/perl
-#
-# Because the getopt() program is so horribly broken, I wrote my own argument
-# processer that uses the find Getopt::Long module. This is used by all
-# debhelper scripts.
-#
-# Joey Hess, GPL copyright 1998.
-
-# Returns a list of packages in the control file.
-# Must pass "arch" or "indep" to specify arch-dependant or -independant
-# packages.
-sub GetPackages { $type=shift;
-	my $package;
-	my $arch;
-	my @list;
-	open (CONTROL,"<debian/control") || 
-		( $parse_error="cannot read debian/control: $!\n" );
-	while (<CONTROL>) {
-		chomp;
-		s/\s+$//;
-		if (/^Package:\s+(.*)/) {
-			$package=$1;
-		}
-		if (/^Architecture:\s+(.*)/) {
-			$arch=$1;
-		}
-		if (!$_ or eof) { # end of stanza.
-			if ($package &&
-			    (($type eq 'indep' && $arch eq 'all') ||
-				   ($type eq 'arch' && $arch ne 'all'))) {
-				push @list, $package;
-				undef $package, $arch;
-			}
-		}
-	}
-	close CONTROL;
-
-	return @list;
-}
-
-# Passed an option name and an option value, adds packages to the list
-# of packages. We need this so the list will be built up in the right
-# order.
-sub AddPackage { my($option,$value)=@_;
-	if ($option eq 'i' or $option eq 'indep') {
-		push @packages, GetPackages('indep');
-		$indep=1;
-	}
-	elsif ($option eq 'a' or $option eq 'arch') {
-		push @packages, GetPackages('arch');
-		$arch=1;
-	}
-	elsif ($option eq 'p' or $option eq 'package') {
-		push @packages, $value;
-	}
-	else {
-		$parse_error="bad option $option - should never happen!\n";
-	}
-}
-
-use Getopt::Long;
-
-# Enable bundling of short command line options.
-Getopt::Long::config("bundling");
-
-# Parse options.
-GetOptions(
-	"v" => \$verbose,
-	"verbose" => \$verbose,
-
-	"i" => \&AddPackage,
-	"indep" => \&AddPackage,
-
-	"a" => \&AddPackage,
-	"arch" => \&AddPackage,
-
-	"p=s" => \&AddPackage,
-  "package=s" => \&AddPackage,
-
-	"n" => \$noscripts,
-	"noscripts" => \$noscripts,
-
-	"x" => \$include, # is -x for some unknown historical reason..
-	"include-conffiles" => \$include,
-	
-	"d" => \$d_flag,
-	"remove-d" => \$d_flag,
-
-	"r" => \$r_flag,
-	"no-restart-on-upgrade" => \$r_flag,
-
-	"k" => \$k_flag,
-	"keep" => \$k_flag,
-
-	"P=s" => \$tmpdir,
-	"tmpdir=s" => \$tmpdir,
-
-	"u=s", => \$u_params,
-	"update-rcd-params=s", => \$u_params,
-  "dpkg-shlibdeps-params=s", => \$u_params,
-
-	"m=s", => \$major,
-	"major=s" => \$major,
-
-	"V:s", => \$version_info,
-	"version-info:s" => \$version_info,
-
-	"A" => \$all,
-	"all" => \$all,
-);
-
-# Check to see if -V was specified. If so, but no parameters were passed,
-# the variable will be defined but empty.
-if (defined($version_info)) {
-	$version_info_set=1;
-}
-
-# Now output everything, in a format suitable for a shell to eval it. 
-# Note the last line sets $@ in the shell to whatever arguements remain.
-print qq{
-DH_VERBOSE='$verbose'
-DH_DOPACKAGES='@packages'
-DH_DOINDEP='$indep'
-DH_DOARCH='$arch'
-DH_NOSCRIPTS='$noscripts'
-DH_EXCLUDE='$include'
-DH_D_FLAG='$d_flag'
-DH_R_FLAG='$r_flag'
-DH_K_FLAG='$k_flag'
-DH_TMPDIR='$tmpdir'
-DH_U_PARAMS='$u_params'
-DH_M_PARAMS='$major'
-DH_V_FLAG='$version_info'
-DH_V_FLAG_SET='$version_info_set'
-DH_PARAMS_ALL='$all'
-DH_PARSE_ERROR='$parse_error'
-set -- @ARGV
-};
diff --git a/dh_lib b/dh_lib
deleted file mode 100644
index d926639..0000000
--- a/dh_lib
+++ /dev/null
@@ -1,50 +0,0 @@
-# Library functions for debhelper programs.
-
-# Run a command, and display the command to stdout if verbose mode is on.
-# All commands that edit debian/tmp should be ran via this function.
-function doit() {
-	verbose_echo "$1"
-	$1
-}
-
-# Echo something if the verbose flag is on.
-function verbose_echo() {
-	if [ "$DH_VERBOSE" ]; then
-		echo "	$1"
-	fi
-}
-
-# Echo an error message and exit.
-function error() {
-	echo `basename $0`": $1" >&2
-	exit 1
-}
-
-# Argument processing and global variable initialization is below.
-
-# Get the package name and version from the changelog.
-LINE=`head -1 debian/changelog`
-PACKAGE=`expr "$LINE" : '\(.*\) (.*)'`
-VERSION=`expr "$LINE" : '.* (\(.*\))'`
-
-# Is this a native Debian package?
-if ! expr "$VERSION" : '.*-' >/dev/null; then
-       	NATIVE=1
-fi
-
-# Parse command line.
-set -- `getopt v $*` 
-
-for i; do
-	case "$i"
-	in
-		-v)
-			DH_VERBOSE=1
-			shift
-			;;
-		--)
-			shift
-			break
-			;;
-	esac
-done