brut.sh
· 3.2 KiB · Bash
Raw
#!/bin/sh
# Brutal Router for Unix Tools - https://brut.sh
set -eu
# Find ourselves
OLDENV="$(export -p)"
SELF="$(realpath "$0")"
NAME="${0##*/}"
PROGRAM_NAME="${SELF##*/}"
ROOT="${SELF%/*/*}"
# Set up the environment
LIB="$ROOT/lib/$NAME"
LIBEXEC="$ROOT/libexec"
SHARE="$ROOT/share/$NAME"
VENDOR="$SHARE/vendor"
PATH="$LIB:$LIBEXEC:$VENDOR:$PATH"
export SELF
USAGE="<COMMAND>"
unset VERSION
# ---
# Define shared helpers
error() {
NAME="${1##*/}"
shift
printf "%s: " "$(invocation)"
printf "%s\n" "$@"
return 1
} >&2
usage() {
if [ $# -eq 0 ]; then
set -- "$NAME" "${USAGE:-}" "commands: $(flatten commands)"
fi
NAME="${1##*/}"
shift
printf "usage: %s " "$(invocation)"
printf "%s\n" "$@"
return 1
} >&2
version() {
printf "%s %s\n" "$PROGRAM_NAME" "$VERSION"
}
# ---
commands() {
executables | sed -e "s/^.*\/$NAME-//" | sort
}
executables() {
for ns in $(namespaces "$NAME-"); do
set -- "$@" \! -name "$ns-*"
done
searchpath -name "$NAME-*" "$@" | awk -F / '!a[$NF]++'
}
flatten() {
"$@" | xargs -r printf "%s "
}
invocation() {
{ printf "%s\n" "$PROGRAM_NAME"; namespaces; } \
| awk -v i=-1 -v name="$NAME" \
'index(name, $0 "-") == 1 { o = o " " substr($0, i+2); i = length($0) }
END { print substr(o " " substr(name, i+2), 2) }'
}
namespaces() {
searchpath -type l -name "${1:-$PROGRAM_NAME-}*" \
-exec sh -c '[ "$0" = "$(realpath "$1")" ] 2>/dev/null' "$SELF" {} \; \
| sed -e "s/^.*\///" | sort -u
}
resolve() {
case "${1:-}" in
*-* ) executables -name "$NAME-$1" ;;
?* ) searchpath -name "$NAME-$1" | head -n 1
esac | grep .
}
searchpath() {
{ IFS=:
set -- \) -o -prune "$@"
for dir in $PATH; do
set -- -o -path "$dir" "$@"
done
set -- $PATH \( \! -name '*' "$@"
unset IFS
} 2>/dev/null
find -H "$@" 2>/dev/null \
\( -perm -001 -o -perm -010 -o -perm -100 \) \
\( -type f -o -type l \) \
\! -name "?*--?*" \
-print || true
}
unenv() {
exec env -i sh -euc 'eval "$1"; shift; exec "$@"' "$0" "$OLDENV" "$@"
}
# ---
# Load _init.sh, if it exists
if [ -r "$LIB"/_init.sh ]; then
. "$LIB"/_init.sh
fi
# Rewrite `--version` to `--- version`
if [ $# -eq 1 ] && [ -n "${VERSION:-}" ] && [ "$1" = "--version" ]; then
set -- --- version
fi
# When invoked as `--- <COMMAND> ...`, run that command and exit
if [ "${1:-}" = "---" ]; then
[ $# -gt 1 ] || usage
shift
"$@"
exit
fi
# Scan the argument list to find the command name
COMMAND=
args=
index=0
for arg; do
index=$((index+1))
case "$arg" in
-* ) ;;
?*--?* ) [ -n "$COMMAND" ] || usage ;;
* )
if [ -z "$COMMAND" ]; then
COMMAND="$arg"
continue
fi
esac
args="$args"' "${'"$index"'}"'
done
# Match the command name to an executable in the current namespace;
# if one exists, exec it
if executable="$(resolve "$COMMAND")"; then
eval "set --$args"
exec "$executable" "$@"
fi
# No matching executable; load _unhandled.sh, if it exists
if [ -r "$LIB"/_unhandled.sh ]; then
. "$LIB"/_unhandled.sh
fi
# No matching command or no command specified
if [ -n "$COMMAND" ]; then
error "$0" "$COMMAND: command not found" || exit 127
fi
usage
| 1 | #!/bin/sh |
| 2 | # Brutal Router for Unix Tools - https://brut.sh |
| 3 | set -eu |
| 4 | |
| 5 | |
| 6 | # Find ourselves |
| 7 | OLDENV="$(export -p)" |
| 8 | SELF="$(realpath "$0")" |
| 9 | NAME="${0##*/}" |
| 10 | PROGRAM_NAME="${SELF##*/}" |
| 11 | ROOT="${SELF%/*/*}" |
| 12 | |
| 13 | |
| 14 | # Set up the environment |
| 15 | LIB="$ROOT/lib/$NAME" |
| 16 | LIBEXEC="$ROOT/libexec" |
| 17 | SHARE="$ROOT/share/$NAME" |
| 18 | VENDOR="$SHARE/vendor" |
| 19 | |
| 20 | PATH="$LIB:$LIBEXEC:$VENDOR:$PATH" |
| 21 | export SELF |
| 22 | |
| 23 | USAGE="<COMMAND>" |
| 24 | unset VERSION |
| 25 | |
| 26 | |
| 27 | # --- |
| 28 | # Define shared helpers |
| 29 | |
| 30 | error() { |
| 31 | NAME="${1##*/}" |
| 32 | shift |
| 33 | |
| 34 | printf "%s: " "$(invocation)" |
| 35 | printf "%s\n" "$@" |
| 36 | return 1 |
| 37 | } >&2 |
| 38 | |
| 39 | usage() { |
| 40 | if [ $# -eq 0 ]; then |
| 41 | set -- "$NAME" "${USAGE:-}" "commands: $(flatten commands)" |
| 42 | fi |
| 43 | |
| 44 | NAME="${1##*/}" |
| 45 | shift |
| 46 | |
| 47 | printf "usage: %s " "$(invocation)" |
| 48 | printf "%s\n" "$@" |
| 49 | return 1 |
| 50 | } >&2 |
| 51 | |
| 52 | version() { |
| 53 | printf "%s %s\n" "$PROGRAM_NAME" "$VERSION" |
| 54 | } |
| 55 | |
| 56 | # --- |
| 57 | |
| 58 | commands() { |
| 59 | executables | sed -e "s/^.*\/$NAME-//" | sort |
| 60 | } |
| 61 | |
| 62 | executables() { |
| 63 | for ns in $(namespaces "$NAME-"); do |
| 64 | set -- "$@" \! -name "$ns-*" |
| 65 | done |
| 66 | |
| 67 | searchpath -name "$NAME-*" "$@" | awk -F / '!a[$NF]++' |
| 68 | } |
| 69 | |
| 70 | flatten() { |
| 71 | "$@" | xargs -r printf "%s " |
| 72 | } |
| 73 | |
| 74 | invocation() { |
| 75 | { printf "%s\n" "$PROGRAM_NAME"; namespaces; } \ |
| 76 | | awk -v i=-1 -v name="$NAME" \ |
| 77 | 'index(name, $0 "-") == 1 { o = o " " substr($0, i+2); i = length($0) } |
| 78 | END { print substr(o " " substr(name, i+2), 2) }' |
| 79 | } |
| 80 | |
| 81 | namespaces() { |
| 82 | searchpath -type l -name "${1:-$PROGRAM_NAME-}*" \ |
| 83 | -exec sh -c '[ "$0" = "$(realpath "$1")" ] 2>/dev/null' "$SELF" {} \; \ |
| 84 | | sed -e "s/^.*\///" | sort -u |
| 85 | } |
| 86 | |
| 87 | resolve() { |
| 88 | case "${1:-}" in |
| 89 | *-* ) executables -name "$NAME-$1" ;; |
| 90 | ?* ) searchpath -name "$NAME-$1" | head -n 1 |
| 91 | esac | grep . |
| 92 | } |
| 93 | |
| 94 | searchpath() { |
| 95 | { IFS=: |
| 96 | set -- \) -o -prune "$@" |
| 97 | for dir in $PATH; do |
| 98 | set -- -o -path "$dir" "$@" |
| 99 | done |
| 100 | set -- $PATH \( \! -name '*' "$@" |
| 101 | unset IFS |
| 102 | } 2>/dev/null |
| 103 | |
| 104 | find -H "$@" 2>/dev/null \ |
| 105 | \( -perm -001 -o -perm -010 -o -perm -100 \) \ |
| 106 | \( -type f -o -type l \) \ |
| 107 | \! -name "?*--?*" \ |
| 108 | -print || true |
| 109 | } |
| 110 | |
| 111 | unenv() { |
| 112 | exec env -i sh -euc 'eval "$1"; shift; exec "$@"' "$0" "$OLDENV" "$@" |
| 113 | } |
| 114 | |
| 115 | # --- |
| 116 | |
| 117 | |
| 118 | # Load _init.sh, if it exists |
| 119 | if [ -r "$LIB"/_init.sh ]; then |
| 120 | . "$LIB"/_init.sh |
| 121 | fi |
| 122 | |
| 123 | |
| 124 | # Rewrite `--version` to `--- version` |
| 125 | if [ $# -eq 1 ] && [ -n "${VERSION:-}" ] && [ "$1" = "--version" ]; then |
| 126 | set -- --- version |
| 127 | fi |
| 128 | |
| 129 | |
| 130 | # When invoked as `--- <COMMAND> ...`, run that command and exit |
| 131 | if [ "${1:-}" = "---" ]; then |
| 132 | [ $# -gt 1 ] || usage |
| 133 | shift |
| 134 | "$@" |
| 135 | exit |
| 136 | fi |
| 137 | |
| 138 | |
| 139 | # Scan the argument list to find the command name |
| 140 | COMMAND= |
| 141 | args= |
| 142 | index=0 |
| 143 | |
| 144 | for arg; do |
| 145 | index=$((index+1)) |
| 146 | |
| 147 | case "$arg" in |
| 148 | -* ) ;; |
| 149 | ?*--?* ) [ -n "$COMMAND" ] || usage ;; |
| 150 | * ) |
| 151 | if [ -z "$COMMAND" ]; then |
| 152 | COMMAND="$arg" |
| 153 | continue |
| 154 | fi |
| 155 | esac |
| 156 | |
| 157 | args="$args"' "${'"$index"'}"' |
| 158 | done |
| 159 | |
| 160 | |
| 161 | # Match the command name to an executable in the current namespace; |
| 162 | # if one exists, exec it |
| 163 | if executable="$(resolve "$COMMAND")"; then |
| 164 | eval "set --$args" |
| 165 | exec "$executable" "$@" |
| 166 | fi |
| 167 | |
| 168 | |
| 169 | # No matching executable; load _unhandled.sh, if it exists |
| 170 | if [ -r "$LIB"/_unhandled.sh ]; then |
| 171 | . "$LIB"/_unhandled.sh |
| 172 | fi |
| 173 | |
| 174 | |
| 175 | # No matching command or no command specified |
| 176 | if [ -n "$COMMAND" ]; then |
| 177 | error "$0" "$COMMAND: command not found" || exit 127 |
| 178 | fi |
| 179 | |
| 180 | usage |
| 181 |