449 lines
18 KiB
VB.net
449 lines
18 KiB
VB.net
#Region "Microsoft.VisualBasic::bdb9cc942f7123775b83eb9ecf8cd4d5, Microsoft.VisualBasic.Core\Language\Linq\Linq.vb"
|
|
|
|
' Author:
|
|
'
|
|
' asuka (amethyst.asuka@gcmodeller.org)
|
|
' xie (genetics@smrucc.org)
|
|
' xieguigang (xie.guigang@live.com)
|
|
'
|
|
' Copyright (c) 2018 GPL3 Licensed
|
|
'
|
|
'
|
|
' GNU GENERAL PUBLIC LICENSE (GPL3)
|
|
'
|
|
'
|
|
' This program is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU General Public License as published by
|
|
' the Free Software Foundation, either version 3 of the License, or
|
|
' (at your option) any later version.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
' GNU General Public License for more details.
|
|
'
|
|
' You should have received a copy of the GNU General Public License
|
|
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
' /********************************************************************************/
|
|
|
|
' Summaries:
|
|
|
|
' Class LinqAPI
|
|
'
|
|
' Constructor: (+1 Overloads) Sub New
|
|
' Function: (+3 Overloads) BuildHash, DefaultFirst, (+2 Overloads) Exec, IsEquals, LQuery
|
|
' MakeList, Takes
|
|
'
|
|
' Structure CountHelper
|
|
'
|
|
' Operators: <=, <>, =, >=
|
|
'
|
|
' Structure LQueryHelper
|
|
'
|
|
' Operators: (+2 Overloads) <=, (+2 Overloads) >=
|
|
'
|
|
' Structure TakeHelper
|
|
'
|
|
' Properties: n
|
|
'
|
|
' Constructor: (+1 Overloads) Sub New
|
|
' Function: ToString
|
|
' Operators: <=, >=
|
|
'
|
|
' Structure BuildHashHelper
|
|
'
|
|
' Constructor: (+1 Overloads) Sub New
|
|
' Operators: <=, >=
|
|
'
|
|
' Structure ListHelper
|
|
'
|
|
' Operators: (+3 Overloads) <=, (+3 Overloads) >=
|
|
'
|
|
' Structure ExecHelper
|
|
'
|
|
' Operators: (+2 Overloads) <=, (+2 Overloads) >=
|
|
'
|
|
' Structure FirstOrDefaultHelper
|
|
'
|
|
' Constructor: (+1 Overloads) Sub New
|
|
' Operators: <=, >=
|
|
'
|
|
' Structure ToArrayHelper
|
|
'
|
|
' Constructor: (+1 Overloads) Sub New
|
|
' Operators: (+2 Overloads) <=, (+2 Overloads) >=
|
|
'
|
|
'
|
|
' /********************************************************************************/
|
|
|
|
#End Region
|
|
|
|
Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic
|
|
Imports Microsoft.VisualBasic.Language.LinqAPIHelpers
|
|
Imports Microsoft.VisualBasic.Linq
|
|
Imports Microsoft.VisualBasic.Parallel.Linq
|
|
Imports Microsoft.VisualBasic.Serialization
|
|
Imports Microsoft.VisualBasic.Serialization.JSON
|
|
|
|
Namespace Language
|
|
|
|
''' <summary>
|
|
''' Language syntax extension for the Linq expression in VisualBasic language
|
|
''' </summary>
|
|
Public NotInheritable Class LinqAPI
|
|
|
|
''' <summary>
|
|
''' 2016-10-21
|
|
''' 在这里被设计成Class而不是Module是为了防止和Linq拓展之中的函数产生冲突
|
|
''' </summary>
|
|
Private Sub New()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Initializes a new instance of the <see cref="List"/>`1 class that
|
|
''' contains elements copied from the specified collection and has sufficient capacity
|
|
''' to accommodate the number of elements copied.
|
|
''' </summary>
|
|
Public Shared Function MakeList(Of T)() As ListHelper(Of T)
|
|
Return New ListHelper(Of T)
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Execute a linq expression. Creates an array from a <see cref="IEnumerable(Of T)"/>.
|
|
''' </summary>
|
|
''' <typeparam name="T"></typeparam>
|
|
''' <returns>An array that contains the elements from the input sequence.</returns>
|
|
Public Shared Function Exec(Of T)() As ExecHelper(Of T)
|
|
Return New ExecHelper(Of T)
|
|
End Function
|
|
|
|
Public Shared Function DefaultFirst(Of T)(Optional [default] As T = Nothing) As FirstOrDefaultHelper(Of T)
|
|
Return New FirstOrDefaultHelper(Of T)([default])
|
|
End Function
|
|
|
|
''' <summary>
|
|
'''
|
|
''' </summary>
|
|
''' <typeparam name="T">Is the type of linq source</typeparam>
|
|
''' <typeparam name="V">Is the type of value output</typeparam>
|
|
''' <param name="source"></param>
|
|
''' <returns></returns>
|
|
Public Shared Function Exec(Of T, V)(source As IEnumerable(Of T)) As ToArrayHelper(Of T, V)
|
|
Return New ToArrayHelper(Of T, V)(source)
|
|
End Function
|
|
|
|
Public Shared Function BuildHash(Of T, V, [In])(keys As Func(Of [In], T), values As Func(Of [In], V)) As BuildHashHelper(Of T, V, [In])
|
|
Return New BuildHashHelper(Of T, V, [In])(keys, values)
|
|
End Function
|
|
|
|
Public Shared Function BuildHash(Of T, [In])(keys As Func(Of [In], T)) As BuildHashHelper(Of T, [In], [In])
|
|
Return New BuildHashHelper(Of T, [In], [In])(keys, Function(x) x)
|
|
End Function
|
|
|
|
Public Shared Function BuildHash(Of T As INamedValue)() As BuildHashHelper(Of String, T, T)
|
|
Return New BuildHashHelper(Of String, T, T)(Function(x) x.Key, Function(x) x)
|
|
End Function
|
|
|
|
Public Shared Function Takes(Of T)(n As Integer) As TakeHelper(Of T)
|
|
Return New TakeHelper(Of T)(n)
|
|
End Function
|
|
|
|
Public Shared Function LQuery(Of T, out)(task As Func(Of T, out), Optional partTokens As Integer = 20000) As LQueryHelper(Of T, out)
|
|
Return New LQueryHelper(Of T, out) With {
|
|
.task = task,
|
|
.partTokens = partTokens
|
|
}
|
|
End Function
|
|
|
|
Public Shared Function IsEquals(Of T)(Optional c% = 0) As CountHelper(Of T)
|
|
Return New CountHelper(Of T) With {
|
|
.count = c
|
|
}
|
|
End Function
|
|
End Class
|
|
|
|
Namespace LinqAPIHelpers
|
|
|
|
Public Structure CountHelper(Of T)
|
|
|
|
Public count%
|
|
|
|
''' <summary>
|
|
''' 判断序列计数是否相等
|
|
''' </summary>
|
|
''' <param name="h"></param>
|
|
''' <param name="source"></param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(h As CountHelper(Of T), source As IEnumerable(Of T)) As Boolean
|
|
Return source.Count = h.count
|
|
End Operator
|
|
|
|
Public Shared Operator >=(h As CountHelper(Of T), source As IEnumerable(Of T)) As Boolean
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
|
|
Public Shared Operator =(h As CountHelper(Of T), source As IEnumerable(Of T)) As Boolean
|
|
Return h.count = source.Count
|
|
End Operator
|
|
|
|
Public Shared Operator <>(h As CountHelper(Of T), source As IEnumerable(Of T)) As Boolean
|
|
Return Not h = source
|
|
End Operator
|
|
End Structure
|
|
|
|
Public Structure LQueryHelper(Of T, out)
|
|
|
|
Dim task As Func(Of T, out)
|
|
Dim partTokens As Integer
|
|
|
|
Public Overloads Shared Operator <=(helper As LQueryHelper(Of T, out), source As IEnumerable(Of T)) As out()
|
|
Return LQuerySchedule.LQuery(source, helper.task, helper.partTokens).ToArray
|
|
End Operator
|
|
|
|
Public Overloads Shared Operator >=(helper As LQueryHelper(Of T, out), source As IEnumerable(Of T)) As out()
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
|
|
Public Overloads Shared Operator <=(helper As LQueryHelper(Of T, out), source As IEnumerable(Of IEnumerable(Of T))) As out()
|
|
Return helper <= source.IteratesALL
|
|
End Operator
|
|
|
|
Public Overloads Shared Operator >=(helper As LQueryHelper(Of T, out), source As IEnumerable(Of IEnumerable(Of T))) As out()
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
|
|
Public Structure TakeHelper(Of T)
|
|
|
|
Public ReadOnly Property n As Integer
|
|
|
|
Sub New(n As Integer)
|
|
Me.n = n
|
|
End Sub
|
|
|
|
Public Overrides Function ToString() As String
|
|
Return Me.GetJson
|
|
End Function
|
|
|
|
Public Overloads Shared Operator <=(num As TakeHelper(Of T), source As IEnumerable(Of T)) As IEnumerable(Of T)
|
|
Return source.Take(num.n)
|
|
End Operator
|
|
|
|
Public Overloads Shared Operator >=(num As TakeHelper(Of T), source As IEnumerable(Of T)) As IEnumerable(Of T)
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
|
|
' Summary:
|
|
' Creates a System.Collections.Generic.Dictionary`2 from an System.Collections.Generic.IEnumerable`1
|
|
' according to specified key selector and element selector functions.
|
|
'
|
|
' Parameters:
|
|
' source:
|
|
' An System.Collections.Generic.IEnumerable`1 to create a System.Collections.Generic.Dictionary`2
|
|
' from.
|
|
'
|
|
' keySelector:
|
|
' A function to extract a key from each element.
|
|
'
|
|
' elementSelector:
|
|
' A transform function to produce a result element value from each element.
|
|
'
|
|
' Type parameters:
|
|
' TSource:
|
|
' The type of the elements of source.
|
|
'
|
|
' TKey:
|
|
' The type of the key returned by keySelector.
|
|
'
|
|
' TElement:
|
|
' The type of the value returned by elementSelector.
|
|
'
|
|
' Returns:
|
|
' A System.Collections.Generic.Dictionary`2 that contains values of type TElement
|
|
' selected from the input sequence.
|
|
'
|
|
' Exceptions:
|
|
' T:System.ArgumentNullException:
|
|
' source or keySelector or elementSelector is null.-or-keySelector produces a key
|
|
' that is null.
|
|
'
|
|
' T:System.ArgumentException:
|
|
' keySelector produces duplicate keys for two elements.
|
|
Public Structure BuildHashHelper(Of T, V, [In])
|
|
|
|
ReadOnly __keys As Func(Of [In], T)
|
|
ReadOnly __values As Func(Of [In], V)
|
|
|
|
Sub New(k As Func(Of [In], T), v As Func(Of [In], V))
|
|
__keys = k
|
|
__values = v
|
|
End Sub
|
|
|
|
Public Shared Operator <=(cls As BuildHashHelper(Of T, V, [In]), linq As IEnumerable(Of [In])) As Dictionary(Of T, V)
|
|
Return linq.ToDictionary(cls.__keys, cls.__values)
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As BuildHashHelper(Of T, V, [In]), linq As IEnumerable(Of [In])) As Dictionary(Of T, V)
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
|
|
Public Structure ListHelper(Of T)
|
|
|
|
''' <summary>
|
|
''' Initializes a new instance of the <see cref="List"/>`1 class that
|
|
''' contains elements copied from the specified collection and has sufficient capacity
|
|
''' to accommodate the number of elements copied.
|
|
''' </summary>
|
|
''' <param name="linq">The collection whose elements are copied to the new list.</param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(cls As ListHelper(Of T), linq As IEnumerable(Of T)) As List(Of T)
|
|
Return linq.AsList
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ListHelper(Of T), linq As IEnumerable(Of T)) As List(Of T)
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
|
|
''' <summary>
|
|
''' Initializes a new instance of the <see cref="List"/>`1 class that
|
|
''' contains elements copied from the specified collection and has sufficient capacity
|
|
''' to accommodate the number of elements copied.
|
|
''' </summary>
|
|
''' <param name="linq">The collection whose elements are copied to the new list.</param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(cls As ListHelper(Of T), linq As IEnumerable(Of IEnumerable(Of T))) As List(Of T)
|
|
Return linq.Unlist
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ListHelper(Of T), linq As IEnumerable(Of IEnumerable(Of T))) As List(Of T)
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
|
|
''' <summary>
|
|
''' Initializes a new instance of the <see cref="List"/>`1 class that
|
|
''' contains elements copied from the specified collection and has sufficient capacity
|
|
''' to accommodate the number of elements copied.
|
|
''' </summary>
|
|
''' <param name="linq">The collection whose elements are copied to the new list.</param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(cls As ListHelper(Of T), linq As IEnumerable(Of IEnumerable(Of IEnumerable(Of T)))) As List(Of T)
|
|
Return linq.IteratesALL.Unlist
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ListHelper(Of T), linq As IEnumerable(Of IEnumerable(Of IEnumerable(Of T)))) As List(Of T)
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
|
|
''' <summary>
|
|
''' Execute a linq expression. Creates an array from a <see cref="System.Collections.Generic.IEnumerable(Of T)"/>.
|
|
''' </summary>
|
|
''' <typeparam name="T"></typeparam>
|
|
Public Structure ExecHelper(Of T)
|
|
|
|
''' <summary>
|
|
''' Creates an array from a <see cref="System.Collections.Generic.IEnumerable(Of T)"/>.
|
|
''' </summary>
|
|
''' <param name="cls"></param>
|
|
''' <param name="linq">
|
|
''' An <see cref="System.Collections.Generic.IEnumerable(Of T)"/> to create an array from.
|
|
''' </param>
|
|
''' <returns>An array that contains the elements from the input sequence.</returns>
|
|
Public Shared Operator <=(cls As ExecHelper(Of T), linq As IEnumerable(Of T)) As T()
|
|
Return linq.ToArray
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ExecHelper(Of T), linq As IEnumerable(Of T)) As T()
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
|
|
''' <summary>
|
|
''' Creates an array from a <see cref="System.Collections.Generic.IEnumerable(Of T)"/>.
|
|
''' </summary>
|
|
''' <param name="cls"></param>
|
|
''' <param name="linq">
|
|
''' An <see cref="System.Collections.Generic.IEnumerable(Of T)"/> to create an array from.
|
|
''' </param>
|
|
''' <returns>An array that contains the elements from the input sequence.</returns>
|
|
Public Shared Operator <=(cls As ExecHelper(Of T), linq As IEnumerable(Of IEnumerable(Of T))) As T()
|
|
Return linq.ToVector
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ExecHelper(Of T), linq As IEnumerable(Of IEnumerable(Of T))) As T()
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
|
|
Public Structure FirstOrDefaultHelper(Of T)
|
|
|
|
ReadOnly __default As T
|
|
|
|
Sub New(__default As T)
|
|
Me.__default = __default
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Exec <see cref="IEnumerable(Of T)"/>.DefaultFirst extension method.
|
|
''' </summary>
|
|
''' <param name="cls"></param>
|
|
''' <param name="linq"></param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(cls As FirstOrDefaultHelper(Of T), linq As IEnumerable(Of T)) As T
|
|
Return linq.DefaultFirst(cls.__default)
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As FirstOrDefaultHelper(Of T), linq As IEnumerable(Of T)) As T
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
|
|
''' <summary>
|
|
''' Execute a linq expression. Creates an array from a <see cref="System.Collections.Generic.IEnumerable(Of T)"/>.
|
|
''' </summary>
|
|
''' <typeparam name="T"></typeparam>
|
|
Public Structure ToArrayHelper(Of T, V)
|
|
|
|
Private __source As IEnumerable(Of T)
|
|
|
|
Sub New(source As IEnumerable(Of T))
|
|
__source = source
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Exec ToArray
|
|
''' </summary>
|
|
''' <param name="cls"></param>
|
|
''' <param name="linq"></param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(cls As ToArrayHelper(Of T, V), linq As Func(Of T, V)) As V()
|
|
Return (From x As T In cls.__source Select linq(x)).ToArray
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ToArrayHelper(Of T, V), linq As Func(Of T, V)) As V()
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
|
|
''' <summary>
|
|
''' Exec ToArray
|
|
''' </summary>
|
|
''' <param name="cls"></param>
|
|
''' <param name="linq"></param>
|
|
''' <returns></returns>
|
|
Public Shared Operator <=(cls As ToArrayHelper(Of T, V), linq As Func(Of T, Integer, V)) As V()
|
|
Return (From x As SeqValue(Of T)
|
|
In cls.__source.SeqIterator
|
|
Select linq(x.value, x.i)).ToArray
|
|
End Operator
|
|
|
|
Public Shared Operator >=(cls As ToArrayHelper(Of T, V), linq As Func(Of T, Integer, V)) As V()
|
|
Throw New NotSupportedException
|
|
End Operator
|
|
End Structure
|
|
End Namespace
|
|
End Namespace
|