factor/vm/factor.c

#include "factor.h"

void init_factor(const char* image,
	CELL ds_size, CELL rs_size, CELL cs_size,
	CELL gen_count, CELL young_size, CELL aging_size, CELL code_size)
{
	srand(current_millis());
	init_ffi();
	init_data_heap(gen_count,young_size,aging_size);
	init_code_heap(code_size);
	init_stacks(ds_size,rs_size,cs_size);
	/* callframe must be valid in case load_image() does GC */
	callframe = F;
	callframe_scan = callframe_end = 0;
	thrown_error = F;
	load_image(image);
	call(userenv[BOOT_ENV]);
	init_c_io();
	init_signals();
	userenv[CPU_ENV] = tag_object(from_char_string(FACTOR_CPU_STRING));
	userenv[OS_ENV] = tag_object(from_char_string(FACTOR_OS_STRING));
	userenv[GEN_ENV] = tag_fixnum(gen_count);
	userenv[CARD_OFF_ENV] = tag_cell(cards_offset);
	userenv[IMAGE_ENV] = tag_object(from_char_string(image));
	userenv[CELL_SIZE_ENV] = tag_fixnum(sizeof(CELL));
}

INLINE bool factor_arg(const char* str, const char* arg, CELL* value)
{
	int val;
	if(sscanf(str,arg,&val))
	{
		*value = val;
		return true;
	}
	else
		return false;
}

int main(int argc, char** argv)
{
	const char *image = NULL;
	CELL ds_size = 128;
	CELL rs_size = 128;
	CELL cs_size = 128;
	CELL generations = 2;
	CELL young_size = 4 * CELLS;
	CELL aging_size = 8 * CELLS;
	CELL code_size = CELLS;
	F_ARRAY *args;
	CELL arg_count;
	CELL i;
	bool image_given = true;

	early_init();

	for(i = 1; i < argc; i++)
	{
		if(factor_arg(argv[i],"-D=%d",&ds_size)) continue;
		if(factor_arg(argv[i],"-R=%d",&rs_size)) continue;
		if(factor_arg(argv[i],"-C=%d",&cs_size)) continue;
		if(factor_arg(argv[i],"-G=%d",&generations)) continue;
		if(factor_arg(argv[i],"-Y=%d",&young_size)) continue;
		if(factor_arg(argv[i],"-A=%d",&aging_size)) continue;
		if(factor_arg(argv[i],"-X=%d",&code_size)) continue;

		if(strncmp(argv[i],"-",1) != 0 && image == NULL)
			image = argv[1];
	}

	if(image == NULL)
	{
		image_given = false;
		image = default_image_path();
	}

	init_factor(image,
		ds_size * 1024,
		rs_size * 1024,
		cs_size * 1024,
		generations,
		young_size * 1024 * 1024,
		aging_size * 1024 * 1024,
		code_size * 1024 * 1024);

	arg_count = (image_given ? 2 : 1);
	args = array(ARRAY_TYPE,argc,F);
	while(arg_count < argc)
	{
		put(AREF(args,arg_count),tag_object(from_char_string(argv[arg_count])));
		arg_count++;
	}

	userenv[ARGS_ENV] = tag_object(args);

	run_toplevel();

	critical_error("run_toplevel() returned due to empty callstack",0);

	return 0;
}