summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-09-10 20:58:01 +0000
committerKarl Berry <karl@freefriends.org>2015-09-10 20:58:01 +0000
commit09eacca54ff83c24b65dc6f2472666febb9a15cc (patch)
tree995f84bf905ef2d4815718518ded0bbc7703c859 /Master/texmf-dist/scripts
parent9e8a295d38a2315ed078122e51b2009c05632212 (diff)
glossaries (9sep15)
git-svn-id: svn://tug.org/texlive/trunk@38342 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rw-r--r--Master/texmf-dist/scripts/glossaries/mfirstuc.perl129
1 files changed, 0 insertions, 129 deletions
diff --git a/Master/texmf-dist/scripts/glossaries/mfirstuc.perl b/Master/texmf-dist/scripts/glossaries/mfirstuc.perl
deleted file mode 100644
index 7ab863d06f4..00000000000
--- a/Master/texmf-dist/scripts/glossaries/mfirstuc.perl
+++ /dev/null
@@ -1,129 +0,0 @@
-# File : mfirstuc.perl
-# Author : Nicola L. C. Talbot
-# Date : 2012-09-21
-# Version : 1.0
-# 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
-# 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.
-
-use warnings;
-
-package main;
-
-sub do_cmd_makefirstuc{
- 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($_) = @_;
-
- local($id,$text);
-
- $text = &missing_braces unless
- s/$next_pair_pr_rx/$id=$1;$text=$2;''/eo;
-
- unless ($id)
- {
- $id = ++$global{'max_id'};
- }
-
- &translate_commands("\\expandafter \\makefirstuc $OP$id$CP$text$OP$id$CP")
- . $_;
-}
-
-sub do_cmd_glsmakefirstuc{
- local($_) = @_;
-
- local($id,$text);
-
- $text = &get_next_object unless
- s/$next_pair_pr_rx/$id=$1;$text=$2;''/eo;
-
- &do_real_makefirstuc($text).$_;
-}
-
-sub do_real_makefirstuc{
- local($text) = @_;
-
- if ($text=~/^((?:\s*<[^>]+>\s*)+)(.*)/)
- {
- $text = $1 . ucfirst($2);
- }
- else
- {
- $text = ucfirst($text);
- }
-
- $text;
-}
-
-sub do_cmd_capitalisewords{
- local($_) = @_;
-
- local($id,$text);
-
- $text = &missing_braces unless
- s/$next_pair_pr_rx/$id=$1;$text=$2;''/eo;
-
- local($newtext) = '';
-
- foreach my $word (split ' ', $text)
- {
- $id = ++$global{'max_id'};
-
- $word = &translate_commands("\\makefirstuc $OP$id$CP$word$OP$id$CP");
-
- if ($newtext)
- {
- $newtext .= ' ' . $word;
- }
- else
- {
- $newtext = $word;
- }
- }
-
- $newtext.$_;
-}
-
-sub get_next_object{
- local($next, $revert, $thisline);
- local($this_cmd) = $cmd;
- $this_cmd =~ s/^\\// unless ($cmd eq "\\");
- if (/^[\s%]*([^\n]*)\n/ ) {
- $thisline = &revert_to_raw_tex($1)
- } else {
- $thisline = &revert_to_raw_tex($_);
- }
- s/^\s*//;
- if ($_ =~ s/$next_token_rx//) { $next = $& };
- $next =~ s/$comment_mark(\d+\n?)?//g;
- if ($next =~ /^\\(\W|\d|[a-zA-z]*\b)/) {
- $revert = $next = "\\".$1;
- } elsif ($next =~ /\W/) {
- $revert = &revert_to_raw_tex($next);
- } else { $revert = $next };
- $next;
-}
-
-1;