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.
274 lines
6.6 KiB
274 lines
6.6 KiB
%%
|
|
%% 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.
|
|
%%
|
|
%% Project: engord
|
|
%% Version: 2016/05/16 v1.9
|
|
%%
|
|
%% Copyright (C)
|
|
%% 2000, 2003, 2006-2008, 2010 Heiko Oberdiek
|
|
%% 2016-2019 Oberdiek Package Support Group
|
|
%%
|
|
%% This work may be distributed and/or modified under the
|
|
%% conditions of the LaTeX Project Public License, either
|
|
%% version 1.3c of this license or (at your option) any later
|
|
%% version. This version of this license is in
|
|
%% https://www.latex-project.org/lppl/lppl-1-3c.txt
|
|
%% and the latest version of this license is in
|
|
%% https://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 Maintainers of this work are
|
|
%% Heiko Oberdiek and the Oberdiek Package Support Group
|
|
%% https://github.com/ho-tex/oberdiek/issues
|
|
%%
|
|
%%
|
|
%% The Base Interpreter refers to any `TeX-Format',
|
|
%% because some files are installed in TDS:tex/generic//.
|
|
%%
|
|
%% This work consists of the main source file engord.dtx
|
|
%% and the derived files
|
|
%% engord.sty, engord.pdf, engord.ins, engord.drv, engord-test1.tex.
|
|
%%
|
|
\begingroup\catcode61\catcode48\catcode32=10\relax%
|
|
\catcode13=5 % ^^M
|
|
\endlinechar=13 %
|
|
\catcode35=6 % #
|
|
\catcode39=12 % '
|
|
\catcode44=12 % ,
|
|
\catcode45=12 % -
|
|
\catcode46=12 % .
|
|
\catcode58=12 % :
|
|
\catcode64=11 % @
|
|
\catcode123=1 % {
|
|
\catcode125=2 % }
|
|
\expandafter\let\expandafter\x\csname ver@engord.sty\endcsname
|
|
\ifx\x\relax % plain-TeX, first loading
|
|
\else
|
|
\def\empty{}%
|
|
\ifx\x\empty % LaTeX, first loading,
|
|
% variable is initialized, but \ProvidesPackage not yet seen
|
|
\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}%
|
|
\aftergroup\endinput
|
|
\fi
|
|
\fi
|
|
\endgroup%
|
|
\begingroup\catcode61\catcode48\catcode32=10\relax%
|
|
\catcode13=5 % ^^M
|
|
\endlinechar=13 %
|
|
\catcode35=6 % #
|
|
\catcode39=12 % '
|
|
\catcode40=12 % (
|
|
\catcode41=12 % )
|
|
\catcode44=12 % ,
|
|
\catcode45=12 % -
|
|
\catcode46=12 % .
|
|
\catcode47=12 % /
|
|
\catcode58=12 % :
|
|
\catcode64=11 % @
|
|
\catcode91=12 % [
|
|
\catcode93=12 % ]
|
|
\catcode123=1 % {
|
|
\catcode125=2 % }
|
|
\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\@undefined
|
|
\xdef#1{#3}%
|
|
\fi
|
|
\ifx#1\relax
|
|
\xdef#1{#3}%
|
|
\fi
|
|
}%
|
|
\fi
|
|
\expandafter\x\csname ver@engord.sty\endcsname
|
|
\ProvidesPackage{engord}%
|
|
[2016/05/16 v1.9 Provides English ordinal numbers (HO)]%
|
|
\begingroup\catcode61\catcode48\catcode32=10\relax%
|
|
\catcode13=5 % ^^M
|
|
\endlinechar=13 %
|
|
\catcode123=1 % {
|
|
\catcode125=2 % }
|
|
\catcode64=11 % @
|
|
\def\x{\endgroup
|
|
\expandafter\edef\csname EO@AtEnd\endcsname{%
|
|
\endlinechar=\the\endlinechar\relax
|
|
\catcode13=\the\catcode13\relax
|
|
\catcode32=\the\catcode32\relax
|
|
\catcode35=\the\catcode35\relax
|
|
\catcode61=\the\catcode61\relax
|
|
\catcode64=\the\catcode64\relax
|
|
\catcode123=\the\catcode123\relax
|
|
\catcode125=\the\catcode125\relax
|
|
}%
|
|
}%
|
|
\x\catcode61\catcode48\catcode32=10\relax%
|
|
\catcode13=5 % ^^M
|
|
\endlinechar=13 %
|
|
\catcode35=6 % #
|
|
\catcode64=11 % @
|
|
\catcode123=1 % {
|
|
\catcode125=2 % }
|
|
\def\TMP@EnsureCode#1#2{%
|
|
\edef\EO@AtEnd{%
|
|
\EO@AtEnd
|
|
\catcode#1=\the\catcode#1\relax
|
|
}%
|
|
\catcode#1=#2\relax
|
|
}
|
|
\TMP@EnsureCode{33}{12}% !
|
|
\TMP@EnsureCode{36}{3}% $
|
|
\TMP@EnsureCode{39}{12}% '
|
|
\TMP@EnsureCode{42}{12}% *
|
|
\TMP@EnsureCode{46}{12}% .
|
|
\TMP@EnsureCode{47}{12}% /
|
|
\TMP@EnsureCode{60}{12}% <
|
|
\TMP@EnsureCode{91}{12}% [
|
|
\TMP@EnsureCode{93}{12}% ]
|
|
\TMP@EnsureCode{94}{7}% ^(superscript)
|
|
\TMP@EnsureCode{96}{12}% `
|
|
\edef\EO@AtEnd{\EO@AtEnd\noexpand\endinput}
|
|
\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 RequirePackage\endcsname\relax
|
|
\input infwarerr.sty\relax
|
|
\input ltxcmds.sty\relax
|
|
\else
|
|
\RequirePackage{infwarerr}[2007/09/09]%
|
|
\RequirePackage{ltxcmds}[2016/05/16]%
|
|
\fi
|
|
\ltx@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!}%
|
|
\@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
|
|
}
|
|
\EO@AtEnd%
|
|
%% \section{Installation}
|
|
\endinput
|
|
%%
|
|
%% End of file `engord.sty'.
|
|
|