Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | ## |
2 | ## Dutch tables | |
3 | ## Contributed by Johannes la Poutre <jlpoutre@corp.nl.home.com> | |
4 | ## | |
5 | ||
6 | package Date::Language::Dutch; | |
7 | ||
8 | use Date::Language (); | |
9 | use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); | |
10 | @ISA = qw(Date::Language); | |
11 | $VERSION = "1.01"; | |
12 | ||
13 | @MoY = qw(januari februari maart april mei juni juli | |
14 | augustus september oktober november december); | |
15 | @MoYs = map(substr($_, 0, 3), @MoY); | |
16 | @DoW = map($_ . "dag", qw(zon maan dins woens donder vrij zater)); | |
17 | @DoWs = map(substr($_, 0, 2), @DoW); | |
18 | ||
19 | # these aren't normally used... | |
20 | @AMPM = qw(VM NM); | |
21 | @Dsuf = ('e') x 31; | |
22 | ||
23 | ||
24 | @MoY{@MoY} = (0 .. scalar(@MoY)); | |
25 | @MoY{@MoYs} = (0 .. scalar(@MoYs)); | |
26 | @DoW{@DoW} = (0 .. scalar(@DoW)); | |
27 | @DoW{@DoWs} = (0 .. scalar(@DoWs)); | |
28 | ||
29 | # Formatting routines | |
30 | ||
31 | sub format_a { $DoWs[$_[0]->[6]] } | |
32 | sub format_A { $DoW[$_[0]->[6]] } | |
33 | sub format_b { $MoYs[$_[0]->[4]] } | |
34 | sub format_B { $MoY[$_[0]->[4]] } | |
35 | sub format_h { $MoYs[$_[0]->[4]] } | |
36 | sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } | |
37 | sub format_o { sprintf("%2de",$_[0]->[3]) } | |
38 | ||
39 | 1; |