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

Expr.expr --- associativity

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-31 01:30:03 +03:00
parent b4ba38a0f7
commit 4c031ce95f
11 changed files with 98 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

15
stdlib/Ostap.expr
View file

@ -4,27 +4,27 @@ import Ref;
import Fun;
import Matcher;
local tab, hct, log = false;
local tab, hct, restab, log = false;
public fun logOn () {
log := true
}
public fun initOstap () {
tab := ref (emptyHashTab ());
hct := emptyMemo ()
tab := ref (emptyHashTab ());
restab := emptyMemo ();
hct := emptyMemo ()
}
public fun memo (f) {
local t;
f := lookupMemo (hct, f);
if log then printf ("Memoizing: %x=%s\n", f, f.string) fi;
case findHashTab (deref (tab), f) of
None -> if log then printf ("new table...\n") fi; t := ref (emptyMap ()); tab ::= addHashTab (deref (tab), f, t)
| Some (tt) -> t := tt
None -> if log then printf ("new table...\n") fi;
tab ::= addHashTab (deref (tab), f, ref (emptyMap ()))
| Some (tt) -> skip
esac;
fun (k) {
@ -35,6 +35,7 @@ public fun memo (f) {
None ->
t ::= addMap (deref (t), s, [addSet (emptySet (), k), emptySet ()]);
f (fun (r) {
r := lookupMemo (restab, r);
if log then printf ("Running continuation with result %s\n", r.string) fi;
case findMap (deref (t), s) of
Some ([ks, rs]) ->