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