summaryrefslogtreecommitdiff
path: root/obsolete/macros/inrstex/inrstex/eqtag.tex
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/inrstex/inrstex/eqtag.tex')
-rw-r--r--obsolete/macros/inrstex/inrstex/eqtag.tex45
1 files changed, 45 insertions, 0 deletions
diff --git a/obsolete/macros/inrstex/inrstex/eqtag.tex b/obsolete/macros/inrstex/inrstex/eqtag.tex
new file mode 100644
index 0000000000..022e5afeb9
--- /dev/null
+++ b/obsolete/macros/inrstex/inrstex/eqtag.tex
@@ -0,0 +1,45 @@
+%-*-tex-*-
+% Copyright Michael J. Ferguson, INRS-Telecommunications
+% All rights reserved.
+
+% ========== Equation Tags ===========
+% Since equation numbering plays a big part in scientific documentation
+% a special set of tag generation forms were produced for this case.
+
+
+% Special versions of autoeqnum to insert automatically insert
+% parentheses around the equation number.
+% \aneq no argument, no tag generated. This version
+% does nothing if autonumbering is off.
+% \aneqtag{<tag>} tag generated. This version inserts the argument
+% inside parentheses if autoreferencing is off.
+
+% These special forms have a \eqnumfont ... as there is no other way
+% to get the information inside. These are defined in the documentfonts.
+
+%\let\eqnumfont=\tenrm ... for tenpoint family
+
+\def\aneq{\a@utotag{}{\eqnum}{\eqtagrefformat
+ }{\e@qno \eqnumfont (\eqtagrefformat)}{}}
+\def\aneqtag#1{\a@utotag{#1}{\eqnum}{\eqtagrefformat
+ }{\e@qno\eqnumfont (\eqtagrefformat)}{\e@qno\eqnumfont (#1)}}
+
+%===== for full left or right equation numbering and to allow ====
+% \aneq and \aneqtag to work
+
+\let\e@qql = \eqalignno
+\let\l@eqql= \leqalignno
+\def\e@qalignno{\let\e@qno=\relax \e@qql}
+\def\l@eqalignno{\let\e@qno=\relax \l@eqql}
+%redefines \eqalignno and \leqalignno --- normal unset mode
+\let\eqalignno = \e@qalignno
+\let\leqalignno = \l@eqalignno
+
+\let\e@qno = \eqno
+%---- left/right equation numbering ----
+\def\leftequationnumbering{\let\eqalignno = \l@eqalignno
+ \let\leqalignno = \l@eqalignno
+ \let\e@qno = \leqno}
+\def\rightequationnumbering{\let\leqalignno = \e@qalignno
+ \let\eqalignno = \e@qalignno
+ \let\e@qno = \eqno} \ No newline at end of file