Administrator approval is now required for registering new accounts. If you are registering a new account, and are external to the University, please ask the repository owner to contact ServiceLine to request your account be approved. Repository owners must include the newly registered email address, and specific repository in the request for approval.

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
Markdown is supported
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