1 #Region "Microsoft.VisualBasic::ce369c6ea9777cc9a41245f2aa26840e, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Network\MIME\ContentType.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     '     Structure ContentType
35     
36     '         Properties: Details, FileExt, IsEmpty, MIMEType, Name
37     
38     '         Function: __createObject, ToString
39     
40     
41     ' /********************************************************************************/
42
43 #End Region
44
45 Imports System.Data.Linq.Mapping
46 Imports System.Runtime.CompilerServices
47 Imports Microsoft.VisualBasic.Language.Default
48 Imports Microsoft.VisualBasic.Text
49
50 Namespace Net.Protocols.ContentTypes
51
52     ''' <summary>
53     ''' MIME types / Internet Media Types
54     ''' </summary>
55     Public Structure ContentType : Implements IsEmpty
56
57         ''' <summary>
58         ''' Type name or brief info
59         ''' </summary>
60         ''' <returns></returns>
61         Public Property Name As String
62         ''' <summary>
63         ''' MIME Type / Internet Media Type
64         ''' </summary>
65         ''' <returns></returns>
66         <Column(Name:="MIME Type / Internet Media Type")> Public Property MIMEType As String
67
68         ''' <summary>
69         ''' File Extension
70         ''' </summary>
71         ''' <returns></returns>
72         <Column(Name:="File Extension")>
73         Public Property FileExt As String
74
75         ''' <summary>
76         ''' More Details
77         ''' </summary>
78         ''' <returns></returns>
79         <Column(Name:="More Details")> Public Property Details As String
80
81         Public ReadOnly Property IsEmpty() As Boolean Implements IsEmpty.IsEmpty
82             <MethodImpl(MethodImplOptions.AggressiveInlining)>
83             Get
84                 Return Name Is Nothing AndAlso
85                     MIMEType Is Nothing AndAlso
86                     FileExt Is Nothing AndAlso
87                     Details Is Nothing
88             End Get
89         End Property
90
91         Public Overrides Function ToString() As String
92             Return $"{MIMEType} (*{FileExt})"
93         End Function
94
95         Friend Shared Function __createObject(line As StringAs ContentType
96             Dim tokens As String() = line.Split(ASCII.TAB)
97
98             If tokens.IsNullOrEmpty OrElse tokens.Length < 3 Then
99                 Call line.Warning
100                 Return Nothing
101             Else
102                 Dim mime As New ContentType With {
103                     .Name = tokens(Scan0),
104                     .MIMEType = tokens(1),
105                     .FileExt = tokens(2),
106                     .Details = tokens(3)
107                 }
108                 Return mime
109             End If
110         End Function
111     End Structure
112 End Namespace