quakeforge/ruamoko/scheme/main.qc

#include "Parser.h"
#include "Nil.h"
#include "Cons.h"
#include "Lambda.h"
#include "defs.h"
#include "qfile.h"
#include "string.h"
#include "builtins.h"
#include "Compiler.h"
#include "Machine.h"
#include "CompiledCode.h"

string readfile (string filename)
{
    local string acc = "", res;
    local QFile file = Qopen (filename, "r");
    while (!Qeof (file)) {
            acc += Qgetline (file) + "\n";
    }
    Qclose (file);
    res = str_new();
    str_copy(res, acc);
    return res;
}
    

integer main (integer argc, string []argv)
{
    local Parser parser; 
    local CompiledCode code;
    local Compiler comp;
    local Machine vm;
    local Lambda lm;
    local SchemeObject stuff;

    if (argc < 1) {
            return -1;
    }
    
    builtin_init();
    parser = [Parser newFromSource: readfile(argv[1])];
    vm = [Machine new];
    [vm makeRootCell];
    [vm addGlobal: [Symbol forString: "display"] value: print_p];
    [vm addGlobal: [Symbol forString: "newline"] value: newline_p];
    [vm addGlobal: [Symbol forString: "+"] value: add_p];
    [vm addGlobal: [Symbol forString: "map"] value: map_p];
    [vm addGlobal: [Symbol forString: "for-each"] value: for_each_p];
    while ((stuff = [parser read])) {
            comp = [Compiler newWithLambda: cons ([Symbol forString: "lambda"],
                                                  cons ([Nil nil],
                                                        cons(stuff, [Nil nil])))
                             scope: NIL];
            [comp compile];
            code = [comp code];
            lm = [Lambda newWithCode: code environment: NIL];
            [lm invokeOnMachine: vm];
            [vm run];
            [SchemeObject collect];
    }
    return 0;
}