summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/datetime/datetime.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/datetime/datetime.perl')
-rw-r--r--Master/texmf-dist/source/latex/datetime/datetime.perl105
1 files changed, 52 insertions, 53 deletions
diff --git a/Master/texmf-dist/source/latex/datetime/datetime.perl b/Master/texmf-dist/source/latex/datetime/datetime.perl
index 86a7646b0fa..d73fde5e52a 100644
--- a/Master/texmf-dist/source/latex/datetime/datetime.perl
+++ b/Master/texmf-dist/source/latex/datetime/datetime.perl
@@ -213,7 +213,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\'; }';
@@ -407,7 +407,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\'; }';
@@ -922,7 +922,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\'; }';
@@ -1057,12 +1057,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)
@@ -1079,11 +1079,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)
@@ -1100,11 +1100,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)
@@ -1121,11 +1121,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)
@@ -1142,11 +1142,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)
@@ -1163,11 +1163,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)
@@ -1199,12 +1199,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)
@@ -1220,12 +1220,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)
@@ -1241,12 +1241,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)
@@ -1582,7 +1582,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]);
@@ -1602,7 +1602,6 @@ 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;