diff options
Diffstat (limited to 'third_party/git/git-gui/lib/date.tcl')
-rw-r--r-- | third_party/git/git-gui/lib/date.tcl | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/third_party/git/git-gui/lib/date.tcl b/third_party/git/git-gui/lib/date.tcl deleted file mode 100644 index abe82992b652..000000000000 --- a/third_party/git/git-gui/lib/date.tcl +++ /dev/null @@ -1,53 +0,0 @@ -# git-gui date processing support -# Copyright (C) 2007 Shawn Pearce - -set git_month(Jan) 1 -set git_month(Feb) 2 -set git_month(Mar) 3 -set git_month(Apr) 4 -set git_month(May) 5 -set git_month(Jun) 6 -set git_month(Jul) 7 -set git_month(Aug) 8 -set git_month(Sep) 9 -set git_month(Oct) 10 -set git_month(Nov) 11 -set git_month(Dec) 12 - -proc parse_git_date {s} { - if {$s eq {}} { - return {} - } - - if {![regexp \ - {^... (...) (\d{1,2}) (\d\d):(\d\d):(\d\d) (\d{4}) ([+-]?)(\d\d)(\d\d)$} $s s \ - month day hr mm ss yr ew tz_h tz_m]} { - error [mc "Invalid date from Git: %s" $s] - } - - set s [clock scan [format {%4.4i%2.2i%2.2iT%2s%2s%2s} \ - $yr $::git_month($month) $day \ - $hr $mm $ss] \ - -gmt 1] - - regsub ^0 $tz_h {} tz_h - regsub ^0 $tz_m {} tz_m - switch -- $ew { - - {set ew +} - + {set ew -} - {} {set ew -} - } - - return [expr "$s $ew ($tz_h * 3600 + $tz_m * 60)"] -} - -proc format_date {s} { - if {$s eq {}} { - return {} - } - return [clock format $s -format {%a %b %e %H:%M:%S %Y}] -} - -proc reformat_date {s} { - return [format_date [parse_git_date $s]] -} |