Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Import of GBARR/TimeDate-1.15 from CPAN.
gitpan-cpan-distribution: TimeDate gitpan-cpan-version: 1.15 gitpan-cpan-path: GBARR/TimeDate-1.15.tar.gz gitpan-cpan-author: GBARR gitpan-cpan-maturity: released
- Loading branch information
Showing
21 changed files
with
805 additions
and
29 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,49 @@ | ||
## | ||
## Afar tables | ||
## | ||
|
||
package Date::Language::Afar; | ||
|
||
use Date::Language (); | ||
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); | ||
@ISA = qw(Date::Language); | ||
$VERSION = "0.99"; | ||
|
||
@DoW = qw(Acaada Etleeni Talaata Arbaqa Kamiisi Gumqata Sabti); | ||
@MoY = ( | ||
"Qunxa Garablu", | ||
"Kudo", | ||
"Ciggilta Kudo", | ||
"Agda Baxis", | ||
"Caxah Alsa", | ||
"Qasa Dirri", | ||
"Qado Dirri", | ||
"Liiqen", | ||
"Waysu", | ||
"Diteli", | ||
"Ximoli", | ||
"Kaxxa Garablu" | ||
); | ||
@DoWs = map { substr($_,0,3) } @DoW; | ||
@MoYs = map { substr($_,0,3) } @MoY; | ||
@AMPM = qw(saaku carra); | ||
|
||
@Dsuf = (qw(th st nd rd th th th th th th)) x 3; | ||
@Dsuf[11,12,13] = qw(th th th); | ||
@Dsuf[30,31] = qw(th st); | ||
|
||
@MoY{@MoY} = (0 .. scalar(@MoY)); | ||
@MoY{@MoYs} = (0 .. scalar(@MoYs)); | ||
@DoW{@DoW} = (0 .. scalar(@DoW)); | ||
@DoW{@DoWs} = (0 .. scalar(@DoWs)); | ||
|
||
# Formatting routines | ||
|
||
sub format_a { $DoWs[$_[0]->[6]] } | ||
sub format_A { $DoW[$_[0]->[6]] } | ||
sub format_b { $MoYs[$_[0]->[4]] } | ||
sub format_B { $MoY[$_[0]->[4]] } | ||
sub format_h { $MoYs[$_[0]->[4]] } | ||
sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } | ||
|
||
1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,87 @@ | ||
## | ||
## Amharic tables | ||
## | ||
|
||
package Date::Language::Amharic; | ||
|
||
use Date::Language (); | ||
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); | ||
@ISA = qw(Date::Language); | ||
$VERSION = "1.00"; | ||
|
||
if ( $] >= 5.006 ) { | ||
@DoW = ( | ||
"\x{12a5}\x{1211}\x{12f5}", | ||
"\x{1230}\x{129e}", | ||
"\x{121b}\x{12ad}\x{1230}\x{129e}", | ||
"\x{1228}\x{1261}\x{12d5}", | ||
"\x{1210}\x{1219}\x{1235}", | ||
"\x{12d3}\x{122d}\x{1265}", | ||
"\x{1245}\x{12f3}\x{121c}" | ||
); | ||
@MoY = ( | ||
"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}", | ||
"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}", | ||
"\x{121b}\x{122d}\x{127d}", | ||
"\x{12a4}\x{1355}\x{1228}\x{120d}", | ||
"\x{121c}\x{12ed}", | ||
"\x{1301}\x{1295}", | ||
"\x{1301}\x{120b}\x{12ed}", | ||
"\x{12a6}\x{1308}\x{1235}\x{1275}", | ||
"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}", | ||
"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}", | ||
"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}", | ||
"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}" | ||
); | ||
@DoWs = map { substr($_,0,3) } @DoW; | ||
@MoYs = map { substr($_,0,3) } @MoY; | ||
@AMPM = ( "\x{1320}\x{12cb}\x{1275}", "\x{12a8}\x{1230}\x{12d3}\x{1275}" ); | ||
|
||
@Dsuf = ("\x{129b}" x 31); | ||
} | ||
else { | ||
@DoW = ( | ||
"እሑድ", | ||
"ሰኞ", | ||
"ማክሰኞ", | ||
"ረቡዕ", | ||
"ሐሙስ", | ||
"ዓርብ", | ||
"ቅዳሜ" | ||
); | ||
@MoY = ( | ||
"ጃንዩወሪ", | ||
"ፌብሩወሪ", | ||
"ማርች", | ||
"ኤፕረል", | ||
"ሜይ", | ||
"ጁን", | ||
"ጁላይ", | ||
"ኦገስት", | ||
"ሴፕቴምበር", | ||
"ኦክተውበር", | ||
"ኖቬምበር", | ||
"ዲሴምበር" | ||
); | ||
@DoWs = map { substr($_,0,9) } @DoW; | ||
@MoYs = map { substr($_,0,9) } @MoY; | ||
@AMPM = ( "ጠዋት", "ከሰዓት" ); | ||
|
||
@Dsuf = ("ኛ" x 31); | ||
} | ||
|
||
@MoY{@MoY} = (0 .. scalar(@MoY)); | ||
@MoY{@MoYs} = (0 .. scalar(@MoYs)); | ||
@DoW{@DoW} = (0 .. scalar(@DoW)); | ||
@DoW{@DoWs} = (0 .. scalar(@DoWs)); | ||
|
||
# Formatting routines | ||
|
||
sub format_a { $DoWs[$_[0]->[6]] } | ||
sub format_A { $DoW[$_[0]->[6]] } | ||
sub format_b { $MoYs[$_[0]->[4]] } | ||
sub format_B { $MoY[$_[0]->[4]] } | ||
sub format_h { $MoYs[$_[0]->[4]] } | ||
sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } | ||
|
||
1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,36 @@ | ||
## | ||
## English tables | ||
## | ||
|
||
package Date::Language::Chinese_GB; | ||
|
||
use Date::Language (); | ||
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); | ||
@ISA = qw(Date::Language); | ||
$VERSION = "1.01"; | ||
|
||
@DoW = qw(星期日 星期一 星期二 星期三 星期四 星期五 星期六); | ||
@MoY = qw(一月 二月 三月 四月 五月 六月 | ||
七月 八月 九月 十月 十一月 十二月); | ||
@DoWs = map { $_ } @DoW; | ||
@MoYs = map { $_ } @MoY; | ||
@AMPM = qw(上午 下午); | ||
|
||
@Dsuf = (qw(日 日 日 日 日 日 日 日 日 日)) x 3; | ||
|
||
@MoY{@MoY} = (0 .. scalar(@MoY)); | ||
@MoY{@MoYs} = (0 .. scalar(@MoYs)); | ||
@DoW{@DoW} = (0 .. scalar(@DoW)); | ||
@DoW{@DoWs} = (0 .. scalar(@DoWs)); | ||
|
||
# Formatting routines | ||
|
||
sub format_a { $DoWs[$_[0]->[6]] } | ||
sub format_A { $DoW[$_[0]->[6]] } | ||
sub format_b { $MoYs[$_[0]->[4]] } | ||
sub format_B { $MoY[$_[0]->[4]] } | ||
sub format_h { $MoYs[$_[0]->[4]] } | ||
sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } | ||
|
||
sub format_o { sprintf("%2d%s",$_[0]->[3],"日") } | ||
1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,45 @@ | ||
## | ||
## Finnish tables | ||
## Contributed by Matthew Musgrove <muskrat@mindless.com> | ||
## Corrected by roke | ||
## | ||
|
||
package Date::Language::Finnish; | ||
|
||
use Date::Language (); | ||
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); | ||
@ISA = qw(Date::Language); | ||
$VERSION = "1.01"; | ||
|
||
# In Finnish, the names of the months and days are only capitalized at the beginning of sentences. | ||
@MoY = map($_ . "kuu", qw(tammi helmi maalis huhti touko kesä heinä elo syys loka marras joulu)); | ||
@DoW = qw(sunnuntai maanantai tiistai keskiviikko torstai perjantai lauantai); | ||
|
||
# it is not customary to use abbreviated names of months or days | ||
# per Graham's suggestion: | ||
@MoYs = @MoY; | ||
@DoWs = @DoW; | ||
|
||
# the short form of ordinals | ||
@Dsuf = ('.') x 31; | ||
|
||
# doesn't look like this is normally used... | ||
@AMPM = qw(ap ip); | ||
|
||
|
||
@MoY{@MoY} = (0 .. scalar(@MoY)); | ||
@MoY{@MoYs} = (0 .. scalar(@MoYs)); | ||
@DoW{@DoW} = (0 .. scalar(@DoW)); | ||
@DoW{@DoWs} = (0 .. scalar(@DoWs)); | ||
|
||
# Formatting routines | ||
|
||
sub format_a { $DoWs[$_[0]->[6]] } | ||
sub format_A { $DoW[$_[0]->[6]] } | ||
sub format_b { $MoYs[$_[0]->[4]] } | ||
sub format_B { $MoY[$_[0]->[4]] } | ||
sub format_h { $MoYs[$_[0]->[4]] } | ||
sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } | ||
sub format_o { sprintf("%2de",$_[0]->[3]) } | ||
|
||
1; |
Oops, something went wrong.