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