make improvements of the repository model

Author: xieguigang

Microsoft.VisualBasic.Core/src/ComponentModel/DataSource/Repository/InMemoryDb.vb

@@ -1,56 +1,56 @@
 #Region "Microsoft.VisualBasic::613a5e2782e9f04919acfbebca5be083, Microsoft.VisualBasic.Core\src\ComponentModel\DataSource\Repository\InMemoryDb.vb"
 
-    ' Author:
-    ' 
-    '       asuka ([email protected])
-    '       xie ([email protected])
-    '       xieguigang ([email protected])
-    ' 
-    ' Copyright (c) 2018 GPL3 Licensed
-    ' 
-    ' 
-    ' GNU GENERAL PUBLIC LICENSE (GPL3)
-    ' 
-    ' 
-    ' This program is free software: you can redistribute it and/or modify
-    ' it under the terms of the GNU General Public License as published by
-    ' the Free Software Foundation, either version 3 of the License, or
-    ' (at your option) any later version.
-    ' 
-    ' This program is distributed in the hope that it will be useful,
-    ' but WITHOUT ANY WARRANTY; without even the implied warranty of
-    ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    ' GNU General Public License for more details.
-    ' 
-    ' You should have received a copy of the GNU General Public License
-    ' along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-
-
-    ' /********************************************************************************/
-
-    ' Summaries:
-
-
-    ' Code Statistics:
-
-    '   Total Lines: 30
-    '    Code Lines: 17 (56.67%)
-    ' Comment Lines: 5 (16.67%)
-    '    - Xml Docs: 100.00%
-    ' 
-    '   Blank Lines: 8 (26.67%)
-    '     File Size: 1.09 KB
-
-
-    '     Class InMemoryDb
-    ' 
-    '         Function: [Get]
-    ' 
-    '         Sub: Put
-    ' 
-    ' 
-    ' /********************************************************************************/
+' Author:
+' 
+'       asuka ([email protected])
+'       xie ([email protected])
+'       xieguigang ([email protected])
+' 
+' Copyright (c) 2018 GPL3 Licensed
+' 
+' 
+' GNU GENERAL PUBLIC LICENSE (GPL3)
+' 
+' 
+' This program is free software: you can redistribute it and/or modify
+' it under the terms of the GNU General Public License as published by
+' the Free Software Foundation, either version 3 of the License, or
+' (at your option) any later version.
+' 
+' This program is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+' GNU General Public License for more details.
+' 
+' You should have received a copy of the GNU General Public License
+' along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+
+
+' /********************************************************************************/
+
+' Summaries:
+
+
+' Code Statistics:
+
+'   Total Lines: 30
+'    Code Lines: 17 (56.67%)
+' Comment Lines: 5 (16.67%)
+'    - Xml Docs: 100.00%
+' 
+'   Blank Lines: 8 (26.67%)
+'     File Size: 1.09 KB
+
+
+'     Class InMemoryDb
+' 
+'         Function: [Get]
+' 
+'         Sub: Put
+' 
+' 
+' /********************************************************************************/
 
 #End Region
 
@@ -59,14 +59,22 @@ Imports System.Text
 
 Namespace ComponentModel.DataSourceModel.Repository
 
-    Public MustInherit Class InMemoryDb
+    Public MustInherit Class InMemoryDb : Implements IDisposable
+
+        Private disposedValue As Boolean
 
         ''' <summary>
         ''' 枚举数据库中所有的键。
         ''' 此操作会遍历所有数据文件，可能比较耗时，建议在需要时调用。
         ''' </summary>
         ''' <returns>返回一个包含所有键的字符串集合。</returns>
         Public MustOverride Iterator Function EnumerateAllKeys() As IEnumerable(Of Byte())
+        Public MustOverride Function HasKey(keydata As Byte()) As Boolean
+
+        <MethodImpl(MethodImplOptions.AggressiveInlining)>
+        Public Function HasKey(key As String) As Boolean
+            Return HasKey(Encoding.UTF8.GetBytes(key))
+        End Function
 
         <MethodImpl(MethodImplOptions.AggressiveInlining)>
         Public Function [Get](key As String) As Byte()
@@ -82,5 +90,38 @@ Namespace ComponentModel.DataSourceModel.Repository
 
         Public MustOverride Sub Put(keybuf As Byte(), data As Byte())
 
+        ''' <summary>
+        ''' close the database connection
+        ''' </summary>
+        ''' <remarks>
+        ''' this function will be called on dispose
+        ''' </remarks>
+        Protected MustOverride Sub Close()
+
+        Protected Overridable Sub Dispose(disposing As Boolean)
+            If Not disposedValue Then
+                If disposing Then
+                    ' TODO: dispose managed state (managed objects)
+                    Call Close()
+                End If
+
+                ' TODO: free unmanaged resources (unmanaged objects) and override finalizer
+                ' TODO: set large fields to null
+                disposedValue = True
+            End If
+        End Sub
+
+        ' ' TODO: override finalizer only if 'Dispose(disposing As Boolean)' has code to free unmanaged resources
+        ' Protected Overrides Sub Finalize()
+        '     ' Do not change this code. Put cleanup code in 'Dispose(disposing As Boolean)' method
+        '     Dispose(disposing:=False)
+        '     MyBase.Finalize()
+        ' End Sub
+
+        Public Sub Dispose() Implements IDisposable.Dispose
+            ' Do not change this code. Put cleanup code in 'Dispose(disposing As Boolean)' method
+            Dispose(disposing:=True)
+            GC.SuppressFinalize(Me)
+        End Sub
     End Class
 End Namespace