1 #Region "Microsoft.VisualBasic::454c46bb934180cf2b277e3e958f8f10, Microsoft.VisualBasic.Core\Text\Xml\XmlDeclaration.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     '     Enum XmlEncodings
35     
36     '         GB2312, UTF16, UTF8
37     
38     '  
39     
40     
41     
42     '     Structure XmlDeclaration
43     
44     '         Properties: [Default]
45     
46     '         Constructor: (+1 OverloadsSub New
47     '         Function: EncodingParser, ToString, XmlEncodingString, XmlStandaloneString
48     
49     
50     ' /********************************************************************************/
51
52 #End Region
53
54 Imports System.Text.RegularExpressions
55
56 Namespace Text.Xml
57
58     Public Enum XmlEncodings
59         UTF8
60         UTF16
61         GB2312
62     End Enum
63
64     Public Structure XmlDeclaration
65
66         Public version As String
67         Public standalone As Boolean
68         Public encoding As XmlEncodings
69
70         Sub New(declares As String)
71             Dim s As String
72
73             s = Regex.Match(declares, "encoding=""\S+""", RegexICSng).Value
74             encoding = EncodingParser(s.GetStackValue(""""""""))
75             s = Regex.Match(declares, "standalone=""\S+""", RegexICSng).Value
76             standalone = s.GetStackValue("""""""").ParseBoolean
77             s = Regex.Match(declares, "version=""\S+""", RegexICSng).Value
78             version = s.GetStackValue("""""""")
79         End Sub
80
81         Public Shared ReadOnly Property [Default] As XmlDeclaration =
82             New XmlDeclaration With {
83                 .version = "1.0",
84                 .standalone = True,
85                 .encoding = XmlEncodings.UTF16
86         }
87
88         ''' <summary>
89         ''' &lt;?xml version="{<see cref="version"/>}" encoding="{<see cref="encoding"/>}" standalone="{<see cref="standalone"/>}"?>
90         ''' </summary>
91         ''' <returns></returns>
92         Public Overrides Function ToString() As String
93             If String.IsNullOrEmpty(version) Then
94                 version = "1.0"
95             End If
96             Return $"<?xml version=""{version}"" encoding=""{XmlEncodingString(encoding)}"" standalone=""{XmlStandaloneString(standalone)}""?>"
97         End Function
98
99         Public Shared Function XmlEncodingString(enc As XmlEncodings) As String
100             Return If(enc = XmlEncodings.UTF8, "utf-8""utf-16")
101         End Function
102
103         Public Shared Function EncodingParser(enc As StringAs XmlEncodings
104             If String.Equals(enc, "utf-8"StringComparison.OrdinalIgnoreCase) Then
105                 Return XmlEncodings.UTF8
106             Else
107                 Return XmlEncodings.UTF16
108             End If
109         End Function
110
111         Public Shared Function XmlStandaloneString(standalone As BooleanAs String
112             Return If(standalone, "yes""no")
113         End Function
114     End Structure
115 End Namespace