Update readme and work on SCM to C translator
This commit is contained in:
24
shared/scm2c/main.c
Normal file
24
shared/scm2c/main.c
Normal 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);
|
||||
}
|
||||
Reference in New Issue
Block a user