2 files changed, 98 insertions, 0 deletions
diff --git a/lib/tools/install.nom b/lib/tools/install.nom
new file mode 100755
index 0000000..3af8da6
--- /dev/null
+++ b/lib/tools/install.nom
@@ -0,0 +1,60 @@
+#!/usr/bin/env nomsu
+#
+    A tool to install third party Nomsu packages
+    
+    Usage:
+        nomsu -t install /path/to/package
+        nomsu -t install github.com/user/repo
+    
+use "filesystem"
+use "commandline"
+use "shell"
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+$(NOMSU PACKAGEPATH) or= "/opt/nomsu"
+$actions = []
+(download $patts with $cmd) means:
+    $actions, add {.patterns = $patts, .cmd = $cmd}
+download ["^.*/([^/]+)%.git$"] with "git clone %0 \$(NOMSU PACKAGEPATH)/%1"
+download ["^.*/([^/]+)%.zip"] with ("
+    curl %0 > \($(NOMSU PACKAGEPATH))/%1.zip && unzip \($(NOMSU PACKAGEPATH))/%1.zip -d \$(NOMSU PACKAGEPATH) && rm \($(NOMSU PACKAGEPATH))\
+    ../%1.zip
+")
+
+download ["^.*/([^/]+)%.tar%.gz"] with ("
+    curl %0 > \($(NOMSU PACKAGEPATH))/%1.tar.gz && tar xf \($(NOMSU PACKAGEPATH))/%1.tar.gz --directory \$(NOMSU PACKAGEPATH)\
+    .. && rm \($(NOMSU PACKAGEPATH))/%1.tar.gz
+")
+
+download ["^https://github%.com/([^/]+)/([^/]+)$", "^github%.com/([^/]+)/([^/]+)$"]
+..with "git clone https://github.com/%1/%2.git \$(NOMSU PACKAGEPATH)/%2"
+
+download [
+    "^https://bitbucket%.org/([^/]+)/([^/]+)$"
+    "^bitbucket%.org/([^/]+)/([^/]+)$"
+] with "git clone git@bitbucket.org:%1.git \$(NOMSU PACKAGEPATH)/%2"
+
+(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:
+    for $filename in $args.extras:
+        if ($Files.exists $filename):
+            run command "cp -rv \$filename \$(NOMSU PACKAGEPATH)"
+            do next $filename
+        ..else:
+            for $action in $actions:
+                for $patt in $action.patterns:
+                    if ($filename, match $patt):
+                        $cmd = ($filename, with $patt -> $action.cmd)
+                        run command $cmd
+                        do next $filename
+        fail "Not sure what to do with \$filename"
diff --git a/lib/tools/uninstall.nom b/lib/tools/uninstall.nom
new file mode 100755
index 0000000..881705a
--- /dev/null
+++ b/lib/tools/uninstall.nom
@@ -0,0 +1,38 @@
+#
+    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:
+    $(NOMSU PACKAGEPATH) or= "/opt/nomsu"
+    $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"