From 1590278b1c9181564368224bde24b2b6f463c58a Mon Sep 17 00:00:00 2001 From: Andreas Scherer Date: Sun, 26 May 2024 15:46:40 +0000 Subject: [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 --- Master/texmf-dist/tex/plain/cweb/cwebacromac.tex | 7 ++++--- Master/texmf-dist/tex/plain/cweb/cwebbin/pdfwebtocfront.tex | 4 ++-- 2 files changed, 6 insertions(+), 5 deletions(-) (limited to 'Master/texmf-dist') 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{% -- cgit v1.2.3