texlive[73243] Build/source/texk/web2c/cwebdir: [CTWILL] Append

[commits+ascherer at tug.org]

Revision: 73243
          https://tug.org/svn/texlive?view=revision&revision=73243
Author:   ascherer
Date:     2024-12-31 15:49:02 +0100 (Tue, 31 Dec 2024)
Log Message:
-----------
[CTWILL] Append 'Names of the sections'.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ChangeLog
    trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2024-12-31 09:44:00 UTC (rev 73242)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2024-12-31 14:49:02 UTC (rev 73243)
@@ -1,3 +1,7 @@
+2024-12-31  Andreas Scherer  <https://ascherer.github.io>
+
+	* texinputs/pdfctwimac.tex: Append 'Names of the sections'.
+
 2024-12-27  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctwill-mini.ch,

Modified: trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex	2024-12-31 09:44:00 UTC (rev 73242)
+++ trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfctwimac.tex	2024-12-31 14:49:02 UTC (rev 73243)
@@ -504,14 +504,13 @@
 \hsize=\pagewidth \vsize=\maxdimen \output={\twillout}
 
 %\let\page=\pagebody \raggedbottom
-% \def\page{\box255 }\normalbottom % faster, but loses plain TeX footnotes
-%\def\normaloutput#1#2#3{\ifodd\pageno\hoffset=\pageshift\fi
- %\shipout\vbox{
-  %\vbox to\fullpageheight{
-  %\iftitle\global\titlefalse
-  %\else\hbox to\pagewidth{\vbox to10pt{}\ifodd\pageno #3\else#2\fi}\fi
-  %\vfill#1}} % parameter #1 is the page itself
-  %\global\advance\pageno by1}
+\def\page{\box255 }\normalbottom % faster, but loses plain TeX footnotes
+\def\normaloutput#1#2#3{\shipout\vbox{\vbox to\fullpageheight{%
+  \iftitle\global\titlefalse
+  \else\hbox to\pagewidth{\vbox to10pt{}%
+    \ifodd\pageno\vbox to3pc{#3\vfill}\else\vbox to3pc{#2\vfill}\fi}\fi
+  #1\vfill}} % parameter #1 is the page itself
+  \global\advance\pageno by1}
 %\def\topofcontents{\centerline{\titlefont\title}\vskip.7in
   %\vfill} % this material will start the table of contents page
 %\def\botofcontents{\vfill
@@ -520,7 +519,7 @@
 \def\contentspagenumber{0} % default page number for table of contents
 %\newdimen\pageshift \pageshift=\hoffset
    %% shift righthand pages wrt lefthand ones (changed in version 3.70)
-%\def\setpage{\hsize\pagewidth\vsize\pageheight} % use after changing page size
+\def\setpage{\hsize\pagewidth\vsize\pageheight} % use after changing page size
 \def\contentsfile{\jobname.toc} % file that gets table of contents info
 \def\readcontents{\input \contentsfile}
 \def\readsections{\input \jobname.scn}
@@ -536,9 +535,13 @@
     \immediate\write\cont{\catcode `\noexpand\@=12\relax} % \makeatother
     \immediate\closeout\cont % the contents information has been fully gathered
   \fi}
-\def\fin{\ifacro \message{Section names:}
-  \def\U##1.{} \def\Us##1.{} \def\Q##1.{} \def\Qs##1.{} \let\I=\relax \let\*=*
-  \newrefs={} \output={\shipout\box255}
+\def\fin{\ifacro \message{Section names:} \let\Xpdf\X
+  \def\U##1.{} \def\Us##1.{} \def\Q##1.{} \def\Qs##1.{}
+  \def\I{\par\hangindent 2em\noindent}\let\*=*
+  \def\rlhead{NAMES OF THE SECTIONS} % running left headline
+  \let\rrhead=\rlhead % running right headline
+  \output={\normaloutput\page\rightheadline\leftheadline}
+  \setpage
   \def\outsecname{Names of the sections}
   \ifpdflua \makebookmarks \countsections
     \pdfdest name {NOS} fith
@@ -545,7 +548,7 @@
     \pdfoutline goto name {NOS} count -\the\countNOS {\outsecname}
   \else \special{pdf: outline -1 << /Title (\outsecname)
       /Dest [ @thispage /FitH @ypos ] >>}\fi
-  \def\X##1:##2\X{\firstsecno##1.%
+  \def\X##1:##2\X{\Xpdf##1:##2\X \firstsecno##1.%
     {\makeoutlinetoks##2\outlinedone}%
     \ifpdflua \pdfoutline goto num \the\toksA \expandafter{\the\toksE}
     \else \special{pdf: outline 0 << /Title (\the\toksE)