1 #Region "Microsoft.VisualBasic::03006d6161a36cde657ae0f9779a9951, Microsoft.VisualBasic.Core\ApplicationServices\VBDev\XmlDoc\ProjectMember.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 ProjectMember
35     
36     '         Properties: [Declare], Name, Params, Remarks, Returns
37     '                     Summary, Type
38     
39     '         Constructor: (+1 OverloadsSub New
40     
41     '         FunctionToString
42     
43     '         Sub: LoadFromNode
44     
45     
46     ' /********************************************************************************/
47
48 #End Region
49
50 ' Copyright (c) Bendyline LLC. All rights reserved. Licensed under the Apache License, Version 2.0.
51 '    You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0. 
52
53 Imports System.Runtime.CompilerServices
54 Imports System.Xml
55 Imports Microsoft.VisualBasic.ApplicationServices.Development.XmlDoc.Serialization
56 Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel
57 Imports Microsoft.VisualBasic.Language
58 Imports Microsoft.VisualBasic.Text
59
60 Namespace ApplicationServices.Development.XmlDoc.Assembly
61
62     ''' <summary>
63     ''' Base class for a method or property.
64     ''' </summary>
65     Public Class ProjectMember
66
67         Dim projectType As ProjectType
68
69         Public Property Name() As String
70         Public Property Summary() As String
71         Public Property Returns() As String
72         Public Property Remarks As String
73         Public Property Params As param()
74
75         ''' <summary>
76         ''' 申明的原型
77         ''' </summary>
78         ''' <returns></returns>
79         Public Property [Declare] As String
80
81         Public ReadOnly Property Type() As ProjectType
82             <MethodImpl(MethodImplOptions.AggressiveInlining)>
83             Get
84                 Return Me.projectType
85             End Get
86         End Property
87
88         Public Sub New(projectType As ProjectType)
89             Me.projectType = projectType
90         End Sub
91
92         Public Overrides Function ToString() As String
93             Return [Declare]
94         End Function
95
96         Public Sub LoadFromNode(xn As XmlNode)
97             Dim summaryNode As XmlNode = xn.SelectSingleNode("summary")
98             Dim [declare] As NamedValue(Of String) = xn _
99                 .Attributes _
100                 .GetNamedItem("name") _
101                 .InnerText _
102                 .Trim(ASCII.CR, ASCII.LF, " ") _
103                 .GetTagValue(":", trim:=True)
104
105             Me.Declare = [declare].Value
106
107             If summaryNode IsNot Nothing Then
108                 Me.Summary = summaryNode.InnerText.Trim(ASCII.CR, ASCII.LF, " ")
109             End If
110
111             Dim returnsNode As XmlNode = xn.SelectSingleNode("returns")
112
113             If returnsNode IsNot Nothing Then
114                 Me.Returns = returnsNode.InnerText.Trim(ASCII.CR, ASCII.LF, " ")
115             End If
116
117             Dim remarksNode As XmlNode = xn.SelectSingleNode("remarks")
118
119             If remarksNode IsNot Nothing Then
120                 Me.Remarks = remarksNode.InnerText.Trim(ASCII.CR, ASCII.LF, " ")
121             End If
122
123             Dim ns = xn.SelectNodes("param")
124
125             If Not ns Is Nothing Then
126                 Dim args As New List(Of param)
127                 Dim text$
128                 Dim name$
129
130                 For Each x As XmlNode In ns
131                     text = x.InnerText Or "-".AsDefault(Function()
132                                                             Return Strings.Trim(x.InnerText).StringEmpty
133                                                         End Function)
134                     name = x.Attributes _
135                         .GetNamedItem("name") _
136                         .InnerText _
137                         .Trim(ASCII.CR, ASCII.LF, " ")
138                     args += New param With {
139                         .name = name,
140                         .text = (text)
141                     }
142                 Next
143
144                 Me.Params = args
145             End If
146         End Sub
147     End Class
148 End Namespace