update, parser kan expressies op binaire operatoren na, beginnetje gemaakt voor prese...

[cc1516.git] / lex.dcl

diff --git a/lex.dcl b/lex.dcl
deleted file mode 100644 (file)
index a887374..0000000
--- a/lex.dcl
+++ /dev/null
@@ -1,57 +0,0 @@
-definition module lex
-
-from Data.Either import :: Either
-
-:: Token :== (Int, TokenValue)
-:: TokenValue
-       //Value tokens
-       = IdentToken [Char] // Identifier
-       | NumberToken Int   // Integer
-       | CharToken Char    // Character literal
-       //Keyword tokens
-       | VarToken          // var keyword
-       | ReturnToken       // return keyword
-       | IfToken           // if keyword
-       | ElseToken         // else keyword
-       | WhileToken        // while keyword
-       | TrueToken         // True keyword
-       | FalseToken        // False keyword
-       | VoidToken         // Void keyword
-       | IntTypeToken      // Int keyword
-       | CharTypeToken     // Char keyword
-       | BoolTypeToken     // Bool keyword
-       //Two character tokens
-       | DoubleColonToken  // ::
-       | NotEqualToken     // !=
-       | LesserEqToken     // <=
-       | GreaterEqToken    // >=
-       | EqualsToken       // ==
-       | AmpersandsToken   // &&
-       | PipesToken        // ||
-    | ArrowToken        // ->
-       //One character tokens
-       | BraceOpenToken    // (
-       | BraceCloseToken   // )
-       | CBraceOpenToken   // {
-       | CBraceCloseToken  // }
-       | SquareOpenToken   // [
-       | SquareCloseToken  // ]
-       | CommaToken        // ,
-       | ColonToken        // :
-       | SColonToken       // ;
-       | DotToken          // .
-       | PlusToken         // +
-       | DashToken         // -
-       | StarToken         // *
-       | SlashToken        // /
-       | PercentToken      // %
-       | AssignmentToken   // =
-       | LesserToken       // <
-       | BiggerToken       // >
-       | ExclamationToken  // !
-       //Special tokens
-       | EndOfFileToken    // EOF
-
-:: LexerOutput :== Either String [Token]
-
-lexer :: [Char] -> LexerOutput