patrick/WoofWare.PrattParser
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.PrattParser synced 2025-10-06 01:48:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add array indexing

Browse Source
This commit is contained in:
Smaug123
2024-01-22 22:43:44 +00:00
parent 04edaf65ed
commit 8cee6accf9
5 changed files with 90 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
PrattParser.Test/TestParser.fs
View File

@@ -11,6 +11,20 @@ module TestParser =
let parserTestCases =
[
"1", Expr.constInt 1
"1 + 2 * 3", Expr.plus (Expr.constInt 1) (Expr.times (Expr.constInt 2) (Expr.constInt 3))
"a + b * c * d + e",
Expr.plus
(Expr.plus (Expr.var "a") (Expr.times (Expr.times (Expr.var "b") (Expr.var "c")) (Expr.var "d")))
(Expr.var "e")
"--1 * 2", Expr.times (Expr.unaryMinus (Expr.unaryMinus (Expr.constInt 1))) (Expr.constInt 2)
"-9!", Expr.unaryMinus (Expr.factorial (Expr.constInt 9))
"(((0)))", Expr.paren (Expr.paren (Expr.paren (Expr.constInt 0)))
"x.[0].[1]", Expr.arrayIndex (Expr.arrayIndex (Expr.var "x") (Expr.constInt 0)) (Expr.constInt 1)
"if a = 0 then b else c = d",
Expr.ifThenElse
(Expr.equal (Expr.var "a") (Expr.constInt 0))
(Expr.var "b")
(Expr.equal (Expr.var "c") (Expr.var "d"))
"a", Expr.var "a"
"-1", Expr.unaryMinus (Expr.constInt 1)
"-a", Expr.unaryMinus (Expr.var "a")
@@ -20,6 +34,17 @@ module TestParser =
"if x then y else z", Expr.ifThenElse (Expr.var "x") (Expr.var "y") (Expr.var "z")
"if x then y", Expr.ifThen (Expr.var "x") (Expr.var "y")
"1 + if x then y", Expr.plus (Expr.constInt 1) (Expr.ifThen (Expr.var "x") (Expr.var "y"))
"if x then y else if r then s",
Expr.ifThenElse (Expr.var "x") (Expr.var "y") (Expr.ifThen (Expr.var "r") (Expr.var "s"))
"if x then y else if r then s else 5",
Expr.ifThenElse
(Expr.var "x")
(Expr.var "y")
(Expr.ifThenElse (Expr.var "r") (Expr.var "s") (Expr.constInt 5))
"if if x then y else z then a",
Expr.ifThen (Expr.ifThenElse (Expr.var "x") (Expr.var "y") (Expr.var "z")) (Expr.var "a")
"if if x then y else z then a else b",
Expr.ifThenElse (Expr.ifThenElse (Expr.var "x") (Expr.var "y") (Expr.var "z")) (Expr.var "a") (Expr.var "b")
"if x + 1 then y else z + 3",
Expr.ifThenElse
(Expr.plus (Expr.var "x") (Expr.constInt 1))