//------------
//Main Program
//------------
void main(void)
{
Splash_Screen();
Term_Screen_Size_Detection();
Board_Initialization();
ScreenBorderSetup();
Status_Window();
MainMenu(HighlightedMenuOption);
Chinese_Checkers_Board();
Board_Cursor();
Info_Window(0);
Display_Screen();
do
{
Command_Line();
Display_Screen();
}
while (strcmp(Entered_Command, "quit"));
}
int _18main()
{
int argc, argv;
int _4586;
int _1, _2;
argv = Command_Line();
argc = SEQ_PTR(argv)->length;
RefDS(argv);
DeRef(_4Argv);
_4Argv = argv;
_4Argc = argc;
DeRefi(_4eudir);
_4eudir = EGetEnv(NewString("EUDIR"));
if (IS_ATOM(_4eudir)) {
if (_4ELINUX) {
/* eudir = getenv("HOME") */
DeRefi(_4eudir);
_4eudir = EGetEnv(_4592);
if (IS_ATOM(_4eudir)) {
/* eudir = "euphoria" */
RefDS(_4595);
DeRefi(_4eudir);
_4eudir = _4595;
}
else {
/* eudir = eudir & "/euphoria" */
Concat((object_ptr)&_4eudir, _4eudir, (s1_ptr)_4596);
}
}
else {
/* eudir = "\\EUPHORIA" */
RefDS(_4598);
DeRefi(_4eudir);
_4eudir = _4598;
}
}
/* TempErrName = "ex.err" */
RefDS(_4602);
DeRefi(_6TempErrName);
_6TempErrName = _4602;
_11src_file = _18ProcessOptions();
if (_11src_file == -1) {
/* Can't open %s\n */
err_add(NewString("Can't open "));
err_add(SEQ_PTR(_4file_name)->base[1]);
err_add(NewString("\n"));
/* Output to screen and cleanup. Too early for set_err_stack. */
_6screen_output(2, error_stack);
_6Cleanup(1);
}
/* main_path = full_path(file_name[1]) */
DeRef(_4586);
_2 = (int)SEQ_PTR(_4file_name);
_4586 = (int)*(((s1_ptr)_2)->base + 1);
RefDS(_4586);
RefDS(_4586);
DeRef(_11main_path);
_11main_path = _11get_file_path(_4586);
_15InitGlobals();
_10InitSymTab();
_14InitEmit();
_15InitParser();
_11InitLex();
_11read_line();
_15parser();
_17BackEnd(); /* Call the backend (be_*.c files) */
_6Cleanup(0);
DeRef(argv);
DeRef(_4586);
return 0;
}
