40 lines
627 B
C
40 lines
627 B
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();
|
|
init_compiler();
|
|
|
|
args = F;
|
|
while(--argc != 0)
|
|
{
|
|
args = cons(tag_object(from_c_string(argv[argc])),args);
|
|
}
|
|
|
|
userenv[ARGS_ENV] = args;
|
|
|
|
#if defined(i386) || defined(__i386) || defined(__i386__)
|
|
userenv[CPU_ENV] = tag_object(from_c_string("x86"));
|
|
#else
|
|
userenv[CPU_ENV] = tag_object(from_c_string("unknown"));
|
|
#endif
|
|
|
|
run();
|
|
|
|
return 0;
|
|
}
|