root/lang/c/misc/mlisp/sexp/mlisp.cpp @ 11549

//=============================================================================
/// �‹�
//=============================================================================

#include "mlisp.h"
#include "s_util.h"
#include "c_compiler.h"
#include "v_vm.h"
#include "op.h"
#include "m_basic.h"
#include "inner.h"

/// ��s
SExp run(SExp c) {
        return vm(nil, c, 0, nil, 0);
}

/// �g�b�v���x���ŃR���p�C��
SExp compile_ontop(SExp code) {
        SExp halt_code = cons(HALT, nil);
        return compile(code, list(1, nil), nil, halt_code);
}

/// �]��
SExp evaluate(SExp code) {
        SExp c = compile_ontop(code);
//print(c);
        return run(c);
}


// �\�[�X�̃��[�h�i�ǂݍ��݁A�R���p�C���A��s�j
SExp load_eval(const char* fn) {
        FILE* fp = fopen(fn, "r");
        if (fp == NULL) {
//              error();
                return nil;
        } else {
                SExp res;
                for (;;) {
                        SExp sexp = read_from_file(fp);
                        if (nilp(sexp)) break;          // @todo: EOF�̈���
                        res = run(compile_ontop(sexp));
                }
                fclose(fp);
                return res;
        }
}


void mlisp_new(const SVTable* vtbl) {
        sexp_new(vtbl);
        init_vm();
        init_compile();
        define_basic_lib();
}

void mlisp_delete(void) {
        sexp_delete();
}