From 1da23090d2698e495bf16deb4edfbf83f1bc5dfd Mon Sep 17 00:00:00 2001
From: Dave Peticolas <dave@krondo.com>
Date: Tue, 9 May 2000 22:12:30 +0000
Subject: [PATCH] Added --nofile arg to prevent autoloading. Herbert Thoma's
 updated doc/SuSE-6.3.txt.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2287 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 doc/SuSE-6.3.txt         | 13 ++++++++++++-
 src/scm/command-line.scm | 11 ++++++++---
 src/scm/main.scm         |  5 +++--
 src/scm/prefs.scm        |  7 +++++++
 4 files changed, 30 insertions(+), 6 deletions(-)

diff --git a/doc/SuSE-6.3.txt b/doc/SuSE-6.3.txt
index b27f5a7e38..672794f60a 100644
--- a/doc/SuSE-6.3.txt
+++ b/doc/SuSE-6.3.txt
@@ -16,6 +16,11 @@ Notes:
   NOTE: You can install new packages to older versions of SuSE from
         CD or ftp.suse.de or ftp.suse.com
 
+- This howto is primarily intended for compiling from source.
+  If you install the rpm, you don't need the various dev packages
+  and you don't need g-wrap. (However, you won't see this howto
+  until you installed the GnuCash rpm succesfully ;-).)
+
 Let's go:
 
 * Make sure you have a running system, including X. For my tests I
@@ -45,6 +50,11 @@ Let's go:
     cd /usr/share/guile
     su root -c "unzip -L /tmp/slib2c7"
 
+* Download g-wrap from
+    ftp://ftp.gnucash.org/pub/g-wrap/g-wrap-0.9.1..tar.gz
+  unpack and untar, then
+  ./configure, make, su, make install
+
 * Download GnuCash from
     http://www.gnucash.org/pub/gnucash/sources/unstable/1.3.x/1.3.0/gnucash-1.3.0.tar.gz
   and unpack it
@@ -64,4 +74,5 @@ Let's go:
     su root -c "make install"
 
 * You may need to run GnuCash once as root, because guile needs to set up
-  some things for slib.
\ No newline at end of file
+  some things for slib. Alternatively you can try as root:
+    guile -c '(use-modules (ice-9 slib)) (require 'new-catalog)'
\ No newline at end of file
diff --git a/src/scm/command-line.scm b/src/scm/command-line.scm
index 180c664ca7..050b7f0539 100644
--- a/src/scm/command-line.scm
+++ b/src/scm/command-line.scm
@@ -26,19 +26,24 @@
     (cons 'boolean
           (lambda (val)
             (gnc:config-var-value-set! gnc:*debugging?* #f val))))
-   
+
+   (cons
+    "nofile"
+    (cons 'boolean
+          (lambda (val)
+            (gnc:config-var-value-set! gnc:*arg-no-file* #f val))))
+
    (cons
     "config-dir"
     (cons 'string
           (lambda (val)
             (gnc:config-var-value-set! gnc:*config-dir* #f val))))
-   
+
    (cons
     "share-dir"
     (cons 'string
           (lambda (val)
             (gnc:config-var-value-set! gnc:*share-dir* #f val))))
-   
 
    (cons
     "load-path"
diff --git a/src/scm/main.scm b/src/scm/main.scm
index f983ff2b29..b6ce8bc5ab 100644
--- a/src/scm/main.scm
+++ b/src/scm/main.scm
@@ -75,10 +75,11 @@
   (if (not (= (gnc:lowlev-app-init) 0))
       (gnc:shutdown 0))
 
-  (let ((file (if (pair? gnc:*command-line-files*)
+  (let ((ok (not (gnc:config-var-value-get gnc:*arg-no-file*)))
+        (file (if (pair? gnc:*command-line-files*)
                   (car gnc:*command-line-files*)
                   (gnc:history-get-last))))
-    (if (string? file)
+    (if (and ok (string? file))
       (gnc:ui-open-file file)))
 
   ;; add a hook to save the user configs on shutdown
diff --git a/src/scm/prefs.scm b/src/scm/prefs.scm
index d74268acf6..ae70b4d1a3 100644
--- a/src/scm/prefs.scm
+++ b/src/scm/prefs.scm
@@ -348,6 +348,13 @@ the account instead of opening a register." #f))
    eq?
    #f))
 
+(define gnc:*arg-no-file*
+  (gnc:make-config-var
+   "Don't load any file, including autoloading the last file."
+   (lambda (var value) (if (boolean? value) (list value) #f))
+   eq?
+   #f))
+
 (define gnc:*config-dir*
   (gnc:make-config-var
    "Configuration directory."