使用FPARSEC，当解析器失败时是否可以操纵误差位置？

Question

作为示例，我将采用 Phillip Trelford 的简单的 C# 解析器。为了解析标识符，他这样写（稍作修改）：

let reserved = ["for";"do"; "while";"if";"switch";"case";"default";"break" (*;...*)]
let pidentifierraw =
    let isIdentifierFirstChar c = isLetter c || c = '_'
    let isIdentifierChar c = isLetter c || isDigit c || c = '_'
    many1Satisfy2L isIdentifierFirstChar isIdentifierChar "identifier"
let pidentifier =
    pidentifierraw
    >>= fun s ->
        if reserved |> List.exists ((=) s) then fail "keyword instead of identifier"
        else preturn s

pidentifier 的问题是，当它失败时，位置指示器位于流的末尾。我的一个例子：

Error in Ln: 156 Col: 41 (UTF16-Col: 34)
        Block "main" 116x60 font=default fg=textForeground
                                        ^
Note: The column count assumes a tab stop distance of 8 chars.
keyword instead of identifier

显然，不是 C# 代码片段，但为了示例起见，我使用 pidentifier 来解析 font= 之后的文本。是否可以告诉 FParsec 在解析输入的开头显示错误？使用 >>?、.>>.? 或任何回溯变体似乎没有效果。

Answer 1

我认为你想要的是 attempt p< /a>，如果解析器p失败，它将回溯到原始解析器状态。因此，您可以将 pidentifier 定义为：

let pidentifier =
    pidentifierraw
    >>= fun s ->
        if reserved |> List.exists ((=) s) then fail "keyword instead of identifier"
        else preturn s
    |> attempt   // rollback on failure

输出类似于：

Failure:
Error in Ln: 1 Col: 1
default
^

The parser backtracked after:
  Error in Ln: 1 Col: 8
  default
         ^
  Note: The error occurred at the end of the input stream.
  keyword instead of identifier

---

Update

如果您不想在错误消息中看到回溯信息，您可以使用 attempt< 的简化版本/code>，像这样：

let attempt (parser : Parser<_, _>) : Parser<_, _> =
    fun stream ->
        let mutable state = CharStreamState(stream)
        let reply = parser stream
        if reply.Status <> Ok then
            stream.BacktrackTo(&state)
        reply

输出现在只是：

Failure:
Error in Ln: 1 Col: 1
default
^
keyword instead of identifier

Answer 2

不幸的是，我错过了＆gt;＆gt; =？ 操作员显然（至少在语义上）等于尝试 Brian Berns正确建议。

这两种方法的问题是随后的消息在以下方式回溯：[…]，如果前面的解析器也在回溯：

Error in Ln: 156 Col: 29 (UTF16-Col: 22)
        Block "main" 116x60 font=default fg=textForeground
                            ^
Note: The column count assumes a tab stop distance of 8 chars.
Expecting: space/tab

The parser backtracked after:
  Error in Ln: 156 Col: 42 (UTF16-Col: 35)
          Block "main" 116x60 font=default fg=textForeground
                                           ^
  Note: The column count assumes a tab stop distance of 8 chars.
  Expecting: space/tab
  Other error messages:
    keyword instead of identifier