X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=exprparse%2Ftest.icl;h=d71664da5b1f555650382400407c6f83b5afe7dc;hb=HEAD;hp=72f4de907b25242bb7128d67a3122f3d93a611ff;hpb=52b07dd4f4a5821ec016d82f8df442109217c1ce;p=clean-tests.git

diff --git a/exprparse/test.icl b/exprparse/test.icl
deleted file mode 100644
index 72f4de9..0000000
--- a/exprparse/test.icl
+++ /dev/null
@@ -1,32 +0,0 @@
-module test
-
-import StdEnv
-
-import Data.Functor
-import Control.Applicative
-
-import Text.Parsers.Simple.Core
-import Text.Parsers.Simple.Chars
-
-preprocess :: [Char] -> [Char]
-preprocess c = ['((((':foldr prep ['))))'] c]
-where
-	prep '(' cs = ['(','(','(','(':cs]
-	prep ')' cs = [')',')',')',')':cs]
-	prep '^' cs = [')','^','(':cs]
-	prep '*' cs = [')',')','*','(','(':cs]
-	prep '/' cs = [')',')','/','(','(':cs]
-	prep '+' cs = [')',')',')','+','(','(','(':cs]
-	prep '-' cs = [')',')',')','-','(','(','(':cs]
-	prep c cs   = [c:cs]
-
-:: Expr = BinOp Expr Char Expr | Lit Int | Var [Char]
-
-parseExpr :: Parser Char Expr
-parseExpr
-	=   BinOp <$ pToken '(' <*> parseExpr <*> pOneOf ['^*/+-'] <*> parseExpr <* pToken ')'
-	<|> Var <$> some pAlpha
-	<|> Lit o toInt o toString <$> some pDigit
-
-Start = parse parseExpr (preprocess ['a'])
-//Start = parse parseExpr (preprocess ['a*b+c^d/e'])