doxygen/tests/upstream-test-suite/_057_caller_graphs.tcl

proc inFileB args {
    array set info [info frame 0]; puts -nonewline ->$info(proc)
    inFileA
}