diff options
Diffstat (limited to 'tex/context/base/mkiv/tabl-frm.mkxl')
| -rw-r--r-- | tex/context/base/mkiv/tabl-frm.mkxl | 261 |
1 files changed, 0 insertions, 261 deletions
diff --git a/tex/context/base/mkiv/tabl-frm.mkxl b/tex/context/base/mkiv/tabl-frm.mkxl deleted file mode 100644 index 9bbc510c5..000000000 --- a/tex/context/base/mkiv/tabl-frm.mkxl +++ /dev/null @@ -1,261 +0,0 @@ -%D \module -%D [ file=tabl-frm, -%D version=2017.04.11, -%D title=\CONTEXT\ Table Macros, -%D subtitle=Framed Tables, -%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. - -%D For Thomas Schmitz who needed 3000 pages long tables. - -\unprotect - -\writestatus{loading}{ConTeXt Table Macros / Framed Tables} - -\installcorenamespace{framedtable} -\installcorenamespace{framedtablerow} -\installcorenamespace{framedtablecolumn} - -\newcount\c_tabl_framed_c -\newcount\c_tabl_framed_r -\newdimen\d_tabl_framed_h -\newdimen\d_tabl_framed_d -\newdimen\b_tabl_framed - -\initializeboxstack\??framedtable - -\defineframed[\??framedtable] -\defineframed[\??framedtablerow][\??framedtable] -\defineframed[\??framedtablecolumn][\??framedtable] - -\setupframed - [\??framedtable] - [\c!distance=\zeropoint, - \c!before=, - \c!after=, - \c!inbetween=] - -\setupframed - [\??framedtablerow] - [\c!strut=\v!no, - \c!offset=\v!overlay] - -% \defineframedtable[foo] -% \defineframedtable[bar][foo] - -\permanent\tolerant\protected\def\defineframedtable[#1]#*[#2]% - {\ifarguments\or - \defineframed[\??framedtable#1][\??framedtable]% - \or - \defineframed[\??framedtable#1][\??framedtable#2]% - \fi} - -% \setupframedtable[foo][...] - -\permanent\tolerant\protected\def\setupframedtable[#1]#*[#2]% - {\ifarguments\or - \setupframed[\??framedtable][#1]% - \or - \ifcsname\??framed:\??framedtable#1\endcsname \else - \defineframed[\??framedtable#1][\??framedtable]% - \fi - \setupframed[\??framedtable#1][#2]% - \fi} - -% \setupframedtable[1][...] -% \setupframedtable[foo][1][...] - -\permanent\tolerant\protected\def\setupframedtablerow[#1]#*[#2]#*[#3]% - {\ifarguments\or\or - \ifcsname\??framed:\??framedtablerow:#1\endcsname \else - \defineframed[\??framedtablerow:#1][\??framedtable]% - \fi - \setupframed[\??framedtablerow:#1][#2]% - \or - \ifcsname\??framed:\??framedtable#1\endcsname \else - \defineframed[\??framedtable#1][\??framedtable]% - \fi - \ifcsname\??framed:\??framedtablerow#1:#2\endcsname \else - \defineframed[\??framedtablerow#1:#2][\??framedtable#1]% - \fi - \setupframed[\??framedtablerow#1:#2][#3]% - \fi} - -\permanent\tolerant\protected\def\setupframedtablecolumn[#1]#*[#2]#*[#3]% - {\ifarguments\or\or - \ifcsname\??framed:\??framedtablecolumn:#1\endcsname \else - \defineframed[\??framedtablecolumn:#1][\??framedtable]% - \fi - \setupframed[\??framedtablecolumn:#1][#2]% - \or - \ifcsname\??framed:\??framedtable#1\endcsname \else - \defineframed[\??framedtable#1][\??framedtable]% - \fi - \ifcsname\??framed:\??framedtablecolumn#1:#2\endcsname \else - \defineframed[\??framedtablecolumn#1:#2][\??framedtable#1]% - \fi - \setupframed[\??framedtablecolumn#1:#2][#3]% - \fi} - -\permanent\tolerant\protected\def\startframedtable[#1]#*[#2]% - {\begingroup - \forgetall - \ifhastok={#1}% - \let\currentframedtable\empty - \setupframed[\??framedtable][#1]% - \else - \edef\currentframedtable{#1}% - \setupframed[\??framedtable][#2]% - \fi - \edef\currentframed{\??framedtable\currentframedtable}% - \c_tabl_framed_r\zerocount - \d_tabl_framed_d\framedparameter\c!distance - \framedparameter\c!before} - -\permanent\protected\def\stopframedtable - {\framedparameter\c!after - \endgroup} - -% a two pass variant that deals with the height .. so no catcode changes here - -\tolerant\protected\def\pack_framed_start_framed_whatever[#1]% - {\pack_framed_initialize - \bgroup - \setupcurrentframed[#1]% here ! - \pack_framed_process_indeed - \bgroup - \ignorespaces} - -% \permanent\protected\def\startframedrow -% {\advance\c_tabl_framed_r\plusone -% \c_tabl_framed_c\zerocount -% \d_tabl_framed_h\zeropoint -% \bgroup -% \edef\currentframed{\number\c_tabl_framed_r}% -% \edef\currentframed -% {\??framedtablerow\currentframedtable -% \ifcsname\??framedtablerow\currentframedtable:\currentframed\endcsname -% :\currentframed -% \orelse\ifcsname\??framedtablerow\currentframedtable:\v!each\endcsname -% :\v!each -% \fi}% -% \pack_framed_start_framed_whatever} -% -% \permanent\protected\def\stopframedrow -% {\dofastloopcs\c_tabl_framed_c\tabl_framed_flush_row -% \stopframed -% \nointerlineskip -% \vskip\zeropoint\relax -% \framedparameter\c!inbetween} - -\protected\def\tabl_framed_flush_row - {\vpack to \d_tabl_framed_h{\flushbox\??framedtable{\number\fastloopindex}\vfill}% - \ifzeropt\d_tabl_framed_d\else\kern\d_tabl_framed_d\fi} - -\newcount\c_tabl_framed_pass - -\permanent\let\stopframedrow\relax - -\permanent\protected\def\startframedrow#1\stopframedrow - {\advance\c_tabl_framed_r\plusone - \startframedrow_one#1\stopframedrow_one - \startframedrow_two#1\stopframedrow_two} - -\tolerant\def\startframedrow_one[#-]% - {\bgroup - \c_tabl_framed_pass\plusone - \c_tabl_framed_c\zerocount - \d_tabl_framed_h\zeropoint - \settrialtypesetting} - -\protected\def\stopframedrow_one - {\normalexpanded{\egroup\d_tabl_framed_h\the\d_tabl_framed_h\relax}} - -\def\startframedrow_two - {\bgroup - \c_tabl_framed_c\zerocount - \c_tabl_framed_pass\plustwo - \edef\currentframed{\number\c_tabl_framed_r}% - \edef\currentframed - {\??framedtablerow\currentframedtable - \ifcsname\??framedtablerow\currentframedtable:\currentframed\endcsname - :\currentframed - \orelse\ifcsname\??framedtablerow\currentframedtable:\v!each\endcsname - :\v!each - \fi}% - \pack_framed_start_framed_whatever} - -\protected\def\stopframedrow_two - {\dofastloopcs\c_tabl_framed_c\tabl_framed_flush_row - \stopframed - \nointerlineskip - \vskip\zeropoint\relax - \framedparameter\c!inbetween} - -\protected\def\tabl_framed_flush_row_two - {\vpack to \d_tabl_framed_h{\flushbox\??framedtable{\number\fastloopindex}\vfill}% - \ifzeropt\d_tabl_framed_d\else\kern\d_tabl_framed_d\fi} - -\permanent\protected\def\startframedcell - {\advance\c_tabl_framed_c\plusone - \setbox\b_tabl_framed\hpack\bgroup - %\bgroup - \edef\currentframed{\number\c_tabl_framed_c}% - \edef\currentframed - {\??framedtablecolumn\currentframedtable - \ifcsname\??framedtablecolumn\currentframedtable:\currentframed\endcsname - :\currentframed - \orelse\ifcsname\??framedtablecolumn\currentframedtable:\v!each\endcsname - :\v!each - \fi}% - \ifcase\c_tabl_framed_pass - \or - \letframedparameter\c!background\empty - \letframedparameter\c!frame\v!off - \or - \letframedparameter\c!height\d_tabl_framed_h - \fi - \pack_framed_start_framed_whatever} - -\permanent\protected\def\stopframedcell - {\stopframed - %\egroup - \ifcase\c_tabl_framed_pass - \or - \ifdim\ht\b_tabl_framed>\d_tabl_framed_h - \d_tabl_framed_h\ht\b_tabl_framed - \fi - \else - \savebox\??framedtable{\number\c_tabl_framed_c}{\box\b_tabl_framed}% - \fi} - -\protect \endinput - -\starttext - -\setupframedtablecolumn [1] [width=3cm,background=color,backgroundcolor=red] -\setupframedtablecolumn [2] [width=4cm,background=color,backgroundcolor=green,align=normal] -% \setupframedtablerow [each] [background=color,backgroundcolor=blue,strut=no] -% \setupframedtablerow [each] [strut=no,offset=overlay] - -\startframedtable[inbetween=\kern-0.4pt,distance=-0.4pt] - -\testfeatureonce{10000}{ -% \testfeatureonce{10}{ - \startframedrow - \startframedcell%[backgroundcolor=yellow] - test - \stopframedcell - \startframedcell - test \par test - \stopframedcell - \stopframedrow -} -\stopframedtable - -\stoptext |