Source Browser ?

1%D \module
2%D   [       file=trac-brk,
3%D        version=2023.07.14,
4%D          title=\CONTEXT\ Tracing Macros,
5%D       subtitle=Pagebreaks,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\ifdefined\registerforcedbreak \endinput \fi
15
16\writestatus{loading}{ConTeXt Tracing Macros / Buildpoints}
17
18\registerctxluafile{trac-bld}{}
19
20\unprotect
21
22% These are defined at the \LUA\ end:
23%
24% \showpageprogress[yes|all]
25% \registerforcedbreak[locationlist|reset][before|after]
26% \resetforcedbreak
27
28% \showpageprogress % [all]
29% \registerforcedbreak[8][before]
30% %resetforcedbreak
31%
32% \starttext
33%     \dorecurse{10}{\samplefile{tufte}\par}
34% \stoptext
35
36\lettonothing\show_build_page_before_shipout
37\lettonothing\show_build_page_after_shipout
38
39\permanent\tolerant\protected\def\showpageprogress[#1]%
40  {\clf_build_page_setup{\ifempty{#1}\v!yes\else#1\fi}%
41   \let\show_build_page_before_shipout\clf_build_page_before_shipout
42   \let\show_build_page_after_shipout \clf_build_page_after_shipout}
43
44\appendtoks
45    \show_build_page_before_shipout
46\to \everybeforeshipout
47
48\appendtoks
49    \show_build_page_after_shipout
50\to \everyaftershipout
51
52\protect \endinput
53