IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/gnome/gnucash.c.in: removed all code except

Browse Source 
gnc_setup_gettext, which should be moved to app-utils, or
core-utils soon.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5952 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-11-21 17:19:57 +00:00
parent 0850a6b0bc
commit af78024af0
1 changed files with 2 additions and 157 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

159
src/gnome/gnucash.c.in
View File

@ -26,181 +26,26 @@
#include "config.h"
#include <locale.h>
#include <glib.h>
#include <guile/gh.h>
#include <stdio.h>
#include <libguile.h>
#include <string.h>
#include "core-utils.h"
#include "gnc-engine-util.h"
#include "gnc-engine.h"
#include "gw-gnc.h"
#include "gnucash.h"
#include "i18n.h"
#include "messages.h"
static int guile_is_initialized = FALSE;
static int gargc;
static char **gargv;
/* This static indicates the debugging module this .o belongs to. */
static short module = MOD_GUILE;
#define GNC_BOOTSTRAP_MODDIR "@-GNC_SHAREDIR-@/guile-modules"
#define GNC_BOOTSTRAP_SCMDIR "@-GNC_SHAREDIR-@/scm"
#define G_WRAP_MODULE_DIR "@-G_WRAP_MODULE_DIR-@"
#define GNC_BOOTSTRAP_SCM "@-GNC_SHAREDIR-@/guile-modules/gnucash/bootstrap.scm"
/* ============================================================== */
void
gnc_gw_init(void)
gnc_setup_gettext(void)
{
gh_eval_str("(set! %load-path (cons \"" G_WRAP_MODULE_DIR "\" %load-path))");
gh_eval_str("(set! %load-path (cons \"" GNC_BOOTSTRAP_MODDIR
"\" %load-path))");
gh_eval_str("(set! %load-path (cons \"" GNC_BOOTSTRAP_SCMDIR
"\" %load-path))");
}
static void
gnucash_main_helper (int argc, char *argv[])
{
char *bootstrap_scm = getenv("GNC_BOOTSTRAP_SCM");
char *run_as_shell = getenv("GNC_RUN_AS_SHELL");
guile_is_initialized = TRUE;
gnc_gw_init ();
if(!bootstrap_scm)
{
if(gnc_setenv("GNC_BOOTSTRAP_SCM", GNC_BOOTSTRAP_SCM, 1) != 0)
{
FATAL("gnc_setenv GNC_BOOTSTRAP_SCM failed. Aborting.\n");
exit(1);
}
bootstrap_scm = GNC_BOOTSTRAP_SCM;
}
PINFO("bootstrap file is %s\n", bootstrap_scm);
/* Load the bootstrap file. */
if(gh_eval_file(bootstrap_scm) == SCM_BOOL_F) {
FATAL("(load %s) failed\n", bootstrap_scm);
exit(1);
}
if(run_as_shell) {
int scm_argc = argc + 1;
char **scm_argv = g_malloc(scm_argc * sizeof(char *));
scm_argv[0] = (char *) argv[0];
/* Add the "--" to keep gh_repl from interpreting the gnucash args */
scm_argv[1] = "--";
memcpy(&(scm_argv[2]), &(argv[1]), (argc - 1) * sizeof(char *));
gh_repl(scm_argc, scm_argv);
}
else {
/* run gnc:main. */
SCM func = gh_eval_str("gnc:main");
if(gh_procedure_p(func)) {
gh_call0(func);
} else {
FATAL("(gnc:main) doesn't exist. Aborting.\n");
exit(1);
}
}
exit(0);
}
/* ============================================================== */
void
gnc_shutdown (int exit_status)
{
if (guile_is_initialized)
{
/* This should be gh_lookup, but that appears to be broken */
SCM scm_shutdown = gh_eval_str("gnc:shutdown");
if(gh_procedure_p(scm_shutdown))
{
SCM scm_exit_code = gh_long2scm(exit_status);
gh_call1(scm_shutdown, scm_exit_code);
return;
}
}
/* Either guile is not running, or for some reason we
can't find gnc:shutdown. Either way, just exit. */
exit(exit_status);
}
/* ============================================================== */
int
gnc_main (int argc, char *argv[])
{
gargc = argc;
gargv = argv;
#ifdef HAVE_GETTEXT
bindtextdomain (TEXT_DOMAIN, LOCALE_DIR);
textdomain (TEXT_DOMAIN);
#endif
/* It seems we need this so guile can find the locale. */
setlocale(LC_ALL, "");
gh_enter(argc, argv, gnucash_main_helper);
/* This will never return. */
g_assert_not_reached (); /* Just to be anal */
return 0; /* Just to shut gcc up. */
}
int
gnc_get_global_argc (void)
{
return gargc;
}
char **
gnc_get_global_argv (void)
{
return gargv;
}
/* ============================================================== */
/* TEMP stuff for gnucash script migration. */
void
gnc_sh_setup(void)
{
guile_is_initialized = TRUE;
gargc = 0;
#ifdef HAVE_GETTEXT
bindtextdomain (TEXT_DOMAIN, LOCALE_DIR);
textdomain (TEXT_DOMAIN);
#endif
/* It seems we need this so guile can find the locale. */
setlocale(LC_ALL, "");
}
/* ==================== END OF FILE ============================== */