102 lines
2.4 KiB
C
102 lines
2.4 KiB
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;
|
|
}
|