diff options
author | joey <joey> | 1999-08-17 05:05:44 +0000 |
---|---|---|
committer | joey <joey> | 1999-08-17 05:05:44 +0000 |
commit | aced3d9f3589e56fca0354cc4be7d1a9ee664954 (patch) | |
tree | 6aef17f472cfeba303b70631c255de9b386837e7 | |
parent | b685b3d0a30841511e1d84e3cf5e658a8eff5119 (diff) | |
download | debhelper-aced3d9f3589e56fca0354cc4be7d1a9ee664954.tar.gz |
r178: Removed
-rw-r--r-- | debian/emacsen-install | 0 | ||||
-rw-r--r-- | debian/emacsen-remove | 0 | ||||
-rw-r--r-- | debian/init.d | 0 | ||||
-rwxr-xr-x | dh_getopt.pl | 138 | ||||
-rw-r--r-- | dh_lib | 50 |
5 files changed, 0 insertions, 188 deletions
diff --git a/debian/emacsen-install b/debian/emacsen-install deleted file mode 100644 index e69de29b..00000000 --- a/debian/emacsen-install +++ /dev/null diff --git a/debian/emacsen-remove b/debian/emacsen-remove deleted file mode 100644 index e69de29b..00000000 --- a/debian/emacsen-remove +++ /dev/null diff --git a/debian/init.d b/debian/init.d deleted file mode 100644 index e69de29b..00000000 --- a/debian/init.d +++ /dev/null diff --git a/dh_getopt.pl b/dh_getopt.pl deleted file mode 100755 index bb7d5133..00000000 --- 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 d9266395..00000000 --- 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 |