factor/native/factor.c

#include "factor.h"

int main(int argc, char** argv)
{
	CELL args;

	if(argc == 1)
	{
		printf("Usage: factor <image file> [ parameters ... ]\n");
		printf("\n");
		
		return 1;
	}

	init_arena(DEFAULT_ARENA);
	load_image(argv[1]);
	init_stacks();
	init_io();
	init_signals();

	args = F;
	while(--argc != 0)
	{
		args = tag_cons(cons(tag_object(from_c_string(argv[argc])),
			args));
	}

	userenv[ARGS_ENV] = args;

	run();

	return 0;
}