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

@@ -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.
+  some things for slib. Alternatively you can try as root:
+    guile -c '(use-modules (ice-9 slib)) (require 'new-catalog)'

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"

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

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."