mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
17 lines
626 B
Plaintext
17 lines
626 B
Plaintext
#UTILITY(ProcCallTree, 'Output procedure call tree')
|
|
#CREATE(%Application & '.TRE')
|
|
Procedure Call Tree: for %Application
|
|
#INSERT(%DisplayTree, %FirstProcedure, '', ' ')
|
|
#CLOSE
|
|
#!***********************************************************
|
|
#GROUP(%DisplayTree, %ThisProc, %Level, %NextIndent)
|
|
#FIX(%Procedure, %ThisProc)
|
|
%Level+-%ThisProc (%ProcedureTemplate)
|
|
#FOR(%ProcedureCalled)
|
|
#IF(INSTANCE(%ProcedureCalled) = ITEMS(%ProcedureCalled))
|
|
#INSERT(%DisplayTree, %ProcedureCalled, %Level & %NextIndent, ' ')
|
|
#ELSE
|
|
#INSERT(%DisplayTree, %ProcedureCalled, %Level & %NextIndent, '| ')
|
|
#ENDIF
|
|
#ENDFOR
|