[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