summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/oberdiek/engord.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/oberdiek/engord.sty')
-rw-r--r--Master/texmf-dist/tex/generic/oberdiek/engord.sty194
1 files changed, 194 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/oberdiek/engord.sty b/Master/texmf-dist/tex/generic/oberdiek/engord.sty
new file mode 100644
index 00000000000..b13c4547239
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/oberdiek/engord.sty
@@ -0,0 +1,194 @@
+%%
+%% This is file `engord.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% engord.dtx (with options: `package')
+%%
+%% This is a generated file.
+%%
+%% Copyright (C) 2000, 2003, 2006 by
+%% Heiko Oberdiek <oberdiek@uni-freiburg.de>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.3 of this license or (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".
+%%
+%% This Current Maintainer of this work is Heiko Oberdiek.
+%%
+%% This work consists of the main source file engord.dtx
+%% and the derived files
+%% engord.sty, engord.pdf, engord.ins, engord.drv.
+%%
+\begingroup
+ \expandafter\let\expandafter\x\csname ver@engord.sty\endcsname
+ \ifcase 0%
+ \ifx\x\relax % plain
+ \else
+ \ifx\x\empty % LaTeX
+ \else
+ 1%
+ \fi
+ \fi
+ \else
+ \expandafter\ifx\csname PackageInfo\endcsname\relax
+ \def\x#1#2{%
+ \immediate\write-1{Package #1 Info: #2.}%
+ }%
+ \else
+ \def\x#1#2{\PackageInfo{#1}{#2, stopped}}%
+ \fi
+ \x{engord}{The package is already loaded}%
+ \endgroup
+ \expandafter\endinput
+ \fi
+\endgroup
+\begingroup
+ \expandafter\ifx\csname ProvidesPackage\endcsname\relax
+ \def\x#1#2#3[#4]{\endgroup
+ \immediate\write-1{Package: #3 #4}%
+ \xdef#1{#4}%
+ }%
+ \else
+ \def\x#1#2[#3]{\endgroup
+ #2[{#3}]%
+ \ifx#1\relax
+ \xdef#1{#3}%
+ \fi
+ }%
+ \fi
+\expandafter\x\csname ver@engord.sty\endcsname
+\ProvidesPackage{engord}%
+ [2006/02/20 v1.2 Provides the ifpdf switch (HO)]
+\expandafter\chardef\csname EO@atcode\endcsname\catcode`\@
+\catcode`\@=11 %
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname newcommand\endcsname\relax
+ \def\EO@def{\def}%
+\else
+ \def\EO@def#1{%
+ \newcommand*{#1}{}%
+ \def#1%
+ }%
+\fi
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname PackageWarning\endcsname\relax
+ \def\EO@PackageWarning#1#2{%
+ \immediate\write16{%
+ Package #1 Warning: #2 on input line \the\inputlineno.%
+ }%
+ }%
+\else
+ \def\EO@PackageWarning{\PackageWarning}%
+\fi
+\newif\ifengordraise
+\engordraisetrue
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname DeclareOption\endcsname\relax
+\else
+ \DeclareOption{normal}{\engordraisefalse}%
+ \DeclareOption{raise}{\engordraisetrue}%
+ \ProcessOptions*\relax
+\fi
+\expandafter\ifx\csname engordletters\endcsname\relax
+ \EO@def\engordletters{%
+ \ifengordraise
+ \expandafter\engordtextsuperscript
+ \fi
+ }%
+\fi
+\expandafter\ifx\csname engordtextsuperscript\endcsname\relax
+ \begingroup\expandafter\expandafter\expandafter\endgroup
+ \expandafter\ifx\csname textsuperscript\endcsname\relax
+ \def\engordtextsuperscript#1{%
+ \relax
+ \ifmmode
+ ^{\rm#1}%
+ \else
+ $^{\rm#1}$%
+ \fi
+ }%
+ \else
+ \def\engordtextsuperscript{\textsuperscript}%
+ \fi
+\fi
+\expandafter\ifx\csname engorderror\endcsname\relax
+ \EO@def\engorderror#1{%
+ #1\engordletters{!ERROR!}%
+ \EO@PackageWarning{engord}{%
+ `#1' is not an ordinal number%
+ }%
+ }%
+\fi
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname newcounter\endcsname\relax
+\else
+ \EO@def\engord#1{%
+ \engordnumber{\value{#1}}%
+ }%
+\fi
+\EO@def\engordnumber#1{%
+ \expandafter\EO@number\expandafter{\number#1}%
+}
+\def\EO@number#1{%
+ \ifnum#1<1 % handle the error case
+ \engorderror{#1}%
+ \else
+ \ifnum#1<21
+ \EO@ord{#1}%
+ \else
+ \ifnum#1<100
+ \EO@twodigits#1%
+ \else
+ \@ReturnAfterFi{%
+ \EO@reverse#1\@nil{}\EO@afterreverse
+ }%
+ \fi
+ \fi
+ \fi
+}
+\long\def\@ReturnAfterFi#1\fi{\fi#1}
+\def\EO@ord#1{%
+ #1%
+ \expandafter\engordletters
+ \ifcase#1{th}\or
+ {st}\or
+ {nd}\or
+ {rd}\else
+ {th}%
+ \fi
+}
+\def\EO@twodigits#1#2{%
+ #1\EO@ord{#2}%
+}
+\def\EO@reverse#1#2\@nil#3#4{%
+ \ifx\\#2\\%
+ #4{#1#3}%
+ \else
+ \@ReturnAfterFi{%
+ \EO@reverse#2\@nil{#1#3}{#4}%
+ }%
+ \fi
+}
+\def\EO@afterreverse#1{%
+ \EO@reverseback#1\@nil
+}
+\def\EO@reverseback#1#2#3\@nil{%
+ \EO@reverse#3\@nil{}\@firstofone
+ \ifnum#2#1<21
+ \EO@ord{#2#1}%
+ \else
+ #2\EO@ord{#1}%
+ \fi
+}
+\catcode`\@=\EO@atcode
+\endinput
+%%
+%% End of file `engord.sty'.