1 #Region "Microsoft.VisualBasic::0a54e6a4f7d02c6c1a8ac62395aaf1a5, Microsoft.VisualBasic.Core\ComponentModel\DataStructures\Set\StringSet.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 StringSet
35     
36     '         Constructor: (+2 OverloadsSub New
37     '         Operators: (+2 OverloadsOr
38     
39     
40     ' /********************************************************************************/
41
42 #End Region
43
44 Imports System.Runtime.CompilerServices
45 Imports Microsoft.VisualBasic.Linq
46
47 Namespace ComponentModel.DataStructures
48
49     ''' <summary>
50     ''' A string set collection object.
51     ''' </summary>
52     Public Class StringSet : Inherits [Set]
53
54         ''' <summary>
55         ''' 
56         ''' </summary>
57         ''' <param name="strings"></param>
58         ''' <param name="caseSensitive">
59         ''' String comparision should be in case sensitive mode? By default is yes.
60         ''' </param>
61         Sub New(strings As IEnumerable(Of String), Optional caseSensitive As CompareMethod = CompareMethod.Binary)
62             Call MyBase.New
63
64             Dim compare As StringComparison = caseSensitive.GetCompareType
65
66             MyBase._equals = Function(s1, s2)
67                                  Return String.Equals(s1, s2, compare)
68                              End Function
69             MyBase._members = New [Set](strings, MyBase._equals)._members
70         End Sub
71
72         Friend Sub New([set] As [Set])
73             Call MyBase.New
74
75             MyBase._members = [set]._members
76             MyBase._equals = [set]._equals
77         End Sub
78
79         <MethodImpl(MethodImplOptions.AggressiveInlining)>
80         Public Overloads Shared Operator Or(s1 As StringSet, s2 As IEnumerable(Of String)) As StringSet
81             Return New StringSet(DirectCast(s1, [Set]) Or New [Set](s2, s1._equals))
82         End Operator
83
84         <MethodImpl(MethodImplOptions.AggressiveInlining)>
85         Public Overloads Shared Narrowing Operator CType(s As StringSet) As String()
86             Return s.ToArray(Of String)
87         End Operator
88
89         ''' <summary>
90         ''' Removes all of the <paramref name="s2"/> from <see cref="StringSet"/> <paramref name="s1"/>
91         ''' </summary>
92         ''' <param name="s1"></param>
93         ''' <param name="s2"></param>
94         ''' <returns></returns>
95         <MethodImpl(MethodImplOptions.AggressiveInlining)>
96         Public Overloads Shared Operator -(s1 As [StringSet], s2 As IEnumerable(Of String)) As StringSet
97             Return New StringSet(s1 - s2.AsSet)
98         End Operator
99     End Class
100 End Namespace