diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-12 17:15:07 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-01-12 17:15:07 +0100 |
commit | 8d8d528d2ad52599f11250cfc567fea4f37f2a8b (patch) | |
tree | 94286bc131ef7d994f9432febaf03fe23d10eef8 /tex/context/base/page-ini.mkiv | |
parent | f5aed2e51223c36c84c5f25a6cad238b2af59087 (diff) | |
download | context-8d8d528d2ad52599f11250cfc567fea4f37f2a8b.tar.gz |
2016-01-12 16:26:00
Diffstat (limited to 'tex/context/base/page-ini.mkiv')
-rw-r--r-- | tex/context/base/page-ini.mkiv | 270 |
1 files changed, 0 insertions, 270 deletions
diff --git a/tex/context/base/page-ini.mkiv b/tex/context/base/page-ini.mkiv deleted file mode 100644 index 6f6cb7180..000000000 --- a/tex/context/base/page-ini.mkiv +++ /dev/null @@ -1,270 +0,0 @@ -%D \module -%D [ file=page-ini, -%D version=2000.10.20, -%D title=\CONTEXT\ Page Macros, -%D subtitle=Initializations, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -\writestatus{loading}{ConTeXt Page Macros / Initializations} - -%D The \type {\processpage} command has become obsolete. It's original -%D purpose was to flush only parts of a document but nowadays we have -%D project structure and modes. This is just one of those very early -%D features that no longer makes sense. - -%D The \type {\couplepage} command has become obsolete. It's original -%D purpose was to provide hooks for printer directives (like choosing -%D different paper trays). - -\unprotect - -%D Shipout control. - -\newcount\nofshipouts - -\appendtoks - \global\advance\nofshipouts\plusone -\to \everyaftershipout - -\newconditional\c_otr_shipout_enabled \settrue\c_otr_shipout_enabled - -\unexpanded\def\page_otr_shipout - {\ifconditional\c_otr_shipout_enabled - \expandafter\page_otr_shipout_yes - \else - \expandafter\page_otr_shipout_nop - \fi} - -\let\page_otr_shipout_yes\normalshipout - -\unexpanded\def\page_otr_shipout_nop - {\writestatus\m!system{ignoring shipout of real page \the\realpageno}% - \global\advance\realpageno\minusone % else no flush of resources - \dowithnextbox{\deadcycles\zerocount}} - -% We don't support direct user \shipouts (weird: this does not work, bug?) -% -% \let\shipout\page_otr_shipout_nop - -%D Building pages. - -\newbox\pagebox - -\ifdefined\page_postprocessors_column \else \let\page_postprocessors_column\gobbleoneargument \fi -\ifdefined\page_postprocessors_page \else \let\page_postprocessors_page \gobbleoneargument \fi -\ifdefined\page_postprocessors_box \else \let\page_postprocessors_box \gobbleoneargument \fi - -%D Floats. - -\def\page_otr_flush_all_floats - {%\flushnotes already done - \ifconditional\c_page_floats_some_waiting - \begingroup - \c_page_floats_n_of_top\plusthousand - \c_page_floats_n_of_bottom\zerocount - % this is needed in case a float that has been stored - % ends up at the current page; this border case occurs when - % the calculated room is 'eps' smaller that the room available - % when just flushing; so now we have (maybe optional): - \pagebaselinecorrection % hm, needs checking, not needed when no floats - % alas, this is tricky but needed (first surfaced in prikkels) - \page_otr_command_flush_floats - \endgroup - \fi} - -\def\page_otr_insert_dummy_page - {\par - \ifvmode - \page_otr_flush_all_floats - \fixedspace - \vfill - \page_otr_command_next_page - \fi} - -\def\page_otr_flush_pending_content - {\vskip\zeropoint\relax % brrr .. get rid of this - \ifvoid\normalpagebox \else - \unvbox\normalpagebox - \penalty\outputpenalty - \fi} - -\def\page_otr_construct_and_shipout#1#2% - {\forgetall - \page_boxes_shipout{\page_boxes_constructed_page#1#2}% \hbox removed - \page_otr_flush_pending_content - % not really needed, replaced by \flushsavedfloats - \page_otr_check_for_pending_inserts - % but does not hurt either (we're still in the otr!) - \inpagebodytrue % needed for enabling \blank ! brrr - \pagebodymode\plusone % todo: \plustwo when spread - \page_otr_command_flush_saved_floats - \page_otr_command_set_vsize % this is needed for interacting components, like floats and multicolumns - \strc_pagenumbers_increment_counters % should hook into an every - \page_adapts_synchronize - \page_otr_check_for_pending_inserts - \page_floats_flush_page_floats % before postponed blocks - \page_spread_flush % defined later - \page_postponed_blocks_flush} - -% Can't we get rid of this hackery? It's used in some widgets -% stuff so probably not. - -\newbox\b_page_otr_special - -\def\page_otr_flush_special_content - {\ifvoid\b_page_otr_special \else - \box\b_page_otr_special - \fi} - -\def\page_otr_add_special_content - {\dowithnextboxcs\page_otr_add_special_content_indeed\hbox} - -\def\page_otr_add_special_content_indeed - {\wd\nextbox\zeropoint - \ht\nextbox\zeropoint - \dp\nextbox\zeropoint - \global\setbox\b_page_otr_special\hbox - {%\hskip-\maxdimen % not here, fails in acrobat (clips) - \box\b_page_otr_special\box\nextbox}}% was \unhbox, is now box again - -\let\flushatshipout\page_otr_add_special_content - -\maxdeadcycles=1000 - -\newtoks\afterpage \newtoks\aftereverypage -\newtoks\beforepage \newtoks\beforeeverypage - -\newif\ifarrangingpages \arrangingpagesfalse - -\newconstant\pageornamentstate % 0=on 1=one-off 2=always-off - -% \appendtoks -% \ifcase\pageornamentstate \or -% \pageornamentstate\zerocount -% \fi -% \to \everyaftershipout - -\appendtoks - \ifcase\pageornamentstate \or - \global\pageornamentstate\zerocount - \fi -\to \everyaftershipout - -% Mark synchronization - -\newconditional\c_page_marks_building_successive_pages \settrue\c_page_marks_building_successive_pages - -\def\page_marks_synchronize_page#1% box - {\strc_markings_synchronize[\v!page][#1][\ifconditional\c_page_marks_building_successive_pages\v!keep\fi]} - -\def\page_marks_synchronize_column#1#2#3#4% first last column box - {\ifnum#3=#1\relax - \strc_markings_synchronize[\number#3,\v!column:\number#3,\v!first,\v!column:\v!first][#4][]% - \else\ifnum#3=#2\relax - \strc_markings_synchronize[\number#3,\v!column:\number#3,\v!last, \v!column:\v!last ][#4][]% - \else - \strc_markings_synchronize[\number#3,\v!column:\number#3 ][#4][]% - \fi\fi} - -% Page body building - -\newconditional\c_page_boxes_save_page_body -\newbox \b_page_boxes_saved_page_body - -\def\page_boxes_constructed_page_body#1#2% - {\ifconditional\c_page_boxes_save_page_body \global\setbox\b_page_boxes_saved_page_body \fi \vpack \bgroup - \boxmaxdepth\maxdimen % new - \dontcomplain - \page_marks_synchronize_page {#2}% we could consider doing this for \pagebox (needs testing) - \page_boxes_construct_content \pagebox{#1}{#2}% - \page_backgrounds_add_to_main \pagebox - \page_boxes_apply_offsets \pagebox - \page_info_add_to_box \pagebox - \ifcase\pageornamentstate - \page_backgrounds_add_to_paper \pagebox - \fi - \anch_positions_register_page \pagebox - \ifarrangingpages - \page_boxes_apply_shift_paper \pagebox % \v!paper - \else - \page_boxes_apply_clip_paper \pagebox - \page_marks_add_page \pagebox - \page_boxes_apply_replicate \pagebox - \page_boxes_apply_scale \pagebox - \page_boxes_apply_mirror_paper \pagebox - \page_boxes_apply_orientate_paper \pagebox - \page_marks_add_more \pagebox - \page_boxes_apply_center \pagebox - \page_backgrounds_add_to_print \pagebox - \page_boxes_apply_mirror_print \pagebox - \page_boxes_apply_orientate_print \pagebox - \page_boxes_apply_shift_print \pagebox % \v!page - \page_boxes_apply_offset \pagebox - \page_boxes_apply_negate_print \pagebox - \fi - \box\pagebox - \egroup \ifconditional\c_page_boxes_save_page_body \copy\b_page_boxes_saved_page_body \fi} - -\appendtoks \restoreglobalbodyfont \to \everybeforepagebody - -\ifdefined\nestednewbox \else \newbox\nestednextbox \fi % hm, still needed? - -\prependtoks - \let\nextbox\nestednextbox -\to \everybeforepagebody - -\def\page_boxes_constructed_page#1#2% - {\vpack\bgroup % intercept spurious spaces - \the\everybeforepagebody - \starttextproperties - \checkmarginblocks - \the\beforeeverypage - \normalexpanded{\global\beforepage\emptytoks\the\beforepage}% - \inpagebodytrue - \pagebodymode\plusone % todo: \plustwo when spread - \page_boxes_constructed_page_body#1#2% - \normalexpanded{\global\afterpage \emptytoks\the\afterpage }% - \the\aftereverypage - \resetpagebreak - \resetlayouttextlines % will go to \aftereverypage - \stoptextproperties - \the\everyafterpagebody - \egroup} - -\def\doifelsetopofpage - {\ifdim\pagegoal=\maxdimen - \expandafter\firstoftwoarguments - \else\ifdim\pagegoal=\vsize - \doubleexpandafter\firstoftwoarguments - \else - \doubleexpandafter\secondoftwoarguments - \fi\fi} - -\let\doiftopofpageelse\doifelsetopofpage - -% %D Idea: -% -% \newinsert\thispageinsert % <- installinsertion -% -% \def\flushatthispage -% {\bgroup -% \dowithnextbox{\insert\thispageinsert{\box\nextbox}\egroup}% -% \hbox} -% -% \appendtoks -% \ifvoid\thispageinsert\else\hbox{\smashedbox\thispageinsert}\fi -% \to \everyshipout -% -% %D Idea: -% -% \definemarkedpage[nobackgrounds] -% \markpage[nobackgrounds] -% \doifmarkedpageelse{nobackgrounds} - -\protect \endinput |