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

More Ostap tests

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-22 22:30:34 +03:00
parent 9163747ff3
commit ff197744f6
3 changed files with 45 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

28
stdlib/Ostap.expr
View file

@ -11,7 +11,11 @@ public fun initOstap () {
hct := emptyMemo ()
}
fun memo (f) {
public fun cleanupOstap () {
initOstap ()
}
public fun memo (f) {
local t;
f := lookupMemo (hct, f);
@ -148,7 +152,7 @@ public fun observe (name, f) {
}
}
public fun createResult () {
fun createResult () {
local errors = ref ({}),
line = ref (0),
col = ref (0),
@ -192,10 +196,26 @@ public fun createResult () {
[k, get]
}
public fun k (acc) {
fun k (acc) {
acc [0]
}
public fun result (acc) {
fun result (acc) {
acc [1] ()
}
public fun parse (p, m) {
local acc = createResult ();
p (acc.k) (m);
acc.result
}
public fun parseString (p, s) {
local acc = createResult ();
p (acc.k) (initMatcher (s));
acc.result
}