Posted to tcl by kbk at Tue Feb 05 16:00:04 GMT 2008view raw
- 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]