正则表达式 – 正则表达式与Haskell中的词法分析器

例如,Alex中的正则表达式匹配浮点数：

$space       = [ txa0]
$digit       = 0-9
$octit       = 0-7
$hexit       = [$digit A-F a-f]

@sign        = [-+]
@decimal     = $digit+
@octal       = $octit+
@hexadecimal = $hexit+
@exponent    = [eE] [-+]? @decimal

@number      = @decimal
             | @decimal . @decimal @exponent?
             | @decimal @exponent
             | 0[oO] @octal
             | 0[xX] @hexadecimal

lex :-

   @sign? @number { strtod }

当我们匹配浮点数时,我们调度到解析函数来操作捕获的字符串,然后我们可以将其作为解析函数包装并向用户公开：

readDouble :: ByteString -> Maybe (Double,ByteString)
readDouble str = case alexScan (AlexInput 'n' str) 0 of
    AlexEOF            -> Nothing
    AlexError _        -> Nothing
    AlexToken (AlexInput _ rest) n _ ->
       case strtod (B.unsafeTake n str) of d -> d `seq` Just $! (d,rest)

使用Alex进行此正则表达式匹配的一个很好的结果是性能良好,因为正则表达式引擎是静态编译的.它也可以作为使用cabal构建的常规Haskell库公开.有关完整实施,请参阅bytestring-lexing.

关于何时使用词法分析器而不是正则表达式匹配器的一般建议是,如果你有一个你想要匹配的词汇的语法,就像我为浮点所做的那样,使用Alex.如果不这样做,并且结构更加临时,请使用正则表达式引擎.