shithub: femtolisp

ref: 4c54e1ad28d9df45a2ae94d0152ec9036d7207d6
dir: /flmain.c/

#include "llt.h"
#include "flisp.h"
#include "cvalues.h"
#include "print.h"

static value_t
argv_list(int argc, char *argv[])
{
	int i;
	value_t lst = FL_NIL, temp;
	fl_gc_handle(&lst);
	fl_gc_handle(&temp);
	for(i = argc-1; i >= 0; i--){
		temp = cvalue_static_cstring(argv[i]);
		lst = fl_cons(temp, lst);
	}
	fl_free_gc_handles(2);
	return lst;
}

extern fltype_t *iostreamtype;

int
flmain(const char *boot, int bootsz, int argc, char **argv)
{
	value_t f;
	ios_t *s;
	int r;

	fl_init(512*1024);

	f = cvalue(iostreamtype, sizeof(ios_t));
	s = value2c(ios_t*, f);
	ios_static_buffer(s, boot, bootsz);

	r = 1;
	FL_TRY_EXTERN{
		if(fl_load_system_image(f) == 0){
			fl_applyn(1, symbol_value(symbol("__start")), argv_list(argc, argv));
			r = 0;
		}
	}
	FL_CATCH_EXTERN_NO_RESTORE{
		ios_puts("fatal error:\n", ios_stderr);
		fl_print(ios_stderr, fl_lasterror);
		ios_putc('\n', ios_stderr);
		break;
	}
	return r;
}