summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl')
-rw-r--r--Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl485
1 files changed, 242 insertions, 243 deletions
diff --git a/Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl b/Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl
index a0460f733b1..bc7d3b9fb4e 100644
--- a/Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl
+++ b/Master/texmf-dist/doc/latex/fmtcount/latex2html/fmtcount.perl
@@ -191,7 +191,7 @@ sub do_cmd_storeordinal{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -221,10 +221,10 @@ sub do_cmd_storeordinalnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -239,37 +239,37 @@ sub do_cmd_storeordinalnum{
$_;
}
-@unitthstring = ('zeroth',
- 'first',
- 'second',
- 'third',
- 'fourth',
- 'fifth',
- 'sixth',
- 'seventh',
- 'eighth',
+@unitthstring = ('zeroth',
+ 'first',
+ 'second',
+ 'third',
+ 'fourth',
+ 'fifth',
+ 'sixth',
+ 'seventh',
+ 'eighth',
'ninth');
-@tenthstring = ('',
- 'tenth',
- 'twentieth',
- 'thirtieth',
- 'fortieth',
- 'fiftieth',
- 'sixtieth',
- 'seventieth',
- 'eightieth',
+@tenthstring = ('',
+ 'tenth',
+ 'twentieth',
+ 'thirtieth',
+ 'fortieth',
+ 'fiftieth',
+ 'sixtieth',
+ 'seventieth',
+ 'eightieth',
'ninetieth');
-@teenthstring = ('tenth',
- 'eleventh',
- 'twelfth',
- 'thirteenth',
- 'fourteenth',
- 'fifteenth',
- 'sixteenth',
- 'seventeenth',
- 'eighteenth',
+@teenthstring = ('tenth',
+ 'eleventh',
+ 'twelfth',
+ 'thirteenth',
+ 'fourteenth',
+ 'fifteenth',
+ 'sixteenth',
+ 'seventeenth',
+ 'eighteenth',
'nineteenth');
@unitstring = ('zero',
@@ -348,42 +348,42 @@ sub get_numberstringenglish{
{
$name .= $unitstring[$num%10];
}
- }
+ }
$name;
}
-@unitthstringfrench = ('zeroi\`eme',
- 'uni\`eme',
- 'deuxi\`eme',
- 'troisi\`eme',
- 'quatri\`eme',
- 'cinqui\`eme',
- 'sixi\`eme',
- 'septi\`eme',
- 'huiti\`eme',
+@unitthstringfrench = ('zeroi\`eme',
+ 'uni\`eme',
+ 'deuxi\`eme',
+ 'troisi\`eme',
+ 'quatri\`eme',
+ 'cinqui\`eme',
+ 'sixi\`eme',
+ 'septi\`eme',
+ 'huiti\`eme',
'neuvi\`eme');
-@tenthstringfrench = ('',
- 'dixi\`eme',
- 'vingti\`eme',
- 'trentri\`eme',
- 'quaranti\`eme',
- 'cinquanti\`eme',
- 'soixanti\`eme',
- 'septenti\`eme',
- 'huitanti\`eme',
+@tenthstringfrench = ('',
+ 'dixi\`eme',
+ 'vingti\`eme',
+ 'trentri\`eme',
+ 'quaranti\`eme',
+ 'cinquanti\`eme',
+ 'soixanti\`eme',
+ 'septenti\`eme',
+ 'huitanti\`eme',
'nonenti\`eme');
-@teenthstringfrench = ('dixi\`eme',
- 'onzi\`eme',
- 'douzi\`eme',
- 'treizi\`eme',
- 'quatorzi\`eme',
- 'quinzi\`eme',
- 'seizi\`eme',
- 'dix-septi\`eme',
- 'dix-huiti\`eme',
+@teenthstringfrench = ('dixi\`eme',
+ 'onzi\`eme',
+ 'douzi\`eme',
+ 'treizi\`eme',
+ 'quatorzi\`eme',
+ 'quinzi\`eme',
+ 'seizi\`eme',
+ 'dix-septi\`eme',
+ 'dix-huiti\`eme',
'dix-neuvi\`eme');
@unitstringfrench = ('zero',
@@ -424,37 +424,37 @@ $hundredthnamefrench = "centi\\`eme";
$thousandnamefrench = "mille";
$thousandthnamefrench = "mili\\`eme";
-@unitthstringspanish = ('cero',
- 'primero',
- 'segundo',
- 'tercero',
- 'cuarto',
- 'quinto',
- 'sexto',
- 's\\\'eptimo',
- 'octavo',
+@unitthstringspanish = ('cero',
+ 'primero',
+ 'segundo',
+ 'tercero',
+ 'cuarto',
+ 'quinto',
+ 'sexto',
+ 's\\\'eptimo',
+ 'octavo',
'noveno');
-@tenthstringspanish = ('',
- 'd\\\'ecimo',
- 'vig\\\'esimo',
- 'trig\\\'esimo',
- 'cuadrag\\\'esimo',
- 'quincuag\\\'esimo',
- 'sexag\\\'esimo',
- 'septuag\\\'esimo',
- 'octog\\\'esimo',
+@tenthstringspanish = ('',
+ 'd\\\'ecimo',
+ 'vig\\\'esimo',
+ 'trig\\\'esimo',
+ 'cuadrag\\\'esimo',
+ 'quincuag\\\'esimo',
+ 'sexag\\\'esimo',
+ 'septuag\\\'esimo',
+ 'octog\\\'esimo',
'nonag\\\'esimo');
-@teenthstringspanish = ('d\\\'ecimo',
- 'und\\\'ecimo',
- 'duod\\\'ecimo',
- 'decimotercero',
- 'decimocuarto',
- 'decimoquinto',
- 'decimosexto',
- 'decimos\\\'eptimo',
- 'decimoctavo',
+@teenthstringspanish = ('d\\\'ecimo',
+ 'und\\\'ecimo',
+ 'duod\\\'ecimo',
+ 'decimotercero',
+ 'decimocuarto',
+ 'decimoquinto',
+ 'decimosexto',
+ 'decimos\\\'eptimo',
+ 'decimoctavo',
'decimonoveno');
@hundredthstringspanish = ('',
@@ -528,26 +528,26 @@ $hundredthnamespanish = "centi\\`eme";
$thousandnamespanish = "mil";
$thousandthnamespanish = "mil\\'esimo";
-@unitthstringportuges = ('zero',
- 'primeiro',
- 'segundo',
- 'terceiro',
- 'quatro',
- 'quinto',
- 'sexto',
- 's\\\'etimo',
- 'oitavo',
+@unitthstringportuges = ('zero',
+ 'primeiro',
+ 'segundo',
+ 'terceiro',
+ 'quatro',
+ 'quinto',
+ 'sexto',
+ 's\\\'etimo',
+ 'oitavo',
'nono');
-@tenthstringportuges = ('',
- 'd\\\'ecimo',
- 'vig\\\'esimo',
- 'trig\\\'esimo',
- 'quadrag\\\'esimo',
- 'q\"uinquag\\\'esimo',
- 'sexag\\\'esimo',
- 'setuag\\\'esimo',
- 'octog\\\'esimo',
+@tenthstringportuges = ('',
+ 'd\\\'ecimo',
+ 'vig\\\'esimo',
+ 'trig\\\'esimo',
+ 'quadrag\\\'esimo',
+ 'q\"uinquag\\\'esimo',
+ 'sexag\\\'esimo',
+ 'setuag\\\'esimo',
+ 'octog\\\'esimo',
'nonag\\\'esimo');
@hundredthstringportuges = ('',
@@ -615,11 +615,11 @@ sub get_numberstringfrench{
if ($gender eq 'f')
{
- $unitstringfrench[1] = 'une';
+ $unitstringfrench[1] = 'une';
}
else
{
- $unitstringfrench[1] = 'un';
+ $unitstringfrench[1] = 'un';
}
unless (($num >= 1000000) || ($num < 0))
@@ -688,7 +688,7 @@ sub get_numberstringfrench{
}
}
}
- elsif ($frenchdialect eq 'belgian'
+ elsif ($frenchdialect eq 'belgian'
&& ($num >= 80) && ($num < 90))
{
$name .= 'quatre-vingt' . ($num==80?'s':'-');
@@ -710,7 +710,7 @@ sub get_numberstringfrench{
{
$name .= $unitstringfrench[$num%10];
}
- }
+ }
$name;
}
@@ -721,11 +721,11 @@ sub get_numberstringspanish{
if ($gender eq 'f')
{
- $unitstringspanish[1] = 'una';
+ $unitstringspanish[1] = 'una';
}
else
{
- $unitstringspanish[1] = 'uno';
+ $unitstringspanish[1] = 'uno';
}
unless (($num >= 1000000) || ($num < 0))
@@ -764,7 +764,6 @@ sub get_numberstringspanish{
if (($_[0] > 100) && ($_[0]%100 > 0)) { $name .= " y "; }
-
if ($num >= 30)
{
$name .= $tenstringspanish[$num/10];
@@ -784,7 +783,7 @@ sub get_numberstringspanish{
{
$name .= $unitstringspanish[$num%10];
}
- }
+ }
$name;
}
@@ -863,108 +862,108 @@ sub get_numberstringportuges{
{
$name .= $unitstringportuges[$num%10];
}
- }
+ }
$name;
}
-@unitthstringMgerman = ('nullter',
- 'erster',
- 'zweiter',
- 'dritter',
- 'vierter',
- 'f\\"unter',
- 'sechster',
- 'siebter',
- 'achter',
+@unitthstringMgerman = ('nullter',
+ 'erster',
+ 'zweiter',
+ 'dritter',
+ 'vierter',
+ 'f\\"unter',
+ 'sechster',
+ 'siebter',
+ 'achter',
'neunter');
-@tenthstringMgerman = ('',
- 'zehnter',
- 'zwanzigster',
- 'drei\\ss igster',
- 'vierzigster',
- 'f\\"unfzigster',
- 'sechzigster',
- 'siebzigster',
- 'achtzigster',
+@tenthstringMgerman = ('',
+ 'zehnter',
+ 'zwanzigster',
+ 'drei\\ss igster',
+ 'vierzigster',
+ 'f\\"unfzigster',
+ 'sechzigster',
+ 'siebzigster',
+ 'achtzigster',
'neunzigster');
-@teenthstringMgerman = ('zehnter',
- 'elfter',
- 'zw\\"olfter',
- 'dreizehnter',
- 'vierzehnter',
- 'f\\"unfzehnter',
- 'sechzehnter',
- 'siebzehnter',
- 'achtzehnter',
+@teenthstringMgerman = ('zehnter',
+ 'elfter',
+ 'zw\\"olfter',
+ 'dreizehnter',
+ 'vierzehnter',
+ 'f\\"unfzehnter',
+ 'sechzehnter',
+ 'siebzehnter',
+ 'achtzehnter',
'neunzehnter');
-@unitthstringFgerman = ('nullte',
- 'erste',
- 'zweite',
- 'dritte',
- 'vierte',
- 'f\\"unfte',
- 'sechste',
- 'siebte',
- 'achte',
+@unitthstringFgerman = ('nullte',
+ 'erste',
+ 'zweite',
+ 'dritte',
+ 'vierte',
+ 'f\\"unfte',
+ 'sechste',
+ 'siebte',
+ 'achte',
'neunte');
-@tenthstringFgerman = ('',
- 'zehnte',
- 'zwanzigste',
- 'drei\\ss igste',
- 'vierzigste',
- 'f\\"unfzigste',
- 'sechzigste',
- 'siebzigste',
- 'achtzigste',
+@tenthstringFgerman = ('',
+ 'zehnte',
+ 'zwanzigste',
+ 'drei\\ss igste',
+ 'vierzigste',
+ 'f\\"unfzigste',
+ 'sechzigste',
+ 'siebzigste',
+ 'achtzigste',
'neunzigste');
-@teenthstringFgerman = ('zehnte',
- 'elfte',
- 'zw\\"olfte',
- 'dreizehnte',
- 'vierzehnte',
- 'f\\"unfzehnte',
- 'sechzehnte',
- 'siebzehnte',
- 'achtzehnte',
+@teenthstringFgerman = ('zehnte',
+ 'elfte',
+ 'zw\\"olfte',
+ 'dreizehnte',
+ 'vierzehnte',
+ 'f\\"unfzehnte',
+ 'sechzehnte',
+ 'siebzehnte',
+ 'achtzehnte',
'neunzehnte');
-@unitthstringNgerman = ('nulltes',
- 'erstes',
- 'zweites',
- 'drittes',
- 'viertes',
- 'f\\"unte',
- 'sechstes',
- 'siebtes',
- 'achtes',
+@unitthstringNgerman = ('nulltes',
+ 'erstes',
+ 'zweites',
+ 'drittes',
+ 'viertes',
+ 'f\\"unte',
+ 'sechstes',
+ 'siebtes',
+ 'achtes',
'neuntes');
-@tenthstringNgerman = ('',
- 'zehntes',
- 'zwanzigstes',
- 'drei\\ss igstes',
- 'vierzigstes',
- 'f\\"unfzigstes',
- 'sechzigstes',
- 'siebzigstes',
- 'achtzigstes',
+@tenthstringNgerman = ('',
+ 'zehntes',
+ 'zwanzigstes',
+ 'drei\\ss igstes',
+ 'vierzigstes',
+ 'f\\"unfzigstes',
+ 'sechzigstes',
+ 'siebzigstes',
+ 'achtzigstes',
'neunzigstes');
-@teenthstringNgerman = ('zehntes',
- 'elftes',
- 'zw\\"olftes',
- 'dreizehntes',
- 'vierzehntes',
- 'f\\"unfzehntes',
- 'sechzehntes',
- 'siebzehntes',
- 'achtzehntes',
+@teenthstringNgerman = ('zehntes',
+ 'elftes',
+ 'zw\\"olftes',
+ 'dreizehntes',
+ 'vierzehntes',
+ 'f\\"unfzehntes',
+ 'sechzehntes',
+ 'siebzehntes',
+ 'achtzehntes',
'neunzehntes');
@unitstringgerman = ('null',
@@ -1083,7 +1082,7 @@ sub get_numberstringgerman{
{
$name .= &get_numberunderhundredgerman($num);
}
- }
+ }
$name;
}
@@ -1103,7 +1102,7 @@ sub get_numberstring{
{
&get_numberstringportuges($val,$gender);
}
- elsif ($default_language eq 'german'
+ elsif ($default_language eq 'german'
or $default_language eq 'ngerman')
{
&get_numberstringgerman($val,$gender);
@@ -1117,7 +1116,7 @@ sub get_numberstring{
sub do_cmd_numberstringnum{
local($_) = @_;
local($num,$gender);
- $num = &missing_braces unless
+ $num = &missing_braces unless
s/$next_pair_pr_rx/$num=$2;''/eo;
if (s/\[(m|f|n)\]//)
@@ -1158,7 +1157,7 @@ sub do_cmd_storenumberstring{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -1188,10 +1187,10 @@ sub do_cmd_storenumberstringnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -1242,7 +1241,7 @@ sub get_Numberstring{
sub do_cmd_Numberstringnum{
local($_) = @_;
local($num,$gender);
- $num = &missing_braces
+ $num = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
if (s/\[(m|f|n)\]//)
@@ -1283,7 +1282,7 @@ sub do_cmd_storeNumberstring{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -1313,10 +1312,10 @@ sub do_cmd_storeNumberstringnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -1334,7 +1333,7 @@ sub do_cmd_storeNumberstringnum{
sub do_cmd_NUMBERstringnum{
local($_) = @_;
local($num,$gender);
- $num = &missing_braces
+ $num = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
if (s/\[(m|f|n)\]//)
@@ -1375,7 +1374,7 @@ sub do_cmd_storeNUMBERstring{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -1405,10 +1404,10 @@ sub do_cmd_storeNUMBERstringnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -1487,7 +1486,7 @@ sub get_ordinalstringenglish{
{
$name .= $unitthstring[$num%10];
}
- }
+ }
$name;
}
@@ -1617,7 +1616,7 @@ sub get_ordinalstringfrench{
{
$name .= $unitthstringfrench[$num%10];
}
- }
+ }
$name;
}
@@ -1639,7 +1638,7 @@ sub get_ordinalstringspanish{
{
$thousands =~s/o(s?)$/a\1/;
}
-
+
$name .= $thousands. " ";
}
else
@@ -1653,7 +1652,7 @@ sub get_ordinalstringspanish{
{
$name =~s/o$/a/;
}
-
+
$num = $num%1000;
}
@@ -1667,7 +1666,7 @@ sub get_ordinalstringspanish{
{
$hundreds =~s/o$/a/;
}
-
+
$name .= $hundreds;
$num = $num%100;
@@ -1711,7 +1710,7 @@ sub get_ordinalstringspanish{
}
$name .= $lastbit;
- }
+ }
$name;
}
@@ -1733,7 +1732,7 @@ sub get_ordinalstringportuges{
{
$thousands =~s/o(s?)$/a\1/;
}
-
+
$name .= $thousands. " ";
}
else
@@ -1747,7 +1746,7 @@ sub get_ordinalstringportuges{
{
$name =~s/o$/a/;
}
-
+
$num = $num%1000;
}
@@ -1761,7 +1760,7 @@ sub get_ordinalstringportuges{
{
$hundreds =~s/o$/a/;
}
-
+
$name .= $hundreds;
$num = $num%100;
@@ -1801,7 +1800,7 @@ sub get_ordinalstringportuges{
}
$name .= $lastbit;
- }
+ }
$name;
}
@@ -1950,7 +1949,7 @@ sub get_ordinalstringgerman{
{
$name .= &get_numberunderhundredthgerman($num,$gender);
}
- }
+ }
$name;
}
@@ -1984,7 +1983,7 @@ sub get_ordinalstring{
sub do_cmd_ordinalstringnum{
local($_) = @_;
local($num,$gender);
- $num = &missing_braces
+ $num = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
if (s/\[(m|f|n)\]//)
@@ -2027,7 +2026,7 @@ sub do_cmd_FMCuse{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
$fmtcntvar{$key}.$_;
@@ -2037,7 +2036,7 @@ sub do_cmd_storeordinalstring{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -2067,10 +2066,10 @@ sub do_cmd_storeordinalstringnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -2113,7 +2112,7 @@ sub get_Ordinalstring{
sub do_cmd_Ordinalstringnum{
local($_) = @_;
local($num,$gender);
- $num = &missing_braces
+ $num = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
if (s/\[(m|f|n)\]//)
@@ -2154,7 +2153,7 @@ sub do_cmd_storeOrdinalstring{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -2184,10 +2183,10 @@ sub do_cmd_storeOrdinalstringnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -2205,7 +2204,7 @@ sub do_cmd_storeOrdinalstringnum{
sub do_cmd_ORDINALstringnum{
local($_) = @_;
local($num,$gender);
- $num = &missing_braces
+ $num = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
if (s/\[(m|f|n)\]//)
@@ -2246,7 +2245,7 @@ sub do_cmd_storeORDINALstring{
local($_) = @_;
local($key);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
local($ctr, $val, $id, $_) = &read_counter_value($_);
@@ -2276,10 +2275,10 @@ sub do_cmd_storeORDINALstringnum{
local($_) = @_;
local($key, $val);
- $key = &missing_braces
+ $key = &missing_braces
unless ((s/$next_pair_pr_rx//o)&&($key=$2));
- $val = &missing_braces
+ $val = &missing_braces
unless (s/$next_pair_pr_rx/$val=$2;''/eo);
my($gender)='m';
@@ -2410,7 +2409,7 @@ sub do_cmd_binarynum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', &get_binary($num), $_);
}
@@ -2430,7 +2429,7 @@ sub do_cmd_decimalnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', &get_decimal($num), $_);
}
@@ -2450,7 +2449,7 @@ sub do_cmd_hexadecimalnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', &get_hexadecimal($num), $_);
}
@@ -2470,7 +2469,7 @@ sub do_cmd_Hexadecimalnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', &get_Hexadecimal($num), $_);
}
@@ -2490,7 +2489,7 @@ sub do_cmd_octalnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', &get_octal($num), $_);
}
@@ -2526,7 +2525,7 @@ sub do_cmd_aaalphnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', (sprintf "%${padzeroes}s", &get_aaalph($num)), $_);
}
@@ -2534,7 +2533,7 @@ sub do_cmd_AAAlphnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', uc(sprintf "%${padzeroes}s", &get_aaalph($num)), $_);
}
@@ -2560,7 +2559,7 @@ sub get_abalph{
sub do_cmd_abalph{
local($ctr, $val, $id, $_) = &read_counter_value($_[0]);
-
+
join('', (sprintf "%${padzeroes}s", &get_abalph($val)), $_);
}
@@ -2568,13 +2567,13 @@ sub do_cmd_abalphnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', (sprintf "%${padzeroes}s", &get_abalph($num)), $_);
}
sub do_cmd_ABAlph{
local($ctr, $val, $id, $_) = &read_counter_value($_[0]);
-
+
join('', uc(sprintf "%${padzeroes}s", &get_abalph($val)), $_);
}
@@ -2582,7 +2581,7 @@ sub do_cmd_ABAlphnum{
local($_) = @_;
local($num) = &missing_braces
unless (s/$next_pair_pr_rx/$num=$2;''/eo);
-
+
join('', uc(sprintf "%${padzeroes}s", &get_abalph($num)), $_);
}
@@ -2630,7 +2629,7 @@ sub do_cmd_romannumeral{
# Note: The configuration file should be loaded before
# the package options are executed.
-# why doesn't this work? If I call this subroutine it
+# why doesn't this work? If I call this subroutine it
# causes an infinite loop.
sub load_fmtcount_cfg{