summaryrefslogtreecommitdiff
path: root/dh_movefiles
diff options
context:
space:
mode:
authorunknown <unknown>2003-07-28 18:46:16 +0000
committerunknown <unknown>2003-07-28 18:46:16 +0000
commitae87933e9cdce79689a0a3160aed4ca4c17b547c (patch)
treeb3099bdd844566555941f8b4e8336c415a489646 /dh_movefiles
parentd579dae0cf159c50dcd902ff4a35590f7dcff395 (diff)
parent63e45075003b1d9fcff097b5644a81131c346653 (diff)
downloaddebhelper-version_2.0.51.tar.gz
r977: This commit was manufactured by cvs2svn to create tagversion_2.0.51
'debian_version_2_0_51'.
Diffstat (limited to 'dh_movefiles')
-rwxr-xr-xdh_movefiles170
1 files changed, 0 insertions, 170 deletions
diff --git a/dh_movefiles b/dh_movefiles
deleted file mode 100755
index 2c8a63fd..00000000
--- a/dh_movefiles
+++ /dev/null
@@ -1,170 +0,0 @@
-#!/usr/bin/perl -w
-
-=head1 NAME
-
-dh_movefiles - move files out of debian/tmp into subpackages
-
-=cut
-
-use strict;
-use Debian::Debhelper::Dh_Lib;
-
-=head1 SYNOPSIS
-
-B<dh_movefiles> [S<I<debhelper options>>] [B<--sourcedir=>I<dir>] [B<-X>I<item>] S<I<file ...>>]
-
-=head1 DESCRIPTION
-
-dh_movefiles is a debhelper program that is responsible for moving files
-out of debian/tmp or some other directory and into other package build
-directories. This may be useful if your package has a Makefile that installs
-everything into debian/tmp, and you need to break that up into subpackages.
-
-Files named debian/package.files list the files to be moved, separated by
-whitespace. The filenames listed should be relative to debian/tmp/. You can
-also list directory names, and the whole directory will be moved. If you
-prefer, you can list the files to move on the command line and this will
-apply to the first package dh_movefiles is told to act on.
-
-Note: dh_install is a much better program that can do everything this one can,
-and more.
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<--sourcedir=>I<dir>
-
-Instead of moving files out of debian/tmp (the default), this option makes
-it move files out of some other directory. Since the entire contents of
-the sourcedir is moved, specifiying something like --sourcedir=/ is very
-unsafe, so to prevent mistakes, the sourcedir must be a relative filename;
-it cannot begin with a `/'.
-
-=item B<-Xitem>, B<--exclude=item>
-
-Exclude files that contain "item" anywhere in their filename from
-being installed.
-
-=item I<file ...>
-
-Lists files to move. The filenames listed should be relative to
-debian/tmp/. You can also list directory names, and the whole directory will
-be moved. It is an error to list files here unless you use -p, -i, or -a to
-tell dh_movefiles which subpackage to put them in.
-
-=back
-
-=head1 NOTES
-
-Note that files are always moved out of debian/tmp by default (even if you
-have instructed debhelper to use a compatibility level higher than one,
-which does not otherwise use debian/tmp for anything at all). The idea
-behind this is that the package that is being built can be told to install
-into debian/tmp, and then files can be moved by dh_movefiles from that
-directory. Any files or directories that remain are ignored, and get
-deleted by dh_clean later.
-
-=cut
-
-init();
-
-my $ret=0;
-
-foreach my $package (@{$dh{DOPACKAGES}}) {
- my $tmp=tmpdir($package);
- my $files=pkgfile($package,"files");
-
- my $sourcedir="debian/tmp";
- if ($dh{SOURCEDIR}) {
- if ($dh{SOURCEDIR}=~m:^/:) {
- error("The sourcedir must be a relative filename, not starting with `/'.");
- }
- $sourcedir=$dh{SOURCEDIR};
- }
-
- if (! -d $sourcedir) {
- error("$sourcedir does not exist.");
- }
-
- my @tomove;
-
- # debian/files has a different purpose, so ignore it.
- if ($files && $files ne "debian/files" ) {
- @tomove=filearray($files, $sourcedir);
- }
-
- if (($package eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
- push @tomove, @ARGV;
- }
-
- if (@tomove && $tmp eq $sourcedir) {
- error("I was asked to move files from $sourcedir to $sourcedir. Perhaps you should set DH_COMPAT=2?");
- }
-
- # Now we need to expand wildcards in @tomove.
- # This is only necessary in pre-v3 land -- as of v3, the
- # expension is automatically done by filearray().
- if (@tomove && compat(2)) {
- my @filelist=();
- foreach (@tomove) {
- push @filelist, glob("$sourcedir/$_");
- }
- @tomove=@filelist;
- }
- else {
- # However, filearray() does not add the sourcedir,
- # which we need.
- @tomove = map { "$sourcedir/$_" } @tomove;
- }
-
- if (@tomove) {
- if (! -d $tmp) {
- doit("install","-d",$tmp);
- }
-
- doit("rm","-f","debian/movelist");
- foreach (@tomove) {
- my $file=$_;
- if (! -e $file && ! -l $file && ! $dh{NO_ACT}) {
- $ret=1;
- warning("$file not found (supposed to put it in $package)");
- }
- $file=~s:^\Q$sourcedir\E/+::;
- my $cmd="(cd $sourcedir >/dev/null ; find $file ! -type d ";
- if ($dh{EXCLUDE_FIND}) {
- $cmd.="-a ! \\( $dh{EXCLUDE_FIND} \\) ";
- }
- $cmd.="-print || true) >> debian/movelist";
- complex_doit($cmd);
- }
- my $pwd=`pwd`;
- chomp $pwd;
- complex_doit("(cd $sourcedir >/dev/null ; tar --create --files-from=$pwd/debian/movelist --file -) | (cd $tmp >/dev/null ;tar xpf -)");
- # --remove-files is not used above because tar then doesn't
- # preserve hard links
- complex_doit("(cd $sourcedir >/dev/null ; cat $pwd/debian/movelist | xargs rm -f)");
- doit("rm","-f","debian/movelist");
- }
-}
-
-# If $ret is set, we wern't actually able to find some
-# files that were specified to be moved, and we should
-# exit with the code in $ret. This program puts off
-# exiting with an error until all files have been tried
-# to be moved, because this makes it easier for some
-# packages that arn't always sure exactly which files need
-# to be moved.
-exit $ret;
-
-=head1 SEE ALSO
-
-L<debhelper(7)>
-
-This program is a part of debhelper.
-
-=head1 AUTHOR
-
-Joey Hess <joeyh@debian.org>
-
-=cut