home/bin/erlcode-find-calls

   1 #! /bin/bash
   2
   3 target_module="$1"
   4 target_fun_regex="$2"
   5 shift 2
   6 dirs=$@
   7
   8 find $dirs -type f -name '*.erl' -exec grep -Hn "\<$target_module\>:" '{}' \; \
   9 | sed 's/%.*$//g' \
  10 | awk \
  11     -F "${target_module}:" \
  12     -v target_module="$target_module" \
  13     -v target_fun_regex="$target_fun_regex" '
  14     $1 && $2 {
  15         caller_module_file = $1
  16         sub(":.*$", "", caller_module_file)
  17
  18         called_function = $2
  19         sub("\\(.*$", "", called_function)
  20
  21         if (called_function ~ /^[a-z][a-zA-Z_0-9]+$/) {
  22             if (called_function ~ target_fun_regex) {
  23                 Calls[called_function]++
  24                 Calls_from[caller_module_file, called_function]++
  25                 Caller_modules[caller_module_file]++
  26             }
  27         } else {
  28             printf \
  29                 "[WARN] skipped an invalid erlang function name. File: \"%s\", function: \"%s\", original line: \"%s\"\n", \
  30                 caller_module_file, called_function, $0 \
  31                 > "/dev/stderr"
  32         }
  33     }
  34
  35     END {
  36         indent = "    "
  37
  38         print "group-by-caller"
  39         for (caller_module_file in Caller_modules) {
  40             printf "%s%s\n", indent, caller_module_file;
  41             sort = "sort -n -k 2 -r | column -t | sed \"s/^/" indent indent "/\""
  42             for (cf in Calls_from) {
  43                 split(cf, call, SUBSEP);
  44                 if (call[1] == caller_module_file)
  45                     printf "%s %d\n",  call[2], Calls_from[cf] | sort;
  46             }
  47             close(sort)
  48         }
  49
  50         print "all"
  51         sort = "sort -n -k 2 -r | column -t | sed \"s/^/" indent "/\""
  52         for (called_function in Calls)
  53             printf "%s %d\n", called_function, Calls[called_function] | sort
  54         close(sort)
  55     }'