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

upd comments

Browse source
This commit is contained in:
Danya Berezun 2023-09-05 20:56:10 +02:00
parent 20cb055883
commit ec9beed470
2 changed files with 72 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

43
runtime/runtime.c
View file

@ -96,7 +96,7 @@ extern int LkindOf (void *p) {
return TAG(TO_DATA(p)->data_header);
}
// Compare sexprs tags
// Compare s-exprs tags
extern int LcompareTags (void *p, void *q) {
data *pd, *qd;
@ -111,8 +111,8 @@ extern int LcompareTags (void *p, void *q) {
} else {
failure("not a sexpr in compareTags: %d, %d\n", TAG(pd->data_header), TAG(qd->data_header));
}
return 0; // never happens
// dead code
return 0;
}
// Functional synonym for built-in operator ":";
@ -1165,17 +1165,15 @@ extern void *Lfread (char *fname) {
f = fopen(fname, "r");
if (f) {
if (fseek(f, 0l, SEEK_END) >= 0) {
long size = ftell(f);
void *s = LmakeString(BOX(size));
if (f && fseek(f, 0l, SEEK_END) >= 0) {
long size = ftell(f);
void *s = LmakeString(BOX(size));
rewind(f);
rewind(f);
if (fread(s, 1, size, f) == size) {
fclose(f);
return s;
}
if (fread(s, 1, size, f) == size) {
fclose(f);
return s;
}
}
@ -1190,16 +1188,11 @@ extern void Lfwrite (char *fname, char *contents) {
f = fopen(fname, "w");
if (f) {
if (fprintf(f, "%s", contents) < 0)
;
else {
fclose(f);
return;
}
if (f && !(fprintf(f, "%s", contents) < 0)) {
fclose(f);
} else {
failure("fwrite (\"%s\"): %s\n", fname, strerror(errno));
}
failure("fwrite (\"%s\"): %s\n", fname, strerror(errno));
}
extern void *Lfexists (char *fname) {
@ -1287,11 +1280,3 @@ extern void set_args (int argc, char *argv[]) {
push_extra_root((void **)&global_sysargs);
}
/* GC starts here */
static int enable_GC = 1;
extern void LenableGC () { enable_GC = 1; }
extern void LdisableGC () { enable_GC = 0; }