int
main_name (int argc, const char ** argv)
{
init_exit_scheme ();
scheme_program_name = (argv[0]);
initial_C_stack_pointer = ((void *) (&argc));
#ifdef __WIN32__
NT_initialize_win32_system_utilities ();
#endif
#ifdef PREALLOCATE_HEAP_MEMORY
PREALLOCATE_HEAP_MEMORY ();
#endif
#ifdef __OS2__
OS2_initialize_early ();
#endif
obstack_init (&scratch_obstack);
obstack_init (&ffi_obstack);
dstack_initialize ();
transaction_initialize ();
reload_saved_string = 0;
reload_saved_string_length = 0;
read_command_line_options (argc, argv);
setup_memory ((BLOCKS_TO_BYTES (option_heap_size)),
(BLOCKS_TO_BYTES (option_stack_size)),
(BLOCKS_TO_BYTES (option_constant_size)));
initialize_primitives ();
compiler_initialize (option_fasl_file != 0);
OS_initialize ();
start_scheme ();
termination_init_error ();
return (0);
}
int main(void){
// setup_memory();
// in/itialize_primitives();
// compiler_initialize();
// OS_initialize(); // about OS revelant information, help
start_scheme();
// termination_init_error();
return (0);
}
int
main (int argc, char** argv) {
boot_hacks ();
windows_delayed_refresh (1000000000);
immediate_options (argc, argv);
set_env ("LC_NUMERIC", "POSIX");
#ifdef MACOSX_EXTENSIONS
// Reset TeXmacs if Alt is pressed during startup
if (mac_alternate_startup()) {
cout << "TeXmacs] Performing setup (Alt on startup)" << LF;
remove (url ("$TEXMACS_HOME_PATH/system/settings.scm"));
remove (url ("$TEXMACS_HOME_PATH/system/setup.scm"));
remove (url ("$TEXMACS_HOME_PATH/system/cache") * url_wildcard ("*"));
remove (url ("$TEXMACS_HOME_PATH/fonts/error") * url_wildcard ("*"));
}
#endif
#ifdef QTTEXMACS
// initialize the Qt application infrastructure
new QTMApplication (argc, argv);
#endif
TeXmacs_init_paths (argc, argv);
//cout << "Bench ] Started TeXmacs\n";
the_et = tuple ();
the_et->obs= ip_observer (path ());
cache_initialize ();
bench_start ("initialize texmacs");
init_texmacs ();
bench_cumul ("initialize texmacs");
#ifdef ENABLE_TESTS
test_routines ();
#endif
//#ifdef EXPERIMENTAL
// test_environments ();
//#endif
start_scheme (argc, argv, TeXmacs_main);
return 0;
}
