2015-07-06 07:47:52 +00:00
|
|
|
# Scan srcpkgs/*/template for hashes and distfiles to determine
|
|
|
|
# obsolete sources/by_sha256 files and their corresponding
|
|
|
|
# sources/<pkgname>-<version> files that can be purged
|
|
|
|
|
|
|
|
|
|
|
|
purge_distfiles() {
|
2015-07-07 03:35:43 +00:00
|
|
|
# Ignore msg_error calls when sourcing templates
|
|
|
|
msg_error() {
|
|
|
|
:
|
|
|
|
}
|
2015-07-06 07:47:52 +00:00
|
|
|
if [ -z "$XBPS_SRCDISTDIR" ]; then
|
|
|
|
msg_error "The variable \$XBPS_SRCDISTDIR is not set."
|
|
|
|
exit 1
|
|
|
|
fi
|
|
|
|
#
|
|
|
|
# Scann all templates for their current distfiles and checksums (hashes)
|
|
|
|
#
|
|
|
|
declare -A my_hashes
|
|
|
|
templates=(srcpkgs/*/template)
|
|
|
|
max=${#templates[@]}
|
|
|
|
cur=0
|
|
|
|
if [ -z "$max" ]; then
|
|
|
|
msg_error "No srcpkgs/*/template files found. Wrong working directory?"
|
|
|
|
exit 1
|
|
|
|
fi
|
2015-07-20 13:25:21 +00:00
|
|
|
percent=-1
|
2015-07-06 07:47:52 +00:00
|
|
|
for template in ${templates[@]}; do
|
2015-09-05 05:41:58 +00:00
|
|
|
pkg=${template#*/}
|
|
|
|
pkg=${pkg%/*}
|
2015-07-06 07:47:52 +00:00
|
|
|
if [ ! -L "srcpkgs/$pkg" ]; then
|
|
|
|
unset checksum
|
|
|
|
source $template 2>/dev/null
|
|
|
|
read -a _my_hashes <<< ${checksum}
|
|
|
|
i=0
|
|
|
|
while [ -n "${_my_hashes[$i]}" ]; do
|
|
|
|
hash="${_my_hashes[$i]}"
|
|
|
|
[ -z "${my_hashes[$hash]}" ] && my_hashes[$hash]=$template
|
|
|
|
i=$((i + 1))
|
|
|
|
done
|
|
|
|
fi
|
|
|
|
cur=$((cur + 1))
|
2015-07-20 13:25:21 +00:00
|
|
|
pnew=$((100 * cur / max))
|
|
|
|
if [ $pnew -ne $percent ]; then
|
|
|
|
percent=$pnew
|
|
|
|
printf "\rScanning templates : %3d%% (%d/%d)" $percent $cur $max
|
|
|
|
fi
|
2015-07-06 07:47:52 +00:00
|
|
|
done
|
|
|
|
echo
|
|
|
|
echo "Number of hashes : ${#my_hashes[@]}"
|
|
|
|
|
|
|
|
#
|
|
|
|
# Collect inodes of all distfiles in $XBPS_SRCDISTDIR
|
|
|
|
#
|
|
|
|
declare -A inodes
|
|
|
|
distfiles=($XBPS_SRCDISTDIR/*/*)
|
|
|
|
max=${#distfiles[@]}
|
|
|
|
cur=0
|
2015-07-20 13:25:21 +00:00
|
|
|
percent=-1
|
2015-07-06 07:47:52 +00:00
|
|
|
for distfile in ${distfiles[@]}; do
|
|
|
|
inode=$(stat "$distfile" --printf "%i")
|
|
|
|
if [ -z "${inodes[$inode]}" ]; then
|
|
|
|
inodes[$inode]="$distfile"
|
|
|
|
else
|
|
|
|
inodes[$inode]+="|$distfile"
|
|
|
|
fi
|
|
|
|
cur=$((cur + 1))
|
2015-07-20 13:25:21 +00:00
|
|
|
pnew=$((100 * cur / max))
|
|
|
|
if [ $pnew -ne $percent ]; then
|
|
|
|
percent=$pnew
|
|
|
|
printf "\rCollecting inodes : %3d%% (%d/%d)" $percent $cur $max
|
|
|
|
fi
|
2015-07-06 07:47:52 +00:00
|
|
|
done
|
|
|
|
echo
|
|
|
|
|
|
|
|
hashes=($XBPS_SRCDISTDIR/by_sha256/*)
|
|
|
|
readonly HASHLEN=64
|
|
|
|
for file in ${hashes[@]}; do
|
2015-09-11 05:55:40 +00:00
|
|
|
hash_distfile=${file##*/}
|
2015-07-06 07:47:52 +00:00
|
|
|
hash=${hash_distfile:0:$HASHLEN}
|
|
|
|
[ -n "${my_hashes[$hash]}" ] && continue
|
|
|
|
inode=$(stat "$file" --printf "%i")
|
|
|
|
echo "Obsolete $hash (inode: $inode)"
|
2015-09-23 13:12:28 +00:00
|
|
|
( IFS="|"; for f in ${inodes[$inode]}; do rm -v "$f"; rmdir ${f#/*} 2>/dev/null; done )
|
2015-07-06 07:47:52 +00:00
|
|
|
done
|
|
|
|
echo "Done."
|
|
|
|
}
|