1## 2## Tigrinya-Eritrean tables 3## 4 5package Date::Language::TigrinyaEritrean; 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 12if ( $] >= 5.006 ) { 13@DoW = ( 14"\x{1230}\x{1295}\x{1260}\x{1275}", 15"\x{1230}\x{1291}\x{12ed}", 16"\x{1230}\x{1209}\x{1235}", 17"\x{1228}\x{1261}\x{12d5}", 18"\x{1213}\x{1219}\x{1235}", 19"\x{12d3}\x{122d}\x{1262}", 20"\x{1240}\x{12f3}\x{121d}" 21); 22@MoY = ( 23"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}", 24"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}", 25"\x{121b}\x{122d}\x{127d}", 26"\x{12a4}\x{1355}\x{1228}\x{120d}", 27"\x{121c}\x{12ed}", 28"\x{1301}\x{1295}", 29"\x{1301}\x{120b}\x{12ed}", 30"\x{12a6}\x{1308}\x{1235}\x{1275}", 31"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}", 32"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}", 33"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}", 34"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}" 35); 36@DoWs = map { substr($_,0,3) } @DoW; 37@MoYs = map { substr($_,0,3) } @MoY; 38@AMPM = ( 39"\x{1295}/\x{1230}", 40"\x{12F5}/\x{1230}" 41); 42 43@Dsuf = ("\x{12ed}" x 31); 44} 45else { 46@DoW = ( 47"ሰንበት", 48"ሰኑይ", 49"ሰሉስ", 50"ረቡዕ", 51"ሓሙስ", 52"ዓርቢ", 53"ቀዳም" 54); 55@MoY = ( 56"ጥሪ", 57"ለካቲት", 58"መጋቢት", 59"ሚያዝያ", 60"ግንቦት", 61"ሰነ", 62"ሓምለ", 63"ነሓሰ", 64"መስከረም", 65"ጥቅምቲ", 66"ሕዳር", 67"ታሕሳስ" 68); 69@DoWs = map { substr($_,0,9) } @DoW; 70@MoYs = map { substr($_,0,9) } @MoY; 71@AMPM = ( 72"ን/ሰ", 73"ድ/ሰ" 74); 75 76@Dsuf = ("ይ" x 31); 77} 78 79@MoY{@MoY} = (0 .. scalar(@MoY)); 80@MoY{@MoYs} = (0 .. scalar(@MoYs)); 81@DoW{@DoW} = (0 .. scalar(@DoW)); 82@DoW{@DoWs} = (0 .. scalar(@DoWs)); 83 84# Formatting routines 85 86sub format_a { $DoWs[$_[0]->[6]] } 87sub format_A { $DoW[$_[0]->[6]] } 88sub format_b { $MoYs[$_[0]->[4]] } 89sub format_B { $MoY[$_[0]->[4]] } 90sub format_h { $MoYs[$_[0]->[4]] } 91sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } 92 931; 94