Mercurial > hg > egg-tcls
changeset 665:4156adacdc31
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" }