17jlB/libs/constants.sty

33 lines
710 B
Plaintext
Raw Normal View History

2017-08-06 16:42:24 +00:00
%%
%% 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