Rewrite of SHACK UTTERANCE 0.9 beta 1

1 files changed, 15 insertions, 0 deletions

diff --git a/modules/help b/modules/help
new file mode 100755
index 00000000..303af362
--- /dev/null
+++ b/modules/help
@@ -0,0 +1,15 @@
+#! /bin/sh
+case "$1" in
+  (-*) : ;; # ignore all options
+  ('') { for directory in `echo "$NOISE_PATH" | tr : \ ` ; do
+          for module in "$directory"/* ; do
+            echo `basename "$module"` `$module --help`
+          done
+        done
+        ## print all documented built-in commands
+        sed -rn 's:^noise_([a-z]+)\(\) \{ # (.+)?$:\1 \2:p' "$NOISE"
+    } | sort | sed -rn '
+      $s/$//
+      s:^([a-z]+) (.+):type /\1 to \2:p' ;;
+  (*) exit 23 ;;
+esac