1 #Region "Microsoft.VisualBasic::decd1d16f8bd8664b6efe4343e8c06ea, Microsoft.VisualBasic.Core\Language\BaseClass.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     '     Interface IClassObject
35     
36     '         Properties: Extension
37     
38     '     Class BaseClass
39     
40     '         Properties: Extension
41     
42     '         Function: __toString, ReadProperty, ToString
43     '         Operators: (+2 OverloadsIsFalse, (+2 OverloadsIsTrue, (+2 OverloadsNot
44     
45     
46     ' /********************************************************************************/
47
48 #End Region
49
50 Imports System.Web.Script.Serialization
51 Imports System.Xml.Serialization
52 Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel
53 Imports Microsoft.VisualBasic.Serialization.JSON
54
55 Namespace Language
56
57     'Public Module ClassAPI
58
59     '    ''' <summary>
60     '    ''' Example of the extension property in VisualBasic
61     '    ''' </summary>
62     '    ''' <typeparam name="T"></typeparam>
63     '    ''' <param name="x"></param>
64     '    ''' <returns></returns>
65     '    <Extension>
66     '    Public Function Uid(Of T As ClassObject)(x As T) As PropertyValue(Of Long)
67     '        Return PropertyValue(Of Long).Read(Of T)(x, NameOf(Uid))
68
69     '        ' Just copy this statement without any big modification. just modify the generics type constraint.
70     '        Return PropertyValue(Of Long).Read(Of T)(x, MethodBase.GetCurrentMethod)
71     '    End Function
72     'End Module
73
74     ''' <summary>
75     ''' The base class object in VisualBasic
76     ''' </summary>
77     Public Interface IClassObject
78
79         ''' <summary>
80         ''' The extension property.(为了节省内存的需要,这个附加属性尽量不要被自动初始化)
81         ''' </summary>
82         ''' <returns></returns>
83         Property Extension As ExtendedProps
84     End Interface
85
86     ''' <summary>
87     ''' The base class object in VisualBasic language
88     ''' </summary>
89     Public Class BaseClass : Implements IClassObject
90
91         ''' <summary>
92         ''' The extension property.(为了节省内存的需要,这个附加属性尽量不要被自动初始化)
93         ''' </summary>
94         ''' <returns></returns>
95         ''' <remarks>
96         ''' Dummy field for solve the problem of xml serialization >>>simpleContent&lt;&lt;&lt;   
97         ''' 
98         ''' http://stackoverflow.com/questions/2501466/xmltext-attribute-in-base-class-breakes-serialization
99         ''' 
100         ''' So I think you could make it work by adding a dummy property or field that you never 
101         ''' use in the ``LookupItem`` class. 
102         ''' If you're never assign a value to it, it will remain null and will not be serialized, 
103         ''' but it will prevent your class from being treated as simpleContent. I know it's a 
104         ''' dirty workaround, but I see no other easy way...
105         ''' </remarks>
106         <XmlIgnore>
107         <ScriptIgnore>
108         <SoapIgnore>
109         Public Overridable Property Extension As ExtendedProps Implements IClassObject.Extension
110
111         ''' <summary>
112         ''' Get dynamics property value.
113         ''' </summary>
114         ''' <typeparam name="T"></typeparam>
115         ''' <param name="name"></param>
116         ''' <returns></returns>
117         Public Function ReadProperty(Of T)(name As StringAs PropertyValue(Of T)
118             Return PropertyValue(Of T).Read(Me, name)
119         End Function
120
121         ''' <summary>
122         ''' Default is display the json value of the object class
123         ''' </summary>
124         ''' <returns></returns>
125         Public Overrides Function ToString() As String
126             Return [GetType].GetObjectJson(Me, False)
127         End Function
128
129         ''' <summary>
130         ''' String source for operator <see cref="BaseClass.Operator &(BaseClass, String)"/>
131         ''' </summary>
132         ''' <returns>Default is using <see cref="ToString"/> method as provider</returns>
133         Protected Friend Overridable Function __toString() As String
134             Return ToString()
135         End Function
136
137         ''' <summary>
138         ''' Contact this class object with other string value
139         ''' </summary>
140         ''' <param name="x"></param>
141         ''' <param name="s"></param>
142         ''' <returns></returns>
143         Public Shared Operator &(x As BaseClass, s As StringAs String
144             Return x.__toString & s
145         End Operator
146
147         ''' <summary>
148         ''' Contact this class object with other string value
149         ''' </summary>
150         ''' <param name="s"></param>
151         ''' <param name="x"></param>
152         ''' <returns></returns>
153         Public Shared Operator &(s As String, x As BaseClass) As String
154             Return s & x.__toString
155         End Operator
156
157         Public Shared Operator IsTrue(x As BaseClass) As Boolean
158             Return Not x Is Nothing
159         End Operator
160
161         Public Shared Operator IsFalse(x As BaseClass) As Boolean
162             Return x Is Nothing
163         End Operator
164
165         Public Shared Operator Not(x As BaseClass) As Boolean
166             If x Is Nothing Then
167                 Return True
168             Else
169                 Return False
170             End If
171         End Operator
172     End Class
173 End Namespace