From 8c8f6155f1b05230c271059c52a503211aec872b Mon Sep 17 00:00:00 2001 From: Charles Date: Mon, 16 Mar 2020 14:15:42 +0100 Subject: file Renaming, basic REPL --- src/parser/expr.hs | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 src/parser/expr.hs (limited to 'src/parser/expr.hs') diff --git a/src/parser/expr.hs b/src/parser/expr.hs deleted file mode 100644 index b84362d..0000000 --- a/src/parser/expr.hs +++ /dev/null @@ -1,45 +0,0 @@ -module Parser.Expr where - -import Control.Applicative - -import Parser.Core -import Atom -import Expr - - -imaginaryP :: Parser Atom -imaginaryP = AImaginary <$> (floatP <* char 'i') - -rationalP :: Parser Atom -rationalP = ARational <$> floatP - -termOpP :: Parser (Expr -> Expr -> Expr) -termOpP = infixOp "+" Add <|> infixOp "-" Sub - -factorOpP :: Parser (Expr -> Expr -> Expr) -factorOpP = infixOp "*" Mul <|> infixOp "/" Div <|> infixOp "%" Mod - -expOpP :: Parser (Expr -> Expr -> Expr) -expOpP = infixOp "^" Exp - -exprP :: Parser Expr -exprP = termP `chainl1` termOpP - -termP :: Parser Expr -termP = factorP `chainl1` factorOpP - -variableP :: Parser Expr -variableP = Variable <$> alphaStringP - -functionP :: Parser Expr -functionP = Function <$> alphaStringP <*> parenthesisExprP - -factorP :: Parser Expr -factorP = endpointP `chainl1` expOpP - where endpointP = parenthesisExprP <|> (EAtom <$> atomP) <|> functionP <|> variableP - -parenthesisExprP :: Parser Expr -parenthesisExprP = parenthesize exprP - -atomP :: Parser Atom -atomP = imaginaryP <|> rationalP -- cgit