1##
2## Tigrinya tables
3##
4
5package Date::Language::Tigrinya;
6
7use Date::Language ();
8use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
9@ISA = qw(Date::Language);
10$VERSION = "1.00";
11
12@DoW = qw(
13"\x{U1230}\x{U1295}\x{U1260}\x{U1275}",
14"\x{U1230}\x{U1291}\x{U12ed}",
15"\x{U1230}\x{U1209}\x{U1235}",
16"\x{U1228}\x{U1261}\x{U12d5}",
17"\x{U1213}\x{U1219}\x{U1235}",
18"\x{U12d3}\x{U122d}\x{U1262}",
19"\x{U1240}\x{U12f3}\x{U121d}"
20);
21@MoY = qw(
22"\x{U1303}\x{U1295}\x{U12e9}\x{U12c8}\x{U122a}",
23"\x{U134c}\x{U1265}\x{U1229}\x{U12c8}\x{U122a}",
24"\x{U121b}\x{U122d}\x{U127d}",
25"\x{U12a4}\x{U1355}\x{U1228}\x{U120d}",
26"\x{U121c}\x{U12ed}",
27"\x{U1301}\x{U1295}",
28"\x{U1301}\x{U120b}\x{U12ed}",
29"\x{U12a6}\x{U1308}\x{U1235}\x{U1275}",
30"\x{U1234}\x{U1355}\x{U1274}\x{U121d}\x{U1260}\x{U122d}",
31"\x{U12a6}\x{U12ad}\x{U1270}\x{U12cd}\x{U1260}\x{U122d}",
32"\x{U1296}\x{U126c}\x{U121d}\x{U1260}\x{U122d}",
33"\x{U12f2}\x{U1234}\x{U121d}\x{U1260}\x{U122d}"
34);
35@DoWs = map { substr($_,0,3) } @DoW;
36@MoYs = map { substr($_,0,3) } @MoY;
37@AMPM = (
38"\x{1295}/\x{1230}",
39"\x{12F5}/\x{1230}"
40);
41
42@Dsuf = ("\x{12ed}" x 31);
43
44@MoY{@MoY}  = (0 .. scalar(@MoY));
45@MoY{@MoYs} = (0 .. scalar(@MoYs));
46@DoW{@DoW}  = (0 .. scalar(@DoW));
47@DoW{@DoWs} = (0 .. scalar(@DoWs));
48
49# Formatting routines
50
51sub format_a { $DoWs[$_[0]->[6]] }
52sub format_A { $DoW[$_[0]->[6]] }
53sub format_b { $MoYs[$_[0]->[4]] }
54sub format_B { $MoY[$_[0]->[4]] }
55sub format_h { $MoYs[$_[0]->[4]] }
56sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
57
581;
59