1 files changed, 148 insertions, 0 deletions
diff --git a/Dh_Getopt.pm b/Dh_Getopt.pm
new file mode 100644
index 00000000..eb6aef98
--- /dev/null
+++ b/Dh_Getopt.pm
@@ -0,0 +1,148 @@
+#!/usr/bin/perl -w
+#
+# Debhelper option processing library.
+#
+# Joey Hess GPL copyright 1998.
+
+package Dh_Getopt;
+use strict;
+
+use Exporter;
+my @ISA=qw(Exporter);
+my @EXPORT=qw(&parseopts);
+
+use Dh_Lib;
+use Getopt::Long;
+
+my (%options, %exclude_package);
+
+# 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 @{$options{DOPACKAGES}}, GetPackages('indep');
+		$options{DOINDEP}=1;
+	}
+	elsif ($option eq 'a' or $option eq 'arch') {
+		push @{$options{DOPACKAGES}}, GetPackages('arch');
+		$options{DOARCH}=1;
+	}
+	elsif ($option eq 'p' or $option eq 'package') {
+		push @{$options{DOPACKAGES}}, $value;
+	}
+	else {
+		error("bad option $option - should never happen!\n");
+	}
+}
+
+# Add a package to a list of packages that should not be acted on.
+sub ExcludePackage { my($option,$value)=@_;
+	$exclude_package{$value}=1;
+}
+
+# Add another item to the exclude list.
+sub AddExclude { my($option,$value)=@_;
+	push @{$options{EXCLUDE}},$value;
+}
+
+sub import {
+	# Enable bundling of short command line options.
+	Getopt::Long::config("bundling");
+}
+
+# Parse options and return a hash of the values.
+sub parseopts {
+	undef %options;
+
+	my $ret=GetOptions(
+		"v" => \$options{VERBOSE},
+		"verbose" => \$options{VERBOSE},
+	
+		"i" => \&AddPackage,
+		"indep" => \&AddPackage,
+	
+		"a" => \&AddPackage,
+		"arch" => \&AddPackage,
+	
+		"p=s" => \&AddPackage,
+	        "package=s" => \&AddPackage,
+	
+		"N=s" => \&ExcludePackage,
+		"no-package=s" => \&ExcludePackage,
+	
+		"n" => \$options{NOSCRIPTS},
+#		"noscripts" => \$options(NOSCRIPTS},
+	
+		"x" => \$options{INCLUDE_CONFFILES}, # is -x for some unknown historical reason..
+		"include-conffiles" => \$options{INCLUDE_CONFFILES},
+	
+		"X=s" => \&AddExclude,
+		"exclude=s" => \&AddExclude,
+	
+		"d" => \$options{D_FLAG},
+		"remove-d" => \$options{D_FLAG},
+	
+		"r" => \$options{R_FLAG},
+		"no-restart-on-upgrade" => \$options{R_FLAG},
+	
+		"k" => \$options{K_FLAG},
+		"keep" => \$options{K_FLAG},
+
+		"P=s" => \$options{TMPDIR},
+		"tmpdir=s" => \$options{TMPDIR},
+
+		"u=s", => \$options{U_PARAMS},
+		"update-rcd-params=s", => \$options{U_PARAMS},
+	        "dpkg-shlibdeps-params=s", => \$options{U_PARAMS},
+
+		"m=s", => \$options{M_PARAMS},
+		"major=s" => \$options{M_PARAMS},
+
+		"V:s", => \$options{V_FLAG},
+		"version-info:s" => \$options{V_FLAG},
+
+		"A" => \$options{PARAMS_ALL},
+		"all" => \$options{PARAMS_ALL},
+
+		"no-act" => \$options{NO_ACT},
+	
+		"init-script=s" => \$options{INIT_SCRIPT},
+	);
+
+	if (!$ret) {
+		error("unknown option; aborting");
+	}
+
+	# Check to see if -V was specified. If so, but no parameters were
+	# passed, the variable will be defined but empty.
+	if (defined($options{V_FLAG})) {
+		$options{V_FLAG_SET}=1;
+	}
+	
+	# Check to see if DH_VERBOSE environment variable was set, if so,
+	# make sure verbose is on.
+	if ($ENV{DH_VERBOSE} ne undef) {
+		$options{VERBOSE}=1;
+	}
+	
+	# Check to see if DH_NO_ACT environment variable was set, if so, 
+	# make sure no act mode is on.
+	if ($ENV{DH_NO_ACT} ne undef) {
+		$options{NO_ACT}=1;
+	}
+
+	# Remove excluded packages from the list of packages to act on.
+	my @package_list;
+	my $package;
+	foreach $package (@{$options{DOPACKAGES}}) {
+		if (! $exclude_package{$package}) {
+			push @package_list, $package;	
+		}
+	}
+	@{$options{DOPACKAGES}}=@package_list;
+	
+	return %options;
+}	
+
+1