texlive[55738] Build/source/texk/web2c/cwebdir/cwebman-w2c.ch: [CWEB]
commits+ascherer at tug.org
commits+ascherer at tug.org
Fri Jul 3 08:53:40 CEST 2020
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
More information about the tex-live-commits
mailing list.