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

  1. set procName ::tcl::clock::formatproc'$format'$locale
  2. if {[dict exists $FormatProc $procName]} {
  3. set procName [dict get $FormatProc $procName]
  4. } else {
  5. dict set FormatProc $procName \
  6. [ParseClockFormatFormat $procName $format $locale]
  7. }
  8.  
  9. return [$procName $clockval $timezone]