2

我想让解析器对 let-in-expression 语言感到高兴。例如，我想解析以下字符串：

let x = 4 in x*x

在大学里我们学习属性语法，我想用这个技巧直接计算解析后的 let-in-expression 的值。所以在快乐文件中，我将解析函数的数据类型设置为 Int，并创建了一个名为env的新属性。该属性是一个从 String 到 Int 的函数，它将变量名与值相关联。参考我的例子：

env "x" = 4

现在我把快乐文件放在这里，那里有我的语法：

{
module Parser where

import Token
import Lexer
}

%tokentype { Token }

%token 
      let             { TLet }
      in              { TIn }
      int             { TInt $$ }
      var             { TVar $$ }
      '='             { TEq }
      '+'             { TPlus }
      '-'             { TMinus }
      '*'             { TMul }
      '/'             { TDiv }
      '('             { TOB }
      ')'             { TCB }

%name parse

%attributetype { Int }

%attribute env { String -> Int }

%error { parseError }

%%

Exp   : let var '=' Exp in Exp
            {
                $4.env = $$.env;
                $2.env = (\_ -> 0);
                $6.env = (\str -> if str == $2 then $4 else 0);
                $$ = $6;
            }
      | Exp1                    
            {
                $1.env = $$.env;
                $$ = $1;
            }

Exp1  : Exp1 '+' Term
            {
                $1.env = $$.env;
                $2.env = $$.env;
                $$ = $1 + $3;
            }
      | Exp1 '-' Term
            {
                $1.env = $$.env;
                $2.env = $$.env;
                $$ = $1 - $3;
            }
      | Term 
            {
                $1.env = $$.env;
                $$ = $1;
            }

Term  : Term '*' Factor
            {
                $1.env = $$.env;
                $2.env = $$.env;
                $$ = $1 * $3;
            }
      | Term '/' Factor
            {
                $1.env = $$.env;
                $2.env = $$.env;
                $$ = div $1 $3;
            }
      | Factor
            {
                $1.env = $$.env;
                $$ = $1;
            }

Factor            
      : int
            {
                $$ = $1;
            }
      | var
            {
                $$ = $$.env $1;
            }
      | '(' Exp ')'
            {
                $1.env = $$.env;
                $$ = $1;
            }

{
parseError :: [Token] -> a
parseError _ = error "Parse error"

}

当我加载从上面的快乐文件生成的 haskell 文件时，我收到以下错误：

    Ambiguous occurrence `Int'
It could refer to either `Parser.Int', defined at parser.hs:271:6
                      or `Prelude.Int',
                         imported from `Prelude' at parser.hs:2:8-13
                         (and originally defined in `GHC.Types')

我不知道为什么会得到这个，因为我没有在我的快乐文件中定义类型 Parser.Int 。我试图用 Prelude.Int 替换 Int，但我得到了其他错误。

我该如何解决？如果我正在做一些不是最佳的事情，我还能获得一些一般性提示吗？

4

1 回答 1

0

请参阅属性类型的快乐解释：http ://www.haskell.org/happy/doc/html/sec-AtrributeGrammarsInHappy.html

您的线路：

%attributetype { Int }

正在声明一个名为Int. 这就是造成歧义的原因。

于 2013-12-07T17:18:21.143 回答