The standard listeners can potentially produce quite a lot of messages. By writing your own DiagnosticListener you can filter that information.
On the stage of application tuning you can be interested in optimizing performance through indexing. Diagnostics can help you with giving information about queries that are running on un-indexed fields. By having this information you can decide which queries are frequent and heavy and should be indexed, and which have little performance impact and do not need an index. Field indexes dramatically improve query performance but they may considerably reduce storage and update performance.
In order to get rid of all unnecessary diagnostic information and concentrate on indexes let's create special diagnostic listener:
private class DiagnosticFilter : IDiagnosticListener
{
private readonly ICollection<Type> filterFor;
private readonly IDiagnosticListener target;
public DiagnosticFilter(IDiagnosticListener target, params Type[] filterFor)
{
this.target = target;
this.filterFor = new List<Type>(filterFor);
}
public void OnDiagnostic(IDiagnostic diagnostic)
{
Type type = diagnostic.GetType();
if (filterFor.Contains(type))
{
target.OnDiagnostic(diagnostic);
}
}
}
Private Class DiagnosticFilter
Implements IDiagnosticListener
Private ReadOnly filterFor As ICollection(Of Type)
Private ReadOnly target As IDiagnosticListener
Public Sub New(ByVal target As IDiagnosticListener, ByVal ParamArray filterFor As Type())
Me.target = target
Me.filterFor = New List(Of Type)(filterFor)
End Sub
Public Sub OnDiagnostic(ByVal diagnostic As IDiagnostic) _
Implements IDiagnosticListener.OnDiagnostic
Dim type As Type = diagnostic.[GetType]()
If filterFor.Contains(type) Then
target.OnDiagnostic(diagnostic)
End If
End Sub
End Class
After that we can use the filter-listener. It takes two arguments. The first one is a regular listener, the second is a list of all messages which are passed through.
IEmbeddedConfiguration configuration = Db4oEmbedded.NewConfiguration();
configuration.Common.Diagnostic
.AddListener(new DiagnosticFilter(new DiagnosticToConsole(), typeof(LoadedFromClassIndex)));
Dim configuration As IEmbeddedConfiguration = Db4oEmbedded.NewConfiguration()
configuration.Common.Diagnostic _
.AddListener(New DiagnosticFilter(New DiagnosticToConsole(), GetType(LoadedFromClassIndex)))