int main (void) { extern void Rmalloc_reinit(void); Rmalloc_reinit(); struct sigaction action; action.sa_handler = traite_signal; sigaction( SIGHUP, &action, NULL); sigaction( SIGINT, &action, NULL); sigaction( SIGQUIT, &action, NULL); sigaction( SIGALRM, &action, NULL); sigaction( SIGTERM, &action, NULL); sigaction( SIGTSTP, &action, NULL); sigaction( SIGHUP, &action, NULL); //guile shouldn't steal our arguments! we already parse them! //so we put them in temporary variables. // argv_t = argv; // argc_t = argc; // printf("Starting in guile mode...\n"); //debugery! scm_boot_guile(0,(char**)NULL,(void *)inner_main,NULL); return 0; /* not reached ...*/ }
int main (int argc, char ** argv) { g_setenv ("GNC_UNINSTALLED", "1", TRUE); scm_boot_guile (argc, argv, guile_main, NULL); exit(get_rv()); }
gboolean mu_script_guile_run (MuScriptInfo *msi, const char *muhome, const char **args, GError **err) { char *mainargs, *expr; char *argv[] = { "guile", "-l", NULL, "-c", NULL, NULL }; g_return_val_if_fail (msi, FALSE); g_return_val_if_fail (muhome, FALSE); if (access (mu_script_info_path (msi), R_OK) != 0) { mu_util_g_set_error (err, MU_ERROR_FILE_CANNOT_READ, strerror(errno)); return FALSE; } argv[2] = (char*)mu_script_info_path (msi); mainargs = mu_str_quoted_from_strv (args); expr = g_strdup_printf ( "(main '(\"%s\" \"--muhome=%s\" %s))", mu_script_info_name (msi), muhome, mainargs ? mainargs : ""); g_free (mainargs); argv[4] = expr; scm_boot_guile (5, argv, guile_shell, NULL); /* never reached but let's be correct(TM)*/ g_free (expr); return TRUE; }
int main (int argc, char **argv) { g_setenv ("GNC_UNINSTALLED", "1", TRUE); scm_boot_guile (argc, argv, main_helper, NULL); return 0; }
int main(int argc, char **argv) { /* put any default initialisation code here: e.g. exit handlers */ scm_boot_guile(argc, argv, inner_main, 0); /* make a stack entry for the garbage collector */ return 0; /* never reached, but avoids a warning */ }
/* Entry point of the program */ int main (int argc, char* argv[]) { setenv ("GUILE_LOAD_PATH", GUILE_LOAD_PATH, 1); scm_boot_guile (argc, argv, inner_main, 0); return 0; }
int main (int argc, char **argv) { // void scm_boot_guile (int argc, char **argv, void (*main_func) (void *data, int argc, char **argv), void *data) scm_boot_guile (argc, argv, inner_main, 0); return 0; /* never reached */ }
int main(int argc, char *argv[]) { /* disable the deprecated warnings in guile 1.6.3 */ /* Eventually the warnings will need to be fixed */ if(getenv("GUILE_WARN_DEPRECATED")==NULL) putenv("GUILE_WARN_DEPRECATED=no"); scm_boot_guile (argc, argv, main_prog, 0); return 0; }
int main (int argc, char **argv) { g_setenv ("GNC_UNINSTALLED", "1", TRUE); /* When built with clang, guile-1.8.8's scm_c_eval_string truncates all * integer values to int32, which causes this test to fail. */ #ifndef __clang__ scm_boot_guile (argc, argv, main_helper, NULL); #endif return 0; }
int main(int argc, char **argv) { void gwave_main(void *p, int argc, char **argv); /* disable the deprecated warnings in guile 1.6; we can't clean them up until we drop support for guile older than 1.6 */ if (getenv("GUILE_WARN_DEPRECATED") == NULL) putenv("GUILE_WARN_DEPRECATED=no"); scm_boot_guile(argc, argv, gwave_main, NULL); return 0; }
/*! \brief Main executable entrance point. * \par Function Description * This is the main function for gSchem. It sets up the Scheme(GUILE) * environment and passes control to via scm_boot_guile to * the #main_prog function. */ int main (int argc, char *argv[]) { #if ENABLE_NLS setlocale(LC_ALL, ""); setlocale(LC_NUMERIC, "C"); bindtextdomain("geda-gschem", LOCALEDIR); textdomain("geda-gschem"); bind_textdomain_codeset("geda-gschem", "UTF-8"); #endif scm_boot_guile (argc, argv, main_prog, 0); return 0; }
int main (int argc, char *argv[]) { if (!ar_runtime_init ("aisleriot")) return 1; g_setenv ("GUILE_WARN_DEPRECATED", "detailed", TRUE); g_setenv ("GUILE_AUTO_COMPILE", "0", TRUE); g_setenv ("UBUNTU_MENUPROXY", "0", TRUE); scm_boot_guile (argc, argv, main_prog, NULL); /* no return */ return 0; }
/*------------------------------------------------------------------ *! \brief main -- entry point to gattrib. This is just a wrapper which * invokes the guile stuff, and points to the real main prog, * gattrib_main. Note that I still need some vestigal * guile stuff in order to read the rc files. * * \par * *------------------------------------------------------------------*/ int main(int argc, char *argv[]) { /* This is i18n stuff */ #if ENABLE_NLS setlocale(LC_ALL, ""); bindtextdomain(PACKAGE, LOCALEDIR); textdomain(PACKAGE); bind_textdomain_codeset(PACKAGE, "UTF-8"); #endif /* disable the deprecated warnings in guile 1.6.3 */ /* Eventually the warnings will need to be fixed */ if(getenv("GUILE_WARN_DEPRECATED")==NULL) putenv("GUILE_WARN_DEPRECATED=no"); scm_boot_guile( argc, argv, gattrib_main, NULL); exit(0); /* This is not real exit point. Real exit is in gattrib_quit. */ }
/*! \brief Main executable entrance point. * \par Function Description * This is the main function for gSchem. It sets up the Scheme(GUILE) * environment and passes control to via scm_boot_guile to * the #main_prog function. */ int main (int argc, char *argv[]) { #if ENABLE_NLS setlocale(LC_ALL, ""); setlocale(LC_NUMERIC, "C"); bindtextdomain("geda-gschem", LOCALEDIR); textdomain("geda-gschem"); bind_textdomain_codeset("geda-gschem", "UTF-8"); #endif /* disable the deprecated warnings in guile 1.6.3 */ /* Eventually the warnings will need to be fixed */ if(getenv("GUILE_WARN_DEPRECATED") == NULL) putenv("GUILE_WARN_DEPRECATED=no"); scm_boot_guile (argc, argv, main_prog, 0); return 0; }
//scm_boot_guile(nargs, args, inner_main, 0); void* repl(void* data) { scm_boot_guile(0, NULL, start_guile, 0); }
int main(int argc, char ** argv) { scm_boot_guile(argc, argv, guile_main, NULL); return 0; }
/* Main function for `gaf export' */ int cmd_export (int argc, char **argv) { scm_boot_guile (argc, argv, cmd_export_impl, NULL); /* Doesn't return */ return 0; }
int main(int argc, char *argv[]) { scm_boot_guile(argc, argv, snd_main, 0); return(0); }
void *scripting_thread(void *data) { printf("Booting guile v%i.%i.%i...\n", SCM_MAJOR_VERSION, SCM_MINOR_VERSION, SCM_MICRO_VERSION); scm_boot_guile(g_argc, g_argv, guile_main, 0); pthread_exit(NULL); }
int main( int argc, char **argv ) { scm_boot_guile( argc, argv, inner_main, 0); }
int main (int argc, char *argv[]) { scm_boot_guile (argc, argv, main_prog, NULL); return 0; }
int main(int argc, char* argv[]) { scm_boot_guile(argc, argv, &inner_main, NULL); return 0; }
int main() { scm_boot_guile(0, 0, inner_main, 0); return 0; }
int main(int argc, char **argv) { scm_boot_guile (argc, argv, inner_main, 0); return 0; /* never reached */ }
int main (int argc, char *argv[]) { scm_boot_guile (argc, argv, tests, NULL); return 0; }
int main (int argc, char **argv) { scm_boot_guile (argc, argv, main_helper, NULL); return 0; }
int main(int argc, char ** argv) { #if !defined(G_THREADS_ENABLED) || defined(G_THREADS_IMPL_NONE) # error "No GLib thread implementation available!" #endif g_thread_init(NULL); #ifdef ENABLE_BINRELOC { GError *binreloc_error = NULL; if (!gnc_gbr_init(&binreloc_error)) { g_print("main: Error on gnc_gbr_init: %s\n", binreloc_error->message); g_error_free(binreloc_error); } } #else g_message("main: binreloc relocation support was disabled at configure time.\n"); #endif /* This should be called before gettext is initialized * The user may have configured a different language via * the environment file. */ environment_override(); #ifdef HAVE_GETTEXT { gchar *localedir = gnc_path_get_localedir(); /* setlocale(LC_ALL, ""); is already called by gtk_set_locale() via gtk_init(). */ bindtextdomain(GETTEXT_PACKAGE, localedir); textdomain(GETTEXT_PACKAGE); bind_textdomain_codeset(GETTEXT_PACKAGE, "UTF-8"); g_free(localedir); } #endif qof_log_init(); qof_log_set_default(QOF_LOG_INFO); gnucash_command_line(&argc, argv); gnc_print_unstable_message(); gnc_log_init(); gnc_module_system_init(); if (add_quotes_file) { gchar *prefix = gnc_path_get_prefix (); gchar *pkgsysconfdir = gnc_path_get_pkgsysconfdir (); gchar *pkgdatadir = gnc_path_get_pkgdatadir (); gchar *pkglibdir = gnc_path_get_pkglibdir (); /* This option needs to run without a display, so we can't initialize any GUI libraries. */ gnome_program_init( "gnucash", VERSION, LIBGNOME_MODULE, argc, argv, GNOME_PARAM_APP_PREFIX, prefix, GNOME_PARAM_APP_SYSCONFDIR, pkgsysconfdir, GNOME_PARAM_APP_DATADIR, pkgdatadir, GNOME_PARAM_APP_LIBDIR, pkglibdir, GNOME_PARAM_NONE); g_free (prefix); g_free (pkgsysconfdir); g_free (pkgdatadir); g_free (pkglibdir); scm_boot_guile(argc, argv, inner_main_add_price_quotes, 0); exit(0); /* never reached */ } gnc_gnome_init (argc, argv, VERSION); gnc_gui_init(); scm_boot_guile(argc, argv, inner_main, 0); exit(0); /* never reached */ }