Extracting information from the trace tree model
To extract information from a tree model, you can use the
EntryList function to create a list of top-level entries in the
model and then loop through the list, extracting information about
each node. For each node, determine its activity type using the
TraceActivity enumerated datatype, and then use the appropriate
TraceTree object to extract information.
Example: trace tree
model
The following simple example extracts information from an
existing trace tree model and stores it in a structure:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
TraceTreeNode ltctn_list[], ltctn_node long ll_index, ll_limit string ls_line str_node lstr_node ltct_treemodel.EntryList(ltctn_list) ll_limit = UpperBound(ltctn_list) FOR ll_index = 1 to ll_limit ltctn_node = ltctn_list[ll_index] of_dumpnode(ltctn_node, lstr_node) // insert code to handle display of // the information in the structure here … NEXT |
The of_dumpnode function takes a TraceTreeNode object and a
structure as arguments and populates the structure with information
about each node. The following code shows part of the
function:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
string ls_exit, ls_label, ls_routinename long ll_node_cnt TraceTreeNode ltctn_list[] errorreturn l_err astr_node.Children = FALSE astr_node.Label = '' IF NOT isvalid(atctn_node) THEN RETURN CHOOSE CASE atctn_node.ActivityType CASE ActRoutine! TraceTreeRoutine ltctrt_routin ltctrt_routine = atctn_node IF ltctrt_routine.Classname = '' THEN & ls_routinename = ltctrt_routine.ClassName + "." END IF ls_routinename += ltctrt_routine.Name ltctrt_routine.GetChildrenList(ltctn_list) ll_node_cnt = UpperBound(ltctn_list) ls_label = "Execute " + ls_routinename + ' :' + & space(ii_offset) + String(l_timescale * & (ltctrt_routine.ExitTimerValue - & ltctrt_routine.EnterTimerValue), '0.000000') astr_node.Children = (ll_node_cnt > 0) astr_node.Label = ls_label astr_node.Time = ltctrt_routine.EnterTimerValue RETURN CASE ActLine! TraceTreeLine tctln_treeLine tctln_treeLine = atctn_node ls_label = LINEPREFIX + & String(tctln_treeLine.LineNumber ) astr_node.time = tctln_treeLine.Timervalue ... // CASE statements omitted ... CASE ELSE ls_label = "INVALID NODE" END CHOOSE astr_node.label = ls_label RETURN |