Mercurial > hg > egg-tcls

changeset 665:4156adacdc31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Use utl_arg_rest instead of tj_arg_rest.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 20 Feb 2021 17:45:13 +0200
parents 586caf75fccc
children 79b5d8944eea
files tj.tcl
diffstat 1 files changed, 3 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- 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"
     }