Mercurial > hg > egg-tcls

comparison utillib.tcl @ 604:543f1d72361e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 04 Feb 2021 18:02:43 +0200
parents 76d19fa28753
children a5e83abb51a8
comparison
equal deleted inserted replaced
603:577763cb8864 604:543f1d72361e
118 utl_msg_do $upreferredmsg $upublic $unick $uchan $umsg 118 utl_msg_do $upreferredmsg $upublic $unick $uchan $umsg
119 } 119 }
120 120
121 121
122 # Return formatted time string for given UNIX timestamp 122 # Return formatted time string for given UNIX timestamp
123 proc utl_ctime {utime} { 123 proc utl_ctime {ustamp} {
124 if {$utime == "" || $utime == "*"} { 124 if {$ustamp == "" || $ustamp == "*"} {
125 set utime 0 125 set ustamp 0
126 } 126 }
127 return [clock format $utime -format "%d.%m.%Y %H:%M"] 127 return [clock format $ustamp -format "%d.%m.%Y %H:%M"]
128 } 128 }
129 129
130 130
131 proc utl_cmd_match { ucommands uid ustr } { 131 proc utl_cmd_match { ucommands uid ustr } {
132 upvar $ucommands ucmds 132 upvar $ucommands ucmds