X-Git-Url: https://git.xandkar.net/?p=khome.git;a=blobdiff_plain;f=home%2Fbin%2Ferlcode-find-calls-to-module;h=a3a86854e9458ada1de6d958ab77ea8064482b09;hp=8e4d9e5c081483ba0a9119c3fec1b512ede2c583;hb=15f22284bb881be22ea8af6b36a857a17628706a;hpb=d87138ae6c34ddd2dce2ee2c3703a4afcf2c27f3

diff --git a/home/bin/erlcode-find-calls-to-module b/home/bin/erlcode-find-calls-to-module
index 8e4d9e5..a3a8685 100755
--- a/home/bin/erlcode-find-calls-to-module
+++ b/home/bin/erlcode-find-calls-to-module
@@ -1,12 +1,16 @@
 #! /bin/bash
 
 target_module="$1"
-shift
+target_fun_regex="$2"
+shift 2
 dirs=$@
 
 find $dirs -type f -name '*.erl' -exec grep -Hn "\<$target_module\>:" '{}' \; \
 | sed 's/%.*$//g' \
-| awk -F "${target_module}:" -v target_module="$target_module" '
+| awk \
+    -F "${target_module}:" \
+    -v target_module="$target_module" \
+    -v target_fun_regex="$target_fun_regex" '
     $1 && $2 {
         caller_module_file = $1
         sub(":.*$", "", caller_module_file)
@@ -32,7 +36,7 @@ find $dirs -type f -name '*.erl' -exec grep -Hn "\<$target_module\>:" '{}' \; \
             print caller_module_file;
             for (cf in Calls_from) {
                 split(cf, call, SUBSEP);
-                if (call[1] == caller_module_file)
+                if (call[1] == caller_module_file && call[2] ~ target_fun_regex)
                     printf "%s%s\n", indent, call[2] | "sort";
             }
             close("sort")