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

Stdlib:Data

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-08-06 14:56:41 +03:00
parent f6d4a475b4
commit 026158923f
12 changed files with 314 additions and 200 deletions
Download patch file Download diff file Expand all files Collapse all files

6
stdlib/Ostap.lama
View file

@ -17,7 +17,7 @@ public fun logOn () {
}
public fun initOstap () {
tab := ref (emptyHashTab ());
tab := ref (emptyHashTab (1024, hash, compare));
restab := emptyMemo ();
hct := emptyMemo ()
}
@ -29,7 +29,7 @@ public fun memo (f) {
case findHashTab (deref (tab), f) of
None -> if log then printf ("new table...\n") fi;
tab ::= addHashTab (deref (tab), f, ref (emptyMap ()))
tab ::= addHashTab (deref (tab), f, ref (emptyMap (compare)))
| Some (tt) -> skip
esac;
@ -43,7 +43,7 @@ public fun memo (f) {
if log then printf ("Applying memoized parser to %s\n", s.string) fi;
case findMap (deref (t), s) of
None ->
t ::= addMap (deref (t), s, [addSet (emptySet (), k), emptySet ()]);
t ::= addMap (deref (t), s, [addSet (emptySet (compare), k), emptySet (compare)]);
f (fun (r) {
r := lookupMemo (restab, r);
if log then printf ("Running continuation with result %s\n", r.string) fi;