Source Browser ?

1%D \module
2%D   [       file=page-str,
3%D        version=2010.03.13, % 2006.03.21,
4%D          title=\CONTEXT\ Page Macros,
5%D       subtitle=Page Streams,
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\writestatus{loading}{ConTeXt Page Macros / Page Streams}
15
16%D The first version of this component of \CONTEXT\ was written
17%D for Thomas Schmitz who asked for parallel page streams. While
18%D playing with the code, I decided to make it into a component
19%D that can be used to construct all kind of stream related
20%D mechanisms. Because I could apply this feature in a project,
21%D there is some additional code here (related to graphics).
22%D
23%D These macros were written while listening to and watching the DVD
24%D \quotation {Rush In Rio}.
25%D
26%D The reimplementation (or rather experimenting with the complete
27%D rewrite) was done while looping over \quotation {Wende Snijders
28%D No.9}.
29%D
30%D Remark: marknotes are gone, at least for a while.
31
32\registerctxluafile{page-str}{}
33
34\unprotect
35
36\let     \currentoutputstream     \empty
37\newif   \ifinoutputstream        % will become a conditional or mode
38\newtoks \everyenableoutputstream
39
40\appendtoks
41    \page_otr_command_flush_side_floats
42\to \everyenableoutputstream
43
44\unexpanded\def\initializeoutputstreams
45  {\clf_initializestream
46   \glet\initializeoutputstreams\relax}
47
48\unexpanded\def\enableoutputstream[#1]% could be \startoutputsubstream
49  {\initializeoutputstreams
50   \the\everyenableoutputstream
51   \inoutputstreamtrue
52   \xdef\currentoutputstream{#1}%
53   \clf_enablestream{#1}
54   \prevdepth\zeropoint % maybe more is needed i.e. we need to get rid of leading glue
55   }
56
57\unexpanded\def\disableoutputstream
58  {\inoutputstreamfalse
59   \glet\currentoutputstream\s!default
60   \clf_disablestream}
61
62\unexpanded\def\startoutputstream[#1]%
63  {\begingroup
64   \initializeoutputstreams
65   \the\everyenableoutputstream
66   \inoutputstreamtrue
67   \xdef\currentoutputstream{#1}%
68   \clf_startstream{#1}}
69
70\unexpanded\def\stopoutputstream
71  {\clf_stopstream
72   \endgroup}
73
74\unexpanded\def\startoutputsubstream[#1]% just push/pop instead
75  {\globalpushmacro\currentoutputstream
76   \enableoutputstream[#1]}
77
78\unexpanded\def\stopoutputsubstream
79  {\globalpopmacro\currentoutputstream
80   \enableoutputstream[\currentoutputstream]}
81
82\def\flushoutputstream  [#1]{\clf_flushstream{#1}}
83\def\outputstreambox    [#1]{\vbox{\clf_flushstream{#1}}}
84\def\outputstreamcopy   [#1]{\vbox{\clf_flushstreamcopy{#1}}}
85\def\outputstreamunvbox [#1]{\clf_flushstream{#1}}
86\def\outputstreamunvcopy[#1]{\clf_flushstreamcopy{#1}}
87\def\synchronizestreams [#1]{\clf_synchronizestream{#1}}
88\def\dopushoutputstream [#1]{\clf_pushstream{#1}}
89
90\unexpanded\def\pushoutputstream
91  {\dosingleempty\dopushoutputstream}
92
93% \unexpanded\def\defineoutputstream[#1]%
94%   {\doifundefined{otrs:#1}{\expandafter\newbox\csname otrs:#1\endcsname}}
95%
96% \def\useoutputstream[#1]%
97%   {\writestatus{otr}{using output stream #1}%
98%    \xdef\currentoutputstream{#1}}
99%
100% \directsetup{stream:\firstoutputstream:set}
101% \directsetup{stream:\firstoutputstream:top}
102% \directsetup{stream:\firstoutputstream:bottom}
103% \directsetup{stream:\firstoutputstream:reset}
104
105% Obsolete in \MKIV:
106%
107% \unexpanded\def\definemarknote
108%   {\dodoubleempty\dodefinemarknote}
109%
110% \def\dodefinemarknote[#1][#2]{}
111% \def\setmarknote         [#1]{\gobbleoneargument}
112% \def\flushmarknotes      [#1]{}
113% \def\erasemarknotes      [#1]{}
114
115\protect \endinput
116
117% \enabletrackers[streams.flushing]
118%
119% \setuplayout[grid=yes] \showgrid
120%
121% \starttext
122%
123% \input tufte
124%
125% \startoutputstream[nl]
126%
127% Wat doen we hier?
128%
129% \enableoutputstream[en]
130%
131% Are you sleeping, brother John?\footnote{xxx}
132%
133% \dorecurse{4}{x \footnote{note \recurselevel}\input tufte \par \pushoutputstream}
134%
135% \enableoutputstream[de]
136%
137% Bruder Jakob, schläfst du noch?\footnote{yyy}
138%
139% \dorecurse{4}{x \footnote{note \recurselevel}\input ward \par \pushoutputstream}
140%
141% \disableoutputstream
142%
143% \stopoutputstream
144%
145% Vader Jacob, slaap je nog?\footnote{zzz}
146%
147% \input tufte
148%
149% \synchronizestreams[en,de,nl]
150%
151% \page \flushoutputstream[en] \input knuth
152% \page \flushoutputstream[de] \input knuth
153% \page \flushoutputstream[nl] \input knuth
154%
155% \stoptext
156