1##
2## Gedeo tables
3##
4
5package Date::Language::Gedeo;
6
7use Date::Language ();
8use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
9@ISA = qw(Date::Language);
10$VERSION = "0.99";
11
12@DoW = qw( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme);
13@MoY = (
14"Oritto",
15"Birre'a",
16"Onkkollessa",
17"Saddasa",
18"Arrasa",
19"Qammo",
20"Ella",
21"Waacibajje",
22"Canissa",
23"Addolessa",
24"Bittitotessa",
25"Hegeya"
26);
27@DoWs = map { substr($_,0,3) } @DoW;
28$DoWs[0] = "Snb";
29$DoWs[1] = "Sno";
30@MoYs = map { substr($_,0,3) } @MoY;
31@AMPM = qw(gorsa warreti-udumma);
32
33@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
34@Dsuf[11,12,13] = qw(th th th);
35@Dsuf[30,31] = qw(th st);
36
37@MoY{@MoY}  = (0 .. scalar(@MoY));
38@MoY{@MoYs} = (0 .. scalar(@MoYs));
39@DoW{@DoW}  = (0 .. scalar(@DoW));
40@DoW{@DoWs} = (0 .. scalar(@DoWs));
41
42# Formatting routines
43
44sub format_a { $DoWs[$_[0]->[6]] }
45sub format_A { $DoW[$_[0]->[6]] }
46sub format_b { $MoYs[$_[0]->[4]] }
47sub format_B { $MoY[$_[0]->[4]] }
48sub format_h { $MoYs[$_[0]->[4]] }
49sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
50
511;
52