repl.c

#include "type.h"
#include "nil.h"
#include "pair.h"
#include "exception.h"
#include "exit.h"
#include "local.h"
#include "interpreter.h"
#include <stdio.h>
#include <stdarg.h>

extern void create_reader(void);
extern void free_reader(void);
extern Object *read(void);

static int exit_status = 0;
static int request_exit = 0;
static void will_exit(int);
static int exiting(void);
static void print(Object *value);
static void print_error(Object *, char *, ...);

int main(int argc, char **argv) {
    enable_exceptions();
    create_interpreter();
    create_reader();
    create_local();
    do {
        Try {
            print(local(eval(local(read()), throw_exception, top_level())));
        } Catch {
            if (is_exit_code(local((Object *)exception_information()))) {
                will_exit(*(int *)value((Object *)exception_information()));
            } else {
                print_error((Object *)exception_information(), exception_message());
            }
        }
    } while (! exiting());
    destroy_local();
    free_reader();
    free_interpreter();
    disable_exceptions();
    return exit_status;
}

static void will_exit(int exit_code) {
    request_exit = 1;
    exit_status = exit_code;
}

static int exiting(void) {
    return request_exit;
}

static void print(Object *value) {
    if (value != NULL) {
        write_object(value, (Printf)printf);
        printf("\n");
    }
}

static void print_error(Object *object, char *message, ...) {
    va_list optional;
    va_start(optional, message);
    vprintf(message, optional);
    va_end(optional);
    printf(" - ");
    write_object(object, (Printf)printf);
    printf("\n");
}