From: Siraaj Khandkar Date: Wed, 3 Mar 2021 15:53:06 +0000 (-0500) Subject: Report only matching functions X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=4cc39e2abe613081cded4c3fc23b978c2ee4ebdc;p=khome.git Report only matching functions --- diff --git a/home/bin/erlcode-find-calls-to-module b/home/bin/erlcode-find-calls-to-module index cf663b2..46f5d35 100755 --- a/home/bin/erlcode-find-calls-to-module +++ b/home/bin/erlcode-find-calls-to-module @@ -19,11 +19,8 @@ find $dirs -type f -name '*.erl' -exec grep -Hn "\<$target_module\>:" '{}' \; \ sub("\\(.*$", "", called_function) if (called_function ~ /^[a-z][a-zA-Z_0-9]+$/) { - # Gather full API of the target_module - Calls[called_function]++ - - # Gather target call sites if (called_function ~ target_fun_regex) { + Calls[called_function]++ Calls_from[caller_module_file, called_function]++ Caller_modules[caller_module_file]++ } @@ -37,18 +34,19 @@ find $dirs -type f -name '*.erl' -exec grep -Hn "\<$target_module\>:" '{}' \; \ END { indent = " " + + print "group-by-caller" for (caller_module_file in Caller_modules) { - print caller_module_file; + printf "%s%s\n", indent, caller_module_file; for (cf in Calls_from) { split(cf, call, SUBSEP); if (call[1] == caller_module_file) - printf "%s%s\n", indent, call[2] | "sort"; + printf "%s%s\n", indent indent, call[2] | "sort"; } close("sort") } - print "" - printf "Inferred API of %s:\n", target_module + print "all" for (called_function in Calls) printf "%s%s\n", indent, called_function | "sort" close("sort")