Commit 3218e2e9 authored by mnay1u19's avatar mnay1u19
Browse files

alex file

parent c8982829
......@@ -6,7 +6,6 @@ module Lexer where
$digit = 0-9
$alpha = [a-zA-Z]
tokens :-
$white+ ;
"--".* ;
......@@ -32,8 +31,6 @@ tokens :-
'.' {\s -> TokenFullstop }
in {\s -> TokenInSet }
out {\s -> TokenOutSet }
$digit $digit+ {(\p s -> TokenInt p (read s))}
$alpha [$alpha $digit \_ \’]* { \p s -> TokenVar p s }
{
--token type:
data Token =
......
......@@ -23,7 +23,4 @@ Expr : Expr == Expr
| false
Record : '['Exprs']'
Exprs : Expr
| Expr','Exprs
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment