FM / Language

/usr/local/share/perl5/Date/Language

Name	Size	Mode	Actions
Afar.pm	1032	0444	edit dl rm
Amharic.pm	1927	0444	edit dl rm
Austrian.pm	994	0444	edit dl rm
Brazilian.pm	966	0444	edit dl rm
Bulgarian.pm	2567	0444	edit dl rm
Chinese.pm	977	0444	edit dl rm
Chinese_GB.pm	918	0444	edit dl rm
Czech.pm	1411	0444	edit dl rm
Danish.pm	1035	0444	edit dl rm
Dutch.pm	1086	0444	edit dl rm
English.pm	973	0444	edit dl rm
Finnish.pm	1239	0444	edit dl rm
French.pm	1020	0444	edit dl rm
Gedeo.pm	1064	0444	edit dl rm
German.pm	1040	0444	edit dl rm
Greek.pm	2826	0444	edit dl rm
Hungarian.pm	2133	0444	edit dl rm
Icelandic.pm	1037	0444	edit dl rm
Italian.pm	1006	0444	edit dl rm
Norwegian.pm	1004	0444	edit dl rm
Occitan.pm	964	0444	edit dl rm
Oromo.pm	999	0444	edit dl rm
Romanian.pm	892	0444	edit dl rm
Russian.pm	1384	0444	edit dl rm
Russian_cp1251.pm	1036	0555	edit dl rm
Russian_koi8r.pm	1034	0555	edit dl rm
Sidama.pm	980	0444	edit dl rm
Somali.pm	1155	0444	edit dl rm
Spanish.pm	922	0444	edit dl rm
Swedish.pm	1122	0444	edit dl rm
Tigrinya.pm	1434	0444	edit dl rm
TigrinyaEritrean.pm	1904	0444	edit dl rm
TigrinyaEthiopian.pm	1930	0444	edit dl rm
Turkish.pm	2079	0555	edit dl rm

Edit: /usr/local/share/perl5/Date/Language/Afar.pm (1032B)

##
## 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] }

## ## 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;