You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
79 lines
2.5 KiB
79 lines
2.5 KiB
Imports System.Text
|
|
Imports Microsoft.VisualBasic.ComponentModel
|
|
Imports Microsoft.VisualBasic.ComputingServices.TaskHost
|
|
Imports Microsoft.VisualBasic.Linq.Framework.Provider
|
|
Imports Microsoft.VisualBasic.Linq.Framework.Provider.ImportsAPI
|
|
Imports Microsoft.VisualBasic.Serialization.JsonContract
|
|
Imports RQL.StorageTek
|
|
|
|
''' <summary>
|
|
''' Repository database
|
|
''' </summary>
|
|
Public Class Repository : Implements ISaveHandle
|
|
|
|
''' <summary>
|
|
''' {lower_case.url, type_info}
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
Public Property Models As New Dictionary(Of String, EntityProvider)
|
|
|
|
ReadOnly __types As TypeRegistry
|
|
ReadOnly __api As APIProvider
|
|
|
|
Sub New()
|
|
__api = APIProvider.LoadDefault
|
|
__types = TypeRegistry.LoadDefault
|
|
End Sub
|
|
|
|
''' <summary>
|
|
'''
|
|
''' </summary>
|
|
''' <param name="url">大小写不敏感，不需要额外的处理</param>
|
|
''' <returns></returns>
|
|
Public Function GetRepository(url As String, Optional where As String = "") As IEnumerable
|
|
Dim api As EntityProvider = Models(url.ToLower)
|
|
If String.IsNullOrEmpty(where) Then
|
|
Return api.GetRepository
|
|
Else
|
|
Return api.LinqWhere(where, __types, __api)
|
|
End If
|
|
End Function
|
|
|
|
Public Overloads Function [GetType](url As String) As Type
|
|
Dim api As EntityProvider = Models(url.ToLower)
|
|
Return api.GetType
|
|
End Function
|
|
|
|
Public Shared Function LoadFile(url As String) As Repository
|
|
Try
|
|
Return LoadJsonFile(Of Repository)(url)
|
|
Catch ex As Exception
|
|
ex = New Exception(url, ex)
|
|
Call App.LogException(ex)
|
|
|
|
Dim __new As New Repository
|
|
Call __new.Save(url, Encodings.ASCII)
|
|
Return __new
|
|
End Try
|
|
End Function
|
|
|
|
Public Shared Function LoadDefault() As Repository
|
|
Return LoadFile(DefaultFile)
|
|
End Function
|
|
|
|
Public Shared ReadOnly Property DefaultFile As String =
|
|
App.ProductSharedDIR & "/RQL.Provider.json"
|
|
|
|
Private Function ISaveHandle_Save(Optional Path As String = "", Optional encoding As Encoding = Nothing) As Boolean Implements ISaveHandle.Save
|
|
If String.IsNullOrEmpty(Path) Then
|
|
Path = DefaultFile
|
|
End If
|
|
Return Me.GetJson.SaveTo(Path, encoding)
|
|
End Function
|
|
|
|
Public Function Save(Optional Path As String = "", Optional encoding As Encodings = Encodings.UTF8) As Boolean Implements ISaveHandle.Save
|
|
Return ISaveHandle_Save(Path, encoding.GetEncodings)
|
|
End Function
|
|
End Class
|
|
|