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

Better infixes

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-14 03:30:17 +03:00
parent 92f60665df
commit 25ec856fba
11 changed files with 56 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

6
regression/test053.expr
View file

@ -1,6 +1,6 @@
local n;
infix "===" at "==" (v1, v2) {
infix === at == (v1, v2) {
local s1, s2, i;
s1 := v1.string;
@ -17,14 +17,14 @@ infix "===" at "==" (v1, v2) {
fi
}
infix "?" before "+" (v, l) {
infix ? before + (v, l) {
case l of
{} -> return 0
| h : tl -> if h === v then return 1 else return (v ? tl) fi
esac
}
infix "+++" at "+" (l1, l2) {
infix +++ at + (l1, l2) {
case l1 of
{} -> return l2
| h : tl -> return (h : tl +++ l2)

2
regression/test060.expr
View file

@ -1,5 +1,5 @@
fun f (l) {
infix "===" at "==" (a, b) {
infix === at == (a, b) {
return a == b
}

4
regression/test064.expr
View file

@ -1,5 +1,5 @@
infix "++" at "+" (a, b) {return a+b}
infix ++ at + (a, b) {return a+b}
local x = read ();
write (infix "++" (2, 3))
write (infix ++ (2, 3))

2
regression/test067.expr
View file

@ -1,4 +1,4 @@
infixr "**" before "*" (f, g) {
infixr ** before * (f, g) {
return fun (x) {return f (g (x))}
}

6
regression/test087.expr
View file

@ -1,6 +1,6 @@
local n;
infix "===" at "==" (v1, v2) {
infix === at == (v1, v2) {
local s1, s2, i;
s1 := v1.string;
@ -17,14 +17,14 @@ infix "===" at "==" (v1, v2) {
fi
}
infix "?" before "+" (v, l) {
infix ? before + (v, l) {
case l of
{} -> 0
| h : tl -> if h === v then 1 else (v ? tl) fi
esac
}
infix "+++" at "+" (l1, l2) {
infix +++ at + (l1, l2) {
case l1 of
{} -> l2
| h : tl -> (h : tl +++ l2)

2
regression/test092.expr
View file

@ -1,5 +1,5 @@
fun f (l) {
infix "===" at "==" (a, b) {
infix === at == (a, b) {
a == b
}

4
regression/test095.expr
View file

@ -1,5 +1,5 @@
infix "++" at "+" (a, b) { a+b}
infix ++ at + (a, b) { a+b}
local x = read ();
write (infix "++" (2, 3))
write (infix ++ (2, 3))

2
regression/test098.expr
View file

@ -1,4 +1,4 @@
infixr "**" before "*" (f, g) {
infixr ** before * (f, g) {
fun (x) { f (g (x))}
}