1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
-- re2hs $INPUT -o $OUTPUT -is --api custom
{-# LANGUAGE OverloadedStrings #-}
import Data.ByteString as BS
/*!re2c
re2c:define:YYFN = ["lexer;Bool", "_str;BS.ByteString", "_cur;Int"];
re2c:define:YYCTYPE = "Word8";
re2c:define:YYPEEK = "BS.index _str _cur";
re2c:define:YYSKIP = "let _cur' = _cur + 1 in let _cur = _cur' in";
re2c:yyfill:enable = 0;
number = [1-9][0-9]*;
number { True }
* { False }
*/
main :: IO ()
main = case lexer "1234\0" 0 of
True -> return ()
False -> error "lexer failed!"
|
