#!/usr/bin/perl -w
-#
-# Move files out of debian/tmp, into subpackages.
+=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>] [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.
+
+=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 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();
-$ret=0;
+my $ret=0;
-foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
- $TMP=tmpdir($PACKAGE);
- $files=pkgfile($PACKAGE,"files");
+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};
}
- else {
- $sourcedir="debian/tmp";
- }
if (! -d $sourcedir) {
error("$sourcedir does not exist.");
}
- @tomove=();
+ my @tomove;
# debian/files has a different purpose, so ignore it.
- if ( $files && $files ne "debian/files" ) {
- @tomove=filearray($files);
+ if ($files && $files ne "debian/files" ) {
+ @tomove=filearray($files, $sourcedir);
}
- if (($PACKAGE eq $dh{FIRSTPACKAGE} || $dh{PARAMS_ALL}) && @ARGV) {
+ 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.");
+ if (@tomove && $tmp eq $sourcedir) {
+ error("I was asked to move files from $sourcedir to $sourcedir. Perhaps you should set DH_COMPAT=2?");
}
- if (@tomove) {
- if (! -d $TMP) {
- doit("install","-d",$TMP);
- }
- # Now we need to expand wildcards in @tomove.
- @filelist=();
+ # 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 the globs expended to nothing, we are done.
- next unless @filelist;
-
- # Order the files. First all real files, then symlinks.
- # Putting symlinks last is a nice thing to do for library
- # packages and doesn't affect much of anything else.
- doit("rm","-f","movelist");
- foreach (@filelist) {
- $file=$_;
- $ret=1 if (! -e $file && ! -l $file);
- $file=~s:^$sourcedir/+::;
- complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -and ! -type l -print || true) >> movelist");
+ if (@tomove) {
+ if (! -d $tmp) {
+ doit("install","-d",$tmp);
}
- foreach (@filelist) {
- $file=$_;
- $ret=1 if (! -e $file && ! -l $file);
- $file=~s:^$sourcedir/+::;
- complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -and -type l -print || true) >> movelist");
+
+ doit("rm","-f","debian/movelist");
+ foreach (@tomove) {
+ my $file=$_;
+ if (! -e $file && ! -l $file) {
+ $ret=1;
+ warning("$file not found (supposed to put it in $package)");
+ }
+ $file=~s:^\Q$sourcedir\E/+::;
+ complex_doit("(cd $sourcedir >/dev/null ; find $file ! -type d -print || true) >> debian/movelist");
}
- complex_doit("(cd $sourcedir >/dev/null ; tar --create --remove-files --files-from=../../movelist --file -) | (cd $TMP >/dev/null ;tar xpf -)");
- doit("rm","-f","movelist");
+ my $pwd=`pwd`;
+ chomp $pwd;
+ complex_doit("(cd $sourcedir >/dev/null ; tar --create --remove-files --files-from=$pwd/movelist --file -) | (cd $tmp >/dev/null ;tar xpf -)");
+ doit("rm","-f","debian/movelist");
}
}
# packages that arn't always sure exactly which files need
# to be moved.
exit $ret;
+
+=head1 SEE ALSO
+
+L<debhelper(1)>
+
+This program is a part of debhelper.
+
+=head1 AUTHOR
+
+Joey Hess <joeyh@debian.org>
+
+=cut
projects / debhelper.git / blobdiff