[Gnucash-changes] r12947 - gnucash/trunk/src - Remove --devel option, which aparently doesn't do anything.

Chris Shoemaker chris at cvs.gnucash.org
Sun Jan 22 22:43:56 EST 2006


Author: chris
Date: 2006-01-22 22:43:55 -0500 (Sun, 22 Jan 2006)
New Revision: 12947
Trac: http://svn.gnucash.org/trac/changeset/12947

Modified:
   gnucash/trunk/src/bin/gnucash-bin.c
   gnucash/trunk/src/scm/command-line.scm
   gnucash/trunk/src/scm/main.scm
Log:
  Remove --devel option, which aparently doesn't do anything.
  Also remove now unused guile portion of --add-price-quote option.


Modified: gnucash/trunk/src/bin/gnucash-bin.c
===================================================================
--- gnucash/trunk/src/bin/gnucash-bin.c	2006-01-23 03:26:01 UTC (rev 12946)
+++ gnucash/trunk/src/bin/gnucash-bin.c	2006-01-23 03:43:55 UTC (rev 12947)
@@ -206,8 +206,6 @@
          _("Show GnuCash version"), NULL},
         {"debug", '\0', POPT_ARG_NONE, NULL, 0,
          _("Enable debugging mode"), NULL},
-        {"devel", '\0', POPT_ARG_NONE, NULL, 0,
-         _("Enable developers mode"), NULL},
         {"loglevel", '\0', POPT_ARG_INT, NULL, 0,
          _("Set the logging level from 0 (least) to 6 (most)"), 
          _("LOGLEVEL")},

Modified: gnucash/trunk/src/scm/command-line.scm
===================================================================
--- gnucash/trunk/src/scm/command-line.scm	2006-01-23 03:26:01 UTC (rev 12946)
+++ gnucash/trunk/src/scm/command-line.scm	2006-01-23 03:43:55 UTC (rev 12947)
@@ -85,16 +85,6 @@
       #f))
     (gnc:config-var-value-set! gnc:*debugging?* #f current-value))
   
-  (let ((current-value gnc:*develmode*))
-    (set! 
-     gnc:*develmode*
-     (gnc:make-config-var
-      (N_ "Enable developers mode.")
-      (lambda (var value) (if (boolean? value) (list value) #f))
-      eq?
-      #f))
-    (gnc:config-var-value-set! gnc:*develmode* #f current-value))
-  
   (set! gnc:*loglevel*
         (gnc:make-config-var
          (N_ "Logging level from 0 (least logging) to 5 (most logging).")
@@ -136,13 +126,6 @@
          #f
          (N_ "Enable debugging mode"))
 
-   (list "devel"
-         'boolean
-         (lambda (val)
-           (gnc:config-var-value-set! gnc:*develmode* #f val))
-         #f
-         (N_ "Enable developers mode"))
-   
    (list "loglevel"
          'integer
          (lambda (val)
@@ -170,27 +153,7 @@
          "DOCPATH"
          (N_ "Set the search path for documentation files"))
    
-   (list "add-price-quotes"
-         'string
-         (lambda (val)
-           (set! gnc:*batch-mode-things-to-do*
-                 (cons
-                  (lambda ()
-                    (gnc:debug "Beginning to add price-quote")
-                    (gnc:use-guile-module-here! '(gnucash price-quotes))
-                    (gnc:suspend-gui-refresh)
-                    (gnc:engine-suspend-events)
-                    (if (not (gnc:add-quotes-to-book-at-url val))
-                        (begin
-                          (gnc:error "Failed to add quotes to " val)
-                          (gnc:shutdown 1)))
-                    (gnc:engine-suspend-events)
-                    (gnc:resume-gui-refresh))
-                  gnc:*batch-mode-things-to-do*)))
-         "FILE"
-         (N_ "Add price quotes to given FILE."))
 
-
 ))
 
 (define (gnc:cmd-line-get-boolean-arg args)

Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm	2006-01-23 03:26:01 UTC (rev 12946)
+++ gnucash/trunk/src/scm/main.scm	2006-01-23 03:43:55 UTC (rev 12947)
@@ -110,7 +110,6 @@
 
 ;; These will be converted to config vars later (see command-line.scm)
 (define gnc:*debugging?* (if (getenv "GNC_DEBUG") #t #f))
-(define gnc:*develmode* (if (getenv "GNC_DEVEL_MODE") #t #f))
 
 ;; Function to get debugging
 (define (gnc:debugging?)
@@ -326,18 +325,6 @@
             (gnc:find-file file (list (car dirs)))
             (loop prefixes (cdr dirs))))))
 
-(define (gnc:startup-pass-1)
-  (gnc:debug "starting up (1).")
-  (gnc:setup-debugging)
-
-  ;; Now we can load a bunch of files.
-  (load-from-path "command-line.scm") ;; depends on app-utils (N_, etc.)...
-
-  (gnc:initialize-config-vars) ;; in command-line.scm
-  ;; handle unrecognized command line args
-  (if (not (gnc:handle-command-line-args))
-      (gnc:shutdown 1)))
-
 (define (gnc:startup-pass-2)
   (gnc:debug "starting up (2).")
 
@@ -490,8 +477,17 @@
   ;;  (statprof-start)
 
   ;; Now the fun begins.
-  (gnc:startup-pass-1)
+  (gnc:debug "starting up (1).")
+  (gnc:setup-debugging)
 
+  ;; Now we can load a bunch of files.
+  (load-from-path "command-line.scm") ;; depends on app-utils (N_, etc.)...
+
+  (gnc:initialize-config-vars) ;; in command-line.scm
+  ;; handle unrecognized command line args
+  (if (not (gnc:handle-command-line-args))
+      (gnc:shutdown 1))
+
   (if (null? gnc:*batch-mode-things-to-do*)
       (begin
         (gnc:hook-add-dangler gnc:*ui-shutdown-hook* gnc:gui-finish)



More information about the gnucash-changes mailing list