113 lines
2.3 KiB
C
113 lines
2.3 KiB
C
#include "factor.h"
|
|
|
|
void default_parameters(F_PARAMETERS *p)
|
|
{
|
|
p->image = NULL;
|
|
p->ds_size = 128;
|
|
p->rs_size = 128;
|
|
p->cs_size = 128;
|
|
p->gen_count = 2;
|
|
p->young_size = 2 * CELLS;
|
|
p->aging_size = 4 * CELLS;
|
|
p->code_size = 2 * CELLS;
|
|
p->secure_gc = false;
|
|
}
|
|
|
|
void init_environment(void)
|
|
{
|
|
userenv[CPU_ENV] = tag_object(from_char_string(FACTOR_CPU_STRING));
|
|
userenv[OS_ENV] = tag_object(from_char_string(FACTOR_OS_STRING));
|
|
userenv[CELL_SIZE_ENV] = tag_fixnum(sizeof(CELL));
|
|
}
|
|
|
|
/* Get things started */
|
|
void init_factor(F_PARAMETERS *p)
|
|
{
|
|
gc_off = true;
|
|
|
|
early_init();
|
|
|
|
if(p->image == NULL)
|
|
p->image = default_image_path();
|
|
|
|
srand(current_millis());
|
|
init_primitives();
|
|
init_ffi();
|
|
init_stacks(p->ds_size,p->rs_size,p->cs_size);
|
|
load_image(p);
|
|
init_c_io();
|
|
init_signals();
|
|
init_environment();
|
|
nest_stacks();
|
|
call(userenv[BOOT_ENV]);
|
|
|
|
gc_off = false;
|
|
}
|
|
|
|
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;
|
|
}
|
|
|
|
void init_factor_from_args(int argc, char **argv)
|
|
{
|
|
F_PARAMETERS p;
|
|
default_parameters(&p);
|
|
|
|
CELL i;
|
|
|
|
for(i = 1; i < argc; i++)
|
|
{
|
|
if(factor_arg(argv[i],"-datastack=%d",&p.ds_size));
|
|
else if(factor_arg(argv[i],"-retainstack=%d",&p.rs_size));
|
|
else if(factor_arg(argv[i],"-callstack=%d",&p.cs_size));
|
|
else if(factor_arg(argv[i],"-generations=%d",&p.gen_count));
|
|
else if(factor_arg(argv[i],"-young=%d",&p.young_size));
|
|
else if(factor_arg(argv[i],"-aging=%d",&p.aging_size));
|
|
else if(factor_arg(argv[i],"-codeheap=%d",&p.code_size));
|
|
else if(strcmp(argv[i],"-securegc") == 0)
|
|
p.secure_gc = true;
|
|
else if(strncmp(argv[i],"-i=",3) == 0)
|
|
p.image = argv[i] + 3;
|
|
}
|
|
|
|
/* Kilobytes */
|
|
p.ds_size = align_page(p.ds_size << 10);
|
|
p.rs_size = align_page(p.rs_size << 10);
|
|
p.cs_size = align_page(p.cs_size << 10);
|
|
|
|
/* Megabytes */
|
|
p.young_size <<= 20;
|
|
p.aging_size <<= 20;
|
|
p.code_size <<= 20;
|
|
|
|
init_factor(&p);
|
|
|
|
F_ARRAY *args = allot_array(ARRAY_TYPE,argc,F);
|
|
|
|
for(i = 1; i < argc; i++)
|
|
{
|
|
REGISTER_ARRAY(args);
|
|
CELL arg = tag_object(from_char_string(argv[i]));
|
|
UNREGISTER_ARRAY(args);
|
|
set_array_nth(args,i,arg);
|
|
}
|
|
|
|
userenv[ARGS_ENV] = tag_object(args);
|
|
userenv[EXECUTABLE_ENV] = tag_object(from_char_string(argv[0]));
|
|
}
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
init_factor_from_args(argc,argv);
|
|
run_toplevel();
|
|
return 0;
|
|
}
|