diff options
Diffstat (limited to 'tex/context/base/mkiv/supp-box.mkxl')
-rw-r--r-- | tex/context/base/mkiv/supp-box.mkxl | 108 |
1 files changed, 3 insertions, 105 deletions
diff --git a/tex/context/base/mkiv/supp-box.mkxl b/tex/context/base/mkiv/supp-box.mkxl index 027b89e23..273a20ef1 100644 --- a/tex/context/base/mkiv/supp-box.mkxl +++ b/tex/context/base/mkiv/supp-box.mkxl @@ -1157,111 +1157,9 @@ \ifdefined\fakecompoundhyphen\else \let\fakecompoundhyphen\relax \fi \ifdefined\veryraggedright \else \def\veryraggedright{\raggedright} \fi -% \protected\def\limitatetext -% {\bgroup % evt \setstrut -% \forgetall % otherwise indentation and so -% \let\limitatetext\firstofthreearguments -% \fakecompoundhyphen % dangerous ! ! ! ! ! ! ! ! ! -% \dowithnextboxcs\syst_boxes_limitate_text\hbox} -% -% \def\syst_boxes_limitate_text#1% #2 -% {\doifelsenothing{#1}\syst_boxes_limitate_text_nop\syst_boxes_limitate_text_yes{#1}} % {#2} -% -% \def\syst_boxes_limitate_text_nop#1#2% -% {\unhbox\nextbox -% \egroup} -% -% \def\syst_boxes_limitate_text_yes#1#2% -% {\nopenalties -% \scratchdimen#1\relax -% \ifdim\scratchdimen<\zeropoint\relax % we'll take the last line -% \donefalse -% \scratchdimen-\scratchdimen -% \else -% \donetrue -% \fi -% \ifdim\wd\nextbox>\scratchdimen -% \setbox\scratchbox\hbox{\ifdone\space#2\else#2\space\fi}% -% \advance\scratchdimen -\wd\scratchbox -% \setbox\scratchboxone\box\nextbox -% \setbox\nextbox\vbox -% {\hsize\scratchdimen -% \hfuzz\maxdimen -% \veryraggedright -% \strut -% \ifdone \else -% \parfillskip\zeropoint -% \rightskip\zeropoint -% \hskip\zeropoint \s!plus 1\s!fill % \hsize -% \fi -% \unhcopy\scratchboxone}% -% \ifdim\ht\nextbox>\strutht -% \setbox\nextbox\vbox % if omitted: missing brace reported -% {\splittopskip\openstrutheight -% \ifdone -% \setbox\nextbox\vsplit\nextbox to \strutht -% \else -% \doloop -% {\setbox\scratchboxone\vsplit\nextbox to \strutht -% \ifdim\ht\nextbox>\strutht \else \exitloop \fi}% -% \fi -% \unvbox\nextbox -% \setbox\nextbox\lastbox -% \global\setbox1\hpack -% {\ifdone -% \unhbox\nextbox\unskip\kern\zeropoint\box\scratchbox -% \else -% \box\scratchbox\unhbox\nextbox -% \fi -% \unskip}}% -% \unhbox1 -% \else -% \unhbox0% -% \fi -% \else -% \unhbox\nextbox -% \fi -% \egroup} -% -% %D We can also limit a text with more control: -% %D -% %D \startbuffer -% %D \limitatetext {\input tufte } {2cm,5mm} {\unknown} -% %D \limitatetext {ton en hans} {2cm,5mm} {\unknown} -% %D \limitatetext {ton en hans zijn eikels} {2cm,5mm} {\unknown} -% %D \limitatetext {ton} {2cm,5mm} {\unknown} -% %D \stopbuffer -% %D -% %D \typebuffer \getbuffer -% %D -% %D We build this feature on top of the previous macro. -% -% % we could move the text argument to the end -% -% \let\normallimitatetext\limitatetext -% -% \def\speciallimitatetext#1#2#3#4% text left right placeholder -% {%\dontleavehmode -% \bgroup -% \let\speciallimitatetext\firstoffourarguments -% \setbox\scratchboxone\hbox -% {\nohyphens -% \normallimitatetext{#1}{+#2}{}#4% -% \normallimitatetext{#1}{-#3}{}}% -% \setbox\scratchboxtwo\hbox -% {#1}% -% \ifdim\wd\scratchboxtwo<\wd\scratchboxone #1\else\unhbox\scratchboxone\fi -% \egroup} -% -% \protected\def\limitatetext#1#2#3% \expanded added 2003/01/16 -% {\splitatcomma{#2}\leftlimit\rightlimit -% \ifempty\rightlimit -% \normallimitatetext {#1}\leftlimit {#3}% -% \else -% \speciallimitatetext{#1}\leftlimit\rightlimit{#3}% -% \fi} - -\protected\def\limitatetext#1#2#3% \expanded added 2003/01/16 +%D See \MKIV\ file for the older implementation. + +\protected\def\limitatetext#1#2#3% {\splitatcomma{#2}\leftlimit\rightlimit \limitated left \leftlimit |