Artifact
4cf765dedf766d88157b483d85ad0e8dc14bfdfc:
Attachment "clock-tcl-trace.txt" to
ticket [3518851fff]
added by
bovineone
2012-04-17 23:52:43.
8: uplevel 1 {::tcl::clock::format 1334679322 -timezon...}
9: ::tcl::clock::format 1334679322 -timezone :Africa/Windhoek
10: variable FormatProc
10: variable TZData
10: ParseFormatArgs 1334679322 -timezone :Africa/Windhoek
10: lassign {{%a %b %d %H:%M:%S %Z %Y} C :Africa/Wind...} format locale timezone
10: string tolower C
11: ::tcl::string::tolower C
10: set locale c
10: lindex {1334679322 -timezone :Africa/Windhoek} 0
10: set clockval 1334679322
10: if {$timezone eq ""} {\n set timezone [GetSystemTimeZone]\n }
10: if {![info exists TZData($timezone)]} {\n if {[catch {SetupTimeZone $timezone} r...}
10: info exists TZData(:Africa/Windhoek)
11: ::tcl::info::exists TZData(:Africa/Windhoek)
11: if {[catch {SetupTimeZone $timezone} retval ...} {\n dict unset opts -errorinfo\n re...}
11: catch {SetupTimeZone $timezone} retval opts
12: SetupTimeZone :Africa/Windhoek
13: variable TZData
13: if {! [info exists TZData($timezone)] } {\n variable MINWIDE\n if { $timezone eq {:...}
13: info exists TZData(:Africa/Windhoek)
14: ::tcl::info::exists TZData(:Africa/Windhoek)
14: variable MINWIDE
14: if { $timezone eq {:localtime} } {\n\n # Nothing to do, we'll convert us...} elseif { [regexp {^([-+])(\d\d)(?::?(\d\d)(?::?(...} {\n\n # Make a fixed offset\n\n ::sca...} elseif { [string index $timezone 0] eq {:} } {\n \n # Convert using a time zone ...} elseif { ![catch {ParsePosixTimeZone $timezone} ...} {\n \n # This looks like a POSIX ti...} else {\n\n # We couldn't parse this as a POS...}
14: regexp ^([-+])(\d\d)(?::?(\d\d)(?::?(\d\d))?)? :Africa/Windhoek -> s hh mm ss
14: string index :Africa/Windhoek 0
15: ::tcl::string::index :Africa/Windhoek 0
15: if { \n [catch {\n LoadTimeZoneFile [str...} {\n return -code error -errorcode [list ...}
15: catch {\n LoadTimeZoneFile [string range $t...}
16: string range :Africa/Windhoek 1 end
17: ::tcl::string::range :Africa/Windhoek 1 end
16: LoadTimeZoneFile Africa/Windhoek
17: variable DataDir
17: variable TZData
17: if { [info exists TZData($fileName)] } {\n return\n }
17: info exists TZData(Africa/Windhoek)
18: ::tcl::info::exists TZData(Africa/Windhoek)
17: if { ![regexp {^[[.-.][:alpha:]_]+(?:/[[.-.]...} {\n return -code error -errorcode [list C...}
17: regexp ^[[.-.][:alpha:]_]+(?:/[[.-.][:alpha:]_]... Africa/Windhoek
17: if { [catch {\n source -encoding utf-8 [file ...} {\n return -code error -errorcode [list C...}
17: catch {\n source -encoding utf-8 [file join $Dat...}
18: file join /usr/local/lib/tcl8.5/tzdata Africa/Windhoek
18: source -encoding utf-8 /usr/local/lib/tcl8.5/tzdata/Africa/Wind...
18: list CLOCK badTimeZone :Africa/Windhoek
18: return -code error -errorcode {CLOCK badTimeZone :Africa/Windhoek} {time zone ":Africa/Windhoek" not found}
15: catch {\n LoadZoneinfoFile [string range $t...}
16: string range :Africa/Windhoek 1 end
17: ::tcl::string::range :Africa/Windhoek 1 end
16: LoadZoneinfoFile Africa/Windhoek
17: variable ZoneinfoPaths
17: if { ![regexp {^[[.-.][:alpha:]_]+(?:/[[.-.]...} {\n return -code error -errorcode [list C...}
17: regexp ^[[.-.][:alpha:]_]+(?:/[[.-.][:alpha:]_]... Africa/Windhoek
17: foreach d /usr/share/zoneinfo {\n set fname [file join $d $fileName]\n if...}
18: file join /usr/share/zoneinfo Africa/Windhoek
18: set fname /usr/share/zoneinfo/Africa/Windhoek
18: if { [file readable $fname] && [file isfile ...} {\n break\n }
18: file readable /usr/share/zoneinfo/Africa/Windhoek
18: file isfile /usr/share/zoneinfo/Africa/Windhoek
19: break
17: ReadZoneinfoFile Africa/Windhoek /usr/share/zoneinfo/Africa/Windhoek
18: variable MINWIDE
18: variable TZData
18: if { ![info exists fname] } {\n return -code error "$fileName not foun...}
18: info exists fname
19: ::tcl::info::exists fname
18: if { [file size $fname] > 262144 } {\n return -code error "$fileName too big"...}
18: file size /usr/share/zoneinfo/Africa/Windhoek
18: open /usr/share/zoneinfo/Africa/Windhoek r
18: set f file3
18: fconfigure file3 -translation binary
18: read file3
18: set d TZif2???????????????????????????????????...
18: close file3
18: binary scan TZif2???????????????????????????????????... a4a1x15IIIIII magic version nIsGMT nIsStd nLeap nTime nType nChar
18: set seek 44
18: set ilen 4
18: set iformat I
18: if { $magic != {TZif} } {\n return -code error "$fileName not a ti...}
18: if { $nType > 255 } {\n return -code error "$fileName contains...}
18: if { $nLeap != 0 } {\n return -code error "$fileName contains...}
18: if {$version eq "2"} {\n set seek [expr {44\n + 5 * $nTime \n ...}
19: expr {44\n + 5 * $nTime \n + 6 * $nType \n ...}
19: set seek 571
19: binary scan TZif2???????????????????????????????????... @571a4a1x15IIIIII magic version nIsGMT nIsStd nLeap nTime nType nChar
19: if {$magic ne {TZif}} {\n return -code error "seek address $...}
19: set iformat W
19: set ilen 8
19: incr seek 44
18: binary scan TZif2???????????????????????????????????... @615W93c93 times tempCodes
18: expr { ($ilen + 1) * $nTime }
18: incr seek 837
18: linsert {-2458170504 -2109288600 -860976000 -8452...} 0 -9223372036854775808
18: set times {-9223372036854775808 -2458170504 -210928...}
18: set codes {}
18: foreach c {1 2 3 2 4 6 5 6 5 6 5 6 5 6 5 6 5 6 5 6 ...} {\n lappend codes [expr { $c & 0xff }]\n ...}
19: expr { $c & 0xff }
19: lappend codes 1
19: expr { $c & 0xff }
19: lappend codes 2
19: expr { $c & 0xff }
19: lappend codes 3
19: expr { $c & 0xff }
19: lappend codes 2
19: expr { $c & 0xff }
19: lappend codes 4
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
19: expr { $c & 0xff }
19: lappend codes 6
19: expr { $c & 0xff }
19: lappend codes 5
18: linsert {1 2 3 2 4 6 5 6 5 6 5 6 5 6 5 6 5 6 5 6 ...} 0 0
18: set codes {0 1 2 3 2 4 6 5 6 5 6 5 6 5 6 5 6 5 6 5 ...}
18: for { set i 0 } { $i < $nType } { incr i } {\n binary scan $d @${seek}Icc gmtOff isDs...}
19: set i 0
19: binary scan TZif2???????????????????????????????????... @1452Icc gmtOff isDst abbrInd
19: list 4104 0 0
19: lappend types {4104 0 0}
19: incr seek 6
19: incr i
19: binary scan TZif2???????????????????????????????????... @1458Icc gmtOff isDst abbrInd
19: list 5400 0 4
19: lappend types {5400 0 4}
19: incr seek 6
19: incr i
19: binary scan TZif2???????????????????????????????????... @1464Icc gmtOff isDst abbrInd
19: list 7200 0 9
19: lappend types {7200 0 9}
19: incr seek 6
19: incr i
19: binary scan TZif2???????????????????????????????????... @1470Icc gmtOff isDst abbrInd
19: list 10800 1 9
19: lappend types {10800 1 9}
19: incr seek 6
19: incr i
19: binary scan TZif2???????????????????????????????????... @1476Icc gmtOff isDst abbrInd
19: list 7200 0 14
19: lappend types {7200 0 14}
19: incr seek 6
19: incr i
19: binary scan TZif2???????????????????????????????????... @1482Icc gmtOff isDst abbrInd
19: list 7200 1 18
19: lappend types {7200 1 18}
19: incr seek 6
19: incr i
19: binary scan TZif2???????????????????????????????????... @1488Icc gmtOff isDst abbrInd
19: list 3600 0 5
19: lappend types {3600 0 5}
19: incr seek 6
19: incr i
18: binary scan TZif2???????????????????????????????????... @1494a23 abbrs
18: incr seek 23
18: split LMT??SWAT??SAST??CAT??WAST?? ??
18: set abbrList {LMT SWAT SAST CAT WAST {}}
18: set i 0
18: set abbrevs {}
18: foreach a {LMT SWAT SAST CAT WAST {}} {\n dict set abbrevs $i $a\n incr i [expr {...}
19: dict set abbrevs 0 LMT
20: ::tcl::dict::set abbrevs 0 LMT
19: expr { [string length $a] + 1 }
19: string length LMT
20: ::tcl::string::length LMT
19: incr i 4
19: dict set abbrevs 4 SWAT
20: ::tcl::dict::set abbrevs 4 SWAT
19: expr { [string length $a] + 1 }
19: string length SWAT
20: ::tcl::string::length SWAT
19: incr i 5
19: dict set abbrevs 9 SAST
20: ::tcl::dict::set abbrevs 9 SAST
19: expr { [string length $a] + 1 }
19: string length SAST
20: ::tcl::string::length SAST
19: incr i 5
19: dict set abbrevs 14 CAT
20: ::tcl::dict::set abbrevs 14 CAT
19: expr { [string length $a] + 1 }
19: string length CAT
20: ::tcl::string::length CAT
19: incr i 4
19: dict set abbrevs 18 WAST
20: ::tcl::dict::set abbrevs 18 WAST
19: expr { [string length $a] + 1 }
19: string length WAST
20: ::tcl::string::length WAST
19: incr i 5
19: dict set abbrevs 23 {}
20: ::tcl::dict::set abbrevs 23 {}
19: expr { [string length $a] + 1 }
19: string length {}
20: ::tcl::string::length {}
19: incr i 1
18: set r {}
18: set lastTime -9223372036854775808
18: foreach t {-9223372036854775808 -2458170504 -210928...} c {0 1 2 3 2 4 6 5 6 5 6 5 6 5 6 5 6 5 6 5 ...} {\n if { $t < $lastTime } {\n return -c...}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime -9223372036854775808
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 0
19: lassign {4104 0 0} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 0
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 0
19: set abbrev LMT
19: list -9223372036854775808 4104 0 LMT
19: lappend r {-9223372036854775808 4104 0 LMT}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime -2458170504
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 1
19: lassign {5400 0 4} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 4
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 4
19: set abbrev SWAT
19: list -2458170504 5400 0 SWAT
19: lappend r {-2458170504 5400 0 SWAT}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime -2109288600
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 2
19: lassign {7200 0 9} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 9
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 9
19: set abbrev SAST
19: list -2109288600 7200 0 SAST
19: lappend r {-2109288600 7200 0 SAST}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime -860976000
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 3
19: lassign {10800 1 9} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 9
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 9
19: set abbrev SAST
19: list -860976000 10800 1 SAST
19: lappend r {-860976000 10800 1 SAST}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime -845254800
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 2
19: lassign {7200 0 9} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 9
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 9
19: set abbrev SAST
19: list -845254800 7200 0 SAST
19: lappend r {-845254800 7200 0 SAST}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime 637970400
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 4
19: lassign {7200 0 14} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 14
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 14
19: set abbrev CAT
19: list 637970400 7200 0 CAT
19: lappend r {637970400 7200 0 CAT}
19: if { $t < $lastTime } {\n return -code error "$fileName has ...}
19: set lastTime 765324000
19: lindex {{4104 0 0} {5400 0 4} {7200 0 9} {10800 ...} 6
19: lassign {3600 0 5} gmtoff isDst abbrInd
19: dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 5
20: ::tcl::dict::get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 5
key "5" not known in dictionary
while evaluating {dict get {0 LMT 4 SWAT 9 SAST 14 CAT 18 WAST 23 {}} 5}
16: list CLOCK badTimeZone :Africa/Windhoek
16: return -code error -errorcode {CLOCK badTimeZone :Africa/Windhoek} {time zone ":Africa/Windhoek" not found}
12: dict unset opts -errorinfo
13: ::tcl::dict::unset opts -errorinfo
12: return -options {-errorcode {CLOCK badTimeZone :Africa/Wi...} {time zone ":Africa/Windhoek" not found}
4: if 1 {\n puts stderr $::tclreadline::errorMsg\n...}
5: puts stderr {time zone ":Africa/Windhoek" not found}
time zone ":Africa/Windhoek" not found
5: list while evaluating {clock format [clock seconds] -timezone :...}
5: puts stderr {while evaluating {clock format [clock se...}
while evaluating {clock format [clock seconds] -timezone :Africa/Windhoek}
5: info exists tcl_prompt2
6: ::tcl::info::exists tcl_prompt2
4: if 0 {\n set prompt2 $tcl_prompt2\n } else {\n set prompt2 ">"\n }
5: set prompt2 >
5: if {[catch {\n if {"" != [namespace eval ::t...} {\n puts stderr [list tclreadline::Loop: ...}
5: catch {\n if {"" != [namespace eval ::tclreadli...} ::tclreadline::errorMsg
6: if {"" != [namespace eval ::tclreadline {inf...} {\n set LINE [::tclreadline::readline...} else {\n set LINE [::tclreadline::readline...}
6: namespace eval ::tclreadline {info procs prompt1}
7: info procs prompt1
8: ::tcl::info::procs prompt1
7: ::tclreadline::prompt1
8: variable prompt_string
8: global env
8: if {[catch {set pwd [pwd]} tmp]} {\n set pwd "unable to get pwd"\n }
8: catch {set pwd [pwd]} tmp
9: pwd
9: set pwd /usr/home/jeff.lawson
8: info exists env(HOME)
9: ::tcl::info::exists env(HOME)
8: if 1 {\n regsub $env(HOME) $pwd "~" pwd\n ...}
9: regsub /home/jeff.lawson /usr/home/jeff.lawson ~ pwd
8: return {tclsh8.5 [/usr~]}
7: ::tclreadline::readline read {tclsh8.5 [/usr~]}
tclsh8.5 [/usr~]