Tedit Tips and Tricks

You can implement pseudo IF statements in Tedit obey files.

For example the obey commands below build a menu of Tacl variables at the beginning of a file containing TACL variables defined in ?SECTION format. If the menu already exists it is deleted and replaced by a new version.

Using the programatic interface you can call your own commands conditionally from such 'if' statements imbedded in commands from the interface.

SEARCH <?SECTION __ROUTINE_MAP TEXT>,F/L,1:239,I E,"DEFINEREGION;SEARCH <>,*/L,,,""FORWARD LINE;DELETE REGION"""
DISPLAYLINE FIRST
INSERT LINE
RENUMBER F,0,1,NO
RENUMBER F+1/L,1,1,NO
UNMARK ALL
SEARCH ?SECTION,F/l,1:8,I E,"MARKPOSITION *+1;FINDNEXT"
WRITE P,P
OPENWINDOW **,P,WRITE,24
REPLACE "<??? S*N*.    @?SECTION ?* ?*","!* @4@5  @6",F/L,1:239,E I
ICOLUMN "*",F/L,74
DISPLAYLINE FIRST
statusmessage Got here
INSLINE !*  -----  --------------------------------------------------            *
INSLINE !*  LINE#  ROUTINE NAME                                                  *
INSLINE !*                                                                       *
INSLINE !*************************************************************************
INSLINE ?SECTION __ROUTINE_MAP TEXT
DISPLAYLINE LAST
FORWARD LINE
INSLINE !*************************************************************************
INSLINE !*                                                                       *
DISPLAYLINE FIRST
DEFINEREGION
DISPLAYLINE LAST,80
MOVE REGION
SWITCHWINDOW
displayline 0
RETRIEVE
CLOSEWINDOW **