Bug #615168: Make sure that printf is available whereever it is used

So, the right thing is for each file to be in its own module. Barring
that it's tough to see what the environment is in a given module. So to
be safe, everywhere there's a printf, make sure the (gnucash printf)
module is duly included.

Patch by Andy Wingo.

Conflicts:

	src/business/business-reports/easy-invoice.scm
	src/business/business-reports/fancy-invoice.scm
	src/business/business-reports/invoice.scm
	src/business/business-reports/job-report.scm
	src/report/standard-reports/budget-income-statement.scm
	src/report/standard-reports/income-statement.scm
	src/report/standard-reports/trial-balance.scm

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@19067 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2010-04-23 21:19:05 +00:00
parent e68434cb03
commit b3524ebb39
20 changed files with 25 additions and 1 deletions

View File

@ -20,7 +20,8 @@
;; 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652
;; Boston, MA 02110-1301, USA gnu@gnu.org
(use-modules (gnucash core-utils))
(use-modules (gnucash core-utils)
(gnucash printf))
(define gnc:reldate-list '())

View File

@ -28,6 +28,7 @@
(use-modules (ice-9 slib))
(use-modules (gnucash main))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(require 'hash-table)

View File

@ -32,6 +32,7 @@
(use-modules (srfi srfi-1))
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(require 'hash-table)

View File

@ -50,6 +50,7 @@
(use-modules (srfi srfi-1))
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(require 'hash-table)

View File

@ -26,6 +26,7 @@
(use-modules (srfi srfi-1))
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(require 'hash-table)

View File

@ -28,6 +28,7 @@
(use-modules (srfi srfi-1))
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(use-modules (gnucash main)) ; for gnc:debug

View File

@ -29,6 +29,7 @@
(use-modules (srfi srfi-1))
(use-modules (ice-9 slib))
(use-modules (gnucash gnc-module))
(use-modules (gnucash printf))
(use-modules (gnucash main)) ; for gnc:debug
(gnc:module-load "gnucash/report/report-system" 0)

View File

@ -7,6 +7,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (gnucash core-utils))
(use-modules (gnucash printf))
(use-modules (ice-9 regex))
(use-modules (srfi srfi-13))

View File

@ -5,6 +5,8 @@
;;; Bill Gribble <grib@billgribble.com> 20 Feb 2000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (gnucash printf))
(define qif-category-compiled-rexp
(make-regexp "^ *(\\[)?([^]/|]*)(]?)(/?)([^|]*)(\\|(\\[)?([^]/]*)(]?)(/?)(.*))? *$"))

View File

@ -7,6 +7,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (srfi srfi-13))
(use-modules (gnucash printf))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View File

@ -85,6 +85,7 @@
(use-modules (ice-9 regex)) ; for regular expressions
(use-modules (ice-9 rdelim)) ; for read-line
(use-modules (gnucash printf))
(use-modules (gnucash app-utils)) ; for _
;; This is needed for displaying error messages -- note that it assumes that

View File

@ -22,6 +22,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(gnc:module-load "gnucash/html" 0)
(use-modules (gnucash printf))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; <html-document> class

View File

@ -33,6 +33,8 @@
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (gnucash printf))
(define <html-table>
(make-record-type "<html-table>"
'(col-headers

View File

@ -30,6 +30,8 @@
;; doc as arg to get the string out.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (gnucash printf))
(define <html-text>
(make-record-type "<html-text>"
'(body style)))

View File

@ -22,6 +22,8 @@
;; Boston, MA 02110-1301, USA gnu@gnu.org
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (gnucash printf))
;; returns a list with n #f (empty cell) values
(define (gnc:html-make-empty-cell) #f)
(define (gnc:html-make-empty-cells n)

View File

@ -18,6 +18,7 @@
;; Boston, MA 02110-1301, USA gnu@gnu.org
(use-modules (srfi srfi-13))
(use-modules (gnucash printf))
(define (list-ref-safe list elt)
(if (> (length list) elt)

View File

@ -21,6 +21,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-modules (gnucash main))
(use-modules (gnucash printf))
(use-modules (sw_report_system))
;; This hash should contain all the reports available and will be used

View File

@ -43,6 +43,7 @@
(define-module (gnucash report standard-reports budget-income-statement))
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(gnc:module-load "gnucash/report/report-system" 0)

View File

@ -44,6 +44,7 @@
(define-module (gnucash report standard-reports income-statement))
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(gnc:module-load "gnucash/report/report-system" 0)

View File

@ -53,6 +53,7 @@
(define-module (gnucash report standard-reports trial-balance))
(use-modules (gnucash main)) ;; FIXME: delete after we finish modularizing.
(use-modules (ice-9 slib))
(use-modules (gnucash printf))
(use-modules (gnucash gnc-module))
(gnc:module-load "gnucash/report/report-system" 0)