X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=lex.dcl;h=e78d495a938dfe2fe934934f3a2bc168333f4329;hb=f5231ebadae1ac54e25dbf5819debb3ab625826d;hp=95bd0bd6824c7cd235ddefbac5c280b70a724ce1;hpb=6910d87166dedb7032fd31684e52df3d0b25910e;p=cc1516.git diff --git a/lex.dcl b/lex.dcl deleted file mode 100644 index 95bd0bd..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 a :== Either String a - -lexer :: [Char] -> LexerOutput [Token]