Dynamic Objects, Factories, and Runtime Machines to Boost Performance

Imports Widgets
Imports System.Reflection
Module TestBench

	Private _Counter As New Counter

	Private _WidgetType As Type
	Private _WidgetTypeA As Type = GetWidgetType("Widgets.SuperWidget")
	Private _WidgetTypeB As Type = GetWidgetType("Widgets.WonderWidget")

	Private _Iterations As Integer = 1000000

	Sub Main()

		GC.Collect()
		GC.WaitForPendingFinalizers()

		' Run multiple passes as the first pass has some overhead from building the cache...
		For i As Integer = 1 To 2

			' Type selection would normally be driven by an external source, such as a config file.
			Select Case i
				Case 1
					_WidgetType = _WidgetTypeA
				Case 2
					_WidgetType = _WidgetTypeB
			End Select

			Console.WriteLine("Creating {0} {1}'s", _Iterations, _WidgetType.Name)
			Console.WriteLine("---------------------------------------------")
			Console.WriteLine("InstanceDirect		: {0}ms", InstanceDirect.ToString("0.000000"))
			Console.WriteLine("InstanceByFactory	: {0}ms", InstanceByFactory.ToString("0.000000"))
			Console.WriteLine("InstanceByDelegate	: {0}ms", InstanceByDelegate.ToString("0.000000"))
			Console.WriteLine("InstanceByCtorInfo	: {0}ms", InstanceByCtorInfo.ToString("0.000000"))
			Console.WriteLine("InstanceByActivator	: {0}ms", InstanceByActivator.ToString("0.000000"))
			Console.WriteLine("")
		Next

		Console.WriteLine("Done!")
		Console.ReadLine()

	End Sub

	Private Function InstanceDirect() As Double
		Dim Widget As Widget
		_Counter.Start()
		For i As Integer = 0 To _Iterations
			Widget = New SuperWidget
		Next
		_Counter.Stop()
		Return _Counter.Seconds
	End Function

	Private Function InstanceByFactory() As Double
		Dim Widget As Widget
		_Counter.Start()
		For i As Integer = 0 To _Iterations
			Widget = WidgetFactory.GetWidget(_WidgetType)
		Next
		_Counter.Stop()
		Return _Counter.Seconds
	End Function

	Private Function InstanceByCtorInfo() As Double
		Dim Widget As Widget
		_Counter.Start()
		For i As Integer = 0 To _Iterations
			Widget = WidgetFactory.GetWidgetByConstructorInfo(_WidgetType)
		Next
		_Counter.Stop()
		Return _Counter.Seconds
	End Function

	Private Function InstanceByActivator() As Double
		Dim Widget As Widget
		_Counter.Start()
		For i As Integer = 0 To _Iterations
			Widget = WidgetFactory.GetWidgetBySystemActivator(_WidgetType)
		Next
		_Counter.Stop()
		Return _Counter.Seconds
	End Function

	Private Function InstanceByDelegate() As Double
		Dim Widget As Widget
		_Counter.Start()
		For i As Integer = 0 To _Iterations
			Widget = WidgetFactory.GetWidgetByDelegate(_WidgetType)
		Next
		_Counter.Stop()
		Return _Counter.Seconds
	End Function

End Module