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

Postfix calls

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-03-11 15:24:03 +03:00
parent e16fb72a9e
commit fe4e322d58
9 changed files with 87 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

3
regression/orig/test052.log Normal file
View file

@ -0,0 +1,3 @@
> 1
2
3

24
regression/test052.expr Normal file
View file

@ -0,0 +1,24 @@
fun hd (l) {
case l of
h : _ -> return h
esac
}
fun tl (l) {
case l of
_ : tl -> return tl
esac
}
fun print_list (l) {
case l of
{} -> skip
| h : t -> write (h); print_list (t)
esac
}
n := read ();
write ({1, 2, 3}.hd);
print_list ({1, 2, 3}.tl)

1
regression/test052.input Normal file
View file

@ -0,0 +1 @@
0

3
regression/x86only/orig/test004.log Normal file
View file

@ -0,0 +1,3 @@
1
{2, 3, 4}
2

15
regression/x86only/test004.expr Normal file
View file

@ -0,0 +1,15 @@
fun hd (l) {
case l of
h : _ -> return h
esac
}
fun tl (l) {
case l of
_ : t -> return t
esac
}
printf ("%s\n", {1, 2, 3}.hd.string);
printf ("%s\n", {1, 2, 3, 4}.tl.string);
printf ("%s\n", {1, {2, 3, 4}, 5, 6}.tl.hd.hd.string)

1
regression/x86only/test004.input Normal file
View file

@ -0,0 +1 @@
0