1 #Region "Microsoft.VisualBasic::fe0e195744016013d6bc30ab975104cc, Microsoft.VisualBasic.Core\Scripting\Runtime\Where.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 Logics
35     
36     '         [And], [AndAlso], [Not], [Or], [OrElse]
37     '         [XOr]
38     
39     '  
40     
41     
42     
43     '     Module [Where]
44     
45     '         Function: __and, __andAlso, __or, __orElse, BuildAll
46     
47     
48     ' /********************************************************************************/
49
50 #End Region
51
52 Imports System.Runtime.CompilerServices
53
54 Namespace Scripting.Runtime
55
56     Public Enum Logics
57
58         ''' <summary>
59         ''' 两边的逻辑表达式都会被计算
60         ''' </summary>
61         [And]
62         ''' <summary>
63         ''' 两边的逻辑表达式都会被计算
64         ''' </summary>
65         [Or]
66         ''' <summary>
67         ''' 相比于<see cref="Logics.And"/>,这个逻辑运算是会短路的
68         ''' </summary>
69         [AndAlso]
70         ''' <summary>
71         ''' 相比于<see cref="Logics.Or"/>,这个逻辑运算是会短路的
72         ''' </summary>
73         [OrElse]
74         [Not]
75         [XOr]
76
77     End Enum
78
79     ''' <summary>
80     ''' Merge the logical lambda into one lambda function by a specifc logical operation in <see cref="Logics"/>.
81     ''' </summary>
82     Public Module [Where]
83
84         ''' <summary>
85         ''' Not support <see cref="Logics.Not"/>
86         ''' </summary>
87         ''' <typeparam name="T"></typeparam>
88         ''' <param name="logic"></param>
89         ''' <param name="tests"></param>
90         ''' <returns></returns>
91         Public Function BuildAll(Of T)(logic As Logics, ParamArray tests As Func(Of T, Boolean)()) As Func(Of T, Boolean)
92             Select Case logic
93                 Case Logics.And
94                     Return Function(x) x.__and(tests)
95                 Case Logics.AndAlso
96                     Return Function(x) x.__andAlso(tests)
97                 Case Logics.Or
98                     Return Function(x) x.__or(tests)
99                 Case Logics.OrElse
100                     Return Function(x) x.__orElse(tests)
101                 Case Logics.XOr
102                     Return Function(x) Not x.__orElse(tests)
103                 Case Else
104                     Throw New NotSupportedException(logic.ToString)
105             End Select
106         End Function
107
108         <Extension>
109         Private Function __orElse(Of T)(x As T, tests As Func(Of T, Boolean)()) As Boolean
110             For Each test As Func(Of T, BooleanIn tests
111                 If test(x) = True Then
112                     Return True
113                 End If
114             Next
115
116             Return False
117         End Function
118
119         <Extension>
120         Private Function __andAlso(Of T)(x As T, tests As Func(Of T, Boolean)()) As Boolean
121             For Each test As Func(Of T, BooleanIn tests
122                 If test(x) = False Then
123                     Return False
124                 End If
125             Next
126
127             Return True
128         End Function
129
130         ''' <summary>
131         ''' <see cref="Logics.Or"/>, 所有的表达式都会被计算
132         ''' </summary>
133         ''' <typeparam name="T"></typeparam>
134         ''' <param name="x"></param>
135         ''' <param name="tests"></param>
136         ''' <returns></returns>
137         <Extension>
138         Private Function __or(Of T)(x As T, tests As Func(Of T, Boolean)()) As Boolean
139             Dim [true] As Boolean = False
140
141             For Each test As Func(Of T, BooleanIn tests
142                 If test(x) = True Then
143                     [true] = True
144                 End If
145             Next
146
147             Return [true]
148         End Function
149
150         ''' <summary>
151         ''' <see cref="Logics.And"/>, 所有的表达式都会被计算
152         ''' </summary>
153         ''' <param name="tests"></param>
154         ''' <returns></returns>
155         <Extension>
156         Private Function __and(Of T)(x As T, tests As Func(Of T, Boolean)()) As Boolean
157             Dim [false] As Boolean = False
158
159             For Each test As Func(Of T, BooleanIn tests
160                 If test(x) = False Then
161                     [false] = True
162                 End If
163             Next
164
165             If [false] Then
166                 Return False
167             Else
168                 Return True
169             End If
170         End Function
171     End Module
172 End Namespace