summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/textcase
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-13 00:08:58 +0000
committerKarl Berry <karl@freefriends.org>2006-01-13 00:08:58 +0000
commit6b1cde0d4133b76c47fdfc31d2d53c00d1c22c4a (patch)
treef1d569aa42014834c1c27378805df5e92ab72233 /Master/texmf-dist/tex/latex/textcase
parent1335c8dc79c73826f03e31bdd3fb30cbe415839f (diff)
textcase
git-svn-id: svn://tug.org/texlive/trunk@1382 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/textcase')
-rw-r--r--Master/texmf-dist/tex/latex/textcase/textcase.sty61
1 files changed, 61 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/textcase/textcase.sty b/Master/texmf-dist/tex/latex/textcase/textcase.sty
new file mode 100644
index 00000000000..6725a95255f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/textcase/textcase.sty
@@ -0,0 +1,61 @@
+%%
+%% This is file `textcase.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% textcase.dtx (with options: `package')
+%%
+%% Source File: textcase.dtx
+%% Copyright 1997 1998 David Carlisle
+%%
+%% This file may be distributed under the terms of the LPPL.
+%% See 00readme.txt for details.
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{textcase}
+ [2004/10/07 v0.07 Text only upper/lower case changing (DPC)]
+\def\@uclcnotmath#1#2#3#4{\begingroup
+ #1%
+ \def\({$}\let\)\(%
+ \def\NoCaseChange##1{\noexpand\NoCaseChange{\noexpand##1}}%
+ \@nonchangecase\label
+ \@nonchangecase\ref
+ \@nonchangecase\ensuremath
+ \def\cite##1##{\toks@{\noexpand\cite##1}\@citex}%
+ \def\@citex##1{\NoCaseChange{\the\toks@{##1}}}%
+ \def\reserved@a##1##2{\let#2\reserved@a}%
+ \expandafter\reserved@a\@uclclist\reserved@b{\reserved@b\@gobble}%
+ \protected@edef\reserved@a{\endgroup
+ \noexpand\@skipmath#3#4$\valign$}%
+ \reserved@a}
+\def\@nonchangecase#1{\def#1##1{\NoCaseChange{#1{##1}}}}
+\let\NoCaseChange\@firstofone
+\def\@skipmath#1#2$#3${%
+ \@skip@nonchangecase#1#2\NoCaseChange\valign
+ \ifx\valign#3%
+ \else
+ $#3$%
+ \expandafter\@skipmath\expandafter#1%
+ \fi}
+\def\@skip@nonchangecase#1#2\NoCaseChange#3{%
+ #1{#2}%
+ \ifx\valign#3%
+ \else
+ #3%
+ \expandafter\@skip@nonchangecase\expandafter#1%
+ \fi}
+\DeclareRobustCommand\MakeTextUppercase{%
+ \@uclcnotmath{\def\i{I}\def\j{J}}{##1##2}\uppercase}
+\protected@edef\MakeTextUppercase#1{\MakeTextUppercase{#1}}
+\DeclareRobustCommand\MakeTextLowercase{%
+ \@uclcnotmath{}{##2##1}\lowercase}
+\protected@edef\MakeTextLowercase#1{\MakeTextLowercase{#1}}
+\DeclareOption{overload}{%
+ \expandafter\let\csname MakeUppercase \expandafter\endcsname
+ \csname MakeTextUppercase \endcsname
+ \expandafter\let\csname MakeLowercase \expandafter\endcsname
+ \csname MakeTextLowercase \endcsname}
+\ProcessOptions
+\endinput
+%%
+%% End of file `textcase.sty'.