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

Match failure implemented

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-12-24 03:59:05 +03:00
parent de2955cbc9
commit 711c8d2f12
5 changed files with 82 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

4
runtime/Std.i
View file

@ -1,3 +1,7 @@
F,fst;
F,snd;
F,hd;
F,tl;
F,readLine;
F,stringcat;
F,sprintf;

22
runtime/runtime.c
View file

@ -617,6 +617,12 @@ extern void Lfailure (char *s, ...) {
vfailure (s, args);
}
extern void Bmatch_failure (void *v, char *fname, int line, int col) {
createStringBuf ();
printValue (v);
failure ("match failure at %s:%d:%d, value '%s'\n", fname, line, col, stringBuf.contents);
}
extern void* /*Lstrcat*/ i__Infix_4343 (void *a, void *b) {
data *da = (data*) BOX (NULL);
data *db = (data*) BOX (NULL);
@ -747,6 +753,22 @@ extern void Lfwrite (char *fname, char *contents) {
failure ("fwrite (\"%s\"): %s\n", fname, strerror (errno));
}
extern void* Lfst (void *v) {
return Belem (v, BOX(0));
}
extern void* Lsnd (void *v) {
return Belem (v, BOX(1));
}
extern void* Lhd (void *v) {
return Belem (v, BOX(0));
}
extern void* Ltl (void *v) {
return Belem (v, BOX(1));
}
/* Lread is an implementation of the "read" construct */
extern int Lread () {
int result = BOX(0);