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

Fix format warnings by importing (ice-9 format)

Browse Source 
and modify untranslated string
This commit is contained in:
Christopher Lam 2020-12-14 06:02:41 +08:00
parent 2c8ae267f9
commit a0a4fc89aa
5 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gnucash/report/reports/locale-specific/us/taxtxf.scm
View File

@ -107,6 +107,7 @@
(use-modules (gnucash gnome-utils)) (use-modules (gnucash gnome-utils))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (ice-9 format))
(use-modules (gnucash html)) (use-modules (gnucash html))
(define reportname (N_ "Tax Schedule Report/TXF Export")) (define reportname (N_ "Tax Schedule Report/TXF Export"))

1
gnucash/report/reports/standard/account-piecharts.scm
View File

@ -31,6 +31,7 @@
(use-modules (gnucash app-utils)) (use-modules (gnucash app-utils))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (ice-9 format))
(define menuname-income (N_ "Income Piechart")) (define menuname-income (N_ "Income Piechart"))
(define menuname-expense (N_ "Expense Piechart")) (define menuname-expense (N_ "Expense Piechart"))

1
gnucash/report/reports/standard/advanced-portfolio.scm
View File

@ -33,6 +33,7 @@
(use-modules (gnucash app-utils)) (use-modules (gnucash app-utils))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (ice-9 format))
(define reportname (N_ "Advanced Portfolio")) (define reportname (N_ "Advanced Portfolio"))

1
gnucash/report/reports/standard/price-scatter.scm
View File

@ -30,6 +30,7 @@
(use-modules (gnucash app-utils)) (use-modules (gnucash app-utils))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (ice-9 format))
(use-modules (ice-9 match)) (use-modules (ice-9 match))
(define optname-from-date (N_ "Start Date")) (define optname-from-date (N_ "Start Date"))

7
gnucash/report/reports/standard/test/test-cash-flow.scm
View File

@ -4,6 +4,7 @@
(use-modules (gnucash reports standard cash-flow)) (use-modules (gnucash reports standard cash-flow))
(use-modules (gnucash reports cash-flow-calc)) (use-modules (gnucash reports cash-flow-calc))
(use-modules (gnucash report)) (use-modules (gnucash report))
(use-modules (ice-9 format))
(define (run-test) (define (run-test)
(and (test test-one-tx-in-cash-flow) (and (test test-one-tx-in-cash-flow)
@ -54,17 +55,17 @@
(or (equal? 10000/100 (or (equal? 10000/100
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-in-collector (gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-in-collector
report-currency exchange-fn))) report-currency exchange-fn)))
(begin (format #t "Failed expense-acc-in-collector ~g expected 100.00~%" (gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-in-collector (begin (format #t "Failed expense-acc-in-collector ~a expected 100.00~%" (gnc:gnc-monetary-amount (gnc:sum-collector-commodity expense-acc-in-collector
report-currency exchange-fn))) #f)) report-currency exchange-fn))) #f))
(or (equal? 10000/100 (or (equal? 10000/100
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector (gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector
report-currency exchange-fn))) report-currency exchange-fn)))
(begin (format #t "Failed money-in-collector ~g expected 100.00~%" (gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector (begin (format #t "Failed money-in-collector ~a expected 100.00~%" (gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-in-collector
report-currency exchange-fn))) #f)) report-currency exchange-fn))) #f))
(or (equal? 0/1 (or (equal? 0/1
(gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector (gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector
report-currency exchange-fn))) report-currency exchange-fn)))
(begin (format #t "Failed sum-collector-commodity ~g expected 100.00~%" (gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector (begin (format #t "Failed sum-collector-commodity ~a expected 100.00~%" (gnc:gnc-monetary-amount (gnc:sum-collector-commodity money-out-collector
report-currency exchange-fn))) #f)) report-currency exchange-fn))) #f))
(begin (format #t "test-one-tx-in-cash-flow success~%") #t) (begin (format #t "test-one-tx-in-cash-flow success~%") #t)
))))) )))))