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 */
}
