lib/date.tcl

   1 # git-gui date processing support
   2 # Copyright (C) 2007 Shawn Pearce
   3
   4 set git_month(Jan)  1
   5 set git_month(Feb)  2
   6 set git_month(Mar)  3
   7 set git_month(Apr)  4
   8 set git_month(May)  5
   9 set git_month(Jun)  6
  10 set git_month(Jul)  7
  11 set git_month(Aug)  8
  12 set git_month(Sep)  9
  13 set git_month(Oct) 10
  14 set git_month(Nov) 11
  15 set git_month(Dec) 12
  16
  17 proc parse_git_date {s} {
  18         if {$s eq {}} {
  19                 return {}
  20         }
  21
  22         if {![regexp \
  23                 {^... (...) (\d{1,2}) (\d\d):(\d\d):(\d\d) (\d{4}) ([+-]?)(\d\d)(\d\d)$} $s s \
  24                 month day hr mm ss yr ew tz_h tz_m]} {
  25                 error [mc "Invalid date from Git: %s" $s]
  26         }
  27
  28         set s [clock scan [format {%4.4i%2.2i%2.2iT%2s%2s%2s} \
  29                         $yr $::git_month($month) $day \
  30                         $hr $mm $ss] \
  31                         -gmt 1]
  32
  33         regsub ^0 $tz_h {} tz_h
  34         regsub ^0 $tz_m {} tz_m
  35         switch -- $ew {
  36         -  {set ew +}
  37         +  {set ew -}
  38         {} {set ew -}
  39         }
  40
  41         return [expr "$s $ew ($tz_h * 3600 + $tz_m * 60)"]
  42 }
  43
  44 proc format_date {s} {
  45         if {$s eq {}} {
  46                 return {}
  47         }
  48         return [clock format $s -format {%a %b %e %H:%M:%S %Y}]
  49 }
  50
  51 proc reformat_date {s} {
  52         return [format_date [parse_git_date $s]]
  53 }