Massive renaming

This commit is contained in:
Dmitry Boulytchev 2020-02-16 00:21:15 +03:00
parent 241ab0a9ae
commit 61296c51e7
152 changed files with 45 additions and 29 deletions

View file

@ -1,19 +0,0 @@
import Ostap;
import List;
import Fun;
fun many (a) {
memo (
fun (k) {
empty @ lift({})
| many (a) |> fun (as) {a @ fun (x) {as +++ singleton (x)}} $ k
}
)
}
local a = token ("a"), b = token ("b");
local bad_alter = a | a |> fun (x) {b @ fun (y) {x ++ y}};
--logOn ();
printf ("Parsing ""aaa"" with many ... %s\n", parseString (many (a) |> bypass (eof), "aaa").string);
printf ("Parsing ""ab"" with bad_alter ... %s\n", parseString (bad_alter |> bypass (eof), "ab").string)