mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Robert Graham Merkel's README and date-utility patch.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2777 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
parent
c2295a2731
commit
a0213aa92e
@ -1,3 +1,8 @@
|
|||||||
|
2000-09-05 Robert Graham Merkel <rgmerk@mira.net>
|
||||||
|
|
||||||
|
* src/scm/date-utilities.scm ((gnc:reldate-initialize)): New function - initialise
|
||||||
|
explicitly at startup rather than in ad-hoc manner
|
||||||
|
|
||||||
2000-08-31 Robert Graham Merkel <rgmerk@mira.net>
|
2000-08-31 Robert Graham Merkel <rgmerk@mira.net>
|
||||||
|
|
||||||
* src/scm/report/balance-and-pnl.scm: Bug fixes for new date options.
|
* src/scm/report/balance-and-pnl.scm: Bug fixes for new date options.
|
||||||
|
|||||||
17
README
17
README
@ -150,7 +150,8 @@ The following packages are required to be installed to run gnucash:
|
|||||||
gnome-print: any recent version should work.
|
gnome-print: any recent version should work.
|
||||||
|
|
||||||
gtkhtml: version 0.4 and later should work. You can obtain the latest
|
gtkhtml: version 0.4 and later should work. You can obtain the latest
|
||||||
version of gtkhtml from Helix Code.
|
version of gtkhtml from Helix Code. Note that this has changed since
|
||||||
|
1.4, which used the older gtkxmhtml library.
|
||||||
|
|
||||||
To be able to use certain features of GnuCash, such as reports and
|
To be able to use certain features of GnuCash, such as reports and
|
||||||
network stock price downloads, you must have the following packages
|
network stock price downloads, you must have the following packages
|
||||||
@ -279,6 +280,7 @@ the GnuCash specific bits.
|
|||||||
Prior to building GnuCash, you will have to obtain and install the
|
Prior to building GnuCash, you will have to obtain and install the
|
||||||
following packages:
|
following packages:
|
||||||
|
|
||||||
|
|
||||||
libtool: Available at ftp://ftp.gnu.org/gnu.
|
libtool: Available at ftp://ftp.gnu.org/gnu.
|
||||||
RPM's and debs are widely available with most distributions.
|
RPM's and debs are widely available with most distributions.
|
||||||
|
|
||||||
@ -300,8 +302,8 @@ you'll need for the systems we know about:
|
|||||||
Debian/GNU/Linux:
|
Debian/GNU/Linux:
|
||||||
current:
|
current:
|
||||||
libgnome-dev
|
libgnome-dev
|
||||||
libxml-dev
|
libgtkhtml-dev (you can grab this from Helixcode, it may not be
|
||||||
libgtkxmhtml-dev
|
in Debian itself ATM)
|
||||||
guile1.3
|
guile1.3
|
||||||
libguile6-dev
|
libguile6-dev
|
||||||
libguile6-slib
|
libguile6-slib
|
||||||
@ -340,7 +342,7 @@ If you want to make sure that all languages get installed, run
|
|||||||
$ unset LINGUAS
|
$ unset LINGUAS
|
||||||
$ ./configure
|
$ ./configure
|
||||||
|
|
||||||
The last stable release of GnuCash had a Motif based user interface,
|
The 1.2 stable release of GnuCash had a Motif based user interface,
|
||||||
and there was also an experimental, but never finished qt interface.
|
and there was also an experimental, but never finished qt interface.
|
||||||
Both of these have been removed from the source tree during the
|
Both of these have been removed from the source tree during the
|
||||||
process of migrating to automake, but anyone who is interested in
|
process of migrating to automake, but anyone who is interested in
|
||||||
@ -367,6 +369,13 @@ to be installed, the above command would install
|
|||||||
DESTDIR can be helpful when trying to build install images and
|
DESTDIR can be helpful when trying to build install images and
|
||||||
packages.
|
packages.
|
||||||
|
|
||||||
|
NOTE: If you have installed different parts of Gnome in different
|
||||||
|
places (for instance, if you've installed gtkhtml in /usr/local) you
|
||||||
|
will need to set the environment variables GNOME_PATH and
|
||||||
|
GNOME_LIBCONFIG_PATH. See the manpage for gnome-config for more
|
||||||
|
details.
|
||||||
|
|
||||||
|
|
||||||
###################
|
###################
|
||||||
Supported Platforms
|
Supported Platforms
|
||||||
-------------------
|
-------------------
|
||||||
|
|||||||
@ -22,6 +22,8 @@
|
|||||||
(gnc:support "date-utilities.scm")
|
(gnc:support "date-utilities.scm")
|
||||||
(gnc:depend "srfi/srfi-19.scm")
|
(gnc:depend "srfi/srfi-19.scm")
|
||||||
|
|
||||||
|
(define gnc:reldate-list '())
|
||||||
|
|
||||||
(define (gnc:timepair->secs tp)
|
(define (gnc:timepair->secs tp)
|
||||||
(inexact->exact
|
(inexact->exact
|
||||||
(+ (car tp)
|
(+ (car tp)
|
||||||
@ -544,122 +546,124 @@
|
|||||||
(set-tm:mday now month-days))
|
(set-tm:mday now month-days))
|
||||||
(gnc:secs->timepair (car (mktime now))))))
|
(gnc:secs->timepair (car (mktime now))))))
|
||||||
|
|
||||||
(define (gnc:reldate-all-reldates)
|
|
||||||
(list 'start-cal-year 'start-prev-year 'end-prev-year 'start-cur-fin-year 'start-prev-fin-year
|
|
||||||
'start-this-month 'start-prev-month 'end-prev-month 'start-current-quarter
|
|
||||||
'start-prev-quarter 'end-prev-quarter 'today 'one-month-ago 'three-months-ago
|
|
||||||
'six-months-ago
|
|
||||||
'one-year-ago))
|
|
||||||
|
|
||||||
(gnc:reldate-string-db 'store 'start-cal-year-string "Current Year Start")
|
|
||||||
|
|
||||||
(gnc:reldate-string-db 'store 'start-cal-year-desc "Start of the current calendar year")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-year-string "Previous Year Start")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-year-desc "Beginning of the previous calendar year")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-year-string "Previous Year End")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-year-desc "End of the Previous Year")
|
|
||||||
(gnc:reldate-string-db 'store 'start-cur-fin-year-string "Current Financial Year Start")
|
|
||||||
(gnc:reldate-string-db 'store 'start-cur-fin-year-desc "Start of the current financial year/accounting period")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-fin-year-string "Previous Financial Year Start")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-financial-year-desc "The start of the previous financial year/accounting period")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-fin-year-string "End Previous Financial Year")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-fin-year-desc "End of the previous Financial year/Accounting Period")
|
|
||||||
(gnc:reldate-string-db 'store 'start-this-month-string "Start of this month")
|
|
||||||
(gnc:reldate-string-db 'store 'start-this-month-desc "Start of the current month")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-month-string "Start of previous month")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-month-desc "The beginning of the previous month")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-month-string "End of previous month")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-month-description "Last day of previous month")
|
|
||||||
(gnc:reldate-string-db 'store 'start-current-quarter-string "Start of current quarter")
|
|
||||||
(gnc:reldate-string-db 'store 'start-current-quarter-desc "The start of the latest quarterly accounting period")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-quarter-string "Start of previous quarter")
|
|
||||||
(gnc:reldate-string-db 'store 'start-prev-quarter-desc "The start of the previous quarterly accounting period")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-quarter-string "End of previous quarter")
|
|
||||||
(gnc:reldate-string-db 'store 'end-prev-quarter-desc "End of previous quarterly accounting period")
|
|
||||||
(gnc:reldate-string-db 'store 'today-string "Today")
|
|
||||||
(gnc:reldate-string-db 'store 'today-desc "The current date")
|
|
||||||
(gnc:reldate-string-db 'store 'one-month-ago-string "One Month Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'one-month-ago-desc "One Month Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'one-week-ago-string "One Week Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'one-week-ago-desc "One Week Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'three-months-ago-string "Three Months Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'three-months-ago-desc "Three Months Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'six-months-ago-string "Six Months Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'six-months-ago-string "Six Months Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'one-year-ago-string "One Year Ago")
|
|
||||||
(gnc:reldate-string-db 'store 'one-year-ago-desc "One Year Ago")
|
|
||||||
|
|
||||||
(set! gnc:relative-date-values
|
|
||||||
(list
|
|
||||||
(vector 'start-cal-year
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-cal-year-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-cal-year-desc)
|
|
||||||
gnc:get-start-cal-year)
|
|
||||||
(vector 'start-prev-year
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-year-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-year-desc)
|
|
||||||
gnc:get-start-prev-year)
|
|
||||||
(vector 'end-prev-year
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-year-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-year-desc)
|
|
||||||
gnc:get-end-prev-year)
|
|
||||||
(vector 'start-cur-fin-year
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-cur-fin-year-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-cur-fin-year-desc)
|
|
||||||
gnc:get-start-cur-fin-year)
|
|
||||||
(vector 'start-prev-fin-year
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-fin-year-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-fin-year-desc)
|
|
||||||
gnc:get-start-prev-fin-year)
|
|
||||||
(vector 'end-prev-fin-year
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-fin-year-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-fin-year-desc)
|
|
||||||
gnc:get-end-prev-fin-year)
|
|
||||||
(vector 'start-this-month
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-this-month-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-this-month-desc)
|
|
||||||
gnc:get-start-this-month)
|
|
||||||
(vector 'start-prev-month
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-month-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-month-desc)
|
|
||||||
gnc:get-start-prev-month)
|
|
||||||
(vector 'end-prev-month
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-month-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-month-desc)
|
|
||||||
gnc:get-end-prev-month)
|
|
||||||
(vector 'start-current-quarter
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-current-quarter-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-current-quarter-desc)
|
|
||||||
gnc:get-start-current-quarter)
|
|
||||||
(vector 'start-prev-quarter
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-quarter-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'start-prev-quarter-desc)
|
|
||||||
gnc:get-start-prev-quarter)
|
|
||||||
(vector 'end-prev-quarter
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-quarter-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-quarter-desc)
|
|
||||||
gnc:get-end-prev-quarter)
|
|
||||||
(vector 'today
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-quarter-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'end-prev-quarter-desc)
|
|
||||||
gnc:get-today)
|
|
||||||
(vector 'one-month-ago
|
|
||||||
(gnc:reldate-string-db 'lookup 'one-month-ago-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'one-month-ago-desc)
|
|
||||||
gnc:get-one-month-ago)
|
|
||||||
(vector 'three-months-ago
|
|
||||||
(gnc:reldate-string-db 'lookup 'three-months-ago-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'three-months-ago-desc)
|
|
||||||
gnc:get-three-months-ago)
|
|
||||||
(vector 'six-months-ago
|
|
||||||
(gnc:reldate-string-db 'lookup 'six-months-ago-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'six-months-ago-desc)
|
|
||||||
gnc:get-three-months-ago)
|
|
||||||
(vector 'one-year-ago
|
|
||||||
(gnc:reldate-string-db 'lookup 'one-year-ago-string)
|
|
||||||
(gnc:reldate-string-db 'lookup 'one-year-ago-desc)
|
|
||||||
gnc:get-one-year-ago)))
|
|
||||||
|
|
||||||
|
(define (gnc:reldate-initialize)
|
||||||
|
(begin
|
||||||
|
(gnc:reldate-string-db 'store 'start-cal-year-string "Current Year Start")
|
||||||
|
|
||||||
|
(gnc:reldate-string-db 'store 'start-cal-year-desc "Start of the current calendar year")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-year-string "Previous Year Start")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-year-desc "Beginning of the previous calendar year")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-year-string "Previous Year End")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-year-desc "End of the Previous Year")
|
||||||
|
(gnc:reldate-string-db 'store 'start-cur-fin-year-string "Current Financial Year Start")
|
||||||
|
(gnc:reldate-string-db 'store 'start-cur-fin-year-desc "Start of the current financial year/accounting period")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-fin-year-string "Previous Financial Year Start")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-financial-year-desc "The start of the previous financial year/accounting period")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-fin-year-string "End Previous Financial Year")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-fin-year-desc "End of the previous Financial year/Accounting Period")
|
||||||
|
(gnc:reldate-string-db 'store 'start-this-month-string "Start of this month")
|
||||||
|
(gnc:reldate-string-db 'store 'start-this-month-desc "Start of the current month")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-month-string "Start of previous month")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-month-desc "The beginning of the previous month")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-month-string "End of previous month")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-month-description "Last day of previous month")
|
||||||
|
(gnc:reldate-string-db 'store 'start-current-quarter-string "Start of current quarter")
|
||||||
|
(gnc:reldate-string-db 'store 'start-current-quarter-desc "The start of the latest quarterly accounting period")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-quarter-string "Start of previous quarter")
|
||||||
|
(gnc:reldate-string-db 'store 'start-prev-quarter-desc "The start of the previous quarterly accounting period")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-quarter-string "End of previous quarter")
|
||||||
|
(gnc:reldate-string-db 'store 'end-prev-quarter-desc "End of previous quarterly accounting period")
|
||||||
|
(gnc:reldate-string-db 'store 'today-string "Today")
|
||||||
|
(gnc:reldate-string-db 'store 'today-desc "The current date")
|
||||||
|
(gnc:reldate-string-db 'store 'one-month-ago-string "One Month Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'one-month-ago-desc "One Month Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'one-week-ago-string "One Week Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'one-week-ago-desc "One Week Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'three-months-ago-string "Three Months Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'three-months-ago-desc "Three Months Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'six-months-ago-string "Six Months Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'six-months-ago-string "Six Months Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'one-year-ago-string "One Year Ago")
|
||||||
|
(gnc:reldate-string-db 'store 'one-year-ago-desc "One Year Ago")
|
||||||
|
|
||||||
|
(set! gnc:relative-date-values
|
||||||
|
(list
|
||||||
|
(vector 'start-cal-year
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-cal-year-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-cal-year-desc)
|
||||||
|
gnc:get-start-cal-year)
|
||||||
|
(vector 'start-prev-year
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-year-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-year-desc)
|
||||||
|
gnc:get-start-prev-year)
|
||||||
|
(vector 'end-prev-year
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-year-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-year-desc)
|
||||||
|
gnc:get-end-prev-year)
|
||||||
|
(vector 'start-cur-fin-year
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-cur-fin-year-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-cur-fin-year-desc)
|
||||||
|
gnc:get-start-cur-fin-year)
|
||||||
|
(vector 'start-prev-fin-year
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-fin-year-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-fin-year-desc)
|
||||||
|
gnc:get-start-prev-fin-year)
|
||||||
|
(vector 'end-prev-fin-year
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-fin-year-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-fin-year-desc)
|
||||||
|
gnc:get-end-prev-fin-year)
|
||||||
|
(vector 'start-this-month
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-this-month-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-this-month-desc)
|
||||||
|
gnc:get-start-this-month)
|
||||||
|
(vector 'start-prev-month
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-month-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-month-desc)
|
||||||
|
gnc:get-start-prev-month)
|
||||||
|
(vector 'end-prev-month
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-month-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-month-desc)
|
||||||
|
gnc:get-end-prev-month)
|
||||||
|
(vector 'start-current-quarter
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-current-quarter-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-current-quarter-desc)
|
||||||
|
gnc:get-start-current-quarter)
|
||||||
|
(vector 'start-prev-quarter
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-quarter-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'start-prev-quarter-desc)
|
||||||
|
gnc:get-start-prev-quarter)
|
||||||
|
(vector 'end-prev-quarter
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-quarter-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-quarter-desc)
|
||||||
|
gnc:get-end-prev-quarter)
|
||||||
|
(vector 'today
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-quarter-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'end-prev-quarter-desc)
|
||||||
|
gnc:get-today)
|
||||||
|
(vector 'one-month-ago
|
||||||
|
(gnc:reldate-string-db 'lookup 'one-month-ago-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'one-month-ago-desc)
|
||||||
|
gnc:get-one-month-ago)
|
||||||
|
(vector 'three-months-ago
|
||||||
|
(gnc:reldate-string-db 'lookup 'three-months-ago-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'three-months-ago-desc)
|
||||||
|
gnc:get-three-months-ago)
|
||||||
|
(vector 'six-months-ago
|
||||||
|
(gnc:reldate-string-db 'lookup 'six-months-ago-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'six-months-ago-desc)
|
||||||
|
gnc:get-three-months-ago)
|
||||||
|
(vector 'one-year-ago
|
||||||
|
(gnc:reldate-string-db 'lookup 'one-year-ago-string)
|
||||||
|
(gnc:reldate-string-db 'lookup 'one-year-ago-desc)
|
||||||
|
gnc:get-one-year-ago)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(gnc:make-reldate-hash gnc:relative-date-hash gnc:relative-date-values)
|
(gnc:make-reldate-hash gnc:relative-date-hash gnc:relative-date-values)
|
||||||
|
(set! gnc:reldate-list (map (lambda (x) (vector-ref x 0)) gnc:relative-date-values))))
|
||||||
|
|
||||||
|
|
||||||
|
;; Startup
|
||||||
|
(let ((hook (gnc:hook-lookup 'startup-hook)))
|
||||||
|
(gnc:hook-add-dangler hook gnc:reldate-initialize))
|
||||||
|
|||||||
@ -77,10 +77,6 @@
|
|||||||
(newline port))))
|
(newline port))))
|
||||||
|
|
||||||
(define (report-output->string tree)
|
(define (report-output->string tree)
|
||||||
(display "(Report-Tree ")
|
|
||||||
(display tree)
|
|
||||||
(display ")")
|
|
||||||
(newline)
|
|
||||||
(call-with-output-string
|
(call-with-output-string
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
(output-tree-to-port tree port))))
|
(output-tree-to-port tree port))))
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user