st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-24 07:38:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

More Ostap tests

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-31 01:57:28 +03:00
parent 4c031ce95f
commit 4ed4101ad9
2 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
stdlib/regression/test16.expr Normal file
View file

@ -0,0 +1,28 @@
import Ostap;
import Expr;
import Fun;
import List;
local a = token ("a") @ lift(fun (a) {if a then "a" else "b" fi}),
eq = [token ("="), fun (l, r) {fun (a) {Eq (l (a), r (a))}}],
add = [token ("+"), fun (l, r) {fun (a) {Add (l (a), r (a))}}],
sub = [token ("-"), fun (l, r) {fun (a) {Sub (l (a), r (a))}}],
mul = [token ("*"), fun (l, r) {fun (a) {Mul (l (a), r (a))}}],
div = [token ("/"), fun (l, r) {fun (a) {Div (l (a), r (a))}}],
exp = expr ({[Nona, singleton (eq)], [Right, {add, sub}], [Left, {mul, div}]}, a) (id);
fun unpack (x, y) {
case x of
Fail (_) -> x
| Succ (z) -> Succ (z (y))
esac
}
printf ("%s\n", unpack (parseString (exp |> bypass (eof), "a=a"), true).string);
printf ("%s\n", unpack (parseString (exp |> bypass (eof), "a=a"), false).string);
printf ("%s\n", unpack (parseString (exp |> bypass (eof), "a*a=a*a"), true).string);
printf ("%s\n", unpack (parseString (exp |> bypass (eof), "a*a=a*a"), false).string);
printf ("%s\n", unpack (parseString (exp |> bypass (eof), "a*a+a/a-a*a=a*a-a"), true).string);
printf ("%s\n", unpack (parseString (exp |> bypass (eof), "a*a+a/a-a*a=a*a-a"), false).string)