iglunix/iglu.sh
2021-04-13 15:02:13 +02:00

240 lines
5.2 KiB
Bash
Executable file

#!/bin/sh
HELP="
-h This help window
--help alias to \`-h\`
-i install
-u uninstall
-l outputs the license
-f lists installed files
-d list dependencies
-iu install update or install upgrade
-ui alias to \`-iu\`
These needs iglunix-dev (iglupkg) installed
-b build
-bi build and install the current package
-biu build and install update the current package
-bui alias to \`-iu\`
NOT IMPLEMENTED:
-o root"
usage() {
echo usage: $(basename "$0") printf "${HELP}" 1>&2
exit 1
}
error_usage() {
echo $(basename "$0"): ERROR: "$@" 1>&2
usage
}
tar_fail() {
echo "Failed to extract tar"
exit 1
}
stat_fail() {
echo "Not a valid package"
echo "Missing package meta file"
exit 1
}
find_fail() {
echo "Package not installed"
exit 1
}
continue_interactive() {
printf '%s' "Do you wish to proceed?: "
read yn
case $yn in
[Yy]* ) echo "Proceeding";;
[Nn]* ) exit;;
* ) exit;;
esac
}
already_exists() {
echo "Package already installed"
echo "pass -u and -i to upgrade"
exit 1
}
dep_not_found() {
echo "Missing dep: $1"
exit 1
}
iglupkg_check() {
if ! command -v iglupkg > /dev/null 2>&1; then
echo "iglupkg from iglunix-dev needs to be installed"
exit 1
fi
}
b= bi= i= u= l= f= o= d= iu=
# Handle commandline arguments.
case "$1" in
-i) i=1;;
-u) u=1;;
-l) l=1;;
-f) f=1;;
-d) d=1;;
-iu) iu=1;;
-ui) iu=1;;
-b) b=1;;
-bi) bi=1;;
-biu) biu=1;;
-bui) biu=1;;
-h) usage;;
--help) usage;;
*) error_usage "bad argument $i";;
esac
shift
while :
do
case "$1" in
-o) shift; o="$1";;
--) shift; break;;
-*) usage "bad argument $1";;
*) break;;
esac
shift
done
if [ "$d" = "1" ]; then
#LIST DEPS
stat /usr/share/iglupkg/$1 > /dev/null 2> /dev/null || find_fail
grep deps /usr/share/iglupkg/$1 | tr '=' '\n' | grep -v deps | tr ':' '\n'
elif [ "$iu" = "1" ]; then
#INSTALL & UPDATE
# Setup names
bname_we=$(basename "$1")
bname=$(echo "$bname_we" | cut -f 1 -d '.')
# locate installed package
stat /usr/share/iglupkg/$bname > /dev/null 2> /dev/null || find_fail
echo "Upgrading $bname_we"
continue_interactive
# Extract new package and verify
mkdir -p /tmp/iglunix/$bname_we || exit 1
tar -xf $1 -C /tmp/iglunix/$bname_we || tar_fail
stat /tmp/iglunix/$bname_we/usr/share/iglupkg/$bname >/dev/null || stat_fail
# Check deps
deps=$(grep deps /tmp/iglunix/$bname_we/usr/share/iglupkg/$bname | tr '=' '\n' | grep -v deps | tr ':' '\n')
for dep in $deps; do
stat /usr/share/iglupkg/$dep > /dev/null 2> /dev/null || dep_not_found $dep
done
# Grab a list of old files and new files to install
OFILES=$(sed -n '/\[fs\]/,$p' /usr/share/iglupkg/$bname |
grep -v "\[fs\]" | awk '{print length, $0}' | sort -rn | cut -d " " -f2-)
NFILES=$(sed -n '/\[fs\]/,$p' /tmp/iglunix/$bname_we/usr/share/iglupkg/$bname |
grep -v "\[fs\]" | awk '{print length, $0}' | sort -rn | cut -d " " -f2-)
# Extract tar
tar -xf $1 -C /
rm -r /tmp/iglunix/$bname_we
# Remove old files (don't know if this works yet)
for file in $OFILES; do
if echo $NFILES | grep -q $file; then
echo "not removing $file"
else
echo "attempting to remove $file"
case $(stat -c "%F" /$file) in
directory) rmdir 2>/dev/null /$file;;
"regular file") rm /$file;;
"symbolic link") rm /$file;;
*) break;;
esac
fi
done
echo $OFILES
echo $NFILES
elif [ "$i" = "1" ]; then
#INSTALL
bname_we=$(basename "$1")
bname=$(echo "$bname_we" | cut -f 1 -d '.')
stat /usr/share/iglupkg/$bname > /dev/null 2> /dev/null && already_exists
echo "Installing $bname_we"
continue_interactive
mkdir -p /tmp/iglunix/$bname_we || exit 1
tar -xf $1 -C /tmp/iglunix/$bname_we || tar_fail
stat /tmp/iglunix/$bname_we/usr/share/iglupkg/$bname >/dev/null || stat_fail
deps=$(grep deps /tmp/iglunix/$bname_we/usr/share/iglupkg/$bname | tr '=' '\n' | grep -v deps | tr ':' '\n')
for dep in $deps; do
stat /usr/share/iglupkg/$dep > /dev/null 2> /dev/null || dep_not_found $dep
done
tar -xf $1 -C /
rm -r /tmp/iglunix/$bname_we
elif [ "$f" = "1" ]; then
#LIST INSTALLED FILES
stat /usr/share/iglupkg/$1 > /dev/null 2> /dev/null || find_fail
sed -n '/\[fs\]/,$p' /usr/share/iglupkg/$1 | grep -v "\[fs\]"
elif [ "$l" = "1" ]; then
#LICENSE
stat /usr/share/iglupkg/$1 > /dev/null 2> /dev/null || find_fail
sed -n '/\[license\]/,/\[fs\]/{/\[license\]\|\[fs\]/!p}' /usr/share/iglupkg/$1
elif [ "$u" = "1" ]; then
#UNINSTALL
stat /usr/share/iglupkg/$1 > /dev/null 2> /dev/null || find_fail
FILES=$(sed -n '/\[fs\]/,$p' /usr/share/iglupkg/$1 | grep -v "\[fs\]" | awk '{print length, $0}' | sort -rn | cut -d " " -f2-)
echo "Uninstalling $1"
continue_interactive
for file in $FILES; do
case $(stat -c "%F" /$file) in
directory) rmdir 2>/dev/null /$file;;
"regular file") rm /$file;;
"symbolic link") rm /$file;;
*) echo "can't remove $file";;
esac
done
elif [ "$b" = "1" ]; then
#BUILD
iglupkg_check
iglupkg || exit 1
elif [ "$bi" = "1" ]; then
#BUILD INSTALL
iglupkg_check
iglupkg || exit 1
cd out/
for pkg in *.tar.xz; do
iglu -i "$pkg"
done
elif [ "$biu" = "1" ]; then
#BUILD INSTALL UPDATE
iglupkg_check
iglupkg || exit 1
cd out/
for pkg in *.tar.xz; do
iglu -iu "$pkg"
done
fi