FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
ClearScript/ClearScript/DelegateFactory.cs at master · killvxk/ClearScript · GitHub
killvxk
/
ClearScript
Public
forked from
ClearFoundry/ClearScript
Notifications
You must be signed in to change notification settings
Fork
0
Star
0
Code
Pull requests
0
Actions
Projects
Security and quality
0
Insights
Additional navigation options
Code
Pull requests
Actions
Projects
Security and quality
Insights
Expand file tree
Breadcrumbs
ClearScript
/
ClearScript
/
DelegateFactory.cs
Copy path
More file actions
More file actions
Latest commit
History
History
History
280 lines (233 loc) · 10.6 KB
Breadcrumbs
ClearScript
/
ClearScript
/
DelegateFactory.cs
Copy path
File metadata and controls
280 lines (233 loc) · 10.6 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
1
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT license.
using
System
;
using
System
.
Collections
.
Generic
;
using
System
.
Linq
;
using
System
.
Linq
.
Expressions
;
using
Microsoft
.
ClearScript
.
Util
;
namespace
Microsoft
.
ClearScript
{
internal
static
partial
class
DelegateFactory
{
public
static
Delegate
CreateProc
(
ScriptEngine
engine
,
object
target
,
int
argCount
)
{
if
(
(
argCount
<
0
)
||
(
argCount
>
maxArgCount
)
)
{
throw
new
ArgumentException
(
"Invalid argument count"
,
"argCount"
)
;
}
var
typeArgs
=
Enumerable
.
Repeat
(
typeof
(
object
)
,
argCount
)
.
ToArray
(
)
;
return
CreateDelegate
(
engine
,
target
,
procTemplates
[
argCount
]
.
MakeSpecificType
(
typeArgs
)
)
;
}
public
static
Delegate
CreateFunc
<
TResult
>
(
ScriptEngine
engine
,
object
target
,
int
argCount
)
{
if
(
(
argCount
<
0
)
||
(
argCount
>
maxArgCount
)
)
{
throw
new
ArgumentException
(
"Invalid argument count"
,
"argCount"
)
;
}
var
typeArgs
=
Enumerable
.
Repeat
(
typeof
(
object
)
,
argCount
)
.
Concat
(
typeof
(
TResult
)
.
ToEnumerable
(
)
)
.
ToArray
(
)
;
return
CreateDelegate
(
engine
,
target
,
funcTemplates
[
argCount
]
.
MakeSpecificType
(
typeArgs
)
)
;
}
public
static
TDelegate
CreateDelegate
<
TDelegate
>
(
ScriptEngine
engine
,
object
target
)
{
return
(
TDelegate
)
(
object
)
CreateDelegate
(
engine
,
target
,
typeof
(
TDelegate
)
)
;
}
public
static
Delegate
CreateDelegate
(
ScriptEngine
engine
,
object
target
,
Type
delegateType
)
{
MiscHelpers
.
VerifyNonNullArgument
(
target
,
"target"
)
;
if
(
!
typeof
(
Delegate
)
.
IsAssignableFrom
(
delegateType
)
)
{
throw
new
ArgumentException
(
"Invalid delegate type"
)
;
}
var
method
=
delegateType
.
GetMethod
(
"Invoke"
)
;
if
(
method
==
null
)
{
throw
new
ArgumentException
(
"Invalid delegate type (invocation method not found)"
)
;
}
var
parameters
=
method
.
GetParameters
(
)
;
if
(
parameters
.
Length
>
maxArgCount
)
{
throw
new
ArgumentException
(
"Invalid delegate type (parameter count too large)"
)
;
}
var
paramTypes
=
parameters
.
Select
(
param
=>
param
.
ParameterType
)
.
ToArray
(
)
;
if
(
paramTypes
.
Any
(
paramType
=>
paramType
.
IsByRef
)
)
{
return
CreateComplexDelegate
(
engine
,
target
,
delegateType
)
;
}
return
CreateSimpleDelegate
(
engine
,
target
,
delegateType
)
;
}
private
static
Delegate
CreateSimpleDelegate
(
ScriptEngine
engine
,
object
target
,
Type
delegateType
)
{
// ReSharper disable PossibleNullReferenceException
var
method
=
delegateType
.
GetMethod
(
"Invoke"
)
;
var
paramTypes
=
method
.
GetParameters
(
)
.
Select
(
param
=>
param
.
ParameterType
)
.
ToArray
(
)
;
Type
shimType
;
if
(
method
.
ReturnType
==
typeof
(
void
)
)
{
var
typeArgs
=
paramTypes
.
Concat
(
delegateType
.
ToEnumerable
(
)
)
.
ToArray
(
)
;
shimType
=
procShimTemplates
[
paramTypes
.
Length
]
.
MakeSpecificType
(
typeArgs
)
;
}
else
{
var
typeArgs
=
paramTypes
.
Concat
(
new
[
]
{
method
.
ReturnType
,
delegateType
}
)
.
ToArray
(
)
;
shimType
=
funcShimTemplates
[
paramTypes
.
Length
]
.
MakeSpecificType
(
typeArgs
)
;
}
var
shim
=
(
DelegateShim
)
shimType
.
CreateInstance
(
engine
,
target
)
;
return
shim
.
Delegate
;
// ReSharper restore PossibleNullReferenceException
}
private
static
Delegate
CreateComplexDelegate
(
ScriptEngine
engine
,
object
target
,
Type
delegateType
)
{
// ReSharper disable CoVariantArrayConversion
// ReSharper disable PossibleNullReferenceException
var
method
=
delegateType
.
GetMethod
(
"Invoke"
)
;
var
parameters
=
method
.
GetParameters
(
)
;
var
paramTypes
=
parameters
.
Select
(
param
=>
param
.
ParameterType
)
.
ToArray
(
)
;
var
innerParamTypes
=
new
Type
[
parameters
.
Length
]
;
for
(
var
index
=
0
;
index
<
parameters
.
Length
;
index
++
)
{
var
paramType
=
paramTypes
[
index
]
;
if
(
parameters
[
index
]
.
IsOut
)
{
innerParamTypes
[
index
]
=
typeof
(
OutArg
<
>
)
.
MakeSpecificType
(
paramType
.
GetElementType
(
)
)
;
}
else
if
(
paramType
.
IsByRef
)
{
innerParamTypes
[
index
]
=
typeof
(
RefArg
<
>
)
.
MakeSpecificType
(
paramType
.
GetElementType
(
)
)
;
}
else
{
innerParamTypes
[
index
]
=
paramType
;
}
}
Type
innerDelegateType
;
if
(
method
.
ReturnType
==
typeof
(
void
)
)
{
innerDelegateType
=
procTemplates
[
innerParamTypes
.
Length
]
.
MakeSpecificType
(
innerParamTypes
)
;
}
else
{
var
typeArgs
=
innerParamTypes
.
Concat
(
method
.
ReturnType
.
ToEnumerable
(
)
)
.
ToArray
(
)
;
innerDelegateType
=
funcTemplates
[
innerParamTypes
.
Length
]
.
MakeSpecificType
(
typeArgs
)
;
}
var
paramExprs
=
paramTypes
.
Select
(
(
paramType
,
index
)
=>
Expression
.
Parameter
(
paramType
,
"a"
+
index
)
)
.
ToArray
(
)
;
var
varExprs
=
innerParamTypes
.
Select
(
(
paramType
,
index
)
=>
Expression
.
Variable
(
paramType
,
"v"
+
index
)
)
.
ToArray
(
)
;
var
topExprs
=
new
List
<
Expression
>
(
)
;
for
(
var
index
=
0
;
index
<
varExprs
.
Length
;
index
++
)
{
if
(
paramTypes
[
index
]
.
IsByRef
)
{
// ReSharper disable AssignNullToNotNullAttribute
var
constructor
=
innerParamTypes
[
index
]
.
GetConstructor
(
new
[
]
{
paramTypes
[
index
]
.
GetElementType
(
)
}
)
;
topExprs
.
Add
(
Expression
.
Assign
(
varExprs
[
index
]
,
Expression
.
New
(
constructor
,
paramExprs
[
index
]
)
)
)
;
// ReSharper restore AssignNullToNotNullAttribute
}
else
{
topExprs
.
Add
(
Expression
.
Assign
(
varExprs
[
index
]
,
paramExprs
[
index
]
)
)
;
}
}
var
innerDelegate
=
CreateSimpleDelegate
(
engine
,
target
,
innerDelegateType
)
;
var
invokeExpr
=
Expression
.
Invoke
(
Expression
.
Constant
(
innerDelegate
)
,
varExprs
)
;
var
finallyExprs
=
new
List
<
Expression
>
(
)
;
for
(
var
index
=
0
;
index
<
varExprs
.
Length
;
index
++
)
{
if
(
paramTypes
[
index
]
.
IsByRef
)
{
// ReSharper disable AssignNullToNotNullAttribute
var
member
=
innerParamTypes
[
index
]
.
GetProperty
(
"Value"
)
;
var
resultExpr
=
Expression
.
MakeMemberAccess
(
varExprs
[
index
]
,
member
)
;
finallyExprs
.
Add
(
Expression
.
Assign
(
paramExprs
[
index
]
,
resultExpr
)
)
;
// ReSharper restore AssignNullToNotNullAttribute
}
}
var
finallyBlockExpr
=
Expression
.
Block
(
finallyExprs
)
;
topExprs
.
Add
(
Expression
.
TryFinally
(
invokeExpr
,
finallyBlockExpr
)
)
;
var
topBlockExpr
=
Expression
.
Block
(
method
.
ReturnType
,
varExprs
,
topExprs
)
;
return
Expression
.
Lambda
(
delegateType
,
topBlockExpr
,
paramExprs
)
.
Compile
(
)
;
// ReSharper restore PossibleNullReferenceException
// ReSharper restore CoVariantArrayConversion
}
private
abstract
class
DelegateShim
{
public
abstract
Delegate
Delegate
{
get
;
}
protected
ScriptEngine
Engine
{
get
;
private
set
;
}
protected
DelegateShim
(
ScriptEngine
engine
)
{
Engine
=
engine
;
}
protected
static
bool
GetAllByValue
(
params
Type
[
]
types
)
{
return
!
types
.
Any
(
type
=>
typeof
(
IByRefArg
)
.
IsAssignableFrom
(
type
)
)
;
}
protected
static
object
GetArgValue
(
object
arg
)
{
var
byRefArg
=
arg
as
IByRefArg
;
return
(
byRefArg
!=
null
)
?
byRefArg
.
Value
:
arg
;
}
protected
static
void
SetArgValue
(
object
arg
,
object
value
)
{
var
byRefArg
=
arg
as
IByRefArg
;
if
(
byRefArg
!=
null
)
{
byRefArg
.
Value
=
value
;
}
}
protected
static
object
GetCompatibleTarget
(
Type
delegateType
,
object
target
)
{
var
del
=
target
as
Delegate
;
if
(
(
del
!=
null
)
&&
(
del
.
GetType
(
)
!=
delegateType
)
)
{
// The target is a delegate of a different type from the one we are creating.
// Normally we expect the target to be a script function (COM object), but
// since we'll be invoking it dynamically, there's no need to restrict it.
// However, if the target is a delegate of a type that's inaccessible to this
// assembly, dynamic invocation fails. Strangely, delegate type accessibility
// doesn't seem to affect delegate creation, so we can work around this by
// creating a compatible delegate based on the properties of the target.
return
Delegate
.
CreateDelegate
(
delegateType
,
del
.
Target
,
del
.
Method
)
;
}
return
target
;
}
}
private
abstract
class
ProcShim
:
DelegateShim
{
private
readonly
Action
<
Action
>
invoker
;
protected
ProcShim
(
ScriptEngine
engine
)
:
base
(
engine
)
{
if
(
engine
==
null
)
{
invoker
=
action
=>
action
(
)
;
}
else
{
invoker
=
engine
.
SyncInvoke
;
}
}
protected
void
Invoke
(
Action
action
)
{
invoker
(
action
)
;
}
}
private
abstract
class
FuncShim
<
TResult
>
:
DelegateShim
{
private
readonly
Func
<
Func
<
TResult
>
,
TResult
>
invoker
;
protected
FuncShim
(
ScriptEngine
engine
)
:
base
(
engine
)
{
if
(
engine
==
null
)
{
invoker
=
func
=>
func
(
)
;
}
else
{
invoker
=
engine
.
SyncInvoke
;
}
}
protected
TResult
Invoke
(
Func
<
TResult
>
func
)
{
return
invoker
(
func
)
;
}
}
}
}
Back
|
FazBrowse Home
|
New Git URL