'Log the current stacktrace
'FromSubName will limit the log to items created before the named sub was called
'Limit will only display that number of items
Public Sub LogStackTrace(FromSubName As String,Limit As Int)
Dim StackTrace() As Object
Dim Throwable As JavaObject
Dim i As Int = 0
Dim Found As Boolean = False
Dim JO As JavaObject
'Initialize a new throwable from which to get the stacktrace
Throwable.InitializeNewInstance("java.lang.Throwable",Null)
'Get the stacktrace into an Object Array
StackTrace = Throwable.RunMethod("getStackTrace",Null)
'Check if list all is requested
If Limit = -1 Then Limit = StackTrace.Length - 1
Log("Log Stack Trace ###############################")
If FromSubName <> "" Then Log("From Sub " & FromSubName)
Log(" ")
'Check if we only want to Log items before the named sub
If FromSubName <> "" Then
For i = 0 To StackTrace.Length - 1
JO = StackTrace(i)
Dim S As String = JO.RunMethod("toString",Null)
If S.Contains("._" & FromSubName.ToLowerCase) Then
Found = True
i = i + 1
Exit
End If
Next
If Not(Found) Then
Log("Sub " & FromSubName & " Not found in stacktrace")
Return
End If
End If
'Make sure there are enough items in the stacktrace so that the requested Limit will not cause an Out of bounds error otherwise just show all items.
If i + Limit >= StackTrace.Length Then Limit = StackTrace.Length - i
'Log the required stacktrace items
For j = i To i + Limit - 1
JO = StackTrace(j)
Log(JO.RunMethod("toString",Null))
Next
Log(" ")
Log((j - i) & " items Listed #######################")
End Sub
