You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
2.1 KiB
64 lines
2.1 KiB
%%
|
|
%% 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 2019 David Carlisle
|
|
%%
|
|
%% This file may be distributed under the terms of the LPPL.
|
|
%% See 00readme.txt for details.
|
|
\NeedsTeXFormat{LaTeX2e}
|
|
\ProvidesPackage{textcase}
|
|
[2019/09/14 v1.00 Text only upper/lower case changing (DPC)]
|
|
\def\@uclcnotmath#1#2#3#4{\begingroup
|
|
#1%
|
|
\def\({$}\let\)\(%
|
|
\let\UTF@two@octets@noexpand\@empty
|
|
\let\UTF@three@octets@noexpand\@empty
|
|
\let\UTF@four@octets@noexpand\@empty
|
|
\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'.
|
|
|