r23024 - gnucash/trunk/src/app-utils - Utils: Add "gnc:timepair?" function; useful for ensuring functions are called in a type-safe way.

[Geert Janssens]

Author: gjanssens
Date: 2013-06-02 06:32:04 -0400 (Sun, 02 Jun 2013)
New Revision: 23024
Trac: http://svn.gnucash.org/trac/changeset/23024

Modified:
   gnucash/trunk/src/app-utils/app-utils.scm
   gnucash/trunk/src/app-utils/date-utilities.scm
Log:
Utils: Add "gnc:timepair?" function; useful for ensuring functions are called in a type-safe way.
Add gnc:timepair-next-day

Author:    Peter Broadbery <p.broadbery at gmail.com>

Modified: gnucash/trunk/src/app-utils/app-utils.scm
===================================================================
--- gnucash/trunk/src/app-utils/app-utils.scm	2013-06-02 10:31:51 UTC (rev 23023)
+++ gnucash/trunk/src/app-utils/app-utils.scm	2013-06-02 10:32:04 UTC (rev 23024)
@@ -156,6 +156,7 @@
 (export gnc:secs->timepair)
 (export gnc:timepair->date)
 (export gnc:date->timepair)
+(export gnc:timepair?)
 (export gnc:date-get-year)
 (export gnc:date-get-quarter)
 (export gnc:date-get-month-day)
@@ -219,6 +220,7 @@
 (export gnc:timepair-start-day-time)
 (export gnc:timepair-end-day-time)
 (export gnc:timepair-previous-day)
+(export gnc:timepair-next-day)
 (export gnc:reldate-get-symbol)
 (export gnc:reldate-get-string)
 (export gnc:reldate-get-desc)

Modified: gnucash/trunk/src/app-utils/date-utilities.scm
===================================================================
--- gnucash/trunk/src/app-utils/date-utilities.scm	2013-06-02 10:31:51 UTC (rev 23023)
+++ gnucash/trunk/src/app-utils/date-utilities.scm	2013-06-02 10:32:04 UTC (rev 23024)
@@ -39,6 +39,10 @@
 (define (gnc:date->timepair date)
   (gnc:secs->timepair (car (mktime date))))
 
+(define (gnc:timepair? date)
+  (and (number? (car date))
+       (number? (cdr date))))
+
 ;; get stuff from localtime date vector
 (define (gnc:date-get-year datevec)
   (+ 1900 (tm:year datevec)))
@@ -432,6 +436,9 @@
 (define (gnc:timepair-previous-day tp)
   (decdate tp DayDelta))
 
+(define (gnc:timepair-next-day tp)
+  (incdate tp DayDelta))
+
 (define (gnc:reldate-get-symbol x) (vector-ref x 0))
 (define (gnc:reldate-get-string x) (vector-ref x 1))
 (define (gnc:reldate-get-desc x) (vector-ref x 2))