2

如何制定正确的规则来解析 if-then[-else] 案例？这是一些语法：

{
 module TestGram (tparse) where
}

%tokentype    { String  }
%token one    { "1"     } 
       if     { "if"    }
       then   { "then"  }
       else   { "else"  }

%name tparse  

%%

statement : if one then statement else statement {"if 1 then ("++$4++") else ("++$6++")"}
          | if one then statement                {"if 1 then ("++$4++")"}
          | one                                  {"1"}


{
 happyError = error "parse error"
}

此语法正确解析以下表达式：

> tparse ["if","1","then","if","1","then","1","else","1"]
"if 1 then (if 1 then (1) else (1))"

但是编译会引发有关移位/减少冲突的警告。快乐的文档包含此类冲突的示例： http ://www.haskell.org/happy/doc/html/sec-conflict-tips.html

显示了两种解决方案，第一种是更改递归类型（在这种情况下不清楚如何做）。第二个是不改变任何东西。这个选项对我来说没问题，但我需要咨询。

4

1 回答 1

5

请注意，可以使用 LALR(1) 中的语法解决此问题，而不会发生 S/R 冲突：

stmt: open
    | closed

open: if one then stmt             {"if 1 then ("++$4++")"}
    | if one then closed else open {"if 1 then ("++$4++") else ("++$6++")"}

closed: one                            {"1"}
      | if one then closed else closed {"if 1 then ("++$4++") else ("++$6++")"}

这个想法来自这个关于解决悬空 else/if-else ambiguity 的页面。

基本概念是我们将语句分类为“开放”或“封闭”：开放语句是那些至少有一个if不与后面的else配对的语句；关闭的是那些根本没有if或确实有它们的那些，但它们都与else配对。

解析if one then if one then one else one因此解析：

  • . if—班次
  • if . one—班次
  • if one . then—班次
  • if one then . if—班次
  • if one then if . one—班次
  • if one then if one . then—班次
  • if one then if one then . one—班次
  • if one then if one then (one) . else—按规则 1减少closed
  • if one then if one then closed . else—班次
  • if one then if one then closed else . one—班次
  • if one then if one then closed else (one) .—按规则 1减少closed
  • if one then (if one then closed else closed) .—按规则 2减少closed
  • if one then (closed) .—按规则 2减少stmt
  • (if one then stmt) .—按规则 1减少open
  • (open) .—按规则 1减少stmt
  • stmt .- 停止

（当减少发生时，我已经说明了发生了哪个减少规则，并在被减少的标记周围加上了括号。）

我们可以看到解析器在 LALR(1) 中没有歧义（或者更确切地说，Happy orbison会告诉我们;-)），并且遵循规则会产生正确的解释，内部if与else一起被归约。

于 2012-05-26T11:59:18.210 回答