X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=lex.dcl;h=e78d495a938dfe2fe934934f3a2bc168333f4329;hb=f5231ebadae1ac54e25dbf5819debb3ab625826d;hp=56c3765319aa20a5e2293816785c7bf84034d58c;hpb=011c22770609138b54195d330232bc2a1e88d0ae;p=cc1516.git diff --git a/lex.dcl b/lex.dcl deleted file mode 100644 index 56c3765..0000000 --- a/lex.dcl +++ /dev/null @@ -1,50 +0,0 @@ -definition module lex - -import Data.Either - -:: Token - //Value tokens - = IdentToken [Char] // Identifier - | NumberToken Int // Integer - | CharToken Char // Character literal - //Keyword tokens - | VarToken // var keyword - | VoidToken // void keyword - | ReturnToken // return keyword - | IfToken // if keyword - | ElseToken // else keyword - | WhileToken // while keyword - | TrueToken // True keyword - | FalseToken // False keyword - //One character tokens - | BraceOpenToken // ( - | BraceCloseToken // ) - | CBraceOpenToken // { - | CBraceCloseToken // { - | SquareOpenToken // [ - | SquareCloseToken // ] - | CommaToken // , - | ColonToken // : - | SColonToken // ; - | DotToken // . - | PlusToken // + - | DashToken // - - | StarToken // * - | SlashToken // / - | PercentToken // % - | AssignmentToken // = - | LesserToken // < - | BiggerToken // > - | ExclamationToken // ! - //Two character tokens - | DoubleColonToken // :: - | LesserEqToken // <= - | GreaterEqToken // >= - | EqualsToken // == - | AmpersandsToken // && - | PipesToken // || - | ArrowToken // -> - -:: LexerOutput :== Either String [Token] - -lexer :: [Char] -> LexerOutput