Posted to tcl by kbk at Tue Feb 05 16:00:04 GMT 2008view pretty

set procName ::tcl::clock::formatproc'$format'$locale
    if {[dict exists $FormatProc $procName]} {
	set procName [dict get $FormatProc $procName]
    } else {
	dict set FormatProc $procName \
	    [ParseClockFormatFormat $procName $format $locale]
    }
    
    return [$procName $clockval $timezone]