Как правильно реализовать вызов функции по названию через рефлексию (с

Question

Как правильно реализовать вызов функции по названию через рефлексию (с

передачей массива параметров в эту функцию)?

Вроде бы это то, что нужно
type InvokeResult =
| Success of obj
| ObjectWasNotAFunction of Type

let dynamicFunction (fn: obj) (args: obj seq) =
let rec dynamicFunctionInternal (next: obj) (args: obj list): InvokeResult =
match args.IsEmpty with
| false ->
let fType = next.GetType()
if FSharpType.IsFunction fType then
let (head, tail) = (args.Head, args.Tail)

let methodInfo =
fType.GetMethods()
|> Seq.filter (fun x -> x.Name = "Invoke" && x.GetParameters().Length = 1)
|> Seq.head

let partialResult = methodInfo.Invoke(next, [| head |])
dynamicFunctionInternal partialResult tail
else
ObjectWasNotAFunction fType
| true ->
Success(next)
dynamicFunctionInternal fn (args |> List.ofSeq)
однако не получается нормально передать параметры

#fsharp #programming #russian

0

02.10.2020

1 ответов

8 просмотров

IdiocyAcceptance · Accepted Answer

IdiocyAcceptance

А в чём конкретно ошибка/неожиданное поведение?

0

02.10.2020

169 похожих чатов

Как правильно реализовать вызов функции по названию через рефлексию (с

1 ответов

Похожие вопросы