From d827c6cf1631209f5042a9d1d8a7ecc24223c8a0 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 23:06:40 +0200 Subject: Adding upstream version 13.11.4. Signed-off-by: Daniel Baumann --- dh_clean | 199 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 199 insertions(+) create mode 100755 dh_clean (limited to 'dh_clean') diff --git a/dh_clean b/dh_clean new file mode 100755 index 0000000..beb67c4 --- /dev/null +++ b/dh_clean @@ -0,0 +1,199 @@ +#!/usr/bin/perl + +=head1 NAME + +dh_clean - clean up package build directories + +=cut + +use strict; +use warnings; +use Debian::Debhelper::Dh_Lib; + +our $VERSION = DH_BUILTIN_VERSION; + +=head1 SYNOPSIS + +B [S>] [B<-k>] [B<-d>] [B<-X>I] [S ...>] + +=head1 DESCRIPTION + +B is a debhelper program that is responsible for cleaning up. It should +be the last step of the B target and other debhelper commands generally +assume that B will clean up after them. + +It removes the package build directories, and removes some other files including +F, and any detritus left behind by other debhelper commands. It +also removes common files that should not appear in a Debian diff: + #*# *~ DEADJOE *.orig *.rej *.SUMS TAGS .deps/* *.P *-stamp + +It does not run "make clean" to clean up after the build process. Use +L to do things like that. + +=head1 FILES + +=over 4 + +=item F + +Can list other paths to be removed. + +Note that directories listed in this file B end with a trailing +slash. Any content in these directories will be removed as well. + +Supports substitution variables in compat 13 and later as +documented in L. + +=back + +=head1 OPTIONS + +=over 4 + +=item B<-k>, B<--keep> + +This is deprecated, use L instead. + +The option is removed in compat 12. + +=item B<-d>, B<--dirs-only> + +Only clean the package build directories, do not clean up any other files +at all. + +=item B<-X>I B<--exclude=>I + +Exclude files that contain I anywhere in their filename from being +deleted, even if they would normally be deleted. You may use this option +multiple times to build up a list of things to exclude. + +=item I ... + +Delete these Is too. + +Note that directories passed as arguments B end with a trailing +slash. Any content in these directories will be removed as well. + +=back + +=cut + +init(options => { + 'dirs-only' => \$dh{D_FLAG}, + 'keep|k' => \$dh{K_FLAG}, + }, + inhibit_log => 1, +); + +if ($dh{K_FLAG}) { + deprecated_functionality('dh_clean -k is deprecated; use dh_prep instead', + 12, + 'The -k option is not supported in compat 12; use dh_prep instead'); +} + +# Remove the debhelper stamp file +rm_files('debian/debhelper-build-stamp') if not $dh{D_FLAG}; + +my (@clean_files, @clean_dirs, %seen); + +foreach my $package (@{$dh{DOPACKAGES}}) { + my $tmp=tmpdir($package); + my $ext=pkgext($package); + my $source_dir = default_sourcedir($package); + + if (! $dh{D_FLAG}) { + push(@clean_files, "debian/${ext}substvars") + unless excludefile("debian/${ext}substvars"); + + # These are all debhelper temp files, and so it is safe to + # wildcard them. + my @temp = glob("debian/$ext*.debhelper"); + push(@clean_files, @temp); + } + + push(@clean_dirs , "${tmp}/") + unless excludefile($tmp); + push(@clean_dirs, "${source_dir}/") + if (not $seen{$source_dir}++ and not excludefile($source_dir)); +} + + +if (not $dh{D_FLAG}) { + # Restore all files in our bucket (before we delete said bucket) + restore_all_files(1); + + # Remove internal state data + doit('rm', '-rf', 'debian/.debhelper/'); +} + + +# Remove all debhelper logs. +if (! $dh{D_FLAG} && ! $dh{K_FLAG}) { + my @logs = glob('debian/*.debhelper.log'); + rm_files(@logs) if @logs; +} + +if (! $dh{D_FLAG}) { + if (@ARGV) { + push(@clean_files, grep { !m@/$@ } @ARGV); + push(@clean_dirs, grep { m@/$@ } @ARGV); + } + + if (! $dh{K_FLAG}) { + if (!compat(6) && -e "debian/clean") { + my @clean=grep { + ! excludefile($_) + # Silently ignore missing files - for all we know, dh_clean is run before + # they have been created. + } filearray('debian/clean', ["."], \&glob_expand_error_handler_silently_ignore); + push(@clean_files, grep { !m@/$@ } @clean); + push(@clean_dirs, grep { m@/$@ } @clean); + } + + push(@clean_files, 'debian/files') + unless excludefile("debian/files"); + } +} + +xargs(\@clean_files, 'rm', '-f', '--') if @clean_files; +xargs(\@clean_dirs, 'rm', '-fr', '--') if @clean_dirs; + +if (! $dh{D_FLAG}) { + # See if some files that would normally be deleted are excluded. + my $find_options=''; + if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') { + $find_options="! \\( $dh{EXCLUDE_FIND} \\) -a"; + } + + # vcs directories that should not have their contents cleaned + # (plus the internal "quilt" directory) + my $vcs_dirs=join " -o ", map { "-path .\\*/" . $_ } + (".git", ".svn", ".bzr", ".hg", "CVS", '.pc', '_darcs'); + + # Remove other temp files. + complex_doit("find . $find_options \\( \\( \\ + \\( $vcs_dirs \\) -prune -o -type f -a \\ + \\( -name '#*#' -o -name '.*~' -o -name '*~' -o -name DEADJOE \\ + -o -name '*.orig' -o -name '*.rej' -o -name '*.bak' \\ + -o -name '.*.orig' -o -name .*.rej -o -name '.SUMS' \\ + -o -name TAGS -o \\( -path '*/.deps/*' -a -name '*.P' \\) \\ + \\) -exec rm -f {} + \\) -o \\ + \\( -type d -a -name autom4te.cache -prune -exec rm -rf {} + \\) \\)"); +} + +if (!compat(6) && !$dh{K_FLAG}) { + my @stamp_files = glob('*-stamp'); + rm_files(@stamp_files) if @stamp_files; +} + +=head1 SEE ALSO + +L + +This program is a part of debhelper. + +=head1 AUTHOR + +Joey Hess + +=cut -- cgit v1.2.3