1 |
#Region "Microsoft.VisualBasic::9d18e97c58432fc4f97b141f9e6bee43, Microsoft.VisualBasic.Core\Scripting\Runtime\BinaryOperator.vb"
|
2 |
|
3 |
|
4 |
|
5 |
|
6 |
|
7 |
|
8 |
|
9 |
|
10 |
|
11 |
|
12 |
|
13 |
|
14 |
|
15 |
|
16 |
|
17 |
|
18 |
|
19 |
|
20 |
|
21 |
|
22 |
|
23 |
|
24 |
|
25 |
|
26 |
|
27 |
|
28 |
|
29 |
|
30 |
|
31 |
|
32 |
|
33 |
|
34 |
|
35 |
|
36 |
|
37 |
|
38 |
|
39 |
|
40 |
|
41 |
|
42 |
|
43 |
|
44 |
|
45 |
#End Region
|
46 |
|
47 |
Imports System.Reflection
|
48 |
Imports System.Runtime.CompilerServices
|
49 |
Imports Microsoft.VisualBasic.ComponentModel.Collection.Generic
|
50 |
Imports Microsoft.VisualBasic.ComponentModel.DataSourceModel.Repository
|
51 |
|
52 |
Namespace Scripting.Runtime
|
53 |
|
54 |
|
55 |
|
56 |
|
57 |
Public Class BinaryOperator : Implements INamedValue
|
58 |
|
59 |
ReadOnly methods As MethodInfo()
|
60 |
|
61 |
|
62 |
|
63 |
|
64 |
Public Property Name As String Implements IKeyedEntity(Of String).Key
|
65 |
|
66 |
|
67 |
|
68 |
|
69 |
<param name="[overloads]">重名的运算符函数方法</param>
|
70 |
|
71 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
72 |
Sub New([overloads] As MethodInfo())
|
73 |
Call Me.New([overloads](Scan0).Name, [overloads])
|
74 |
End Sub
|
75 |
|
76 |
|
77 |
可以通过继承<see cref="MethodInfo"/>类型来自定义函数,再使用这个操作符对象应用于脚本运行时环境之中
|
78 |
|
79 |
<param name="name$"></param>
|
80 |
<param name="methods"></param>
|
81 |
Sub New(name$, methods As MethodInfo())
|
82 |
Me.Name = name
|
83 |
Me.methods = methods
|
84 |
End Sub
|
85 |
|
86 |
Public Overrides Function ToString() As String
|
87 |
If methods.Length = 1 Then
|
88 |
Return Name
|
89 |
Else
|
90 |
Return $"{Name} (+{methods.Length} Overloads)"
|
91 |
End If
|
92 |
End Function
|
93 |
|
94 |
|
95 |
``args op me``.(参数在左边)
|
96 |
|
97 |
<param name="type"></param>
|
98 |
<returns></returns>
|
99 |
|
100 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
101 |
Public Function MatchLeft(type As Type) As MethodInfo
|
102 |
Return Match(type, 0)
|
103 |
End Function
|
104 |
|
105 |
|
106 |
``me op args``.(参数在右边)
|
107 |
|
108 |
<param name="type"></param>
|
109 |
<returns></returns>
|
110 |
|
111 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
112 |
Public Function MatchRight(type As Type) As MethodInfo
|
113 |
Return Match(type, 1)
|
114 |
End Function
|
115 |
|
116 |
Public Function Match(type As Type, pos%) As MethodInfo
|
117 |
Dim depthMin% = Integer.MaxValue
|
118 |
Dim target As MethodInfo = Nothing
|
119 |
|
120 |
For Each m As MethodInfo In methods
|
121 |
|
122 |
Dim parm As ParameterInfo = m.GetParameters(pos)
|
123 |
Dim depth%
|
124 |
|
125 |
If type.IsInheritsFrom(parm.ParameterType, False, depth) Then
|
126 |
If depth < depthMin Then
|
127 |
depthMin = depth
|
128 |
target = m
|
129 |
End If
|
130 |
End If
|
131 |
Next
|
132 |
|
133 |
If target Is Nothing Then
|
134 |
If Runtime.Numerics.IndexOf(Type.GetTypeCode(type)) > -1 Then
|
135 |
For Each m As MethodInfo In methods
|
136 |
Dim parm As ParameterInfo = m.GetParameters(pos)
|
137 |
If Runtime.Numerics.IndexOf(Type.GetTypeCode(parm.ParameterType)) > -1 Then
|
138 |
Return m
|
139 |
End If
|
140 |
Next
|
141 |
End If
|
142 |
End If
|
143 |
|
144 |
Return target
|
145 |
End Function
|
146 |
|
147 |
|
148 |
参数在右边
|
149 |
|
150 |
<param name="self"></param>
|
151 |
<param name="obj"></param>
|
152 |
<param name="result"></param>
|
153 |
<returns></returns>
|
154 |
|
155 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
156 |
Public Function InvokeSelfLeft(self As Object, obj As Object, ByRef result As Object) As Boolean
|
157 |
Return __invokeInternal(self, obj, 0, result)
|
158 |
End Function
|
159 |
|
160 |
Private Function __invokeInternal(self As Object, obj As Object, pos%, ByRef result As Object) As Boolean
|
161 |
Dim type As Type = obj.GetType
|
162 |
Dim target As MethodInfo = Match(type, If(pos = 1, 0, 1))
|
163 |
|
164 |
If Not target Is Nothing Then
|
165 |
If pos = 0 Then
|
166 |
result = target.Invoke(Nothing, {self, obj})
|
167 |
Else
|
168 |
result = target.Invoke(Nothing, {obj, self})
|
169 |
End If
|
170 |
Else
|
171 |
Return False
|
172 |
End If
|
173 |
|
174 |
Return True
|
175 |
End Function
|
176 |
|
177 |
|
178 |
参数在左边
|
179 |
|
180 |
<param name="obj"></param>
|
181 |
<param name="self"></param>
|
182 |
<param name="result"></param>
|
183 |
<returns></returns>
|
184 |
|
185 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
186 |
Public Function InvokeSelfRight(obj As Object, self As Object, ByRef result As Object) As Boolean
|
187 |
Return __invokeInternal(self, obj, 1, result)
|
188 |
End Function
|
189 |
|
190 |
Public Shared Function CreateOperator(methods As MethodInfo()) As BinaryOperator
|
191 |
If methods.IsNullOrEmpty Then
|
192 |
Return Nothing
|
193 |
Else
|
194 |
Return New BinaryOperator([overloads]:=methods)
|
195 |
End If
|
196 |
End Function
|
197 |
End Class
|
198 |
End Namespace
|