/[suikacvs]/messaging/manakai/lib/Message/Field/Date.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/Date.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by wakaba, Mon Aug 5 09:33:18 2002 UTC revision 1.18 by wakaba, Thu Aug 29 12:14:37 2002 UTC
# Line 104  The following methods construct new obje Line 104  The following methods construct new obje
104    DEC   => 12,  DECEMBER        => 12,    DEC   => 12,  DECEMBER        => 12,
105  );  );
106    
 if (defined $^V) {  
   use utf8;  
   %MONTH = (%MONTH,  
     qw(睦月 1 霞初月 1 暮新月 1 太郎月 1 子日月 1 初春月 1  
        初空月 1 早緑月 1 年端月 1 年初月 1 孟春 1 祝月 1  
        元月 1 端月 1  
         
        如月 2 初花月 2 梅月 2 梅見月 2 雪消月 2 小草生月 2  
        仲春 2 令月 2 仲陽 2  
         
        弥生 3 桜月 3 晩春 3 早花咲月 3 染色月 3 花見月 3  
        春惜月 3 雛月 3 夢見月 3 季春 3 暮春 3  
         
        卯月 4 卯花月 4 得鳥羽月 4 夏初月 4 花残月 4 孟夏 4  
        麦秋 4 初夏 4 首夏 4  
         
        五月 5 皐月 5 早月 5 菖蒲月 5 五色月 5 狭雲月 5 早苗月 5  
        田草月 5 橘月 5 雨月 5 仲夏 5 星月 5 鶉月 5 早稲月 5  
         
        水無月 6 弥涼暮月 6 風待月 6 涼暮月 6 蝉羽月 6 常夏月 6  
        鳴神月 6 松風月 6 季夏 6 晩夏 6 林鐘 6  
         
        文月 7 秋初月 7 七夕月 7 親月 7 文披月 7 書披月 7  
        愛合月 7 女郎花月 7 初秋 7 孟秋 7 新秋 7  
         
        葉月 8 初月 8 秋風月 8 草津月 8 木染月 8 月見月 8 萩月 8  
        紅染月 8 仲秋 8 清秋 8  
         
        長月 9 玄月 9 色どり月 9 菊咲月 9 菊月 9 寝覚月 9 暮秋 9  
        紅葉月 9 季秋 9 晩秋 9  
         
        神無月 10 神有月 10 神去月 10 小春 10 時雨月 10 初霜月 10  
        孟冬 10 初冬 10  
         
        霜月 11 神楽月 11 神帰月 11 霜降月 11 子月 11 雪待月 11  
        仲冬 11 朔月 11 露ごもりの葉月 11  
         
        師走 12 除月 12 弟月 12 親子月 12 限月 12 暮来月 12 年積月 12  
        春待月 12 梅初月 12 季冬 12 晩冬 12 極月 12 臘月 12 蠟月 12 蝋月 12  
      )  
   );  
 }  
   
107  {  {
108  my $_p2f = sub { my ($s, $n) = @_; $s eq 'none'? q(%d): $s eq 'SP'? qq(%${n}d): qq(%0${n}d) };  my $_p2f = sub { my ($s, $n) = @_; $s eq 'none'? q(%d): $s eq 'SP'? qq(%${n}d): qq(%0${n}d) };
109  my $_tm = sub { $_[0]->{local}?'tm_local':'tm' };  my $_tm = sub { $_[0]->{local}?'tm_local':'tm' };
# Line 240  my $_tm = sub { $_[0]->{local}?'tm_local Line 197  my $_tm = sub { $_[0]->{local}?'tm_local
197    #IST  => [+1,  5, 30],        ## Indian standard    #IST  => [+1,  5, 30],        ## Indian standard
198    IT    => [+1,  3, 30],        ## Iran    IT    => [+1,  3, 30],        ## Iran
199    JST   => [+1,  9,  0],        ## Japan Central Standard    JST   => [+1,  9,  0],        ## Japan Central Standard
200      #JT   => [+1,  9,  0],        ## Japan Central Standard
201    JT    => [+1,  7, 30],        ## Java    JT    => [+1,  7, 30],        ## Java
202    KDT   => [+1, 10,  0],        ## Korean Daylight    KDT   => [+1, 10,  0],        ## Korean Daylight
203    KST   => [+1,  9,  0],        ## Korean Standard    KST   => [+1,  9,  0],        ## Korean Standard
# Line 315  sub _init ($;%) { Line 273  sub _init ($;%) {
273    my $DEFAULT = Message::Util::make_clone (\%DEFAULT);    my $DEFAULT = Message::Util::make_clone (\%DEFAULT);
274    my %option = @_;    my %option = @_;
275    $self->SUPER::_init (%$DEFAULT, %option);    $self->SUPER::_init (%$DEFAULT, %option);
276      $self->{date_time} = 0;
277    $self->{date_time} = $option{unix} if defined $option{unix};    $self->{date_time} = $option{unix} if defined $option{unix};
278    $self->{secfrac} = $option{frac} if defined $option{frac};    $self->{secfrac} = $option{frac} if defined $option{frac};
279    unless (ref $self->{option}->{zone}) {    unless (ref $self->{option}->{zone}) {
# Line 675  sub stringify ($;%) { Line 634  sub stringify ($;%) {
634    my $self = shift;    my $self = shift;
635    my %o = @_;    my %o = @_;
636    my %option = %{$self->{option}};    my %option = %{$self->{option}};
637      $option{format_parameters} ||= {};
638    for (grep {/^-/} keys %o) {$option{substr ($_, 1)} = $o{$_}}    for (grep {/^-/} keys %o) {$option{substr ($_, 1)} = $o{$_}}
639    unless ($option{format_template}) {    unless ($option{format_template}) {
640      if ($option{format} =~ /mail-rfc2822|news-usefor|mail-rfc822\+rfc1123|news-son-of-rfc1036|mime/) {      if ($option{format} =~ /mail-rfc2822|news-usefor|mail-rfc822\+rfc1123|news-son-of-rfc1036|mime/) {
# Line 702  sub stringify ($;%) { Line 662  sub stringify ($;%) {
662    my $c = '';    my $c = '';
663    $c = $self->_comment_stringify    $c = $self->_comment_stringify
664      if $option{output_comment} && @{ $self->{comment} } > 0;      if $option{output_comment} && @{ $self->{comment} } > 0;
665    Message::Util::sprintxf ($option{format_template}, {    &Message::Util::sprintxf ($option{format_template}, {
666          comment => $c,          comment => $c,
667          fmt2str => \%FMT2STR,          fmt2str => ($option{format_macros} || \%FMT2STR),
668          option  => \%option,          option  => \%option,
669          time    => $self->{date_time},          time    => $self->{date_time},
670          time_local      => $l_time,          time_local      => $l_time,
# Line 712  sub stringify ($;%) { Line 672  sub stringify ($;%) {
672          tm_local        => [ gmtime $l_time ],          tm_local        => [ gmtime $l_time ],
673          secfrac => $self->{secfrac},          secfrac => $self->{secfrac},
674          secfrac_local   => $self->{secfrac},    ## Not supported yet          secfrac_local   => $self->{secfrac},    ## Not supported yet
675            %{ $option{format_parameters} },
676    });    });
677  }  }
678  *as_string = \&stringify;  *as_string = \&stringify;
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24