# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1338104163 -10800
# Node ID 42cf6a768c465f48a917d2bdf403b54dae477a7d
# Parent  ac5b1efabace88f6bc2c171ac3adf74ee7273f78
tj: Add support for years in the output.

diff -r ac5b1efabace -r 42cf6a768c46 tj.tcl
--- a/tj.tcl	Mon Jan 09 17:07:14 2012 +0200
+++ b/tj.tcl	Sun May 27 10:36:03 2012 +0300
@@ -116,6 +116,15 @@
 
 
 # ------------------------------------------------------------------------
+proc tj_append { qlause qaika qstr qadd } {
+  upvar $qlause lause
+  if {$qaika > 0} {
+    if {$lause != ""} { append lause $qadd }
+    append lause $qstr
+  }
+}
+
+# ------------------------------------------------------------------------
 proc tj_gettj {ihandle ichan} {
   global tj_defstarttj
   global tj_dateident
@@ -152,8 +161,11 @@
   }
 
   # Lasketaan TJ aamut, tunnit jne
-  set aamut [expr ($tmp / 86400)]
-  set tunnit [expr (($tmp % 86400) / 3600)]
+  set vuodet [expr ($tmp / (365*24*60*60))]
+  set rem [expr ($tmp % (365*24*60*60))]
+  set aamut [expr ($rem / (24*60*60))]
+  set rem [expr ($rem % (24*60*60))]
+  set tunnit [expr ($rem / (60*60))]
 
   # Maaritetaan sanalause
   if {$ichan != ""} {
@@ -164,16 +176,10 @@
     set tjmi "Sinä olet"
   }
 
-  if {$aamut > 0} {
-    set lause "$aamut aamua"
-  } else {
-    set lause ""
-  }
-
-  if {$tunnit > 0} {
-    if {$aamut > 0} { append lause " ja " }
-    append lause "$tunnit tuntia"
-  }
+  set lause ""
+  tj_append lause $vuodet "$vuodet vuotta" ""
+  tj_append lause $aamut "$aamut aamua" ", "
+  tj_append lause $tunnit "$tunnit tuntia" " ja "
 
   if {$aamut == 0 && $deltatj > 0} {
     if {$tunnit == 0} {