From beb3e9e089df5acf554296e64bf8595f97491281 Mon Sep 17 00:00:00 2001
From: Andreas Scherer <andreas_tex@freenet.de>
Date: Fri, 12 Jun 2020 07:46:19 +0000
Subject: Automatically number footnotes.

git-svn-id: svn://tug.org/texlive/trunk@55522 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/cwebdir/cwebman-w2c.ch | 27 ++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

(limited to 'Build/source')

diff --git a/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch b/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
index 98992e51776..d943c2aa5b6 100644
--- a/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
+++ b/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
@@ -19,6 +19,9 @@
 \def\page{\box255 } \normalbottom
 @y
 \let\page=\pagebody \raggedbottom
+\newcount\footnotecount \footnotecount 1\relax
+\def\cwebfootnote#1{\footnote{${}^{\the\footnotecount}$}{#1}%
+  \advance\footnotecount by 1\relax}
 @z
 
 @x
@@ -39,7 +42,7 @@
 should be sent to Levy (\.{levy@math.berkeley.edu}).
 @y
 should be sent to Levy (\.{levy@math.berkeley.edu}).%
-\footnote{$^1$}{Or rather to the ``\TeX~Live''-related mailing list
+\cwebfootnote{Or rather to the ``\TeX~Live''-related mailing list
 \.{tex-k@tug.org}.}
 @z
 
@@ -47,14 +50,14 @@ should be sent to Levy (\.{levy@math.berkeley.edu}).%
 email address in a \.{CWEB} file (e.g., \.{levy@@math.berkeley.edu}).
 @y
 email address in a \.{CWEB} file (e.g., \.{levy@@math.berkeley.edu}%
-\footnote{$^2$}{Or rather \.{tex-k@@tug.org}.}).
+\cwebfootnote{Or rather \.{tex-k@@tug.org}.}).
 @z
 
 @x
 it cannot find them in the current directory.
 @y
 it cannot find them in the current directory.%
-\footnote{$^3$}{In this extended implementation, if an \.{@i}nclude file can
+\cwebfootnote{In this extended implementation, if an \.{@i}nclude file can
 not be found in the current directory, \.{CWEB} will use the conventions of
 the \Kpathsea/ library as outlined in section~\X90:File lookup with
 \Kpathsea/\X~of appendix~D to look for it.  (This is true for any other input
@@ -65,14 +68,14 @@ or change file lookup.)}% FIXME
 output by \.{CWEAVE}. (On by default.) (Has no effect on \.{CTANGLE}.)
 @y
 output by \.{CWEAVE}. (On by default.) (Has no effect on \.{CTANGLE}.)%
-\footnote{$^4$}{This extended version of \.{CWEB} adds the following options
+\cwebfootnote{This extended version of \.{CWEB} adds the following options
 to the list:
-
+\hfil\smallskip
 \option i Indent parameters in function declarations.  This causes the
 formal parameter declarations in function heads to be indented.  (On by
 default; \.{-i} typesets declarations flush left; some people think this
 to be more logical than indenting them) (Has no effect on \.{CTANGLE}.)
-
+\hfil\vskip\normallineskip
 \option l This option takes the string of characters to its right as its
 argument to switch between different user languages and macro packages.
 For example, if you call \.{CWEAVE} with the `\.{+ld}' (or `\.{-ld}') option,
@@ -80,11 +83,11 @@ the German \.{CWEB} macros \.{dcwebmac.tex} will be loaded in the first line
 of output instead of the English ones. To avoid conflicts, the Danish
 macros could be called \.{dkcwebmac.tex} and would be included by `\.{+ldk}'.
 (Off by default) (Has no effect on \.{CTANGLE}.)
-
+\hfil\vskip\normallineskip
 \option o Separate declarations and the first statement in a function block.
 \.{CWEAVE} automatically inserts a bit of extra space.  (On by default.)
 (Has no effect on \.{CTANGLE}.)
-
+\hfil\vskip\normallineskip
 \option t Overwrite output files with temporary output only if changes occur.
 (On by default.)}
 @z
@@ -93,7 +96,7 @@ macros could be called \.{dkcwebmac.tex} and would be included by `\.{+ldk}'.
 saying `\.{pdftex}~\.{cob}'.
 @y
 saying `\.{pdftex}~\.{cob}'.%
-\footnote{$^5$}{A third way to create PDF output from \.{CWEB} input is the
+\cwebfootnote{A third way to create PDF output from \.{CWEB} input is the
 use of \.{XeTeX}, which uses `\.{[x]dvipdfm[x]}' in the background, but the
 ``plain \TeX'' macros from \.{cwebmac.tex} otherwise.  The process works with
 a small trick in the first step:
@@ -109,7 +112,7 @@ acroread cob.pdf\cr}}$$}
 \vfil\eject\titletrue
 @y
 \.{CTANGLE} and \.{CWEAVE}.%
-\footnote{$^6$}{Actually, appendix~D contains the source code for \.{COMMON},
+\cwebfootnote{Actually, appendix~D contains the source code for \.{COMMON},
 and the additional appendix~G exhibits the source code for \.{CTWILL}, which
 is based on \.{CWEAVE}.}
 
@@ -125,7 +128,7 @@ is based on \.{CWEAVE}.}
 @x
 if you have a duplex printer. Appendices D, E, and F of the complete
 @y
-if you have a duplex printer. Appendices D, E, and F\footnote{$^7$}{And
+if you have a duplex printer. Appendices D, E, and F\cwebfootnote{And
 Appendix~G.} of the complete
 @z
 
@@ -133,7 +136,7 @@ Appendix~G.} of the complete
 or the \CEE/ comments of a \.{CWEB} file:
 @y
 or the \CEE/ comments of a \.{CWEB} file:%
-\footnote{$^8$}{Be careful to make that $$\vbox{\halign{\.{#}\hfil\cr
+\cwebfootnote{Be careful to make that $$\vbox{\halign{\.{#}\hfil\cr
 You can send email to
  \\pdfURL\{the author\}\{mailto:andreas\\UNDER/github@@freenet.de\}\cr
 or visit
-- 
cgit v1.2.3