Question

我正在为这种形式的字符串编写一个FParsec解析器：

do[ n times]([ action] | \n([action]\n)*endDo)

换句话说，这是一个带有可选时间量词的“do”语句，以及单个“action”语句或“action”列表（每个在新行上），其中包含“end do”结束（为简单起见，我省略了缩进/尾随空格处理）。

以下是有效输入的示例：

do action

do 3 times action

do
endDo

do 3 times
endDo

do
action
action
endDo

do 3 times
action
action
endDo

这看起来并不复杂，但是：

为什么这不起作用？

let statement = pstring "action"
let beginDo = pstring "do"
                >>. opt (spaces1 >>. pint32 .>> spaces1 .>> pstring "times")
let inlineDo = tuple2 beginDo (spaces >>. statement |>> fun w -> [w])
let expandedDo = (tuple2 (beginDo .>> newline)
                    (many (statement .>> newline)))
                 .>> pstring "endDo"
let doExpression = (expandedDo <|> inlineDo)

此表达式的正确解析器是什么？

Answer 1

您需要使用attempt功能。我刚刚修改了您的beginDo和doExpression函数。

这是代码：

let statement  o=o|>  pstring "action"

let beginDo o= 
    attempt (pstring "do"
        >>. opt (spaces1 >>. pint32 .>> spaces1 .>> pstring "times")) <|> 
        (pstring "do" >>% None)                                       <|o

let inlineDo   o= tuple2 beginDo (spaces >>. statement |>> fun w -> [w]) <|o
let expandedDo o= (tuple2 (beginDo .>> newline) (many (statement .>> newline)))
                 .>> pstring "endDo" <|o

let doExpression o= ((attempt expandedDo) <|> inlineDo) .>> eof <|o

我最后添加了eof。这样就可以更容易地进行测试。

我还添加了虚拟o参数以避免值限制。

使用FParsec解析可选的多行表达式

1 个答案: