# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1613835913 -7200
# Node ID 4156adacdc31172e641d7ee73e051ff891157ead
# Parent  586caf75fccc652f49ae177777c86b4e35c651c0
tj: Use utl_arg_rest instead of tj_arg_rest.

diff -r 586caf75fccc -r 4156adacdc31 tj.tcl
--- a/tj.tcl	Sat Feb 20 17:44:49 2021 +0200
+++ b/tj.tcl	Sat Feb 20 17:45:13 2021 +0200
@@ -76,18 +76,6 @@
 }
 
 
-proc tj_arg_rest {rarglist rindex rstr} {
-  upvar $rstr dstr
-
-  if {$rindex < [llength $rarglist]} {
-    set dstr [join [lrange $rarglist $rindex end] " "]
-    return 1
-  } else {
-    return 0
-  }
-}
-
-
 # ------------------------------------------------------------------------
 proc tj_get_id {rstr rindex rid} {
   upvar $rindex uindex
@@ -265,7 +253,7 @@
         }
       }
 
-      tj_arg_rest $rarglist $rindex rdesc
+      utl_arg_rest $rarglist $rindex rdesc
 
       # Check the timestamp validity
       if {[catch {set rstamp [clock scan "${rdate} ${rtime}" -format "%d.%m.%Y %H:%M"]} uerrmsg]} {
@@ -286,7 +274,7 @@
         }
 
         # Get description, if any
-        tj_arg_rest $rarglist $rindex rdesc
+        utl_arg_rest $rarglist $rindex rdesc
 
         # Validate hours parameters a bit
         if {$rhours < -24 || $rhours > 24} {
@@ -300,7 +288,7 @@
     } else {
       # Only description was specified
       incr rindex -1
-      tj_arg_rest $rarglist $rindex rdesc
+      utl_arg_rest $rarglist $rindex rdesc
       set rstamp "invalid"
     }