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

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

src/gnome/gnucash.c.in

@@ -26,181 +26,26 @@
 
 #include "config.h"
 
-#include <locale.h>
 #include <glib.h>
-#include <guile/gh.h>
+#include <libguile.h>
-#include <stdio.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 ============================== */