summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/datetime/datetime.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/datetime/datetime.perl')
-rw-r--r--Master/texmf-dist/doc/latex/datetime/datetime.perl121
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;