move scripts to own dir

scripts/iglu.sh

@@ -0,0 +1,242 @@
+#!/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") '[-biu|-l|-f|-d|-h]' '[target]' "${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 -I zstd -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 -I zstd -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;;
+        			"regular empty 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 -I zstd -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 -I zstd -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;;
+        		"regular empty 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