texlive[55738] Build/source/texk/web2c/cwebdir/cwebman-w2c.ch: [CWEB]

[commits+ascherer at tug.org]

Revision: 55738
          http://tug.org/svn/texlive?view=revision&revision=55738
Author:   ascherer
Date:     2020-07-03 08:53:40 +0200 (Fri, 03 Jul 2020)
Log Message:
-----------
[CWEB] More macro simplifications.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch

Modified: trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch	2020-07-03 00:56:12 UTC (rev 55737)
+++ trunk/Build/source/texk/web2c/cwebdir/cwebman-w2c.ch	2020-07-03 06:53:40 UTC (rev 55738)
@@ -47,7 +47,7 @@
 
 \newcount\destcount \destcount=1\relax
 
-\def\bkminfo{}
+\def\subsections{0}
 \outer\def\section #1.{\penalty-500\bigskip
         \centerline{\sectionfont\def\.##1{{\twelvett##1}}
   \ifacro\vbox to 0pt{\kern-2.5ex\relax
@@ -54,32 +54,16 @@
     \ifpdftex\pdfdest num \destcount fitbh\relax
     \else\special{pdf: dest (\the\destcount) [ @thispage /FitBH @ypos ]}\fi
     \def\.##1{##1}\def\TeX{TeX}%
-    \ifx\bkminfo\empty\def\sectitle{#1}\else\def\sectitle{#1 (\bkminfo)}\fi
-    \ifpdftex\pdfoutline goto num \destcount {\sectitle}\relax
-    \else\special{pdf: outline 0 << /Title (\sectitle)
+    \ifpdftex\pdfoutline goto num \destcount
+      \ifnum\subsections>0 count -\subsections\fi {#1}\relax
+    \else\special{pdf: outline 0 << /Title (#1)
       /A << /S /GoTo /D (\the\destcount) >> >>}\fi
-    \gdef\bkminfo{}%
+    \gdef\subsections{0}%
     \global\advance\destcount by 1\relax
     \kern2.5ex\relax
   }\fi #1}\nobreak\vskip 6pt
         \everypar{\hskip-\parindent\everypar{}}}
 
-\outer\def\ssection #1.#2.{\penalty-500\bigskip
-        \centerline{\sectionfont\def\.##1{{\twelvett##1}}
-  \ifacro\vbox to 0pt{\kern-2.5ex\relax
-    \ifpdftex\pdfdest num \destcount fitbh\relax
-    \else\special{pdf: dest (\the\destcount) [ @thispage /FitBH @ypos ]}\fi
-    \def\.##1{##1}\def\TeX{TeX}%
-    \ifx\bkminfo\empty\def\sectitle{#1}\else\def\sectitle{#1 (\bkminfo)}\fi
-    \ifpdftex\pdfoutline goto num \destcount count -#2 {\sectitle}\relax
-    \else\special{pdf: outline 0 << /Title (\sectitle)
-      /A << /S /GoTo /D (\the\destcount) >> >>}\fi
-    \gdef\bkminfo{}%
-    \global\advance\destcount by 1\relax
-    \kern2.5ex\relax
-  }\fi #1}\nobreak\vskip 6pt
-        \everypar{\hskip-\parindent\everypar{}}}
-
 \def\appA{15}
 \def\appB{16}
 \def\appC{17}
@@ -235,11 +219,10 @@
 @z
 
 @x
-\def\runninghead{APPENDIX A --- {\tentt CWEB} FILE FORMAT}
 \section Appendix A: Excerpts from a \.{CWEB} Program.
 @y
-\def\runninghead{APPENDIX A --- {\tentt CWEB} FILE FORMAT}
-\ssection Appendix A: Excerpts from a \.{CWEB} Program.4.
+\def\subsections{4}
+\section Appendix A: Excerpts from a \.{CWEB} Program.
 \subsection CWEB file format.
 @z