split up rpc.bash into source-able library

1 files changed, 100 insertions, 0 deletions

diff --git a/src/rpc.bash b/src/rpc.bash
new file mode 100644
index 0000000..91292cd
--- /dev/null
+++ b/src/rpc.bash
@@ -0,0 +1,100 @@
+
+intersection()
+{
+        comm -12 "$@"
+}
+
+difference()
+{
+        comm -23 "$@"
+}
+
+extract_words()
+{
+        grep -o -E '\b\w+\b' | sort -u
+}
+
+read_len()
+{
+        [ "$1" -gt 0 ]
+        REPLY=
+        read -r -N"$1"
+        [ "$REPLY" ]
+}
+
+read_remote_command()
+{
+        read_len "$1"
+        shift
+        remote_command=(bash -c ${REPLY@Q} bash "${@@Q}")
+}
+
+remote_run_shell_script_stdin()
+{
+        read_remote_command "$@"
+        ssh    -- "${REMOTE_DEST}" "${remote_command[@]}"
+}
+
+remote_run_shell_script_tty()
+{
+        read_remote_command "$@"
+        ssh -t -- "${REMOTE_DEST}" "${remote_command[@]}" </dev/tty
+}
+
+remote_run_shell_script_arg1()
+{
+        script=$1
+        shift
+        set -- "${#script}" "$@"
+        if test -t 0 && test -t 1
+        then
+                printf '%s' "$script" | remote_run_shell_script_tty "$@"
+        else
+                cat <(printf '%s' "$script") - | remote_run_shell_script_stdin "$@"
+        fi
+}
+
+immediate_dependencies1()
+{
+        # Thanks Lri from stackoverflow.com/questions/4471364/
+        # how-do-i-list-the-functions-defined-in-my-shell/28278090
+        intersection \
+                <(compgen -A function | sort -u) \
+                <(declare -f "$1" | extract_words)
+}
+
+immediate_dependencies()
+{
+        for f
+        do
+                immediate_dependencies1 "$f"
+        done | sort -u
+}
+
+recursive_dependencies()
+{
+        resolved=()
+        while [ $# -gt 0 ]
+        do
+                resolved+=("$@")
+                set -- $(difference <(immediate_dependencies "$@") \
+                                    <(printf '%s\n' "${resolved[@]}" | sort -u))
+        done
+        printf '%s\n' "${resolved[@]}"
+}
+
+remote_run_function()
+{
+        main=$1
+        shift
+        funcs=$(recursive_dependencies "$main")
+
+        script=
+        read -N2147483647 -r script < <(
+                declare -f $funcs
+                printf '%s "$@";\n' "$main"
+        ) || [ "$script" ]
+
+        remote_run_shell_script_arg1 "$script" "$@"
+}
+