texlive[71359] Master/texmf-dist/tex/plain/cweb: [CWEB] Allow for

[commits+ascherer at tug.org]

Revision: 71359
          https://tug.org/svn/texlive?view=revision&revision=71359
Author:   ascherer
Date:     2024-05-26 17:46:40 +0200 (Sun, 26 May 2024)
Log Message:
-----------
[CWEB] Allow for multi-page tables-of-contents.

HiTeX has a three-page ToC.

Modified Paths:
--------------
    trunk/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex
    trunk/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex

Modified: trunk/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex
===================================================================
--- trunk/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex	2024-05-26 15:42:29 UTC (rev 71358)
+++ trunk/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex	2024-05-26 15:46:40 UTC (rev 71359)
@@ -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/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex
===================================================================
--- trunk/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex	2024-05-26 15:42:29 UTC (rev 71358)
+++ trunk/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex	2024-05-26 15:46:40 UTC (rev 71359)
@@ -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{%