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

Better syntax syntax

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-04-11 21:09:51 +03:00
parent 7748144a8f
commit 690825f540
14 changed files with 129 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

16
stdlib/Ostap.lama
View file

@ -74,6 +74,12 @@ public fun token (x) {
esac
}
public fun loc (k) {
fun (s) {
k $ Succ ([s.getLine, s.getCol], s)
}
}
public fun eof (k) {
fun (s) {
k (endOfMatcher (s))
@ -235,18 +241,18 @@ public fun parseString (p, s) {
acc.result
}
public fun left (f) {
public fun left (op, f) {
fun (c, x) {
fun (y) {
f (c (x), y)
f (c (x), op, y)
}
}
}
public fun right (f) {
public fun right (op, f) {
fun (c, x) {
fun (y) {
c (f (x, y))
c (f (x, op, y))
}
}
}
@ -258,7 +264,7 @@ fun altl (level) {
local assfun = case assoc of Left -> left | Right -> right | Nona -> left esac;
case map (fun (p) {
case p of
[op, sema] -> op @ lift(assfun (sema))
[op, sema] -> op @ fun (op) {assfun (op, sema)}
esac
}, ps) of
p : ps -> foldl (infix |, p, ps)