8ac5e011d6
GitOrigin-RevId: 2c3273caa153ee8eb5786bc8141b85b859e7efd7
29 lines
811 B
Bash
29 lines
811 B
Bash
source $stdenv/setup
|
|
|
|
mkdir -p $out/bin
|
|
cat > $out/bin/nuke-refs <<EOF
|
|
#! $SHELL -e
|
|
|
|
excludes=""
|
|
while getopts e: o; do
|
|
case "\$o" in
|
|
e) storeId=\$(echo "\$OPTARG" | $perl/bin/perl -ne "print \"\\\$1\" if m|^\Q$NIX_STORE\E/([a-z0-9]{32})-.*|")
|
|
if [ -z "\$storeId" ]; then
|
|
echo "-e argument must be a Nix store path"
|
|
exit 1
|
|
fi
|
|
excludes="\$excludes(?!\$storeId)"
|
|
;;
|
|
esac
|
|
done
|
|
shift \$((\$OPTIND-1))
|
|
|
|
for i in "\$@"; do
|
|
if test ! -L "\$i" -a -f "\$i"; then
|
|
cat "\$i" | $perl/bin/perl -pe "s|\Q$NIX_STORE\E/\$excludes[a-z0-9]{32}-|$NIX_STORE/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-|g" > "\$i.tmp"
|
|
if test -x "\$i"; then chmod +x "\$i.tmp"; fi
|
|
mv "\$i.tmp" "\$i"
|
|
fi
|
|
done
|
|
EOF
|
|
chmod +x $out/bin/nuke-refs
|