IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

c++options: Remove gnc:options-data

Browse Source
This commit is contained in:
John Ralls 2021-12-15 14:54:41 -08:00
parent 16dc15964c
commit 11225d9741
2 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnucash/report/reports/standard/test/test-stress-options.scm
View File

@ -11,6 +11,7 @@
(use-modules (gnucash reports)) (use-modules (gnucash reports))
(use-modules (tests test-report-extras)) (use-modules (tests test-report-extras))
(use-modules (srfi srfi-9)) (use-modules (srfi srfi-9))
(use-modules (srfi srfi-26))
(use-modules (srfi srfi-64)) (use-modules (srfi srfi-64))
(use-modules (srfi srfi-98)) (use-modules (srfi srfi-98))
(use-modules (tests srfi64-extras)) (use-modules (tests srfi64-extras))
@ -68,7 +69,8 @@
(gnc:options-for-each (gnc:options-for-each
(lambda (option) (lambda (option)
(when (case (gnc:option-type option) (when (case (gnc:option-type option)
((multichoice) (pair? (cdr (gnc:option-data option)))) ((multichoice)
(> (GncOption-num-permissible-values option) 1))
((boolean) #t) ((boolean) #t)
(else #f)) (else #f))
(set! report-options-tested (set! report-options-tested
@ -76,8 +78,9 @@
(gnc:option-section option) (gnc:option-section option)
(gnc:option-name option) (gnc:option-name option)
(case (gnc:option-type option) (case (gnc:option-type option)
((multichoice) (map (lambda (d) (vector-ref d 0)) ((multichoice)
(gnc:option-data option))) (map (cut GncOption-permissible-value option <>)
(iota (GncOption-num-permissible-values option))))
((boolean) (list #t #f)))) ((boolean) (list #t #f))))
report-options-tested)))) report-options-tested))))
options) options)

9
libgnucash/app-utils/options.scm
View File

@ -85,15 +85,6 @@
(define-public (gnc:option-type option) (define-public (gnc:option-type option)
(GncOption-get-type option)) (GncOption-get-type option))
;; Used only by test-stress-options.scm
(define-public (gnc:option-data option)
; (define num-values (GncOption-num-permissible-values option))
; (let loop ((i 0) (retval '()))
; (if (>= i num-values) (reverse retval)
; (let ((value (GncOption-permissible-value option i))
; (name (GncOption-permissible-value-name option i)))
; (loop (1+ i) (cons (vector value name) retval))))))
(list (vector 1 2)))
;; Create the database and return a dispatch function. ;; Create the database and return a dispatch function.
(define-public (gnc:new-options) (define-public (gnc:new-options)
(let ((optiondb (new-gnc-optiondb))) (let ((optiondb (new-gnc-optiondb)))