diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/datetime/datetime.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/datetime/datetime.perl | 121 |
1 files changed, 68 insertions, 53 deletions
diff --git a/Master/texmf-dist/doc/latex/datetime/datetime.perl b/Master/texmf-dist/doc/latex/datetime/datetime.perl index 012f42b6c73..fe56b9f6597 100644 --- a/Master/texmf-dist/doc/latex/datetime/datetime.perl +++ b/Master/texmf-dist/doc/latex/datetime/datetime.perl @@ -2,7 +2,21 @@ # Author : Nicola Talbot # Date : 21 Apr 2007 # Version : 1.03 -# Description : LaTeX2HTML implementation of datetime package. +# +# This is a LaTeX2HTML style implementing the datetime package, and +# is distributed as part of that package. +# Copyright 2007 Nicola L.C. Talbot +# This work may be distributed and/or modified under the +# conditions of the LaTeX Project Public License, either version 1.3 +# of this license of (at your option) any later version. +# The latest version of this license is in +# http://www.latex-project.org/lppl.txt +# and version 1.3 or later is part of all distributions of LaTeX +# version 2005/12/01 or later. +# +# This work has the LPPL maintenance status `maintained'. +# +# The Current Maintainer of this work is Nicola Talbot. # set up default values for internal counters. @@ -198,7 +212,7 @@ sub do_datetime_breton{ $tmp .= 'local($_) = @_;'; $tmp .= 'local($num) = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($num=$2));'; $tmp .= 'local($before) = $num;'; - + $tmp .= 'if ($num == 1)'; $tmp .= '{ $before .= \'a\~n\'; }'; @@ -392,7 +406,7 @@ sub do_datetime_french{ $tmp .= 'local($_) = @_;'; $tmp .= 'local($num) = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($num=$2));'; $tmp .= 'local($before) = $num;'; - + $tmp .= 'if ($num == 1)'; $tmp .= '{ $before .= \'\ier\'; }'; @@ -907,7 +921,7 @@ sub do_datetime_welsh{ $tmp .= 'local($_) = @_;'; $tmp .= 'local($num) = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($num=$2));'; $tmp .= 'local($before) = $num;'; - + $tmp .= 'if ($num == 1)'; $tmp .= '{ $before .= \'a\~n\'; }'; @@ -1042,12 +1056,12 @@ sub get_day_of_week{ sub get_day_of_weekname_english{ local($dow) = @_; - local(@DayOfWeek) = ('Sunday', - 'Monday', - 'Tuesday', - 'Wednesday', - 'Thursday', - 'Friday', + local(@DayOfWeek) = ('Sunday', + 'Monday', + 'Tuesday', + 'Wednesday', + 'Thursday', + 'Friday', 'Saturday'); if ($dow <= 0 || $dow > 7) @@ -1064,11 +1078,11 @@ sub get_day_of_weekname_french{ local($dow) = @_; local(@DayOfWeek) = ('dimanche', - 'lundi', - 'mardi', - 'mercredi', - 'jeudi', - 'vendredi', + 'lundi', + 'mardi', + 'mercredi', + 'jeudi', + 'vendredi', 'samedi'); if ($dow <= 0 || $dow > 7) @@ -1085,11 +1099,11 @@ sub get_day_of_weekname_spanish{ local($dow) = @_; local(@DayOfWeek) = ('domingo', - 'lunes', - 'martes', - 'mi\\\'ercoles', - 'jueves', - 'viernes', + 'lunes', + 'martes', + 'mi\\\'ercoles', + 'jueves', + 'viernes', 's\\\'abado'); if ($dow <= 0 || $dow > 7) @@ -1106,11 +1120,11 @@ sub get_day_of_weekname_portuges{ local($dow) = @_; local(@DayOfWeek) = ('domingo', - 'segunda-feira', - 'ter\c{c}a-feira', - 'quarta-feira', + 'segunda-feira', + 'ter\c{c}a-feira', + 'quarta-feira', 'quinta-feira', - 'sexta-feira', + 'sexta-feira', 'sabado'); if ($dow <= 0 || $dow > 7) @@ -1127,11 +1141,11 @@ sub get_day_of_weekname_german{ local($dow) = @_; local(@DayOfWeek) = ('Sonntag', - 'Montag', - 'Dienstag', - 'Mittwoch', - 'Donnerstag', - 'Freitag', + 'Montag', + 'Dienstag', + 'Mittwoch', + 'Donnerstag', + 'Freitag', 'Samstag'); if ($dow <= 0 || $dow > 7) @@ -1148,11 +1162,11 @@ sub get_day_of_weekname_ngerman{ local($dow) = @_; local(@DayOfWeek) = ('Sonntag', - 'Montag', - 'Dienstag', - 'Mittwoch', - 'Donnerstag', - 'Freitag', + 'Montag', + 'Dienstag', + 'Mittwoch', + 'Donnerstag', + 'Freitag', 'Samstag'); if ($dow <= 0 || $dow > 7) @@ -1184,12 +1198,12 @@ sub get_day_of_weekname{ sub get_short_day_of_weekname_english{ local($dow) = @_; - local(@DayOfWeek) = ('Sun', - 'Mon', - 'Tue', - 'Wed', - 'Thu', - 'Fri', + local(@DayOfWeek) = ('Sun', + 'Mon', + 'Tue', + 'Wed', + 'Thu', + 'Fri', 'Sat'); if ($dow <= 0 || $dow > 7) @@ -1205,12 +1219,12 @@ sub get_short_day_of_weekname_english{ sub get_short_day_of_weekname_german{ local($dow) = @_; - local(@DayOfWeek) = ('So', - 'Mo', - 'Di', - 'Mi', - 'Do', - 'Fr', + local(@DayOfWeek) = ('So', + 'Mo', + 'Di', + 'Mi', + 'Do', + 'Fr', 'Sa'); if ($dow <= 0 || $dow > 7) @@ -1226,12 +1240,12 @@ sub get_short_day_of_weekname_german{ sub get_short_day_of_weekname_ngerman{ local($dow) = @_; - local(@DayOfWeek) = ('So', - 'Mo', - 'Di', - 'Mi', - 'Do', - 'Fr', + local(@DayOfWeek) = ('So', + 'Mo', + 'Di', + 'Mi', + 'Do', + 'Fr', 'Sa'); if ($dow <= 0 || $dow > 7) @@ -1561,7 +1575,7 @@ sub do_cmd_newdateformat{ sub do_cmd_pdfdate{ local($_) = @_; - local($timestring) = sprintf "%d%02d%02d%02d%02d%02d", + local($timestring) = sprintf "%d%02d%02d%02d%02d%02d", $global{YEAR}, $global{MONTH}, $global{DAY}, $global{HOUR}, $global{MINUTE}, $global{SECONDS}; join('', $timestring, $_[0]); @@ -1581,6 +1595,7 @@ sub do_cmd_newdate{ $year = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($year =$2)); + $userdates{$datename}{day} = $day; $userdates{$datename}{month} = $mon; $userdates{$datename}{year} = $year; |