c# - 从 F# 调用 C# 函数

Question

我试图从 f# 调用这个函数

http://msdn.microsoft.com/en-us/library/microsoft.windowsazure.cloudstorageaccount.setconfigurationsettingpublisher.aspx

函数签名是:

CloudStorageAccount.SetConfigurationSettingPublisher
      (Action<string, Func<string, bool>>) : unit

C# 调用是这样的:

CloudStorageAccount.SetConfigurationSettingPublisher((configName,
                                                  configSettingPublisher) =>
{
    string configValue = "something"
    configSettingPublisher(configValue);
});

而在 F# 中，我必须这样做:

let myPublisher configName (setter:Func<string, bool>) =
    let configValue = RoleEnvironment.GetConfigurationSettingValue(configName)
    setter.Invoke(configName) |> ignore

let act = new Action<string, Func<string, bool>>(myPublisher)

CloudStorageAccount.SetConfigurationSettingPublisher(act)

这可以用 f# 写得更简洁吗？

Answer 1

F# 自动转换使用 fun ... -> ... 创建的 lambda 函数.NET 委托(delegate)类型的语法，例如 Action .这意味着您可以使用 lambda 函数作为 SetConfigurationSettingPublisher 的参数直接这样:

CloudStorageAccount.SetConfigurationSettingPublisher(fun configName setter ->
    let configValue = RoleEnvironment.GetConfigurationSettingValue(configName)
    setter.Invoke(configName) |> ignore)

可以将多参数函数转换为多参数委托(delegate)(不应将参数视为元组)。 setter 的类型还是Func<...>而不是简单的 F# 函数，因此您需要使用 Invoke 调用它方法(但这应该不是什么大问题)。

如果要转setter来自 Func<string, bool>到 F# 函数 string -> bool ，您可以定义一个简单的事件模式:

let (|Func2|) (f:Func<_, _>) a = f.Invoke(a)

...然后你可以写:

TestLib.A.SetConfigurationSettingPublisher(fun configName (Func2 setter) ->
    let configValue = "aa"
    setter(configName) |> ignore)