Generalized script for displaying the percentage of commands provided by each stratum under Bedrock.

command-analyse-bedrock.sh

commlist=$(compgen -c | sort -u | xargs -n 100 brl which 2>/dev/null)
nocomm=$(echo $commlist | tr ' ' '\n' | wc -l)

function Rcalc {
    out=$(R -q -e "$1")
    echo "$out" | head -n 2 | tail -n 1 | sed -E 's/^\[1\]\s//g'
}

stratList=$(brl list | grep -v bedrock; echo global;)
stratList=$(echo $stratList | tr ' ' '\n' | sort -u)
echo $stratList | tr ' ' '\n' | while read -r s; do
  no=$(echo $commlist | tr ' ' '\n' | grep $s | wc -l)
  perc=$(Rcalc "100*$no/$nocomm")
  echo "${s^} provides $perc% of commands"
done