glossaries (9sep15)

git-svn-id: svn://tug.org/texlive/trunk@38342 c570f23f-e606-0410-a88d-b1316a301751

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;