什么是使用异步的C＃代码的F＃等价物？

Question

我正在努力编写一个F＃代码，它将按顺序等待一些异步方法调用。我熟悉F＃异步工作流程，但无法弄清楚如何映射到一个简单的案例。

让我们以一个异步XmlReader为例。下面是C＃代码的外观：

using (XmlReader r = XmlReader.Create(new StringReader(input), new XmlReaderSettings() { Async = true })) 
{ 
    while (await r.ReadAsync()) 
    { 
     switch (r.NodeType) 
     { 
      case XmlNodeType.Element: 
       Console.WriteLine(r.LocalName); 
       break; 

      case XmlNodeType.Text: 
       Console.WriteLine(await r.GetValueAsync()); 
       break; 
     } 
    } 
} 

如果这个代码没有使用异步调用，我们可以只使用递归和模式匹配重写它在F＃。但是它使用ReadAsync和GetValueAsync，它们如何用F＃对应表达？

Answer 1

这是完全没有经过测试的，但我认为这一点很重要。其实质是，你需要使用Async.AwaitTask将Task转换为Async，然后其余部分非常明显。

let doRecursiveAsyncThing input = async { 
    use r = XmlReader.Create(new StringReader(input), new XmlReaderSettings(Async = true)) 
    let loop x = async { 
     let! noteType = r.ReadAsync() |> Async.AwaitTask 
     match noteType with 
     | XmlNodeType.Element -> Console.WriteLine r.LocalName 
           do! loop x 
     | XmlNodeType.Text -> let! value = r.GetValueAsync() |> Async.AwaitTask 
           Console.WriteLine value 
           do! loop x 
     | _     ->() } 

    } 
    do! loop r