diff options
Diffstat (limited to 'tex/context/base/supp-box.mkiv')
-rw-r--r-- | tex/context/base/supp-box.mkiv | 362 |
1 files changed, 181 insertions, 181 deletions
diff --git a/tex/context/base/supp-box.mkiv b/tex/context/base/supp-box.mkiv index 97c93c7bf..0e3f95492 100644 --- a/tex/context/base/supp-box.mkiv +++ b/tex/context/base/supp-box.mkiv @@ -104,30 +104,30 @@ \newcount\c_boxes_register \unexpanded\def\smashbox - {\afterassignment\boxes_smash_boxes_register\c_boxes_register} + {\afterassignment\syst_boxes_smash_boxes_register\c_boxes_register} -\def\boxes_smash_boxes_register +\def\syst_boxes_smash_boxes_register {\wd\c_boxes_register\zeropoint \ht\c_boxes_register\zeropoint \dp\c_boxes_register\zeropoint} \unexpanded\def\hsmashbox - {\afterassignment\boxes_hsmashed_boxes_register\c_boxes_register} + {\afterassignment\syst_boxes_hsmashed_boxes_register\c_boxes_register} -\def\boxes_hsmashed_boxes_register +\def\syst_boxes_hsmashed_boxes_register {\wd\c_boxes_register\zeropoint} \unexpanded\def\vsmashbox - {\afterassignment\boxes_vsmashed_boxes_register\c_boxes_register} + {\afterassignment\syst_boxes_vsmashed_boxes_register\c_boxes_register} -\def\boxes_vsmashed_boxes_register +\def\syst_boxes_vsmashed_boxes_register {\ht\c_boxes_register\zeropoint \dp\c_boxes_register\zeropoint} \unexpanded\def\smashedbox - {\afterassignment\boxes_smashed_boxes_register\c_boxes_register} + {\afterassignment\syst_boxes_smashed_boxes_register\c_boxes_register} -\unexpanded\def\boxes_smashed_boxes_register +\unexpanded\def\syst_boxes_smashed_boxes_register {\wd\c_boxes_register\zeropoint \ht\c_boxes_register\zeropoint \dp\c_boxes_register\zeropoint @@ -142,23 +142,23 @@ %D and smashed alternatives. The later ones reduce all %D dimensions to zero. -\unexpanded\def\hsmash {\bgroup\dowithnextboxcs\boxes_hsmashed_nextbox\normalhbox} -\unexpanded\def\vsmash {\bgroup\dowithnextboxcs\boxes_vsmashed_nextbox\normalvbox} -\unexpanded\def\hsmashed{\bgroup\dowithnextboxcs\boxes_smashed_nextbox \normalhbox} -\unexpanded\def\vsmashed{\bgroup\dowithnextboxcs\boxes_smashed_nextbox \normalvbox} +\unexpanded\def\hsmash {\bgroup\dowithnextboxcs\syst_boxes_hsmashed_nextbox\normalhbox} +\unexpanded\def\vsmash {\bgroup\dowithnextboxcs\syst_boxes_vsmashed_nextbox\normalvbox} +\unexpanded\def\hsmashed{\bgroup\dowithnextboxcs\syst_boxes_smashed_nextbox \normalhbox} +\unexpanded\def\vsmashed{\bgroup\dowithnextboxcs\syst_boxes_smashed_nextbox \normalvbox} -\unexpanded\def\boxes_hsmashed_nextbox +\unexpanded\def\syst_boxes_hsmashed_nextbox {\wd\nextbox\zeropoint \box\nextbox \egroup} -\unexpanded\def\boxes_vsmashed_nextbox +\unexpanded\def\syst_boxes_vsmashed_nextbox {\ht\nextbox\zeropoint \dp\nextbox\zeropoint \box\nextbox \egroup} -\unexpanded\def\boxes_smashed_nextbox +\unexpanded\def\syst_boxes_smashed_nextbox {\ht\nextbox\zeropoint \dp\nextbox\zeropoint \wd\nextbox\zeropoint @@ -175,15 +175,15 @@ %D \smashedvbox to ... {...} %D \stoptyping -\unexpanded\def\smashedhbox{\normalhbox\bgroup\dowithnextboxcs\boxes_smashed_nextbox\normalhbox} -\unexpanded\def\smashedvbox{\normalvbox\bgroup\dowithnextboxcs\boxes_smashed_nextbox\normalvbox} +\unexpanded\def\smashedhbox{\normalhbox\bgroup\dowithnextboxcs\syst_boxes_smashed_nextbox\normalhbox} +\unexpanded\def\smashedvbox{\normalvbox\bgroup\dowithnextboxcs\syst_boxes_smashed_nextbox\normalvbox} %D First we define a helper. We use a \LUATEX\ feature in order to avoid %D mathpalettes. \newcount\c_boxes_math_style -\unexpanded\def\boxes_math_set_nextbox#1% +\unexpanded\def\syst_boxes_math_set_nextbox#1% {\c_boxes_math_style\mathstyle \setbox\nextbox\normalhbox{$\mathsurround\zeropoint\triggermathstyle\c_boxes_math_style{#1}$}} @@ -197,58 +197,58 @@ \unexpanded\def\smash {\begingroup - \futurelet\nexttoken\boxes_smash} + \futurelet\nexttoken\syst_boxes_smash} -\def\boxes_smash +\def\syst_boxes_smash {\ifx\nexttoken[% - \expandafter\boxes_smash_yes + \expandafter\syst_boxes_smash_yes \else - \expandafter\boxes_smash_nop + \expandafter\syst_boxes_smash_nop \fi} -\def\boxes_smash_nop +\def\syst_boxes_smash_nop {\edef\m_boxes_smash_options{hd}% - \futurelet\nexttoken\boxes_smash_indeed} + \futurelet\nexttoken\syst_boxes_smash_indeed} -\def\boxes_smash_yes[#1]% +\def\syst_boxes_smash_yes[#1]% {\edef\m_boxes_smash_options{#1}% - \futurelet\nexttoken\boxes_smash_indeed} + \futurelet\nexttoken\syst_boxes_smash_indeed} -\def\boxes_smash_indeed +\def\syst_boxes_smash_indeed {\ifmmode - \expandafter\boxes_smash_math + \expandafter\syst_boxes_smash_math \else\ifx\nexttoken\bgroup - \doubleexpandafter\boxes_smash_hbox + \doubleexpandafter\syst_boxes_smash_hbox \else - \doubleexpandafter\boxes_smash_text + \doubleexpandafter\syst_boxes_smash_text \fi\fi} -\def\boxes_smash_math#1% - {\boxes_math_set_nextbox{#1}% - \boxes_smash_process} +\def\syst_boxes_smash_math#1% + {\syst_boxes_math_set_nextbox{#1}% + \syst_boxes_smash_process} -\def\boxes_smash_hbox - {\dowithnextboxcs\boxes_smash_process\normalhbox} +\def\syst_boxes_smash_hbox + {\dowithnextboxcs\syst_boxes_smash_process\normalhbox} -\def\boxes_smash_text#1% +\def\syst_boxes_smash_text#1% {\setbox\nextbox\normalhbox{#1}% - \boxes_smash_process} + \syst_boxes_smash_process} -\def\boxes_smash_process - {\expandafter\boxes_smash_process_option\m_boxes_smash_options\relax +\def\syst_boxes_smash_process + {\expandafter\syst_boxes_smash_process_option\m_boxes_smash_options\relax \box\nextbox \endgroup} -\def\boxes_s_w{\wd\nextbox\zeropoint} -\def\boxes_s_h{\ht\nextbox\zeropoint} -\def\boxes_s_d{\dp\nextbox\zeropoint} -\def\boxes_s_t{\ht\nextbox\zeropoint} -\def\boxes_s_b{\dp\nextbox\zeropoint} +\def\syst_boxes_s_w{\wd\nextbox\zeropoint} +\def\syst_boxes_s_h{\ht\nextbox\zeropoint} +\def\syst_boxes_s_d{\dp\nextbox\zeropoint} +\def\syst_boxes_s_t{\ht\nextbox\zeropoint} +\def\syst_boxes_s_b{\dp\nextbox\zeropoint} -\def\boxes_smash_process_option#1% +\def\syst_boxes_smash_process_option#1% {\ifx#1\relax\else \csname boxes_s_#1\endcsname - \expandafter\boxes_smash_process_option + \expandafter\syst_boxes_smash_process_option \fi} %D \starttabulate[|l|l|] @@ -269,50 +269,50 @@ %D thereby \type {\mathchoice}, the next macro looks ugly. %D We also take care of non||braced arguments. -\unexpanded\def\phantom {\begingroup\futurelet\nexttoken\boxes_phantom_indeed } -\unexpanded\def\vphantom{\begingroup\futurelet\nexttoken\boxes_phantom_indeed_v} -\unexpanded\def\hphantom{\begingroup\futurelet\nexttoken\boxes_phantom_indeed_h} +\unexpanded\def\phantom {\begingroup\futurelet\nexttoken\syst_boxes_phantom_indeed } +\unexpanded\def\vphantom{\begingroup\futurelet\nexttoken\syst_boxes_phantom_indeed_v} +\unexpanded\def\hphantom{\begingroup\futurelet\nexttoken\syst_boxes_phantom_indeed_h} -\def\boxes_phantom_math #1{\boxes_math_set_nextbox{#1}\boxes_phantom_make } -\def\boxes_phantom_math_v#1{\boxes_math_set_nextbox{#1}\boxes_phantom_make_v} -\def\boxes_phantom_math_h#1{\boxes_math_set_nextbox{#1}\boxes_phantom_make_h} +\def\syst_boxes_phantom_math #1{\syst_boxes_math_set_nextbox{#1}\syst_boxes_phantom_make } +\def\syst_boxes_phantom_math_v#1{\syst_boxes_math_set_nextbox{#1}\syst_boxes_phantom_make_v} +\def\syst_boxes_phantom_math_h#1{\syst_boxes_math_set_nextbox{#1}\syst_boxes_phantom_make_h} -\def\boxes_phantom_hbox {\dowithnextboxcs\boxes_phantom_make \normalhbox} % always hbox -\def\boxes_phantom_hbox_v{\dowithnextboxcs\boxes_phantom_make_v\normalhbox} % always hbox -\def\boxes_phantom_hbox_h{\dowithnextboxcs\boxes_phantom_make_h\normalhbox} % always hbox +\def\syst_boxes_phantom_hbox {\dowithnextboxcs\syst_boxes_phantom_make \normalhbox} % always hbox +\def\syst_boxes_phantom_hbox_v{\dowithnextboxcs\syst_boxes_phantom_make_v\normalhbox} % always hbox +\def\syst_boxes_phantom_hbox_h{\dowithnextboxcs\syst_boxes_phantom_make_h\normalhbox} % always hbox -\def\boxes_phantom_text #1{\setbox\nextbox\normalhbox{#1}\boxes_phantom_make } % always hbox -\def\boxes_phantom_text_v#1{\setbox\nextbox\normalhbox{#1}\boxes_phantom_make_v} % always hbox -\def\boxes_phantom_text_h#1{\setbox\nextbox\normalhbox{#1}\boxes_phantom_make_h} % always hbox +\def\syst_boxes_phantom_text #1{\setbox\nextbox\normalhbox{#1}\syst_boxes_phantom_make } % always hbox +\def\syst_boxes_phantom_text_v#1{\setbox\nextbox\normalhbox{#1}\syst_boxes_phantom_make_v} % always hbox +\def\syst_boxes_phantom_text_h#1{\setbox\nextbox\normalhbox{#1}\syst_boxes_phantom_make_h} % always hbox -\def\boxes_phantom_indeed +\def\syst_boxes_phantom_indeed {\ifmmode - \expandafter\boxes_phantom_math + \expandafter\syst_boxes_phantom_math \else\ifx\nexttoken\bgroup - \doubleexpandafter\boxes_phantom_hbox + \doubleexpandafter\syst_boxes_phantom_hbox \else - \doubleexpandafter\boxes_phantom_text + \doubleexpandafter\syst_boxes_phantom_text \fi\fi} -\def\boxes_phantom_indeed_v +\def\syst_boxes_phantom_indeed_v {\ifmmode - \expandafter\boxes_phantom_math_v + \expandafter\syst_boxes_phantom_math_v \else\ifx\nexttoken\bgroup - \doubleexpandafter\boxes_phantom_hbox_v + \doubleexpandafter\syst_boxes_phantom_hbox_v \else - \doubleexpandafter\boxes_phantom_text_v + \doubleexpandafter\syst_boxes_phantom_text_v \fi\fi} -\def\boxes_phantom_indeed_h +\def\syst_boxes_phantom_indeed_h {\ifmmode - \expandafter\boxes_phantom_math_h + \expandafter\syst_boxes_phantom_math_h \else\ifx\nexttoken\bgroup - \doubleexpandafter\boxes_phantom_hbox_h + \doubleexpandafter\syst_boxes_phantom_hbox_h \else - \doubleexpandafter\boxes_phantom_text_h + \doubleexpandafter\syst_boxes_phantom_text_h \fi\fi} -\def\boxes_phantom_make +\def\syst_boxes_phantom_make {\setbox\scratchbox\emptyhbox \ht\scratchbox\ht\nextbox \dp\scratchbox\dp\nextbox @@ -320,14 +320,14 @@ \box\scratchbox \endgroup} -\def\boxes_phantom_make_v +\def\syst_boxes_phantom_make_v {\setbox\scratchbox\emptyhbox \ht\scratchbox\ht\nextbox \dp\scratchbox\dp\nextbox \box\scratchbox \endgroup} -\def\boxes_phantom_make_h +\def\syst_boxes_phantom_make_h {\setbox\scratchbox\emptyhbox \wd\scratchbox\wd\nextbox \box\scratchbox @@ -597,45 +597,45 @@ %D the box. \unexpanded\def\dowithnextbox#1% - {\def\boxes_with_next_box{#1}% - \afterassignment\boxes_with_next_box_indeed + {\def\syst_boxes_with_next_box{#1}% + \afterassignment\syst_boxes_with_next_box_indeed \setbox\nextbox} -\def\boxes_with_next_box_indeed - {\aftergroup\boxes_with_next_box} +\def\syst_boxes_with_next_box_indeed + {\aftergroup\syst_boxes_with_next_box} \unexpanded\def\dowithnextboxcs#1% - {\let\boxes_with_next_box#1% - \afterassignment\boxes_with_next_box_indeed + {\let\syst_boxes_with_next_box#1% + \afterassignment\syst_boxes_with_next_box_indeed \setbox\nextbox} %D So in fact we get: %D %D \starttyping -%D \setbox\nextbox { \aftergroup\boxes_with_next_box ... } +%D \setbox\nextbox { \aftergroup\syst_boxes_with_next_box ... } %D \stoptyping %D %D or %D %D \starttyping -%D \setbox\nextbox { ... } \boxes_with_next_box +%D \setbox\nextbox { ... } \syst_boxes_with_next_box %D \stoptyping %D %D A slower but more versatile implementation is: %D %D \starttyping %D \long\def\dowithnextbox#1#2% -%D {\long\def\boxes_with_next_box{#1}% +%D {\long\def\syst_boxes_with_next_box{#1}% %D \ifx#2\normalhbox -%D \afterassignment\boxes_with_next_box_indeed +%D \afterassignment\syst_boxes_with_next_box_indeed %D \else\ifx#2\normalvbox -%D \afterassignment\boxes_with_next_box_indeed +%D \afterassignment\syst_boxes_with_next_box_indeed %D \else\ifx#2\normalvtop -%D \afterassignment\boxes_with_next_box_indeed +%D \afterassignment\syst_boxes_with_next_box_indeed %D \else\ifx#2\normalvcenter -%D \afterassignment\boxes_with_next_box_indeed +%D \afterassignment\syst_boxes_with_next_box_indeed %D \else -%D \afterassignment\boxes_with_next_box +%D \afterassignment\syst_boxes_with_next_box %D \fi\fi\fi\fi %D \setbox\nextbox#2} %D \stoptyping @@ -670,19 +670,19 @@ %D {\em todo: Search source for potential usage!} \unexpanded\def\dowithnextboxcontent#1#2% inside, after - {\def\boxes_with_next_box_one{#2}% - \def\boxes_with_next_box_two{#1}% - \afterassignment\boxes_with_next_box_content_indeed + {\def\syst_boxes_with_next_box_one{#2}% + \def\syst_boxes_with_next_box_two{#1}% + \afterassignment\syst_boxes_with_next_box_content_indeed \setbox\nextbox} \unexpanded\def\dowithnextboxcontentcs#1#2% inside, after - {\let\boxes_with_next_box_one#2% - \let\boxes_with_next_box_two#1% - \afterassignment\boxes_with_next_box_content_indeed + {\let\syst_boxes_with_next_box_one#2% + \let\syst_boxes_with_next_box_two#1% + \afterassignment\syst_boxes_with_next_box_content_indeed \setbox\nextbox} -\def\boxes_with_next_box_content_indeed - {\boxes_with_next_box_two\aftergroup\boxes_with_next_box_one} +\def\syst_boxes_with_next_box_content_indeed + {\syst_boxes_with_next_box_two\aftergroup\syst_boxes_with_next_box_one} %D \macros %D {llap, rlap, tlap, blap, clap} @@ -886,15 +886,15 @@ {\global\setbox\tmpshapebox\vbox{\vskip-\lineheight\unvcopy\oldshapebox}} \def\dodoreshapebox#1#2#3#4% \shapebox, \shapepenalty, \shapekern, \shapeskip - {\ifnum\lastnodetype=\@@gluenode + {\ifnum\lastnodetype=\gluenodecode \shapeskip\lastskip \global\setbox\tmpshapebox\normalvbox{#4\unvbox\tmpshapebox}% \unskip - \else\ifnum\lastnodetype=\@@kernnode + \else\ifnum\lastnodetype=\kernnodecode \shapekern\lastkern \global\setbox\tmpshapebox\normalvbox{#3\unvbox\tmpshapebox}% \unkern - \else\ifnum\lastnodetype=\@@penaltynode + \else\ifnum\lastnodetype=\penaltynodecode \shapepenalty\lastpenalty \global\setbox\tmpshapebox\normalvbox{#2\unvbox\tmpshapebox}% \unpenalty @@ -1175,16 +1175,16 @@ \forgetall % otherwise indentation and so \let\limitatetext\firstofthreearguments \fakecompoundhyphen % dangerous ! ! ! ! ! ! ! ! ! - \dowithnextboxcs\boxes_limitate_text\normalhbox} + \dowithnextboxcs\syst_boxes_limitate_text\normalhbox} -\def\boxes_limitate_text#1% #2 - {\doifelsenothing{#1}\boxes_limitate_text_nop\boxes_limitate_text_yes{#1}} % {#2} +\def\syst_boxes_limitate_text#1% #2 + {\doifelsenothing{#1}\syst_boxes_limitate_text_nop\syst_boxes_limitate_text_yes{#1}} % {#2} -\def\boxes_limitate_text_nop#1#2% +\def\syst_boxes_limitate_text_nop#1#2% {\unhbox\nextbox \egroup} -\def\boxes_limitate_text_yes#1#2% +\def\syst_boxes_limitate_text_yes#1#2% {\nopenalties \scratchdimen#1\relax \ifdim\scratchdimen<\zeropoint\relax % we'll take the last line @@ -1386,9 +1386,9 @@ \unexpanded\def\sbox {\normalvbox\bgroup - \dowithnextboxcs\boxes_sbox_finish\normalvbox} + \dowithnextboxcs\syst_boxes_sbox_finish\normalvbox} -\unexpanded\def\boxes_sbox_finish +\unexpanded\def\syst_boxes_sbox_finish {\setbox\nextbox\normalhbox {\strut \dp\nextbox\zeropoint @@ -1406,9 +1406,9 @@ \unexpanded\def\struttedbox {\normalhbox\bgroup - \dowithnextboxcs\boxes_struttedbox_finish\normalhbox} + \dowithnextboxcs\syst_boxes_struttedbox_finish\normalhbox} -\def\boxes_struttedbox_finish +\def\syst_boxes_struttedbox_finish {\ht\nextbox\strutdepth \ht\nextbox\strutheight \box\nextbox @@ -1422,9 +1422,9 @@ %D equals strutdepth. \unexpanded\def\topskippedbox - {\normalhbox\bgroup\dowithnextboxcs\boxes_topskippedbox_finish\normalhbox} + {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_topskippedbox_finish\normalhbox} -\def\boxes_topskippedbox_finish +\def\syst_boxes_topskippedbox_finish {\edef\m_boxes_tmp{\ifdim\strutdepth=\dp\nextbox\dp\nextbox\the\dp\nextbox\fi}% \lower\topskip\normalhbox{\raise\strutheight\box\nextbox}% \m_boxes_tmp @@ -1862,28 +1862,28 @@ % % \unexpanded\def\processboxes#1% % {\bgroup -% \def\boxes_process_indeed{#1}% #1 can be redefined halfway +% \def\syst_boxes_process_indeed{#1}% #1 can be redefined halfway % \setbox\processbox\emptybox -% \afterassignment\boxes_process +% \afterassignment\syst_boxes_process % \let\nexttoken} % -% \def\boxes_process +% \def\syst_boxes_process % {\ifx\nexttoken\bgroup -% \expandafter\boxes_process_yes +% \expandafter\syst_boxes_process_yes % \else -% \expandafter\boxes_process_nop +% \expandafter\syst_boxes_process_nop % \fi} % -% \def\boxes_process_yes -% {\dowithnextboxcs\boxes_process_content\normalhbox\bgroup} +% \def\syst_boxes_process_yes +% {\dowithnextboxcs\syst_boxes_process_content\normalhbox\bgroup} % -% \def\boxes_process_content +% \def\syst_boxes_process_content % {\removeunwantedspaces -% \boxes_process_indeed % takes \nextbox makes \processbox -% \afterassignment\boxes_process +% \syst_boxes_process_indeed % takes \nextbox makes \processbox +% \afterassignment\syst_boxes_process % \let\nexttoken} % -% \unexpanded\def\boxes_process_nop +% \unexpanded\def\syst_boxes_process_nop % {\removeunwantedspaces % \box\processbox % \nexttoken % messy as we are still in the group @@ -1893,19 +1893,19 @@ \unexpanded\def\processboxes#1% {\bgroup - \def\boxes_process_indeed{#1}% #1 can be redefined halfway + \def\syst_boxes_process_indeed{#1}% #1 can be redefined halfway \setbox\processbox\emptybox - \doifnextbgroupelse\boxes_process_yes\boxes_process_nop} + \doifnextbgroupelse\syst_boxes_process_yes\syst_boxes_process_nop} -\def\boxes_process_yes - {\dowithnextboxcs\boxes_process_content\normalhbox} +\def\syst_boxes_process_yes + {\dowithnextboxcs\syst_boxes_process_content\normalhbox} -\def\boxes_process_content +\def\syst_boxes_process_content {\removeunwantedspaces - \boxes_process_indeed % takes \nextbox makes \processbox - \doifnextbgroupelse\boxes_process_yes\boxes_process_nop} + \syst_boxes_process_indeed % takes \nextbox makes \processbox + \doifnextbgroupelse\syst_boxes_process_yes\syst_boxes_process_nop} -\unexpanded\def\boxes_process_nop +\unexpanded\def\syst_boxes_process_nop {\removeunwantedspaces \box\processbox \egroup} @@ -1929,7 +1929,7 @@ %D %D \leavevmode\getbuffer -\def\boxes_overlay_process +\def\syst_boxes_overlay_process {%\removeunwantedspaces % already done \scratchdepth\dp\ifdim\dp\nextbox>\dp\processbox\nextbox\else\processbox\fi \ifdim\ht\nextbox>\ht\processbox @@ -1948,7 +1948,7 @@ \unexpanded\def\startoverlay {\bgroup \let\stopoverlay\egroup - \processboxes\boxes_overlay_process} + \processboxes\syst_boxes_overlay_process} \let\stopoverlay\relax @@ -1966,9 +1966,9 @@ \unexpanded\def\fakebox {\bgroup - \afterassignment\boxes_fakebox_finish\scratchcounter} + \afterassignment\syst_boxes_fakebox_finish\scratchcounter} -\def\boxes_fakebox_finish +\def\syst_boxes_fakebox_finish {\setbox\scratchbox\ifhbox\scratchcounter\emptyhbox\else\emptyvbox\fi \wd\scratchbox\wd\scratchcounter \ht\scratchbox\ht\scratchcounter @@ -1992,15 +1992,15 @@ %D middle and right. These box types can be used to typeset %D paragraphs. -\def\boxes_lrc_process#1{\bgroup\forgetall\let\\\endgraf#1\let\next} +\def\syst_boxes_lrc_process#1{\bgroup\forgetall\let\\\endgraf#1\let\next} -\unexpanded\def\lbox#1#{\normalvbox#1\boxes_lrc_process\raggedleft } -\unexpanded\def\cbox#1#{\normalvbox#1\boxes_lrc_process\raggedcenter} -\unexpanded\def\rbox#1#{\normalvbox#1\boxes_lrc_process\raggedright } +\unexpanded\def\lbox#1#{\normalvbox#1\syst_boxes_lrc_process\raggedleft } +\unexpanded\def\cbox#1#{\normalvbox#1\syst_boxes_lrc_process\raggedcenter} +\unexpanded\def\rbox#1#{\normalvbox#1\syst_boxes_lrc_process\raggedright } -\unexpanded\def\ltop#1#{\normalvtop#1\boxes_lrc_process\raggedleft } -\unexpanded\def\ctop#1#{\normalvtop#1\boxes_lrc_process\raggedcenter} -\unexpanded\def\rtop#1#{\normalvtop#1\boxes_lrc_process\raggedright } +\unexpanded\def\ltop#1#{\normalvtop#1\syst_boxes_lrc_process\raggedleft } +\unexpanded\def\ctop#1#{\normalvtop#1\syst_boxes_lrc_process\raggedcenter} +\unexpanded\def\rtop#1#{\normalvtop#1\syst_boxes_lrc_process\raggedright } %D The alternatives \type {\tbox} and \type {\bbox} can be used %D to properly align boxes, like in: @@ -2022,10 +2022,10 @@ %D %D \getbuffer -\unexpanded\def\tbox{\normalhbox\bgroup\dowithnextboxcs\boxes_tbox_finish\normalhbox} -\unexpanded\def\bbox{\normalhbox\bgroup\dowithnextboxcs\boxes_bbox_finish\normalhbox} +\unexpanded\def\tbox{\normalhbox\bgroup\dowithnextboxcs\syst_boxes_tbox_finish\normalhbox} +\unexpanded\def\bbox{\normalhbox\bgroup\dowithnextboxcs\syst_boxes_bbox_finish\normalhbox} -\def\boxes_tbox_finish +\def\syst_boxes_tbox_finish {\scratchdepth\dimexpr\ht\nextbox+\dp\nextbox-\ht\strutbox\relax \ht\nextbox\ht\strutbox \dp\nextbox\scratchdepth @@ -2035,7 +2035,7 @@ \box\nextbox \egroup} -\def\boxes_bbox_finish +\def\syst_boxes_bbox_finish {\scratchheight\dimexpr\ht\nextbox+\dp\nextbox-\dp\strutbox\relax \dp\nextbox\dp\strutbox \ht\nextbox\scratchheight @@ -2164,28 +2164,28 @@ \newdimen\boxhdisplacement \newdimen\boxvdisplacement -\unexpanded\def\rightbox {\normalhbox\bgroup\dowithnextboxcs\boxes_rightbox_finish \placedbox} -\unexpanded\def\leftbox {\normalhbox\bgroup\dowithnextboxcs\boxes_leftbox_finish \placedbox} -\unexpanded\def\topbox {\normalhbox\bgroup\dowithnextboxcs\boxes_topbox_finish \placedbox} -\unexpanded\def\bottombox {\normalhbox\bgroup\dowithnextboxcs\boxes_bottombox_finish \placedbox} -\unexpanded\def\lefttopbox {\normalhbox\bgroup\dowithnextboxcs\boxes_lefttopbox_finish \placedbox} -\unexpanded\def\righttopbox {\normalhbox\bgroup\dowithnextboxcs\boxes_righttopbox_finish \placedbox} -\unexpanded\def\leftbottombox {\normalhbox\bgroup\dowithnextboxcs\boxes_leftbottombox_finish \placedbox} -\unexpanded\def\rightbottombox{\normalhbox\bgroup\dowithnextboxcs\boxes_rightbottombox_finish\placedbox} +\unexpanded\def\rightbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_rightbox_finish \placedbox} +\unexpanded\def\leftbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_leftbox_finish \placedbox} +\unexpanded\def\topbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_topbox_finish \placedbox} +\unexpanded\def\bottombox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_bottombox_finish \placedbox} +\unexpanded\def\lefttopbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_lefttopbox_finish \placedbox} +\unexpanded\def\righttopbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_righttopbox_finish \placedbox} +\unexpanded\def\leftbottombox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_leftbottombox_finish \placedbox} +\unexpanded\def\rightbottombox{\normalhbox\bgroup\dowithnextboxcs\syst_boxes_rightbottombox_finish\placedbox} \let\topleftbox \lefttopbox \let\toprightbox \righttopbox \let\bottomleftbox \leftbottombox \let\bottomrightbox\rightbottombox -\def\boxes_rightbox_finish +\def\syst_boxes_rightbox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement.5\ht\nextbox \global\advance\boxvdisplacement-.5\dp\nextbox \boxcursor\hskip\boxhdisplacement\lower\boxvdisplacement\box\nextbox \egroup} -\def\boxes_rightbox_finish +\def\syst_boxes_rightbox_finish {\global\boxhdisplacement-\wd\nextbox \global\advance\boxhdisplacement-\boxoffset \global\boxvdisplacement.5\ht\nextbox @@ -2193,21 +2193,21 @@ \boxcursor\hskip\boxhdisplacement\lower\boxvdisplacement\box\nextbox \egroup} -\def\boxes_topbox_finish +\def\syst_boxes_topbox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\boxvdisplacement-\dp\nextbox \global\advance\boxvdisplacement-\boxoffset \boxcursor\hskip\boxhdisplacement\raise-\boxvdisplacement\box\nextbox \egroup} -\def\boxes_bottombox_finish +\def\syst_boxes_bottombox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\boxvdisplacement\ht\nextbox \global\advance\boxvdisplacement\boxoffset \boxcursor\hskip\boxhdisplacement\lower\boxvdisplacement\box\nextbox \egroup} -\def\boxes_lefttopbox_finish +\def\syst_boxes_lefttopbox_finish {\global\boxhdisplacement-\wd\nextbox \global\advance\boxhdisplacement-\boxoffset \global\boxvdisplacement-\dp\nextbox @@ -2215,14 +2215,14 @@ \boxcursor\hskip\boxhdisplacement\raise-\boxvdisplacement\box\nextbox \egroup} -\def\boxes_righttopbox_finish +\def\syst_boxes_righttopbox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement-\dp\nextbox \global\advance\boxvdisplacement-\boxoffset \boxcursor\hskip\boxhdisplacement\raise-\boxvdisplacement\box\nextbox \egroup} -\def\boxes_leftbottombox_finish +\def\syst_boxes_leftbottombox_finish {\global\boxhdisplacement-\wd\nextbox \global\advance\boxhdisplacement-\boxoffset \global\boxvdisplacement\ht\nextbox @@ -2230,40 +2230,40 @@ \boxcursor\hskip\boxhdisplacement\lower\boxvdisplacement\box\nextbox \egroup} -\def\boxes_rightbottombox_finish +\def\syst_boxes_rightbottombox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement\ht\nextbox \global\advance\boxvdisplacement\boxoffset \boxcursor\hskip\boxhdisplacement\lower\boxvdisplacement\box\nextbox \egroup} -\unexpanded\def\middlebox {\normalhbox\bgroup\dowithnextboxcs\boxes_middlebox_finish \placedbox} -\unexpanded\def\baselinemiddlebox{\normalhbox\bgroup\dowithnextboxcs\boxes_baselinemiddlebox_finish\placedbox} -\unexpanded\def\baselineleftbox {\normalhbox\bgroup\dowithnextboxcs\boxes_baselineleftbox_finish \placedbox} -\unexpanded\def\baselinerightbox {\normalhbox\bgroup\dowithnextboxcs\boxes_baselinerightbox_finish \placedbox} +\unexpanded\def\middlebox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_middlebox_finish \placedbox} +\unexpanded\def\baselinemiddlebox{\normalhbox\bgroup\dowithnextboxcs\syst_boxes_baselinemiddlebox_finish\placedbox} +\unexpanded\def\baselineleftbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_baselineleftbox_finish \placedbox} +\unexpanded\def\baselinerightbox {\normalhbox\bgroup\dowithnextboxcs\syst_boxes_baselinerightbox_finish \placedbox} -\def\boxes_middlebox_finish +\def\syst_boxes_middlebox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\boxvdisplacement.5\ht\nextbox \global\advance\boxvdisplacement-.5\dp\nextbox \boxcursor\hskip\boxhdisplacement\lower\boxvdisplacement\box\nextbox \egroup} -\def\boxes_baselinemiddlebox_finish +\def\syst_boxes_baselinemiddlebox_finish {\global\boxhdisplacement-.5\wd\nextbox \global\advance\boxhdisplacement-\boxoffset \global\boxvdisplacement-\boxoffset \boxcursor\hskip\boxhdisplacement\raise-\boxvdisplacement\box\nextbox \egroup} -\def\boxes_baselineleftbox_finish +\def\syst_boxes_baselineleftbox_finish {\global\boxhdisplacement-\wd\nextbox \global\advance\boxhdisplacement-\boxoffset \global\boxvdisplacement-\boxoffset \boxcursor\hskip\boxhdisplacement\raise-\boxvdisplacement\box\nextbox \egroup} -\def\boxes_baselinerightbox_finish +\def\syst_boxes_baselinerightbox_finish {\global\boxhdisplacement\boxoffset \global\boxvdisplacement-\boxoffset \boxcursor\hskip\boxhdisplacement\raise-\boxvdisplacement\box\nextbox @@ -2288,9 +2288,9 @@ %D See core-tbl.tex for an example of its usage: \unexpanded\def\toplinebox - {\dowithnextboxcs\boxes_toplinebox_finish\tbox} + {\dowithnextboxcs\syst_boxes_toplinebox_finish\tbox} -\def\boxes_toplinebox_finish +\def\syst_boxes_toplinebox_finish {\ifdim\dp\nextbox>\strutdepth \scratchdimen\dp\nextbox \advance\scratchdimen-\strutdepth @@ -2423,20 +2423,20 @@ %D \hsmash{\raisebox{100pt}\normalhbox{test}} %D \stoptyping -\unexpanded\def\raisebox#1{\bgroup\afterassignment\boxes_raise_indeed\scratchdimen#1} % so both 10pt and {10pt} is accepted -\unexpanded\def\lowerbox#1{\bgroup\afterassignment\boxes_lower_indeed\scratchdimen#1} % so both 10pt and {10pt} is accepted +\unexpanded\def\raisebox#1{\bgroup\afterassignment\syst_boxes_raise_indeed\scratchdimen#1} % so both 10pt and {10pt} is accepted +\unexpanded\def\lowerbox#1{\bgroup\afterassignment\syst_boxes_lower_indeed\scratchdimen#1} % so both 10pt and {10pt} is accepted -\def\boxes_raise_indeed{\dowithnextboxcs\boxes_raise_finish} -\def\boxes_lower_indeed{\dowithnextboxcs\boxes_lower_finish} +\def\syst_boxes_raise_indeed{\dowithnextboxcs\syst_boxes_raise_finish} +\def\syst_boxes_lower_indeed{\dowithnextboxcs\syst_boxes_lower_finish} -\def\boxes_raise_finish#1% +\def\syst_boxes_raise_finish#1% {\setbox\nextbox\normalhbox{\raise\scratchdimen\box\nextbox}% \ht\nextbox\strutht \dp\nextbox\strutdp \box\nextbox \egroup} -\def\boxes_lower_finish#1% +\def\syst_boxes_lower_finish#1% {\setbox\nextbox\normalhbox{\lower\scratchdimen\box\nextbox}% \ht\nextbox\strutht \dp\nextbox\strutdp @@ -2447,9 +2447,9 @@ \unexpanded\def\halfwaybox {\normalhbox\bgroup - \dowithnextboxcs\boxes_halfwaybox_finish\normalhbox} + \dowithnextboxcs\syst_boxes_halfwaybox_finish\normalhbox} -\def\boxes_halfwaybox_finish +\def\syst_boxes_halfwaybox_finish {\dp\nextbox\zeropoint \lower.5\ht\nextbox\box\nextbox \egroup} @@ -2483,9 +2483,9 @@ \unexpanded\def\vcenter {\normalvbox\bgroup - \dowithnextboxcs\boxes_vcenter_finish\normalvbox} + \dowithnextboxcs\syst_boxes_vcenter_finish\normalvbox} -\def\boxes_vcenter_finish +\def\syst_boxes_vcenter_finish {\normalhbox{$\verynormalvcenter{\box\nextbox}$}% \egroup} @@ -2501,9 +2501,9 @@ \unexpanded\def\frozenhbox {\normalhbox\bgroup - \dowithnextboxcs\boxes_frozenhbox_finish\normalhbox} + \dowithnextboxcs\syst_boxes_frozenhbox_finish\normalhbox} -\def\boxes_frozenhbox_finish +\def\syst_boxes_frozenhbox_finish {\normalhbox{\normalhbox{\box\nextbox}}% \egroup} |