summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/mfirstuc
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-10-18 20:54:55 +0000
committerKarl Berry <karl@freefriends.org>2022-10-18 20:54:55 +0000
commit3133b2f6f5ab9b219387d63f9fc31d854b03306f (patch)
treee562bf827252a8e7a75436f759cb7fca1e088ccd /Master/texmf-dist/scripts/mfirstuc
parentbfcea5464a52a2ec66df98da0a380869ffbe6e79 (diff)
mfirstuc (17oct22)
git-svn-id: svn://tug.org/texlive/trunk@64743 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/mfirstuc')
-rw-r--r--Master/texmf-dist/scripts/mfirstuc/mfirstuc.l2h (renamed from Master/texmf-dist/scripts/mfirstuc/mfirstuc.perl)29
1 files changed, 24 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/mfirstuc/mfirstuc.perl b/Master/texmf-dist/scripts/mfirstuc/mfirstuc.l2h
index 7ab863d06f4..1115dfcbf13 100644
--- a/Master/texmf-dist/scripts/mfirstuc/mfirstuc.perl
+++ b/Master/texmf-dist/scripts/mfirstuc/mfirstuc.l2h
@@ -1,12 +1,20 @@
-# File : mfirstuc.perl
+# File : mfirstuc.l2h
# Author : Nicola L. C. Talbot
-# Date : 2012-09-21
-# Version : 1.0
+# Version : 2.08 (2022-10-14)
# Description : LaTeX2HTML (limited!) implementation of mfirstuc package
# This is a LaTeX2HTML style implementing the mfirstuc package, and
-# is distributed as part of the glossaries package.
-# Copyright 2007 Nicola L.C. Talbot
+# was distributed as part of the glossaries package, but is now
+# distributed as part of the mfirstuc package. There's no guarantee
+# that it still works with new versions of LaTeX2HTML.
+#
+# v2.08:
+# - The version number has been updated
+# - file extension changed from .perl to .l2h to more easily identify it as a
+# LaTeX2HTML file rather than a standalone Perl script.
+# - Added MFUsentencecase but it's identical to makefirstuc
+#
+# Copyright 2007-2022 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.
@@ -34,6 +42,17 @@ sub do_cmd_makefirstuc{
&translate_commands("\\glsmakefirstuc $text") . $_;
}
+sub do_cmd_MFUsentencecase{
+ local($_) = @_;
+
+ local($id,$text);
+
+ $text = &missing_braces unless
+ s/$next_pair_pr_rx/$id=$1;$text=$2;''/eo;
+
+ &translate_commands("\\glsmakefirstuc $text") . $_;
+}
+
sub do_cmd_xmakefirstuc{
local($_) = @_;