root/lang/c/misc/mlisp/test/main.c @ 5993

#include <stdio.h>
#include <string.h>
#include "mlisp.h"

#ifndef FALSE
#define FALSE           (0)
#define TRUE            (1)
#endif

/// �Θb�‹�
void interact(MLContext* ml, FILE* fp, FILE* ofp)
{
        int b_print_read = FALSE;

        for (;;) {
                SExp r, e = cNL;
                const char* str;

                fprintf(ofp, "> ");

                for (;;) {
                        r = ml_read(ml, fp);
                        if (r == cEOF)  goto L_quit;
                        if (r == cNL)   break;

                        str = ml_get_string(ml, r);
                        if (str != NULL) {
                                if (strcmp(str, ":quit") == 0)          goto L_quit;
                                if (strcmp(str, ":debug") == 0) {
                                        b_print_read = !b_print_read;
                                        ml_set_flag(ml, MLF_PRINT_FUNC_ARG, b_print_read);
                                        ml_set_flag(ml, MLF_PRINT_MACRO_REPLACE, b_print_read);
                                        fprintf(ofp, "debug: %s\n", b_print_read ? "ON" : "OFF");
                                        continue;
                                }
                                if (strcmp(str, ":dump") == 0) {
                                        ml_dump(ml);
                                        continue;
                                }
                        }
                        if (b_print_read) {
                                ml_print(ml, ofp, r);
                        }

                        e = ml_eval(ml, r);
                }
                if (e != cNL) {
                        ml_print(ml, ofp, e);
                }
        }
L_quit:;
}

/// �Θb�‹�
int eval_file(MLContext* ml, const char* fn)
{
        FILE* fp = fopen(fn, "r");
        if (fp == NULL) {
                return FALSE;
        }

        for (;;) {
                SExp r = ml_read(ml, fp);
                if (r == cEOF)  break;
                if (r == cNL)   continue;

                ml_eval(ml, r);
        }

        return TRUE;
}

/// �G���g���|�C���g
int main(int argc, char* argv[])
{
        MLContext* ml = ml_new();

        if (argc < 2) {
                interact(ml, stdin, stdout);
        } else {
                int i;
                for (i=0; ++i<argc; ) {
                        const char* fn = argv[i];
                        eval_file(ml, fn);
                }
        }

        ml_delete(ml);

        return 0;
}