gnucash maint: [date-utilities.scm] typo fix and deprecate unused functions

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/3739d912 (commit)
	from  https://github.com/Gnucash/gnucash/commit/7bacd82c (commit)



commit 3739d9121c475582475e4a151c412c712fcab5ac
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Sun Mar 7 10:24:05 2021 +0800

    [date-utilities.scm] typo fix and deprecate unused functions

diff --git a/libgnucash/app-utils/date-utilities.scm b/libgnucash/app-utils/date-utilities.scm
index 77b84afad..6579b0a70 100644
--- a/libgnucash/app-utils/date-utilities.scm
+++ b/libgnucash/app-utils/date-utilities.scm
@@ -790,12 +790,13 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-three-months-ago)
+  (issue-deprecation-warning "gnc:get-three-months-ago is unused.")
   (let ((now (gnc-localtime (current-time))))
     (if (< (tm:mon now) 3)
 	(begin
-	  (set:tm-mon now (+ (tm:mon now) 12))
-	  (set:tm-year now  (- (tm:year now) 1))))
-    (set:tm-mon now (- (tm:mon now) 3))
+	  (set-tm:mon now (+ (tm:mon now) 12))
+	  (set-tm:year now  (- (tm:year now) 1))))
+    (set-tm:mon now (- (tm:mon now) 3))
     (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
                                          (+ (tm:year now) 1900))))
       (if (< month-days (tm:mday now))
@@ -804,12 +805,13 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-six-months-ago)
+  (issue-deprecation-warning "gnc:get-six-months-ago is unused.")
   (let ((now (gnc-localtime (current-time))))
     (if (< (tm:mon now) 6)
 	(begin
-	  (set:tm-mon now (+ (tm:mon now) 12))
-	  (set:tm-year now  (- (tm:year now) 1))))
-    (set:tm-mon now (- (tm:mon now) 6))
+	  (set-tm:mon now (+ (tm:mon now) 12))
+	  (set-tm:year now  (- (tm:year now) 1))))
+    (set-tm:mon now (- (tm:mon now) 6))
     (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
                                          (+ (tm:year now) 1900))))
       (if (< month-days (tm:mday now))
@@ -818,8 +820,9 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-one-year-ago)
+  (issue-deprecation-warning "gnc:get-one-year-ago is unused.")
   (let ((now (gnc-localtime (current-time))))
-    (set:tm-year now (- (tm:year now) 1))
+    (set-tm:year now (- (tm:year now) 1))
     (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
                                          (+ (tm:year now) 1900))))
       (if (< month-days (tm:mday now))
@@ -842,12 +845,13 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-three-months-ahead)
+  (issue-deprecation-warning "gnc:get-three-months-ahead is unused.")
   (let ((now (gnc-localtime (current-time))))
     (if (> (tm:mon now) 8)
 	(begin
-	  (set:tm-mon now (- (tm:mon now) 9))
-	  (set:tm-year now  (+ (tm:year now) 1))
-          (set:tm-mon now (+ (tm:mon now) 3))))
+	  (set-tm:mon now (- (tm:mon now) 9))
+	  (set-tm:year now  (+ (tm:year now) 1))
+          (set-tm:mon now (+ (tm:mon now) 3))))
     (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
                                          (+ (tm:year now) 1900))))
       (if (< month-days (tm:mday now))
@@ -856,12 +860,13 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-six-months-ahead)
+  (issue-deprecation-warning "gnc:get-six-months-ahead is unused.")
   (let ((now (gnc-localtime (current-time))))
     (if (> (tm:mon now) 5)
 	(begin
-	  (set:tm-mon now (- (tm:mon now) 6))
-	  (set:tm-year now  (+ (tm:year now) 1))
-          (set:tm-mon now (+ (tm:mon now) 6))))
+	  (set-tm:mon now (- (tm:mon now) 6))
+	  (set-tm:year now  (+ (tm:year now) 1))
+          (set-tm:mon now (+ (tm:mon now) 6))))
     (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
                                          (+ (tm:year now) 1900))))
       (if (< month-days (tm:mday now))
@@ -870,8 +875,9 @@ Defaulting to today."))
       (gnc-mktime now))))
 
 (define (gnc:get-one-year-ahead)
+  (issue-deprecation-warning "gnc:get-one-year-ahead is unused.")
   (let ((now (gnc-localtime (current-time))))
-    (set:tm-year now (+ (tm:year now) 1))
+    (set-tm:year now (+ (tm:year now) 1))
     (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
                                          (+ (tm:year now) 1900))))
       (if (< month-days (tm:mday now))



Summary of changes:
 libgnucash/app-utils/date-utilities.scm | 34 +++++++++++++++++++--------------
 1 file changed, 20 insertions(+), 14 deletions(-)