how to create a minimized callgraph

sjaeckel · sjaeckel · commit 42b16092224b · 2019-04-04T07:54:00.000+02:00
diff --git a/dep.pl b/dep.pl
@@ -171,6 +171,8 @@
 sub draw_func
 {
    my @funcs = split ',', $_[0];
+   # try this if you want to have a look at a minimized version of the callgraph without all the trivial functions
+   #if ($list =~ /$funcs[0]/ || $funcs[0] =~ /BN_MP_(ADD|SUB|CLEAR|CLEAR_\S+|DIV|MUL|COPY|ZERO|GROW|CLAMP|INIT|INIT_\S+|SET|ABS|CMP|CMP_D|EXCH)_C/) {
    if ($list =~ /$funcs[0]/) {
       return;
    } else {

Original file line number	Diff line number	Diff line change
`@@ -171,6 +171,8 @@`
`171`	`171`	`sub draw_func`
`172`	`172`	`{`
`173`	`173`	`my @funcs = split ',', $_[0];`
	`174`	`+ # try this if you want to have a look at a minimized version of the callgraph without all the trivial functions`
	`175`	`+ #if ($list =~ /$funcs[0]/ \|\| $funcs[0] =~ /BN_MP_(ADD\|SUB\|CLEAR\|CLEAR_\S+\|DIV\|MUL\|COPY\|ZERO\|GROW\|CLAMP\|INIT\|INIT_\S+\|SET\|ABS\|CMP\|CMP_D\|EXCH)_C/) {`
`174`	`176`	`if ($list =~ /$funcs[0]/) {`
`175`	`177`	`return;`
`176`	`178`	`} else {`