/usr/bin/clc-unregister-user-package is in common-lisp-controller 7.8.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | #!/bin/sh
# Unregisters a user package
# Author: Kevin Rosenberg <kmr@debian.org > GPL-2 license
set -e
LANG=C
LC_ALL=C
export HOME LANG LC_ALL
progname=$(basename $0)
if [ ! -d "$HOME" ]; then
echo "User home directory $HOME does not exist as a directory" >&2
exit 3
fi
clc_user_dir=$HOME/.clc
clc_user_systems=$clc_user_dir/systems
if [ ! -d "$clc_user_dir" ]; then
echo "User CLC directory $clc_user_dir does not exist."
echo "Maybe you never registered any user packages."
exit 3
fi
clc_user_db=$HOME/.clc/user-packages.db
if [ ! -f "$clc_user_db" ]; then
"No user packages are currently registered."
exit 0
fi
if [ -z "$1" ] ; then
cat <<EOF
usage: $progname package-asdf-file
Registers a Common Lisp package to the Common Lisp Controller system.
EOF
exit 1
fi
asdf_file=$(realpath -s "$1" 2>/dev/null || true)
asdf_file_base=`basename $asdf_file`
if [ -f "$asdf_file" ]; then
found=$(grep "^${asdf_file}\$" $clc_user_db || true)
if [ "$found" ]; then
grep -v "^${asdf_file}\$" $clc_user_db > ${clc_user_db}.new || true
mv ${clc_user_db}.new $clc_user_db
rm -f $clc_user_systems/$asdf_file_base
echo "User package $asdf_file unregistered."
else
echo "User package $asdf_file was not registered."
fi
else
echo "User package file $1 not found on file system."
fi
|