aliascnt.sty (2510B)
1 %% 2 %% This is file `aliascnt.sty', 3 %% generated with the docstrip utility. 4 %% 5 %% The original source files were: 6 %% 7 %% aliascnt.dtx (with options: `package') 8 %% 9 %% This is a generated file. 10 %% 11 %% Project: aliascnt 12 %% Version: 2009/09/08 v1.3 13 %% 14 %% Copyright (C) 2006, 2009 by 15 %% Heiko Oberdiek <heiko.oberdiek at googlemail.com> 16 %% 17 %% This work may be distributed and/or modified under the 18 %% conditions of the LaTeX Project Public License, either 19 %% version 1.3c of this license or (at your option) any later 20 %% version. This version of this license is in 21 %% http://www.latex-project.org/lppl/lppl-1-3c.txt 22 %% and the latest version of this license is in 23 %% http://www.latex-project.org/lppl.txt 24 %% and version 1.3 or later is part of all distributions of 25 %% LaTeX version 2005/12/01 or later. 26 %% 27 %% This work has the LPPL maintenance status "maintained". 28 %% 29 %% This Current Maintainer of this work is Heiko Oberdiek. 30 %% 31 %% This work consists of the main source file aliascnt.dtx 32 %% and the derived files 33 %% aliascnt.sty, aliascnt.pdf, aliascnt.ins, aliascnt.drv. 34 %% 35 \NeedsTeXFormat{LaTeX2e} 36 \ProvidesPackage{aliascnt}% 37 [2009/09/08 v1.3 Alias counter (HO)]% 38 \newcommand*{\newaliascnt}[2]{% 39 \begingroup 40 \def\AC@glet##1{% 41 \global\expandafter\let\csname##1#1\expandafter\endcsname 42 \csname##1#2\endcsname 43 }% 44 \@ifundefined{c@#2}{% 45 \@nocounterr{#2}% 46 }{% 47 \expandafter\@ifdefinable\csname c@#1\endcsname{% 48 \AC@glet{c@}% 49 \AC@glet{the}% 50 \AC@glet{theH}% 51 \AC@glet{p@}% 52 \expandafter\gdef\csname AC@cnt@#1\endcsname{#2}% 53 \expandafter\gdef\csname cl@#1\expandafter\endcsname 54 \expandafter{\csname cl@#2\endcsname}% 55 }% 56 }% 57 \endgroup 58 } 59 \newcommand*{\aliascntresetthe}[1]{% 60 \@ifundefined{AC@cnt@#1}{% 61 \PackageError{aliascnt}{% 62 `#1' is not an alias counter% 63 }\@ehc 64 }{% 65 \expandafter\let\csname the#1\expandafter\endcsname 66 \csname the\csname AC@cnt@#1\endcsname\endcsname 67 }% 68 } 69 \newcommand*{\AC@findrootcnt}[1]{% 70 \@ifundefined{AC@cnt@#1}{% 71 #1% 72 }{% 73 \expandafter\AC@findrootcnt\csname AC@cnt@#1\endcsname 74 }% 75 } 76 \def\AC@patch#1{% 77 \expandafter\let\csname AC@org@#1reset\expandafter\endcsname 78 \csname @#1reset\endcsname 79 \expandafter\def\csname @#1reset\endcsname##1##2{% 80 \csname AC@org@#1reset\endcsname{##1}{\AC@findrootcnt{##2}}% 81 }% 82 } 83 \RequirePackage{remreset} 84 \AC@patch{addto} 85 \AC@patch{removefrom} 86 \endinput 87 %% 88 %% End of file `aliascnt.sty'.