texlive[71358] Build/source/texk/web2c/cwebdir: [CWEB] HiTeX has a

[commits+ascherer at tug.org]

Revision: 71358
          https://tug.org/svn/texlive?view=revision&revision=71358
Author:   ascherer
Date:     2024-05-26 17:42:29 +0200 (Sun, 26 May 2024)
Log Message:
-----------
[CWEB] HiTeX has a three-page table-of-contents.

Add parameter '\tocpages' to shift the '/PageLabels'.

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

Modified: trunk/Build/source/texk/web2c/cwebdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2024-05-25 23:46:24 UTC (rev 71357)
+++ trunk/Build/source/texk/web2c/cwebdir/ChangeLog	2024-05-26 15:42:29 UTC (rev 71358)
@@ -1,5 +1,10 @@
 2024-05-25  Andreas Scherer  <https://ascherer.github.io>
 
+	* cwebacromac.tex: HiTeX has a three-page table-of-contents.
+	* texinputs/pdfwebtocfront.tex: Add \space in PDF code.
+
+2024-05-25  Andreas Scherer  <https://ascherer.github.io>
+
 	* texinputs/pdfwebtocfront.tex: More room for long ToCs.
 
 2024-05-24  Andreas Scherer  <https://ascherer.github.io>

Modified: trunk/Build/source/texk/web2c/cwebdir/cwebacromac.tex
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/cwebacromac.tex	2024-05-25 23:46:24 UTC (rev 71357)
+++ trunk/Build/source/texk/web2c/cwebdir/cwebacromac.tex	2024-05-26 15:42:29 UTC (rev 71358)
@@ -16,12 +16,13 @@
 \fi % end of LuaTeX->pdfTeX redirection macros
 
 % Used in cwebmac.tex, pdfctwimac.tex, pdfproofmac.tex
+\def\tocpages{1} % Most programs have one-page Table-of-Contents
 \def\startpdf{\def\pagemode{/PageMode /UseOutlines}
-  \ifnum\contentspagenumber=0 \advance \pageno by -1
-    \def\pagelabels{/PageLabels << /Nums [ 0 << /S/D/St 1 >>
+  \ifnum\contentspagenumber=0 \advance \pageno by -\tocpages
+    \def\pagelabels{/PageLabels << /Nums [ 0 << /S/D/St \tocpages >>
       \the\pageno << /P(Contents) >> ] >>}
   \else \twodigits=\pageno \pageno=\contentspagenumber
-    \advance \pageno by 1 \advance \twodigits by -\pageno
+    \advance \pageno by \tocpages \advance \twodigits by -\pageno
     \def\pagelabels{/PageLabels << /Nums [ 0 << /S/D/St \the\pageno >>
       \the\twodigits << /S/D/St \contentspagenumber >> ] >>} \fi
   \ifpdflua\pdfcatalog{\pagemode\space\pagelabels}

Modified: trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfwebtocfront.tex
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfwebtocfront.tex	2024-05-25 23:46:24 UTC (rev 71357)
+++ trunk/Build/source/texk/web2c/cwebdir/texinputs/pdfwebtocfront.tex	2024-05-26 15:42:29 UTC (rev 71358)
@@ -26,8 +26,8 @@
   \def\pagelabels{/PageLabels << /Nums [
     \ifnum\contentspagenumber=0 0 << /P(Contents) >> \tocpages << /S/D/St 1 >>
     \else 0 << /S/D/St \contentspagenumber >> \fi ] >> }
-  \def\startpdf{\ifpdf \ifpdflua\pdfcatalog{\pagemode \pagelabels}
-    \else {\special{pdf: docview << \pagemode \pagelabels >>}}\fi\fi}
+  \def\startpdf{\ifpdflua\pdfcatalog{\pagemode\space\pagelabels}
+    \else {\special{pdf: docview << \pagemode\space\pagelabels >>}}\fi}
   % Redefine '\con' to be invoked before the first '\N' (starred section).
   \let\ORGcon\con
   \def\con{%