haskell-lexer-1.0/0000775000175000017500000000000011070313660014233 5ustar diatchkidiatchkihaskell-lexer-1.0/Language/0000775000175000017500000000000011070313660015756 5ustar diatchkidiatchkihaskell-lexer-1.0/Language/Haskell/0000775000175000017500000000000011070313660017341 5ustar diatchkidiatchkihaskell-lexer-1.0/Language/Haskell/Lexer.hs0000664000175000017500000000370711070313660020763 0ustar diatchkidiatchkimodule Language.Haskell.Lexer ( PosToken , Token(..) , lexerPass0 , lexerPass0' , lexerPass1 , rmSpace , layoutPre , module Language.Haskell.Lexer.Position ) where import Language.Haskell.Lexer.Lex(haskellLex) import Language.Haskell.Lexer.Utils import Language.Haskell.Lexer.Layout(layoutPre,PosToken) import Language.Haskell.Lexer.Position import Data.List(mapAccumL) default(Int) -- | The function 'lexerPass1' handles the part of lexical analysis that -- can be done independently of the parser---the tokenization and the -- addition of the extra layout tokens \ and {n}, as specified in -- section 9.3 of the revised Haskell 98 Report. lexerPass1 :: String -> [PosToken] lexerPass1 = lexerPass1Only . lexerPass0 lexerPass1Only :: [PosToken] -> [PosToken] lexerPass1Only = layoutPre . rmSpace -- | Remove token that are not meaningful (e.g., white space and comments). rmSpace :: [PosToken] -> [PosToken] rmSpace = filter (notWhite.fst) notWhite :: Token -> Bool notWhite t = t/=Whitespace && t/=Commentstart && t/=Comment && t/=NestedComment -- | Tokenize and add position information. Preserves white space, -- and does not insert extra tokens due to layout. lexerPass0 :: String -> [PosToken] lexerPass0 = lexerPass0' startPos -- | Same as 'lexerPass0', except that it uses the given start position. lexerPass0' :: Pos -> String -> [PosToken] lexerPass0' pos0 = addPos . haskellLex . rmcr where addPos = snd . mapAccumL pos pos0 pos p (t,s) = {-seq p'-} (p',(t,(p,s))) where p' = nextPos p s -- where s = reverse r -- | Since #nextPos# examines one character at a time, it will increase the line -- number by 2 if it sees \CR\LF, which can happen when reading DOS files on -- a Unix like system. -- Since the extra \CR characters can cause trouble later as well, we choose -- to simply remove them here. rmcr :: String -> String rmcr ('\CR':'\LF':s) = '\LF':rmcr s rmcr (c:s) = c:rmcr s rmcr "" = "" haskell-lexer-1.0/Language/Haskell/Lexer/0000775000175000017500000000000011070313660020420 5ustar diatchkidiatchkihaskell-lexer-1.0/Language/Haskell/Lexer/Tokens.hs0000664000175000017500000000254311070313660022223 0ustar diatchkidiatchkimodule Language.Haskell.Lexer.Tokens where -- | Haskell token classifications: data Token = Varid -- ^ Variable | Conid -- ^ Constructor | Varsym -- ^ Variable operator | Consym -- ^ Constructor operator | Reservedid -- ^ Reserved keyword | Reservedop -- ^ Reserved operator | Specialid | IntLit -- ^ Integral numeric literal | FloatLit -- ^ Fractional numeric literal | CharLit -- ^ Character literal | StringLit -- ^ String literal | Qvarid -- ^ Qualified variable | Qconid -- ^ Qualified constructor | Qvarsym -- ^ Qualified variable operator | Qconsym -- ^ Qualified constructor operator | Special | Whitespace -- ^ White space | NestedCommentStart -- ^ Internal: causes a call to an external function | NestedComment -- ^ A nested comment ({- ... -}) | LiterateComment -- ^ Not handled by the lexer | Commentstart -- ^ Dashes | Comment -- ^ The stuff after the dashes | ErrorToken | GotEOF | TheRest | ModuleName | ModuleAlias -- ^ recognized in a later pass -- Inserted during layout processing (see Haskell 98, 9.3): | Layout -- ^ for implicit braces | Indent Int -- ^ \, to preceed first token on each line | Open Int -- ^ \{n\}, after let, where, do or of, if not followed by a \"{\" deriving (Show,Eq,Ord) haskell-lexer-1.0/Language/Haskell/Lexer/Lex.hs0000664000175000017500000037463511070313660021526 0ustar diatchkidiatchki{-# OPTIONS_GHC -w #-} -- too many warnings -- Automatically generated code for a DFA follows: --Equal states: [[[2,3],[8,9],[5,31],[10,11],[36,37],[39,40]]] module Language.Haskell.Lexer.Lex (haskellLex) where import Data.Char import Language.Haskell.Lexer.Utils type Output = [(Token,String)] type Input = String type Acc = Input -- reversed type Lexer = Input -> Output type LexerState = (Acc->Lexer) -> Acc -> Lexer haskellLex :: Lexer haskellLex is = start1 is cclass :: Char -> Int cclass c = case c of '\t' -> 1 '\n' -> 2 '\v' -> 3 '\f' -> 4 '\r' -> 5 ' ' -> 6 '\160' -> 6 '!' -> 7 '#' -> 7 '$' -> 7 '%' -> 7 '*' -> 7 '/' -> 7 '?' -> 7 '\161' -> 7 '\162' -> 7 '\163' -> 7 '\164' -> 7 '\165' -> 7 '\166' -> 7 '\167' -> 7 '\168' -> 7 '\169' -> 7 '\172' -> 7 '\173' -> 7 '\174' -> 7 '\175' -> 7 '\176' -> 7 '\177' -> 7 '\180' -> 7 '\182' -> 7 '\183' -> 7 '\184' -> 7 '\191' -> 7 '\215' -> 7 '\247' -> 7 '"' -> 8 '&' -> 9 '\'' -> 10 '(' -> 11 ')' -> 11 ',' -> 11 ';' -> 11 '`' -> 11 '}' -> 11 '+' -> 12 '-' -> 13 '.' -> 14 '0' -> 15 '1' -> 16 '2' -> 16 '3' -> 16 '4' -> 16 '5' -> 17 '6' -> 17 '7' -> 17 '8' -> 18 '9' -> 18 ':' -> 19 '<' -> 20 '=' -> 21 '>' -> 22 '@' -> 23 'A' -> 24 'B' -> 25 'C' -> 26 'D' -> 27 'E' -> 28 'F' -> 29 'G' -> 30 'H' -> 31 'I' -> 32 'P' -> 32 'J' -> 33 'W' -> 33 'Z' -> 33 'K' -> 34 'L' -> 35 'M' -> 36 'N' -> 37 'O' -> 38 'Q' -> 39 'R' -> 40 'S' -> 41 'T' -> 42 'U' -> 43 'V' -> 44 'X' -> 45 'Y' -> 46 '[' -> 47 ']' -> 47 '\\' -> 48 '^' -> 49 '_' -> 50 'a' -> 51 'b' -> 52 'c' -> 53 'd' -> 54 'e' -> 55 'f' -> 56 'g' -> 57 'h' -> 58 'i' -> 59 'j' -> 60 'k' -> 60 'q' -> 60 'z' -> 60 '\223' -> 60 '\224' -> 60 '\225' -> 60 '\226' -> 60 '\227' -> 60 '\228' -> 60 '\229' -> 60 '\230' -> 60 '\231' -> 60 '\232' -> 60 '\233' -> 60 '\234' -> 60 '\235' -> 60 '\236' -> 60 '\237' -> 60 '\238' -> 60 '\239' -> 60 '\240' -> 60 '\241' -> 60 '\242' -> 60 '\243' -> 60 '\244' -> 60 '\245' -> 60 '\246' -> 60 '\248' -> 60 '\249' -> 60 '\250' -> 60 '\251' -> 60 '\252' -> 60 '\253' -> 60 '\254' -> 60 '\255' -> 60 'l' -> 61 'm' -> 62 'n' -> 63 'o' -> 64 'p' -> 65 'r' -> 66 's' -> 67 't' -> 68 'u' -> 69 'v' -> 70 'w' -> 71 'x' -> 72 'y' -> 73 '{' -> 74 '|' -> 75 '~' -> 75 '\170' -> 76 '\171' -> 76 '\178' -> 76 '\179' -> 76 '\181' -> 76 '\185' -> 76 '\186' -> 76 '\187' -> 76 '\188' -> 76 '\189' -> 76 '\190' -> 76 '\192' -> 77 '\193' -> 77 '\194' -> 77 '\195' -> 77 '\196' -> 77 '\197' -> 77 '\198' -> 77 '\199' -> 77 '\200' -> 77 '\201' -> 77 '\202' -> 77 '\203' -> 77 '\204' -> 77 '\205' -> 77 '\206' -> 77 '\207' -> 77 '\208' -> 77 '\209' -> 77 '\210' -> 77 '\211' -> 77 '\212' -> 77 '\213' -> 77 '\214' -> 77 '\216' -> 77 '\217' -> 77 '\218' -> 77 '\219' -> 77 '\220' -> 77 '\221' -> 77 '\222' -> 77 c | isAscii c -> 0 | isSpace c -> 3 | isSymbol c -> 7 | isDigit c -> 18 | isLower c -> 60 | isUpper c -> 77 | otherwise -> 0 start1 :: Lexer start1 is = state1 (\ as is -> gotError as is) "" is state1 :: LexerState state1 err as [] = gotEOF as state1 err as iis@(i:is) = case cclass i of 51 -> state162 err (i:as) is 52 -> state162 err (i:as) is 56 -> state162 err (i:as) is 57 -> state162 err (i:as) is 58 -> state162 err (i:as) is 60 -> state162 err (i:as) is 65 -> state162 err (i:as) is 66 -> state162 err (i:as) is 67 -> state162 err (i:as) is 69 -> state162 err (i:as) is 70 -> state162 err (i:as) is 72 -> state162 err (i:as) is 73 -> state162 err (i:as) is 1 -> state2 err (i:as) is 2 -> state2 err (i:as) is 3 -> state2 err (i:as) is 4 -> state2 err (i:as) is 5 -> state2 err (i:as) is 6 -> state2 err (i:as) is 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 22 -> state4 err (i:as) is 49 -> state4 err (i:as) is 23 -> state79 err (i:as) is 48 -> state79 err (i:as) is 75 -> state79 err (i:as) is 16 -> state87 err (i:as) is 17 -> state87 err (i:as) is 18 -> state87 err (i:as) is 0 -> err as iis 76 -> err as iis 11 -> state73 err (i:as) is 47 -> state73 err (i:as) is 8 -> state5 err (i:as) is 10 -> state41 err (i:as) is 13 -> state74 err (i:as) is 14 -> state80 err (i:as) is 15 -> state81 err (i:as) is 19 -> state92 err (i:as) is 20 -> state95 err (i:as) is 21 -> state96 err (i:as) is 50 -> state161 err (i:as) is 53 -> state163 err (i:as) is 54 -> state169 err (i:as) is 55 -> state182 err (i:as) is 59 -> state183 err (i:as) is 61 -> state195 err (i:as) is 62 -> state196 err (i:as) is 63 -> state200 err (i:as) is 64 -> state205 err (i:as) is 68 -> state206 err (i:as) is 71 -> state209 err (i:as) is 74 -> state212 err (i:as) is _ -> state97 err (i:as) is state2 :: LexerState state2 err as [] = err as [] where err _ _ = output Whitespace as (start1 []) state2 err as iis@(i:is) = case cclass i of 1 -> state2 err (i:as) is 2 -> state2 err (i:as) is 3 -> state2 err (i:as) is 4 -> state2 err (i:as) is 5 -> state2 err (i:as) is 6 -> state2 err (i:as) is _ -> err as iis where err _ _ = output Whitespace as (start1 iis) state4 :: LexerState state4 err as [] = err as [] where err _ _ = output Varsym as (start1 []) state4 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 13 -> state4 err (i:as) is 14 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 22 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is _ -> err as iis where err _ _ = output Varsym as (start1 iis) start5 :: Lexer start5 is = state5 (\ as is -> gotError as is) "" is state5 :: LexerState state5 err as [] = err as [] state5 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 8 -> state6 err (i:as) is 48 -> state7 err (i:as) is _ -> state5 err (i:as) is state6 :: LexerState state6 err as is = output StringLit as (start1 is) start7 :: Lexer start7 is = state7 (\ as is -> gotError as is) "" is state7 :: LexerState state7 err as [] = err as [] state7 err as iis@(i:is) = case cclass i of 8 -> state5 err (i:as) is 9 -> state5 err (i:as) is 10 -> state5 err (i:as) is 48 -> state5 err (i:as) is 51 -> state5 err (i:as) is 52 -> state5 err (i:as) is 56 -> state5 err (i:as) is 63 -> state5 err (i:as) is 66 -> state5 err (i:as) is 68 -> state5 err (i:as) is 70 -> state5 err (i:as) is 1 -> state8 err (i:as) is 2 -> state8 err (i:as) is 3 -> state8 err (i:as) is 4 -> state8 err (i:as) is 5 -> state8 err (i:as) is 6 -> state8 err (i:as) is 15 -> state10 err (i:as) is 16 -> state10 err (i:as) is 17 -> state10 err (i:as) is 18 -> state10 err (i:as) is 30 -> state27 err (i:as) is 40 -> state27 err (i:as) is 43 -> state27 err (i:as) is 31 -> state23 err (i:as) is 44 -> state23 err (i:as) is 24 -> state12 err (i:as) is 25 -> state14 err (i:as) is 26 -> state16 err (i:as) is 27 -> state18 err (i:as) is 28 -> state21 err (i:as) is 29 -> state26 err (i:as) is 35 -> state28 err (i:as) is 37 -> state29 err (i:as) is 41 -> state30 err (i:as) is 49 -> state34 err (i:as) is 64 -> state35 err (i:as) is 72 -> state38 err (i:as) is _ -> err as iis start8 :: Lexer start8 is = state8 (\ as is -> gotError as is) "" is state8 :: LexerState state8 err as [] = err as [] state8 err as iis@(i:is) = case cclass i of 1 -> state8 err (i:as) is 2 -> state8 err (i:as) is 3 -> state8 err (i:as) is 4 -> state8 err (i:as) is 5 -> state8 err (i:as) is 6 -> state8 err (i:as) is 48 -> state5 err (i:as) is _ -> err as iis start10 :: Lexer start10 is = state10 (\ as is -> gotError as is) "" is state10 :: LexerState state10 err as [] = err as [] state10 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 15 -> state10 err (i:as) is 16 -> state10 err (i:as) is 17 -> state10 err (i:as) is 18 -> state10 err (i:as) is 8 -> state6 err (i:as) is 48 -> state7 err (i:as) is _ -> state5 err (i:as) is start12 :: Lexer start12 is = state12 (\ as is -> gotError as is) "" is state12 :: LexerState state12 err as [] = err as [] state12 err as iis@(i:is) = case cclass i of 26 -> state13 err (i:as) is _ -> err as iis start13 :: Lexer start13 is = state13 (\ as is -> gotError as is) "" is state13 :: LexerState state13 err as [] = err as [] state13 err as iis@(i:is) = case cclass i of 34 -> state5 err (i:as) is _ -> err as iis start14 :: Lexer start14 is = state14 (\ as is -> gotError as is) "" is state14 :: LexerState state14 err as [] = err as [] state14 err as iis@(i:is) = case cclass i of 41 -> state5 err (i:as) is 28 -> state15 err (i:as) is _ -> err as iis start15 :: Lexer start15 is = state15 (\ as is -> gotError as is) "" is state15 :: LexerState state15 err as [] = err as [] state15 err as iis@(i:is) = case cclass i of 35 -> state5 err (i:as) is _ -> err as iis start16 :: Lexer start16 is = state16 (\ as is -> gotError as is) "" is state16 :: LexerState state16 err as [] = err as [] state16 err as iis@(i:is) = case cclass i of 40 -> state5 err (i:as) is 24 -> state17 err (i:as) is _ -> err as iis start17 :: Lexer start17 is = state17 (\ as is -> gotError as is) "" is state17 :: LexerState state17 err as [] = err as [] state17 err as iis@(i:is) = case cclass i of 37 -> state5 err (i:as) is _ -> err as iis start18 :: Lexer start18 is = state18 (\ as is -> gotError as is) "" is state18 :: LexerState state18 err as [] = err as [] state18 err as iis@(i:is) = case cclass i of 28 -> state15 err (i:as) is 26 -> state19 err (i:as) is 35 -> state20 err (i:as) is _ -> err as iis start19 :: Lexer start19 is = state19 (\ as is -> gotError as is) "" is state19 :: LexerState state19 err as [] = err as [] state19 err as iis@(i:is) = case cclass i of 16 -> state5 err (i:as) is _ -> err as iis start20 :: Lexer start20 is = state20 (\ as is -> gotError as is) "" is state20 :: LexerState state20 err as [] = err as [] state20 err as iis@(i:is) = case cclass i of 28 -> state5 err (i:as) is _ -> err as iis start21 :: Lexer start21 is = state21 (\ as is -> gotError as is) "" is state21 :: LexerState state21 err as [] = err as [] state21 err as iis@(i:is) = case cclass i of 36 -> state5 err (i:as) is 37 -> state22 err (i:as) is 38 -> state23 err (i:as) is 41 -> state24 err (i:as) is 42 -> state25 err (i:as) is _ -> err as iis start22 :: Lexer start22 is = state22 (\ as is -> gotError as is) "" is state22 :: LexerState state22 err as [] = err as [] state22 err as iis@(i:is) = case cclass i of 39 -> state5 err (i:as) is _ -> err as iis start23 :: Lexer start23 is = state23 (\ as is -> gotError as is) "" is state23 :: LexerState state23 err as [] = err as [] state23 err as iis@(i:is) = case cclass i of 42 -> state5 err (i:as) is _ -> err as iis start24 :: Lexer start24 is = state24 (\ as is -> gotError as is) "" is state24 :: LexerState state24 err as [] = err as [] state24 err as iis@(i:is) = case cclass i of 26 -> state5 err (i:as) is _ -> err as iis start25 :: Lexer start25 is = state25 (\ as is -> gotError as is) "" is state25 :: LexerState state25 err as [] = err as [] state25 err as iis@(i:is) = case cclass i of 25 -> state5 err (i:as) is 45 -> state5 err (i:as) is _ -> err as iis start26 :: Lexer start26 is = state26 (\ as is -> gotError as is) "" is state26 :: LexerState state26 err as [] = err as [] state26 err as iis@(i:is) = case cclass i of 29 -> state5 err (i:as) is 41 -> state5 err (i:as) is _ -> err as iis start27 :: Lexer start27 is = state27 (\ as is -> gotError as is) "" is state27 :: LexerState state27 err as [] = err as [] state27 err as iis@(i:is) = case cclass i of 41 -> state5 err (i:as) is _ -> err as iis start28 :: Lexer start28 is = state28 (\ as is -> gotError as is) "" is state28 :: LexerState state28 err as [] = err as [] state28 err as iis@(i:is) = case cclass i of 29 -> state5 err (i:as) is _ -> err as iis start29 :: Lexer start29 is = state29 (\ as is -> gotError as is) "" is state29 :: LexerState state29 err as [] = err as [] state29 err as iis@(i:is) = case cclass i of 24 -> state13 err (i:as) is 43 -> state15 err (i:as) is _ -> err as iis start30 :: Lexer start30 is = state30 (\ as is -> gotError as is) "" is state30 :: LexerState state30 err as [] = err as [] state30 err as iis@(i:is) = case cclass i of 32 -> state5 err (i:as) is 38 -> state5 err (i:as) is 46 -> state17 err (i:as) is 42 -> state32 err (i:as) is 43 -> state33 err (i:as) is _ -> err as iis start32 :: Lexer start32 is = state32 (\ as is -> gotError as is) "" is state32 :: LexerState state32 err as [] = err as [] state32 err as iis@(i:is) = case cclass i of 45 -> state5 err (i:as) is _ -> err as iis start33 :: Lexer start33 is = state33 (\ as is -> gotError as is) "" is state33 :: LexerState state33 err as [] = err as [] state33 err as iis@(i:is) = case cclass i of 25 -> state5 err (i:as) is _ -> err as iis start34 :: Lexer start34 is = state34 (\ as is -> gotError as is) "" is state34 :: LexerState state34 err as [] = err as [] state34 err as iis@(i:is) = case cclass i of 23 -> state5 err (i:as) is 24 -> state5 err (i:as) is 25 -> state5 err (i:as) is 26 -> state5 err (i:as) is 27 -> state5 err (i:as) is 28 -> state5 err (i:as) is 29 -> state5 err (i:as) is 30 -> state5 err (i:as) is 31 -> state5 err (i:as) is 32 -> state5 err (i:as) is 33 -> state5 err (i:as) is 34 -> state5 err (i:as) is 35 -> state5 err (i:as) is 36 -> state5 err (i:as) is 37 -> state5 err (i:as) is 38 -> state5 err (i:as) is 39 -> state5 err (i:as) is 40 -> state5 err (i:as) is 41 -> state5 err (i:as) is 42 -> state5 err (i:as) is 43 -> state5 err (i:as) is 44 -> state5 err (i:as) is 45 -> state5 err (i:as) is 46 -> state5 err (i:as) is 47 -> state5 err (i:as) is 48 -> state5 err (i:as) is 49 -> state5 err (i:as) is 50 -> state5 err (i:as) is _ -> err as iis start35 :: Lexer start35 is = state35 (\ as is -> gotError as is) "" is state35 :: LexerState state35 err as [] = err as [] state35 err as iis@(i:is) = case cclass i of 15 -> state36 err (i:as) is 16 -> state36 err (i:as) is 17 -> state36 err (i:as) is _ -> err as iis start36 :: Lexer start36 is = state36 (\ as is -> gotError as is) "" is state36 :: LexerState state36 err as [] = err as [] state36 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 15 -> state36 err (i:as) is 16 -> state36 err (i:as) is 17 -> state36 err (i:as) is 8 -> state6 err (i:as) is 48 -> state7 err (i:as) is _ -> state5 err (i:as) is start38 :: Lexer start38 is = state38 (\ as is -> gotError as is) "" is state38 :: LexerState state38 err as [] = err as [] state38 err as iis@(i:is) = case cclass i of 15 -> state39 err (i:as) is 16 -> state39 err (i:as) is 17 -> state39 err (i:as) is 18 -> state39 err (i:as) is 24 -> state39 err (i:as) is 25 -> state39 err (i:as) is 26 -> state39 err (i:as) is 27 -> state39 err (i:as) is 28 -> state39 err (i:as) is 29 -> state39 err (i:as) is 51 -> state39 err (i:as) is 52 -> state39 err (i:as) is 53 -> state39 err (i:as) is 54 -> state39 err (i:as) is 55 -> state39 err (i:as) is 56 -> state39 err (i:as) is _ -> err as iis start39 :: Lexer start39 is = state39 (\ as is -> gotError as is) "" is state39 :: LexerState state39 err as [] = err as [] state39 err as iis@(i:is) = case cclass i of 15 -> state39 err (i:as) is 16 -> state39 err (i:as) is 17 -> state39 err (i:as) is 18 -> state39 err (i:as) is 24 -> state39 err (i:as) is 25 -> state39 err (i:as) is 26 -> state39 err (i:as) is 27 -> state39 err (i:as) is 28 -> state39 err (i:as) is 29 -> state39 err (i:as) is 51 -> state39 err (i:as) is 52 -> state39 err (i:as) is 53 -> state39 err (i:as) is 54 -> state39 err (i:as) is 55 -> state39 err (i:as) is 56 -> state39 err (i:as) is 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 8 -> state6 err (i:as) is 48 -> state7 err (i:as) is _ -> state5 err (i:as) is start41 :: Lexer start41 is = state41 (\ as is -> gotError as is) "" is state41 :: LexerState state41 err as [] = err as [] state41 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 10 -> err as iis 48 -> state44 err (i:as) is _ -> state42 err (i:as) is start42 :: Lexer start42 is = state42 (\ as is -> gotError as is) "" is state42 :: LexerState state42 err as [] = err as [] state42 err as iis@(i:is) = case cclass i of 10 -> state43 err (i:as) is _ -> err as iis state43 :: LexerState state43 err as is = output CharLit as (start1 is) start44 :: Lexer start44 is = state44 (\ as is -> gotError as is) "" is state44 :: LexerState state44 err as [] = err as [] state44 err as iis@(i:is) = case cclass i of 8 -> state42 err (i:as) is 9 -> state42 err (i:as) is 10 -> state42 err (i:as) is 48 -> state42 err (i:as) is 51 -> state42 err (i:as) is 52 -> state42 err (i:as) is 56 -> state42 err (i:as) is 63 -> state42 err (i:as) is 66 -> state42 err (i:as) is 68 -> state42 err (i:as) is 70 -> state42 err (i:as) is 15 -> state45 err (i:as) is 16 -> state45 err (i:as) is 17 -> state45 err (i:as) is 18 -> state45 err (i:as) is 30 -> state61 err (i:as) is 40 -> state61 err (i:as) is 43 -> state61 err (i:as) is 31 -> state57 err (i:as) is 44 -> state57 err (i:as) is 24 -> state46 err (i:as) is 25 -> state48 err (i:as) is 26 -> state50 err (i:as) is 27 -> state52 err (i:as) is 28 -> state55 err (i:as) is 29 -> state60 err (i:as) is 35 -> state62 err (i:as) is 37 -> state63 err (i:as) is 41 -> state64 err (i:as) is 49 -> state68 err (i:as) is 64 -> state69 err (i:as) is 72 -> state71 err (i:as) is _ -> err as iis start45 :: Lexer start45 is = state45 (\ as is -> gotError as is) "" is state45 :: LexerState state45 err as [] = err as [] state45 err as iis@(i:is) = case cclass i of 15 -> state45 err (i:as) is 16 -> state45 err (i:as) is 17 -> state45 err (i:as) is 18 -> state45 err (i:as) is 10 -> state43 err (i:as) is _ -> err as iis start46 :: Lexer start46 is = state46 (\ as is -> gotError as is) "" is state46 :: LexerState state46 err as [] = err as [] state46 err as iis@(i:is) = case cclass i of 26 -> state47 err (i:as) is _ -> err as iis start47 :: Lexer start47 is = state47 (\ as is -> gotError as is) "" is state47 :: LexerState state47 err as [] = err as [] state47 err as iis@(i:is) = case cclass i of 34 -> state42 err (i:as) is _ -> err as iis start48 :: Lexer start48 is = state48 (\ as is -> gotError as is) "" is state48 :: LexerState state48 err as [] = err as [] state48 err as iis@(i:is) = case cclass i of 41 -> state42 err (i:as) is 28 -> state49 err (i:as) is _ -> err as iis start49 :: Lexer start49 is = state49 (\ as is -> gotError as is) "" is state49 :: LexerState state49 err as [] = err as [] state49 err as iis@(i:is) = case cclass i of 35 -> state42 err (i:as) is _ -> err as iis start50 :: Lexer start50 is = state50 (\ as is -> gotError as is) "" is state50 :: LexerState state50 err as [] = err as [] state50 err as iis@(i:is) = case cclass i of 40 -> state42 err (i:as) is 24 -> state51 err (i:as) is _ -> err as iis start51 :: Lexer start51 is = state51 (\ as is -> gotError as is) "" is state51 :: LexerState state51 err as [] = err as [] state51 err as iis@(i:is) = case cclass i of 37 -> state42 err (i:as) is _ -> err as iis start52 :: Lexer start52 is = state52 (\ as is -> gotError as is) "" is state52 :: LexerState state52 err as [] = err as [] state52 err as iis@(i:is) = case cclass i of 28 -> state49 err (i:as) is 26 -> state53 err (i:as) is 35 -> state54 err (i:as) is _ -> err as iis start53 :: Lexer start53 is = state53 (\ as is -> gotError as is) "" is state53 :: LexerState state53 err as [] = err as [] state53 err as iis@(i:is) = case cclass i of 16 -> state42 err (i:as) is _ -> err as iis start54 :: Lexer start54 is = state54 (\ as is -> gotError as is) "" is state54 :: LexerState state54 err as [] = err as [] state54 err as iis@(i:is) = case cclass i of 28 -> state42 err (i:as) is _ -> err as iis start55 :: Lexer start55 is = state55 (\ as is -> gotError as is) "" is state55 :: LexerState state55 err as [] = err as [] state55 err as iis@(i:is) = case cclass i of 36 -> state42 err (i:as) is 37 -> state56 err (i:as) is 38 -> state57 err (i:as) is 41 -> state58 err (i:as) is 42 -> state59 err (i:as) is _ -> err as iis start56 :: Lexer start56 is = state56 (\ as is -> gotError as is) "" is state56 :: LexerState state56 err as [] = err as [] state56 err as iis@(i:is) = case cclass i of 39 -> state42 err (i:as) is _ -> err as iis start57 :: Lexer start57 is = state57 (\ as is -> gotError as is) "" is state57 :: LexerState state57 err as [] = err as [] state57 err as iis@(i:is) = case cclass i of 42 -> state42 err (i:as) is _ -> err as iis start58 :: Lexer start58 is = state58 (\ as is -> gotError as is) "" is state58 :: LexerState state58 err as [] = err as [] state58 err as iis@(i:is) = case cclass i of 26 -> state42 err (i:as) is _ -> err as iis start59 :: Lexer start59 is = state59 (\ as is -> gotError as is) "" is state59 :: LexerState state59 err as [] = err as [] state59 err as iis@(i:is) = case cclass i of 25 -> state42 err (i:as) is 45 -> state42 err (i:as) is _ -> err as iis start60 :: Lexer start60 is = state60 (\ as is -> gotError as is) "" is state60 :: LexerState state60 err as [] = err as [] state60 err as iis@(i:is) = case cclass i of 29 -> state42 err (i:as) is 41 -> state42 err (i:as) is _ -> err as iis start61 :: Lexer start61 is = state61 (\ as is -> gotError as is) "" is state61 :: LexerState state61 err as [] = err as [] state61 err as iis@(i:is) = case cclass i of 41 -> state42 err (i:as) is _ -> err as iis start62 :: Lexer start62 is = state62 (\ as is -> gotError as is) "" is state62 :: LexerState state62 err as [] = err as [] state62 err as iis@(i:is) = case cclass i of 29 -> state42 err (i:as) is _ -> err as iis start63 :: Lexer start63 is = state63 (\ as is -> gotError as is) "" is state63 :: LexerState state63 err as [] = err as [] state63 err as iis@(i:is) = case cclass i of 24 -> state47 err (i:as) is 43 -> state49 err (i:as) is _ -> err as iis start64 :: Lexer start64 is = state64 (\ as is -> gotError as is) "" is state64 :: LexerState state64 err as [] = err as [] state64 err as iis@(i:is) = case cclass i of 32 -> state42 err (i:as) is 46 -> state51 err (i:as) is 38 -> state65 err (i:as) is 42 -> state66 err (i:as) is 43 -> state67 err (i:as) is _ -> err as iis start65 :: Lexer start65 is = state65 (\ as is -> gotError as is) "" is state65 :: LexerState state65 err as [] = err as [] state65 err as iis@(i:is) = case cclass i of 31 -> state42 err (i:as) is 10 -> state43 err (i:as) is _ -> err as iis start66 :: Lexer start66 is = state66 (\ as is -> gotError as is) "" is state66 :: LexerState state66 err as [] = err as [] state66 err as iis@(i:is) = case cclass i of 45 -> state42 err (i:as) is _ -> err as iis start67 :: Lexer start67 is = state67 (\ as is -> gotError as is) "" is state67 :: LexerState state67 err as [] = err as [] state67 err as iis@(i:is) = case cclass i of 25 -> state42 err (i:as) is _ -> err as iis start68 :: Lexer start68 is = state68 (\ as is -> gotError as is) "" is state68 :: LexerState state68 err as [] = err as [] state68 err as iis@(i:is) = case cclass i of 23 -> state42 err (i:as) is 24 -> state42 err (i:as) is 25 -> state42 err (i:as) is 26 -> state42 err (i:as) is 27 -> state42 err (i:as) is 28 -> state42 err (i:as) is 29 -> state42 err (i:as) is 30 -> state42 err (i:as) is 31 -> state42 err (i:as) is 32 -> state42 err (i:as) is 33 -> state42 err (i:as) is 34 -> state42 err (i:as) is 35 -> state42 err (i:as) is 36 -> state42 err (i:as) is 37 -> state42 err (i:as) is 38 -> state42 err (i:as) is 39 -> state42 err (i:as) is 40 -> state42 err (i:as) is 41 -> state42 err (i:as) is 42 -> state42 err (i:as) is 43 -> state42 err (i:as) is 44 -> state42 err (i:as) is 45 -> state42 err (i:as) is 46 -> state42 err (i:as) is 47 -> state42 err (i:as) is 48 -> state42 err (i:as) is 49 -> state42 err (i:as) is 50 -> state42 err (i:as) is _ -> err as iis start69 :: Lexer start69 is = state69 (\ as is -> gotError as is) "" is state69 :: LexerState state69 err as [] = err as [] state69 err as iis@(i:is) = case cclass i of 15 -> state70 err (i:as) is 16 -> state70 err (i:as) is 17 -> state70 err (i:as) is _ -> err as iis start70 :: Lexer start70 is = state70 (\ as is -> gotError as is) "" is state70 :: LexerState state70 err as [] = err as [] state70 err as iis@(i:is) = case cclass i of 15 -> state70 err (i:as) is 16 -> state70 err (i:as) is 17 -> state70 err (i:as) is 10 -> state43 err (i:as) is _ -> err as iis start71 :: Lexer start71 is = state71 (\ as is -> gotError as is) "" is state71 :: LexerState state71 err as [] = err as [] state71 err as iis@(i:is) = case cclass i of 15 -> state72 err (i:as) is 16 -> state72 err (i:as) is 17 -> state72 err (i:as) is 18 -> state72 err (i:as) is 24 -> state72 err (i:as) is 25 -> state72 err (i:as) is 26 -> state72 err (i:as) is 27 -> state72 err (i:as) is 28 -> state72 err (i:as) is 29 -> state72 err (i:as) is 51 -> state72 err (i:as) is 52 -> state72 err (i:as) is 53 -> state72 err (i:as) is 54 -> state72 err (i:as) is 55 -> state72 err (i:as) is 56 -> state72 err (i:as) is _ -> err as iis start72 :: Lexer start72 is = state72 (\ as is -> gotError as is) "" is state72 :: LexerState state72 err as [] = err as [] state72 err as iis@(i:is) = case cclass i of 15 -> state72 err (i:as) is 16 -> state72 err (i:as) is 17 -> state72 err (i:as) is 18 -> state72 err (i:as) is 24 -> state72 err (i:as) is 25 -> state72 err (i:as) is 26 -> state72 err (i:as) is 27 -> state72 err (i:as) is 28 -> state72 err (i:as) is 29 -> state72 err (i:as) is 51 -> state72 err (i:as) is 52 -> state72 err (i:as) is 53 -> state72 err (i:as) is 54 -> state72 err (i:as) is 55 -> state72 err (i:as) is 56 -> state72 err (i:as) is 10 -> state43 err (i:as) is _ -> err as iis state73 :: LexerState state73 err as is = output Special as (start1 is) state74 :: LexerState state74 err as [] = err as [] where err _ _ = output Varsym as (start1 []) state74 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 14 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is 13 -> state75 err (i:as) is 22 -> state79 err (i:as) is _ -> err as iis where err _ _ = output Varsym as (start1 iis) state75 :: LexerState state75 err as [] = err as [] where err _ _ = output Commentstart as (start76 []) state75 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 14 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 22 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is 13 -> state75 err (i:as) is _ -> err as iis where err _ _ = output Commentstart as (start76 iis) start76 :: Lexer start76 is = state76 (\ as is -> gotError as is) "" is state76 :: LexerState state76 err as [] = err as [] state76 err as iis@(i:is) = case cclass i of 0 -> err as iis 3 -> err as iis 2 -> state77 err (i:as) is 4 -> state77 err (i:as) is 5 -> state78 err (i:as) is _ -> state76 err (i:as) is state77 :: LexerState state77 err as is = output Comment as (start1 is) state78 :: LexerState state78 err as [] = err as [] where err _ _ = output Comment as (start1 []) state78 err as iis@(i:is) = case cclass i of 2 -> state77 err (i:as) is _ -> err as iis where err _ _ = output Comment as (start1 iis) state79 :: LexerState state79 err as [] = err as [] where err _ _ = output Reservedop as (start1 []) state79 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 13 -> state4 err (i:as) is 14 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 22 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is _ -> err as iis where err _ _ = output Reservedop as (start1 iis) state80 :: LexerState state80 err as [] = err as [] where err _ _ = output Varsym as (start1 []) state80 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 13 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 22 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is 14 -> state79 err (i:as) is _ -> err as iis where err _ _ = output Varsym as (start1 iis) state81 :: LexerState state81 err as [] = err as [] where err _ _ = output IntLit as (start1 []) state81 err as iis@(i:is) = case cclass i of 15 -> state87 err (i:as) is 16 -> state87 err (i:as) is 17 -> state87 err (i:as) is 18 -> state87 err (i:as) is 38 -> state88 err (i:as) is 64 -> state88 err (i:as) is 45 -> state90 err (i:as) is 72 -> state90 err (i:as) is 14 -> state82 err (i:as) is _ -> err as iis where err _ _ = output IntLit as (start1 iis) start82 :: Lexer start82 is = state82 (\ as is -> gotError as is) "" is state82 :: LexerState state82 err as [] = err as [] state82 err as iis@(i:is) = case cclass i of 15 -> state83 err (i:as) is 16 -> state83 err (i:as) is 17 -> state83 err (i:as) is 18 -> state83 err (i:as) is _ -> err as iis state83 :: LexerState state83 err as [] = err as [] where err _ _ = output FloatLit as (start1 []) state83 err as iis@(i:is) = case cclass i of 15 -> state83 err (i:as) is 16 -> state83 err (i:as) is 17 -> state83 err (i:as) is 18 -> state83 err (i:as) is 28 -> state84 err (i:as) is 55 -> state84 err (i:as) is _ -> err as iis where err _ _ = output FloatLit as (start1 iis) start84 :: Lexer start84 is = state84 (\ as is -> gotError as is) "" is state84 :: LexerState state84 err as [] = err as [] state84 err as iis@(i:is) = case cclass i of 15 -> state86 err (i:as) is 16 -> state86 err (i:as) is 17 -> state86 err (i:as) is 18 -> state86 err (i:as) is 12 -> state85 err (i:as) is 13 -> state85 err (i:as) is _ -> err as iis start85 :: Lexer start85 is = state85 (\ as is -> gotError as is) "" is state85 :: LexerState state85 err as [] = err as [] state85 err as iis@(i:is) = case cclass i of 15 -> state86 err (i:as) is 16 -> state86 err (i:as) is 17 -> state86 err (i:as) is 18 -> state86 err (i:as) is _ -> err as iis state86 :: LexerState state86 err as [] = err as [] where err _ _ = output FloatLit as (start1 []) state86 err as iis@(i:is) = case cclass i of 15 -> state86 err (i:as) is 16 -> state86 err (i:as) is 17 -> state86 err (i:as) is 18 -> state86 err (i:as) is _ -> err as iis where err _ _ = output FloatLit as (start1 iis) state87 :: LexerState state87 err as [] = err as [] where err _ _ = output IntLit as (start1 []) state87 err as iis@(i:is) = case cclass i of 15 -> state87 err (i:as) is 16 -> state87 err (i:as) is 17 -> state87 err (i:as) is 18 -> state87 err (i:as) is 14 -> state82 err (i:as) is _ -> err as iis where err _ _ = output IntLit as (start1 iis) start88 :: Lexer start88 is = state88 (\ as is -> gotError as is) "" is state88 :: LexerState state88 err as [] = err as [] state88 err as iis@(i:is) = case cclass i of 15 -> state89 err (i:as) is 16 -> state89 err (i:as) is 17 -> state89 err (i:as) is _ -> err as iis state89 :: LexerState state89 err as [] = err as [] where err _ _ = output IntLit as (start1 []) state89 err as iis@(i:is) = case cclass i of 15 -> state89 err (i:as) is 16 -> state89 err (i:as) is 17 -> state89 err (i:as) is _ -> err as iis where err _ _ = output IntLit as (start1 iis) start90 :: Lexer start90 is = state90 (\ as is -> gotError as is) "" is state90 :: LexerState state90 err as [] = err as [] state90 err as iis@(i:is) = case cclass i of 15 -> state91 err (i:as) is 16 -> state91 err (i:as) is 17 -> state91 err (i:as) is 18 -> state91 err (i:as) is 24 -> state91 err (i:as) is 25 -> state91 err (i:as) is 26 -> state91 err (i:as) is 27 -> state91 err (i:as) is 28 -> state91 err (i:as) is 29 -> state91 err (i:as) is 51 -> state91 err (i:as) is 52 -> state91 err (i:as) is 53 -> state91 err (i:as) is 54 -> state91 err (i:as) is 55 -> state91 err (i:as) is 56 -> state91 err (i:as) is _ -> err as iis state91 :: LexerState state91 err as [] = err as [] where err _ _ = output IntLit as (start1 []) state91 err as iis@(i:is) = case cclass i of 15 -> state91 err (i:as) is 16 -> state91 err (i:as) is 17 -> state91 err (i:as) is 18 -> state91 err (i:as) is 24 -> state91 err (i:as) is 25 -> state91 err (i:as) is 26 -> state91 err (i:as) is 27 -> state91 err (i:as) is 28 -> state91 err (i:as) is 29 -> state91 err (i:as) is 51 -> state91 err (i:as) is 52 -> state91 err (i:as) is 53 -> state91 err (i:as) is 54 -> state91 err (i:as) is 55 -> state91 err (i:as) is 56 -> state91 err (i:as) is _ -> err as iis where err _ _ = output IntLit as (start1 iis) state92 :: LexerState state92 err as [] = err as [] where err _ _ = output Reservedop as (start1 []) state92 err as iis@(i:is) = case cclass i of 7 -> state93 err (i:as) is 9 -> state93 err (i:as) is 12 -> state93 err (i:as) is 13 -> state93 err (i:as) is 14 -> state93 err (i:as) is 20 -> state93 err (i:as) is 21 -> state93 err (i:as) is 22 -> state93 err (i:as) is 23 -> state93 err (i:as) is 48 -> state93 err (i:as) is 49 -> state93 err (i:as) is 75 -> state93 err (i:as) is 19 -> state94 err (i:as) is _ -> err as iis where err _ _ = output Reservedop as (start1 iis) state93 :: LexerState state93 err as [] = err as [] where err _ _ = output Consym as (start1 []) state93 err as iis@(i:is) = case cclass i of 7 -> state93 err (i:as) is 9 -> state93 err (i:as) is 12 -> state93 err (i:as) is 13 -> state93 err (i:as) is 14 -> state93 err (i:as) is 19 -> state93 err (i:as) is 20 -> state93 err (i:as) is 21 -> state93 err (i:as) is 22 -> state93 err (i:as) is 23 -> state93 err (i:as) is 48 -> state93 err (i:as) is 49 -> state93 err (i:as) is 75 -> state93 err (i:as) is _ -> err as iis where err _ _ = output Consym as (start1 iis) state94 :: LexerState state94 err as [] = err as [] where err _ _ = output Reservedop as (start1 []) state94 err as iis@(i:is) = case cclass i of 7 -> state93 err (i:as) is 9 -> state93 err (i:as) is 12 -> state93 err (i:as) is 13 -> state93 err (i:as) is 14 -> state93 err (i:as) is 19 -> state93 err (i:as) is 20 -> state93 err (i:as) is 21 -> state93 err (i:as) is 22 -> state93 err (i:as) is 23 -> state93 err (i:as) is 48 -> state93 err (i:as) is 49 -> state93 err (i:as) is 75 -> state93 err (i:as) is _ -> err as iis where err _ _ = output Reservedop as (start1 iis) state95 :: LexerState state95 err as [] = err as [] where err _ _ = output Varsym as (start1 []) state95 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 14 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 22 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is 13 -> state79 err (i:as) is _ -> err as iis where err _ _ = output Varsym as (start1 iis) state96 :: LexerState state96 err as [] = err as [] where err _ _ = output Reservedop as (start1 []) state96 err as iis@(i:is) = case cclass i of 7 -> state4 err (i:as) is 9 -> state4 err (i:as) is 12 -> state4 err (i:as) is 13 -> state4 err (i:as) is 14 -> state4 err (i:as) is 19 -> state4 err (i:as) is 20 -> state4 err (i:as) is 21 -> state4 err (i:as) is 23 -> state4 err (i:as) is 48 -> state4 err (i:as) is 49 -> state4 err (i:as) is 75 -> state4 err (i:as) is 22 -> state79 err (i:as) is _ -> err as iis where err _ _ = output Reservedop as (start1 iis) state97 :: LexerState state97 err as [] = err as [] where err _ _ = output Conid as (start1 []) state97 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 14 -> state98 err (i:as) is _ -> state97 err (i:as) is where err _ _ = output Conid as (start1 iis) start98 :: Lexer start98 is = state98 (\ as is -> gotError as is) "" is state98 :: LexerState state98 err as [] = err as [] state98 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 8 -> err as iis 10 -> err as iis 11 -> err as iis 15 -> err as iis 16 -> err as iis 17 -> err as iis 18 -> err as iis 47 -> err as iis 74 -> err as iis 76 -> err as iis 51 -> state111 err (i:as) is 52 -> state111 err (i:as) is 56 -> state111 err (i:as) is 57 -> state111 err (i:as) is 58 -> state111 err (i:as) is 60 -> state111 err (i:as) is 65 -> state111 err (i:as) is 66 -> state111 err (i:as) is 67 -> state111 err (i:as) is 69 -> state111 err (i:as) is 70 -> state111 err (i:as) is 72 -> state111 err (i:as) is 73 -> state111 err (i:as) is 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 22 -> state99 err (i:as) is 49 -> state99 err (i:as) is 23 -> state102 err (i:as) is 48 -> state102 err (i:as) is 75 -> state102 err (i:as) is 13 -> state100 err (i:as) is 14 -> state103 err (i:as) is 19 -> state104 err (i:as) is 20 -> state107 err (i:as) is 21 -> state108 err (i:as) is 50 -> state110 err (i:as) is 53 -> state112 err (i:as) is 54 -> state118 err (i:as) is 55 -> state131 err (i:as) is 59 -> state132 err (i:as) is 61 -> state144 err (i:as) is 62 -> state145 err (i:as) is 63 -> state149 err (i:as) is 64 -> state154 err (i:as) is 68 -> state155 err (i:as) is 71 -> state158 err (i:as) is _ -> state109 err (i:as) is state99 :: LexerState state99 err as [] = err as [] where err _ _ = output Qvarsym as (start1 []) state99 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 13 -> state99 err (i:as) is 14 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 22 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is _ -> err as iis where err _ _ = output Qvarsym as (start1 iis) state100 :: LexerState state100 err as [] = err as [] where err _ _ = output Qvarsym as (start1 []) state100 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 14 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is 13 -> state101 err (i:as) is 22 -> state102 err (i:as) is _ -> err as iis where err _ _ = output Qvarsym as (start1 iis) start101 :: Lexer start101 is = state101 (\ as is -> gotError as is) "" is state101 :: LexerState state101 err as [] = err as [] state101 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 14 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 22 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is 13 -> state101 err (i:as) is _ -> err as iis start102 :: Lexer start102 is = state102 (\ as is -> gotError as is) "" is state102 :: LexerState state102 err as [] = err as [] state102 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 13 -> state99 err (i:as) is 14 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 22 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is _ -> err as iis state103 :: LexerState state103 err as [] = err as [] where err _ _ = output Qvarsym as (start1 []) state103 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 13 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 22 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is 14 -> state102 err (i:as) is _ -> err as iis where err _ _ = output Qvarsym as (start1 iis) start104 :: Lexer start104 is = state104 (\ as is -> gotError as is) "" is state104 :: LexerState state104 err as [] = err as [] state104 err as iis@(i:is) = case cclass i of 7 -> state105 err (i:as) is 9 -> state105 err (i:as) is 12 -> state105 err (i:as) is 13 -> state105 err (i:as) is 14 -> state105 err (i:as) is 20 -> state105 err (i:as) is 21 -> state105 err (i:as) is 22 -> state105 err (i:as) is 23 -> state105 err (i:as) is 48 -> state105 err (i:as) is 49 -> state105 err (i:as) is 75 -> state105 err (i:as) is 19 -> state106 err (i:as) is _ -> err as iis state105 :: LexerState state105 err as [] = err as [] where err _ _ = output Qconsym as (start1 []) state105 err as iis@(i:is) = case cclass i of 7 -> state105 err (i:as) is 9 -> state105 err (i:as) is 12 -> state105 err (i:as) is 13 -> state105 err (i:as) is 14 -> state105 err (i:as) is 19 -> state105 err (i:as) is 20 -> state105 err (i:as) is 21 -> state105 err (i:as) is 22 -> state105 err (i:as) is 23 -> state105 err (i:as) is 48 -> state105 err (i:as) is 49 -> state105 err (i:as) is 75 -> state105 err (i:as) is _ -> err as iis where err _ _ = output Qconsym as (start1 iis) start106 :: Lexer start106 is = state106 (\ as is -> gotError as is) "" is state106 :: LexerState state106 err as [] = err as [] state106 err as iis@(i:is) = case cclass i of 7 -> state105 err (i:as) is 9 -> state105 err (i:as) is 12 -> state105 err (i:as) is 13 -> state105 err (i:as) is 14 -> state105 err (i:as) is 19 -> state105 err (i:as) is 20 -> state105 err (i:as) is 21 -> state105 err (i:as) is 22 -> state105 err (i:as) is 23 -> state105 err (i:as) is 48 -> state105 err (i:as) is 49 -> state105 err (i:as) is 75 -> state105 err (i:as) is _ -> err as iis state107 :: LexerState state107 err as [] = err as [] where err _ _ = output Qvarsym as (start1 []) state107 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 14 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 22 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is 13 -> state102 err (i:as) is _ -> err as iis where err _ _ = output Qvarsym as (start1 iis) start108 :: Lexer start108 is = state108 (\ as is -> gotError as is) "" is state108 :: LexerState state108 err as [] = err as [] state108 err as iis@(i:is) = case cclass i of 7 -> state99 err (i:as) is 9 -> state99 err (i:as) is 12 -> state99 err (i:as) is 13 -> state99 err (i:as) is 14 -> state99 err (i:as) is 19 -> state99 err (i:as) is 20 -> state99 err (i:as) is 21 -> state99 err (i:as) is 23 -> state99 err (i:as) is 48 -> state99 err (i:as) is 49 -> state99 err (i:as) is 75 -> state99 err (i:as) is 22 -> state102 err (i:as) is _ -> err as iis state109 :: LexerState state109 err as [] = err as [] where err _ _ = output Qconid as (start1 []) state109 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 14 -> state98 err (i:as) is _ -> state109 err (i:as) is where err _ _ = output Qconid as (start1 iis) start110 :: Lexer start110 is = state110 (\ as is -> gotError as is) "" is state110 :: LexerState state110 err as [] = err as [] state110 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis _ -> state111 err (i:as) is state111 :: LexerState state111 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state111 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state112 :: LexerState state112 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state112 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state113 err (i:as) is 61 -> state115 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state113 :: LexerState state113 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state113 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 67 -> state114 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state114 :: LexerState state114 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state114 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state115 :: LexerState state115 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state115 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state116 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state116 :: LexerState state116 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state116 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 67 -> state117 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state117 :: LexerState state117 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state117 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 67 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state118 :: LexerState state118 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state118 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 64 -> state110 err (i:as) is 51 -> state119 err (i:as) is 55 -> state121 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state119 :: LexerState state119 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state119 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state120 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state120 :: LexerState state120 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state120 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state121 :: LexerState state121 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state121 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state122 err (i:as) is 66 -> state126 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state122 :: LexerState state122 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state122 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state123 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state123 :: LexerState state123 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state123 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 69 -> state124 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state124 :: LexerState state124 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state124 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state125 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state125 :: LexerState state125 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state125 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state126 :: LexerState state126 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state126 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 59 -> state127 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state127 :: LexerState state127 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state127 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 70 -> state128 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state128 :: LexerState state128 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state128 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 59 -> state129 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state129 :: LexerState state129 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state129 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 63 -> state130 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state130 :: LexerState state130 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state130 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 57 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state131 :: LexerState state131 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state131 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state113 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state132 :: LexerState state132 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state132 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state110 err (i:as) is 62 -> state133 err (i:as) is 63 -> state136 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state133 :: LexerState state133 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state133 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 65 -> state134 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state134 :: LexerState state134 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state134 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 64 -> state135 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state135 :: LexerState state135 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state135 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 66 -> state125 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) start136 :: Lexer start136 is = state136 (\ as is -> gotError as is) "" is state136 :: LexerState state136 err as [] = err as [] state136 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state137 err (i:as) is 67 -> state140 err (i:as) is _ -> state111 err (i:as) is state137 :: LexerState state137 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state137 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 59 -> state138 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state138 :: LexerState state138 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state138 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 72 -> state139 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) start139 :: Lexer start139 is = state139 (\ as is -> gotError as is) "" is state139 :: LexerState state139 err as [] = err as [] state139 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state110 err (i:as) is 66 -> state110 err (i:as) is _ -> state111 err (i:as) is state140 :: LexerState state140 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state140 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state141 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state141 :: LexerState state141 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state141 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state142 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state142 :: LexerState state142 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state142 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 63 -> state143 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state143 :: LexerState state143 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state143 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 53 -> state114 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state144 :: LexerState state144 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state144 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state125 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state145 :: LexerState state145 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state145 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 64 -> state146 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state146 :: LexerState state146 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state146 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 54 -> state147 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state147 :: LexerState state147 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state147 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 69 -> state148 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state148 :: LexerState state148 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state148 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state114 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state149 :: LexerState state149 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state149 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state150 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state150 :: LexerState state150 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state150 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 71 -> state151 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state151 :: LexerState state151 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state151 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state152 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state152 :: LexerState state152 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state152 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 73 -> state153 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state153 :: LexerState state153 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state153 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 65 -> state114 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state154 :: LexerState state154 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state154 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state155 :: LexerState state155 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state155 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 73 -> state153 err (i:as) is 58 -> state156 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state156 :: LexerState state156 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state156 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state157 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state157 :: LexerState state157 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state157 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 63 -> state110 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state158 :: LexerState state158 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state158 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 58 -> state159 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state159 :: LexerState state159 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state159 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state160 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state160 :: LexerState state160 err as [] = err as [] where err _ _ = output Qvarid as (start1 []) state160 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 66 -> state114 err (i:as) is _ -> state111 err (i:as) is where err _ _ = output Qvarid as (start1 iis) state161 :: LexerState state161 err as [] = err as [] where err _ _ = output Reservedid as (start1 []) state161 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis _ -> state162 err (i:as) is where err _ _ = output Reservedid as (start1 iis) state162 :: LexerState state162 err as [] = err as [] where err _ _ = output Varid as (start1 []) state162 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state163 :: LexerState state163 err as [] = err as [] where err _ _ = output Varid as (start1 []) state163 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state164 err (i:as) is 61 -> state166 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state164 :: LexerState state164 err as [] = err as [] where err _ _ = output Varid as (start1 []) state164 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 67 -> state165 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state165 :: LexerState state165 err as [] = err as [] where err _ _ = output Varid as (start1 []) state165 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state166 :: LexerState state166 err as [] = err as [] where err _ _ = output Varid as (start1 []) state166 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state167 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state167 :: LexerState state167 err as [] = err as [] where err _ _ = output Varid as (start1 []) state167 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 67 -> state168 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state168 :: LexerState state168 err as [] = err as [] where err _ _ = output Varid as (start1 []) state168 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 67 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state169 :: LexerState state169 err as [] = err as [] where err _ _ = output Varid as (start1 []) state169 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 64 -> state161 err (i:as) is 51 -> state170 err (i:as) is 55 -> state172 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state170 :: LexerState state170 err as [] = err as [] where err _ _ = output Varid as (start1 []) state170 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state171 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state171 :: LexerState state171 err as [] = err as [] where err _ _ = output Varid as (start1 []) state171 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state172 :: LexerState state172 err as [] = err as [] where err _ _ = output Varid as (start1 []) state172 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state173 err (i:as) is 66 -> state177 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state173 :: LexerState state173 err as [] = err as [] where err _ _ = output Varid as (start1 []) state173 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state174 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state174 :: LexerState state174 err as [] = err as [] where err _ _ = output Varid as (start1 []) state174 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 69 -> state175 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state175 :: LexerState state175 err as [] = err as [] where err _ _ = output Varid as (start1 []) state175 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state176 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state176 :: LexerState state176 err as [] = err as [] where err _ _ = output Varid as (start1 []) state176 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state177 :: LexerState state177 err as [] = err as [] where err _ _ = output Varid as (start1 []) state177 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 59 -> state178 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state178 :: LexerState state178 err as [] = err as [] where err _ _ = output Varid as (start1 []) state178 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 70 -> state179 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state179 :: LexerState state179 err as [] = err as [] where err _ _ = output Varid as (start1 []) state179 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 59 -> state180 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state180 :: LexerState state180 err as [] = err as [] where err _ _ = output Varid as (start1 []) state180 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 63 -> state181 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state181 :: LexerState state181 err as [] = err as [] where err _ _ = output Varid as (start1 []) state181 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 57 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state182 :: LexerState state182 err as [] = err as [] where err _ _ = output Varid as (start1 []) state182 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state164 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state183 :: LexerState state183 err as [] = err as [] where err _ _ = output Varid as (start1 []) state183 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state161 err (i:as) is 62 -> state184 err (i:as) is 63 -> state187 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state184 :: LexerState state184 err as [] = err as [] where err _ _ = output Varid as (start1 []) state184 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 65 -> state185 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state185 :: LexerState state185 err as [] = err as [] where err _ _ = output Varid as (start1 []) state185 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 64 -> state186 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state186 :: LexerState state186 err as [] = err as [] where err _ _ = output Varid as (start1 []) state186 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 66 -> state176 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state187 :: LexerState state187 err as [] = err as [] where err _ _ = output Reservedid as (start1 []) state187 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state188 err (i:as) is 67 -> state191 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Reservedid as (start1 iis) state188 :: LexerState state188 err as [] = err as [] where err _ _ = output Varid as (start1 []) state188 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 59 -> state189 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state189 :: LexerState state189 err as [] = err as [] where err _ _ = output Varid as (start1 []) state189 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 72 -> state190 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state190 :: LexerState state190 err as [] = err as [] where err _ _ = output Reservedid as (start1 []) state190 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state161 err (i:as) is 66 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Reservedid as (start1 iis) state191 :: LexerState state191 err as [] = err as [] where err _ _ = output Varid as (start1 []) state191 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state192 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state192 :: LexerState state192 err as [] = err as [] where err _ _ = output Varid as (start1 []) state192 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 51 -> state193 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state193 :: LexerState state193 err as [] = err as [] where err _ _ = output Varid as (start1 []) state193 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 63 -> state194 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state194 :: LexerState state194 err as [] = err as [] where err _ _ = output Varid as (start1 []) state194 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 53 -> state165 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state195 :: LexerState state195 err as [] = err as [] where err _ _ = output Varid as (start1 []) state195 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state176 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state196 :: LexerState state196 err as [] = err as [] where err _ _ = output Varid as (start1 []) state196 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 64 -> state197 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state197 :: LexerState state197 err as [] = err as [] where err _ _ = output Varid as (start1 []) state197 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 54 -> state198 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state198 :: LexerState state198 err as [] = err as [] where err _ _ = output Varid as (start1 []) state198 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 69 -> state199 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state199 :: LexerState state199 err as [] = err as [] where err _ _ = output Varid as (start1 []) state199 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 61 -> state165 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state200 :: LexerState state200 err as [] = err as [] where err _ _ = output Varid as (start1 []) state200 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state201 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state201 :: LexerState state201 err as [] = err as [] where err _ _ = output Varid as (start1 []) state201 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 71 -> state202 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state202 :: LexerState state202 err as [] = err as [] where err _ _ = output Varid as (start1 []) state202 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 68 -> state203 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state203 :: LexerState state203 err as [] = err as [] where err _ _ = output Varid as (start1 []) state203 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 73 -> state204 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state204 :: LexerState state204 err as [] = err as [] where err _ _ = output Varid as (start1 []) state204 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 65 -> state165 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state205 :: LexerState state205 err as [] = err as [] where err _ _ = output Varid as (start1 []) state205 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 56 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state206 :: LexerState state206 err as [] = err as [] where err _ _ = output Varid as (start1 []) state206 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 73 -> state204 err (i:as) is 58 -> state207 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state207 :: LexerState state207 err as [] = err as [] where err _ _ = output Varid as (start1 []) state207 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state208 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state208 :: LexerState state208 err as [] = err as [] where err _ _ = output Varid as (start1 []) state208 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 63 -> state161 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state209 :: LexerState state209 err as [] = err as [] where err _ _ = output Varid as (start1 []) state209 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 58 -> state210 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state210 :: LexerState state210 err as [] = err as [] where err _ _ = output Varid as (start1 []) state210 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 55 -> state211 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state211 :: LexerState state211 err as [] = err as [] where err _ _ = output Varid as (start1 []) state211 err as iis@(i:is) = case cclass i of 0 -> err as iis 1 -> err as iis 2 -> err as iis 3 -> err as iis 4 -> err as iis 5 -> err as iis 6 -> err as iis 7 -> err as iis 8 -> err as iis 9 -> err as iis 11 -> err as iis 12 -> err as iis 13 -> err as iis 14 -> err as iis 19 -> err as iis 20 -> err as iis 21 -> err as iis 22 -> err as iis 23 -> err as iis 47 -> err as iis 48 -> err as iis 49 -> err as iis 74 -> err as iis 75 -> err as iis 76 -> err as iis 66 -> state165 err (i:as) is _ -> state162 err (i:as) is where err _ _ = output Varid as (start1 iis) state212 :: LexerState state212 err as [] = err as [] where err _ _ = output Special as (start1 []) state212 err as iis@(i:is) = case cclass i of 13 -> state213 err (i:as) is _ -> err as iis where err _ _ = output Special as (start1 iis) state213 :: LexerState state213 err as is = nestedComment as is state214 state214 :: LexerState state214 err as is = output NestedComment as (start1 is) haskell-lexer-1.0/Language/Haskell/Lexer/Layout.hs0000664000175000017500000000400111070313660022224 0ustar diatchkidiatchkimodule Language.Haskell.Lexer.Layout (layoutPre,PosToken) where import Language.Haskell.Lexer.Tokens import Language.Haskell.Lexer.Position type PosToken = (Token,(Pos,String)) -- | This is an implementation of Haskell layout, as specified in -- section 9.3 of the revised Haskell 98 report. -- This preprocessor inserts the extra \ and {n} tokens. layoutPre :: [PosToken] -> [PosToken] layoutPre = indent . open open :: [PosToken] -> [PosToken] open = open1 {-+ If the first lexeme of a module is not { or module, then it is preceded by {n} where n is the indentation of the lexeme. -} open1 :: [PosToken] -> [PosToken] open1 (t1@(Reservedid,(_,"module")):ts) = t1:open2 ts open1 (t1@(Special,(_,"{")):ts) = t1:open2 ts open1 ts@((_,(p,_)):_) = (Open (column p),(p,"")):open2 ts open1 [] = [] {-+ If a let, where, do, or of keyword is not followed by the lexeme {, the token {n} is inserted after the keyword, where n is the indentation of the next lexeme if there is one, or 0 if the end of file has been reached. -} open2 :: [PosToken] -> [PosToken] open2 (t1:ts1) | isLtoken t1 = case ts1 of t2@(_,(p,_)):ts2 -> if notLBrace t2 then t1:(Open (column p),(p,"")):open2 ts1 else t1:t2:open2 ts2 [] -> t1:(Open 0,(fst (snd t1),"")):[] where isLtoken (Reservedid,(_,s)) = s `elem` ["let","where","do","of"] isLtoken _ = False notLBrace (Special,(_,"{")) = False notLBrace _ = True open2 (t:ts) = t:open2 ts open2 [] = [] {-+ (This is from the original Haskell 98 report.) The first token on each line (not including tokens already annotated) is preceeded by <n>, where n is the indentation of the token. -} indent :: [PosToken] -> [PosToken] indent (t1@(Open _,(p,_)):ts) = t1:indent2 (line p) ts indent (t1@(_,(p,_)):ts) = (Indent (column p),(p,"")):t1:indent2 (line p) ts indent [] = [] indent2 :: Int -> [PosToken] -> [PosToken] indent2 r (t1@(_,(p,_)):ts) | line p==r = t1:indent2 r ts indent2 _ ts = indent ts haskell-lexer-1.0/Language/Haskell/Lexer/Position.hs0000664000175000017500000000244111070313660022561 0ustar diatchkidiatchkimodule Language.Haskell.Lexer.Position where -- | The posisiotn within a file. data Pos = Pos { char, line, column :: !Int } deriving (Show) -- | The line and column numbers of a position. simpPos :: Pos -> (Int,Int) simpPos (Pos _ l c) = (l,c) -- Some functions still put fake char positions in Pos values, so... instance Eq Pos where p1 == p2 = simpPos p1 == simpPos p2 instance Ord Pos where compare p1 p2 = compare (simpPos p1) (simpPos p2) -- | The first column is designated column 1, not 0. startPos :: Pos startPos = Pos { char = 0, line = 1, column = 1 } -- | Advance position by a string. nextPos :: Pos -> String -> Pos nextPos = foldl nextPos1 -- | Advance position by a single character. nextPos1 :: Pos -> Char -> Pos nextPos1 (Pos n y x) c = case c of -- The characters newline, return, linefeed, and formfeed, all start -- a new line. '\n' -> Pos (n+1) (y+1) 1 '\CR' -> Pos (n+1) (y+1) 1 '\LF' -> Pos (n+1) (y+1) 1 '\FF' -> Pos (n+1) (y+1) 1 -- Tab stops are 8 characters apart. -- A tab character causes the insertion of enough spaces to align the -- current position with the next tab stop. -- + (not in the report) the first tab stop is column 1. '\t' -> Pos (n+1) y (x+8-(x-1) `mod` 8) _ -> Pos (n+1) y (x+1) haskell-lexer-1.0/Language/Haskell/Lexer/Utils.hs0000664000175000017500000000300111070313660022046 0ustar diatchkidiatchkimodule Language.Haskell.Lexer.Utils ( module Language.Haskell.Lexer.Utils , Token(..) ) where import Language.Haskell.Lexer.Tokens gotEOF :: [a] -> [(Token,[a])] gotEOF [] = [] gotEOF as = [(GotEOF, reverse as)] gotError :: [a] -> [a] -> [(Token, [a])] gotError as is = (ErrorToken, reverse as): if null is then [(GotEOF,[])] else [(TheRest,is{-reverse (take 80 is)-})] -- Inlining the call to output does not make a big difference. --output token as cont = (token, reverse as):cont -- Not reversing the token string seems to save about 10% of the time with HBC. -- The difference in speed seems insignificant with ghc-6.0.1 -O. output :: t -> [a] -> [(t, [a])] -> [(t, [a])] output token as cont = (token,reverse as):cont -- This avoids constructing a closure for the call to reverse. -- This saves about 10% too. {- output token as cont = rev as [] where rev [] as' = (token,as'):cont rev (a:as) as' = rev as (a:as') --} nestedComment :: [Char] -> [Char] -> (([a] -> [a] -> [(Token, [a])]) -> [Char] -> [Char] -> [(Token, [Char])]) -> [(Token, [Char])] nestedComment as' is' next = nest (0::Int) as' is' where nest n as is = case is of '-' : '}' : is1 -> if n == 0 then next gotError ('}':'-':as) is1 else nest (n-1) ('}':'-':as) is1 '{' : '-' : is1 -> nest (n+1) ('-':'{':as) is1 c : is1 -> nest n (c:as) is1 [] -> gotError as is -- EOF inside comment haskell-lexer-1.0/LICENSE0000664000175000017500000000211011070313660015232 0ustar diatchkidiatchkiCopyright (c) 2008 Thomas Hallgren Copyright (c) 2008 Iavor S. Diatchki Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. haskell-lexer-1.0/Setup.hs0000664000175000017500000000005711070313660015671 0ustar diatchkidiatchkiimport Distribution.Simple main = defaultMain haskell-lexer-1.0/haskell-lexer.cabal0000664000175000017500000000124311070313660017757 0ustar diatchkidiatchkiName: haskell-lexer Version: 1.0 License: BSD3 License-file: LICENSE Author: Thomas Hallgren Maintainer: diatchki@galois.com Category: Language Synopsis: A fully compliant Haskell 98 lexer. Description: A fully compliant Haskell 98 lexer. Build-Depends: base Build-type: Simple Extra-source-files: LICENSE Exposed-modules: Language.Haskell.Lexer Other-modules: Language.Haskell.Lexer.Layout, Language.Haskell.Lexer.Tokens, Language.Haskell.Lexer.Lex, Language.Haskell.Lexer.Utils, Language.Haskell.Lexer.Position GHC-options: -O2 -Wall