Update readme and work on SCM to C translator

This commit is contained in:
2021-06-11 18:05:03 -04:00
parent 38b8a9fb56
commit bcabdd3212
5 changed files with 84 additions and 28 deletions

24
shared/scm2c/main.c Normal file
View File

@@ -0,0 +1,24 @@
#include <stdio.h>
#include "scm_support.h"
int main() {
int val;
int *argl;
void *cont, *entry, *proc, *env;
proc = lookup_variable_value("+", env);
val = 1;
argl = list(val);
val = 1;
argl = cons(val, argl);
if (primitive_procedure(proc) == 1)
goto primitivebranch3;
compiledbranch2:
cont = &&aftercall1;
entry = compiled_procedure_entry(proc);
goto *entry;
primitivebranch3:
val = proc(argl);
aftercall1:
printf("%u\n", val);
}