1	#Region "Microsoft.VisualBasic::d3327dc28b44d692c05162a07c48695c, Microsoft.VisualBasic.Core\ComponentModel\Settings\Settings.vb"
2
3	' Author:
4	'
5	'       asuka (amethyst.asuka@gcmodeller.org)
6	'       xie (genetics@smrucc.org)
7	'       xieguigang (xie.guigang@live.com)
8	'
9	' Copyright (c) 2018 GPL3 Licensed
10	'
11	'
12	' GNU GENERAL PUBLIC LICENSE (GPL3)
13	'
14	'
15	' This program is free software: you can redistribute it and/or modify
16	' it under the terms of the GNU General Public License as published by
17	' the Free Software Foundation, either version 3 of the License, or
18	' (at your option) any later version.
19	'
20	' This program is distributed in the hope that it will be useful,
21	' but WITHOUT ANY WARRANTY; without even the implied warranty of
22	' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23	' GNU General Public License for more details.
24	'
25	' You should have received a copy of the GNU General Public License
26	' along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28
29
30	' /********************************************************************************/
31
32	' Summaries:
33
34	'     Class Settings
35	'
36	'         Properties: SettingsData
37	'
38	'         Constructor: (+2 Overloads) Sub New
39	'         Function: __createSave, CreateEmpty, Load, LoadFile
40	'
41	'
42	' /********************************************************************************/
43
44	#End Region
45
46	Imports System.Runtime.CompilerServices
47
48	#If NET_40 = 0 Then
49
50	Namespace ComponentModel.Settings
51
52	Public Class Settings(Of T As {New, IProfile}) : Inherits ConfigEngine
53	Implements IDisposable
54
55	''' <summary>
56	''' The target object instance that provides the data source for this config engine.
57	''' </summary>
58	''' <returns></returns>
59	Public ReadOnly Property SettingsData As T
60	<MethodImpl(MethodImplOptions.AggressiveInlining)>
61	Get
62	Return DirectCast(MyBase.settingsData, T)
63	End Get
64	End Property
65
66	Sub New()
67	End Sub
68
69	''' <summary>
70	''' 从配置数据的实例对象创建配置映射
71	''' </summary>
72	''' <param name="config"></param>
73	'''
74	<MethodImpl(MethodImplOptions.AggressiveInlining)>
75	Sub New(config As T)
76	Call MyBase.New(config)
77	End Sub
78
79	''' <summary>
80	'''
81	''' </summary>
82	''' <param name="XmlFile">目标配置文件的Xml文件的文件名</param>
83	''' <returns>可以调用的配置项的数目，解析失败则返回0</returns>
84	''' <remarks></remarks>
85	Public Shared Function LoadFile(XmlFile As String, Optional CreateSave As Action(Of T, String) = Nothing) As Settings(Of T)
86	If Not XmlFile.FileExists Then
87	Return __createSave(XmlFile, CreateSave)
88	Else
89	Dim File As T = XmlFile.LoadXml(Of T)(throwEx:=False)
90
91	If File Is Nothing Then
92	Return __createSave(XmlFile, CreateSave)
93	Else
94	Return Load(Linq.SetValue(Of T).InvokeSet(File, NameOf(File.FilePath), XmlFile))
95	End If
96	End If
97	End Function
98
99	Private Shared Function __createSave(xml As String, createSave As Action(Of T, String)) As Settings(Of T)
100	Dim FileObject As T = DirectCast(Activator.CreateInstance(Of T)(), T)
101	FileObject.FilePath = xml
102	If Not createSave Is Nothing Then
103	Call createSave(FileObject, xml)
104	End If
105	Return Load(Data:=FileObject)
106	End Function
107
108	''' <summary>
109	''' 使用<see cref="ProfileItem"/>来标记想要作为变量的属性
110	''' </summary>
111	''' <param name="Data"></param>
112	''' <returns></returns>
113	'''
114	<MethodImpl(MethodImplOptions.AggressiveInlining)>
115	Public Overloads Shared Function Load(Data As T) As Settings(Of T)
116	Return New Settings(Of T)(Data)
117	End Function
118
119	<MethodImpl(MethodImplOptions.AggressiveInlining)>
120	Public Shared Function CreateEmpty() As Settings(Of T)
121	Return New Settings(Of T)(Activator.CreateInstance(Of T))
122	End Function
123
124	<MethodImpl(MethodImplOptions.AggressiveInlining)>
125	Public Overloads Shared Narrowing Operator CType(Settings As Settings(Of T)) As T
126	Return Settings.SettingsData
127	End Operator
128	End Class
129	End Namespace
130	#End If