KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-12-07 20:08:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

additional samples and fixed extensions list

Browse Source
This commit is contained in:
Brahn Partridge
2014-11-26 14:51:47 +01:00
parent 036b9c4094
commit 3445e55744
8 changed files with 82 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
samples/Clarion/Utility.tpw Normal file
View File

@@ -0,0 +1,16 @@
#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