Monday | May 4, 2015

Xojo のメソッド/イベントコールの直前に関数を inject するための小さなモジュール xojo-call-tracer を書いた。ちょっと筋悪ですが。
デフォルトではコールされた関数名をログに吐く関数が inject されるようになっていますが、例えば以下のようなコードに書き換えれば Thread ID やタイムスタンプを合わせて出力するなど、いろいろ使えます。

Sub Trace(methodName As String)
    Dim d As New Date()
    Dim t As Thread = App.CurrentThread
    Dim tId As String = If(t = Nil, "0", Str(t.ThreadID) + "(" + t.DebugIdentifier + ")")
    
    System.DebugLog( _
        "[" + d.SQLDateTime + "] <" + tId + "> CALL_TRACE: " + _
        methodName + EndOfLine)
End Sub