1	#Region "Microsoft.VisualBasic::c63097bfd347dfe4eba9584f532016c2, Microsoft.VisualBasic.Core\Scripting\Runtime\Extensions.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	'     Module Extensions
35	'
36	'         Properties: Numerics
37	'
38	'         Constructor: (+1 Overloads) Sub New
39	'         Function: CreateArray, OverloadsBinaryOperator
40	'
41	'
42	' /********************************************************************************/
43
44	#End Region
45
46	Imports System.Runtime.CompilerServices
47	Imports System.Reflection
48	Imports Microsoft.VisualBasic.ComponentModel.Collection
49
50	Namespace Scripting.Runtime
51
52	Module Extensions
53
54	Public ReadOnly Property Numerics As Index(Of TypeCode)
55
56	Sub New()
57	Numerics = {
58	TypeCode.Byte,
59	TypeCode.Decimal,
60	TypeCode.Double,
61	TypeCode.Int16,
62	TypeCode.Int32,
63	TypeCode.Int64,
64	TypeCode.SByte,
65	TypeCode.Single,
66	TypeCode.UInt16,
67	TypeCode.UInt32,
68	TypeCode.UInt64
69	}.Indexing
70	End Sub
71
72	<Extension>
73	Public Function OverloadsBinaryOperator(methods As IEnumerable(Of MethodInfo)) As BinaryOperator
74	Return BinaryOperator.CreateOperator(methods?.ToArray)
75	End Function
76
77	<Extension>
78	Public Function CreateArray(data As IEnumerable, type As Type) As Object
79	Dim src = data.Cast(Of Object).ToArray
80	Dim array As Array = Array.CreateInstance(type, src.Length)
81
82	For i As Integer = 0 To src.Length - 1
83	array.SetValue(src(i), i)
84	Next
85
86	Return array
87	End Function
88	End Module
89	End Namespace