2019-01-21 16:32:13 -08:00
|
|
|
#!/usr/bin/env nomsu
|
2019-01-21 16:08:30 -08:00
|
|
|
#
|
|
|
|
|
A tool to uninstall third party Nomsu packages (the inverse of the install tool)
|
|
|
|
|
|
|
|
|
|
Usage:
|
|
|
|
|
nomsu -t uninstall <package_names...>
|
|
|
|
|
|
|
|
|
|
use "filesystem"
|
|
|
|
|
use "commandline"
|
|
|
|
|
use "shell"
|
|
|
|
|
|
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
|
|
|
|
(run command $cmd) means:
|
|
|
|
|
say $cmd
|
|
|
|
|
try:
|
|
|
|
|
sh> $cmd
|
|
|
|
|
..if it fails:
|
|
|
|
|
say ("
|
|
|
|
|
Sorry, the uninstall failed. You may need to re-run as root with `sudo` in front of the command.
|
|
|
|
|
")
|
|
|
|
|
exit 1
|
|
|
|
|
|
|
|
|
|
command line program with $args:
|
|
|
|
|
$searchpath =
|
|
|
|
|
[
|
|
|
|
|
: for $ in ["?.lua", "?/init.lua", "?.nom", "?/init.nom"]:
|
|
|
|
|
add "\$(NOMSU PACKAGEPATH)\$"
|
|
|
|
|
], joined with ";"
|
|
|
|
|
|
|
|
|
|
for $package_name in $args.extras:
|
|
|
|
|
$path = ($package.searchpath $package_name $package.nomsupath "/")
|
|
|
|
|
unless $path:
|
|
|
|
|
say "Sorry, couldn't find \$package_name in \$(NOMSU PACKAGEPATH)"
|
|
|
|
|
exit 1
|
|
|
|
|
$path = ($path, with "/init%.nom" -> "")
|
|
|
|
|
unless ((ask "Do you want to delete \$path? [Y/n] ") == "n"):
|
|
|
|
|
run command "rm -rv \$path"
|
