0

我正在尝试使用 Alex 和 Happy 制作解析器。我正在按照这篇文章的说明进行操作，但遇到了麻烦。我正在尝试追查以下类型错误的来源：

templates/wrappers.hs:234:9:
    Couldn't match type ‘Token’ with ‘Int -> Alex Token’
    Expected type: AlexInput -> Int -> Alex Token
      Actual type: String -> Token
    In a stmt of a 'do' block: action (ignorePendingBytes inp) len
    In the expression:
      do { alexSetInput inp';
           action (ignorePendingBytes inp) len }
    In a case alternative:
        AlexToken inp' len action
          -> do { alexSetInput inp';
                  action (ignorePendingBytes inp) len }

我的词法分析器位于 src/AnsiParser/FrontEnd/Lex.x 中。所以我查看了 dist/build/AnsiParser/FrontEnd/Lex.hs，我能找到的只有：

{-# LINE 1 "templates/wrappers.hs" #-}
{-# LINE 1 "templates/wrappers.hs" #-}

但是我在我的系统上找不到任何名为“wrapper.hs”的文件。如何追踪此错误的原因？

如果它有用，这是我的 Parse.y 的简化版本：

{
module AnsiParser.FrontEnd.Parse where
import AnsiParser.FrontEnd.Lex
}

%name parseTokens
%tokentype { Token }
%lexer { lexWrap } { alexEOF }
%monad { Alex }
%error { parseError }

%token
  -- tokens

%%
-- rules

{
parseError :: Token -> Alex a
parseError tokens = error ("Error!" ++ show tokens)
}

和 Lex.x：

{
module AnsiParser.FrontEnd.Lex where
}

%wrapper "monad"

tokens :-
  -- tokens

{
data Token
  = -- token types
  | TokenEOF
  deriving (Show)

scanTokens = alexMonadScan

lexWrap :: (Token -> Alex a) -> Alex a
lexWrap = (alexMonadScan >>=)

alexEOF :: Alex Token
alexEOF = return TokenEOF
}
4

1 回答 1

1

template/wrappers.hs你可以在 alex repo中找到源代码：

https://github.com/simonmar/alex/tree/master/templates

在您提供的上运行 alexLex.x给了我这个错误：

alex: (Array.!): undefined array element

如果你给我一个工作示例，我可以追踪你的问题。

于 2015-08-02T17:56:38.220 回答