33 lines
710 B
TeX
33 lines
710 B
TeX
%%
|
|
%% constants package:
|
|
%% automatically numbered constants
|
|
%%
|
|
|
|
%% TeX format
|
|
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
|
|
|
|
%% package name
|
|
\ProvidesPackage{constants}[2016/11/19]
|
|
|
|
%% declare new constant
|
|
\def\cst#1#2{%
|
|
% check whether the constant was defined
|
|
\ifcsname cst@#1@#2\endcsname%
|
|
#1_{\csname cst@#1@#2\endcsname}%
|
|
\else%
|
|
% check whether this character has a counter associated to it
|
|
\ifcsname thecst@#1@@count\endcsname%
|
|
\else%
|
|
\newcounter{cst@#1@@count}%
|
|
\fi%
|
|
% increment counter
|
|
\stepcounter{cst@#1@@count}%
|
|
\expandafter\xdef\csname cst@#1@#2\endcsname{\csname thecst@#1@@count\endcsname}#1_{\csname thecst@#1@@count\endcsname}%
|
|
\fi
|
|
}
|
|
|
|
|
|
%% end
|
|
\endinput
|
|
|