summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2024-05-26 15:46:40 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2024-05-26 15:46:40 +0000
commit1590278b1c9181564368224bde24b2b6f463c58a (patch)
tree30980ef7a70d258352dd54e4c878cd9a8e779611
parent27021a9c27ee1d7dd78d8672655cc70a22229da7 (diff)
[CWEB] Allow for multi-page tables-of-contents.
HiTeX has a three-page ToC. git-svn-id: svn://tug.org/texlive/trunk@71359 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/tex/plain/cweb/cwebacromac.tex7
-rw-r--r--Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex4
2 files changed, 6 insertions, 5 deletions
diff --git a/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex b/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex
index 9782d44f498..f8462d06a37 100644
--- a/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex
+++ b/Master/texmf-dist/tex/plain/cweb/cwebacromac.tex
@@ -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}
diff --git a/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex b/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex
index 48bf684332e..237b9f39c38 100644
--- a/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex
+++ b/Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex
@@ -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{%