Mailing-List: contact user-cs-help@ibatis.apache.org; run by ezmlm
Precedence: bulk
Reply-To: user-cs@ibatis.apache.org
Received-SPF: pass (asf.osuosl.org: domain of mike.schall@gmail.com designates
 64.233.162.201 as permitted sender)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
        s=beta; d=gmail.com;
        h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references;
        b=P3oht1gwe3ggYD+C8u5v6yMUGzp8Ds+fZ0LO6m8zkBgUxDlm4LMlh9ol33IO29NSKp/ta1Hni+cyfiLFEFVHrHeBbyn6VqCcPOzOq+wYCmgCkTemEQ18cCLpowZBvtgWImUNTmXSUaJWqOah0iDia0qGYXXp+8YZXblGovpMehQ=
Message-ID: <5f9068320601201317v6a12e7c4m8b629e65f17501d2@mail.gmail.com>
Date: Fri, 20 Jan 2006 15:17:43 -0600
From: Michael Schall <mike.schall@gmail.com>
To: user-cs@ibatis.apache.org
Subject: Re: .NET 2.0 and Generics
In-Reply-To: 
 <9E60A7FA5322F841856BE6E670F3E7B61117DA4C@CPREXN020-EVS.itdmis02.futureshop.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
References: 
 <9E60A7FA5322F841856BE6E670F3E7B61117DA4C@CPREXN020-EVS.itdmis02.futureshop.com>

I would agree.  I want generic support.  These should help you get by
till then...

Public Function Load(Of T As New)( _
   ByVal queryName As String, _
   ByVal parameters As IDictionary(Of String, Object)) As T

=09Dim mapper As SqlMapper =3D DatabaseManager.Instance()
=09Dim rv As T

=09rv =3D DirectCast(mapper.QueryForObject(queryName,
DirectCast(parameters, Object))

=09Return rv

End Function

Public Function Enumerate(Of T As New)( _
   ByVal queryName As String, _
   ByVal parameters As IDictionary(Of String, Object)) As IEnumerable(Of T)

=09Dim mapper As SqlMapper =3D DatabaseManager.Instance()

=09Dim collector As TypedEnumerateCollector(Of T) =3D New
TypedEnumerateCollector(Of T)

=09mapper.QueryWithRowDelegate(queryName, parameters, New
SqlMapper.RowDelegate(AddressOf collector.Collect))

=09Return collector.Collected()

End Function

Private Class TypedEnumerateCollector(Of T)

=09Private _list As IList(Of T)

=09Public Sub New()
=09=09_list =3D New List(Of T)
=09End Sub

=09Public Sub Collect(ByVal rowObject As Object, ByVal parameterObject
As Object, ByVal junkList As IList)
=09=09_list.Add(DirectCast(rowObject, T))
=09End Sub

=09Public Function Collected() As IEnumerable(Of T)
=09=09Return _list
=09End Function

End Class

Public Function Map(Of Tk, Tv As New)( _
 ByVal queryName As String, _
 ByVal parameters As IDictionary(Of String, Object), _
 ByVal keySel As KeySelector(Of Tk, Tv)) As IDictionary(Of Tk, Tv)

=09Dim mapper As SqlMapper =3D DatabaseManager.Instance()
=09Dim collector As TypedMapCollector(Of Tk, Tv) =3D New
TypedMapCollector(Of Tk, Tv)(keySel)

=09mapper.QueryWithRowDelegate(queryName, parameters, New
SqlMapper.RowDelegate(AddressOf collector.Collect))

=09Return collector.Collected()

End Function

Public Delegate Function KeySelector(Of Tk, Tv)(ByVal v As Tv) As Tk

Private Class TypedMapCollector(Of Tk, Tv)

=09Private _map As IDictionary(Of Tk, Tv)
=09Private _keySelector As KeySelector(Of Tk, Tv)

=09Public Sub New(ByVal keySel As KeySelector(Of Tk, Tv))
=09=09_map =3D New Dictionary(Of Tk, Tv)
=09=09_keySelector =3D keySel
=09End Sub

=09Public Sub Collect(ByVal rowObject As Object, ByVal parameterObject
As Object, ByVal junkList As IList)
=09=09Dim v As Tv =3D DirectCast(rowObject, Tv)
=09=09Dim k As Tk =3D _keySelector(v)
=09=09_map.Add(k, v)
=09End Sub

=09Public Function Collected() As IDictionary(Of Tk, Tv)
=09=09Return _map
=09End Function

End Class