diff options
author | Karl Berry <karl@freefriends.org> | 2022-10-18 20:54:55 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-10-18 20:54:55 +0000 |
commit | 3133b2f6f5ab9b219387d63f9fc31d854b03306f (patch) | |
tree | e562bf827252a8e7a75436f759cb7fca1e088ccd /Master/texmf-dist/scripts/mfirstuc | |
parent | bfcea5464a52a2ec66df98da0a380869ffbe6e79 (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($_) = @_; |