summaryrefslogtreecommitdiff
path: root/tex/context/base/tabl-mis.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/tabl-mis.mkiv')
-rw-r--r--tex/context/base/tabl-mis.mkiv288
1 files changed, 0 insertions, 288 deletions
diff --git a/tex/context/base/tabl-mis.mkiv b/tex/context/base/tabl-mis.mkiv
deleted file mode 100644
index 9a0f13853..000000000
--- a/tex/context/base/tabl-mis.mkiv
+++ /dev/null
@@ -1,288 +0,0 @@
-%D \module
-%D [ file=tabl-mis,
-%D version=2012.06.28,
-%D title=\CONTEXT\ Table Macros,
-%D subtitle=Miscellaneous,
-%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 Table Macros / Miscellaneous}
-
-\unprotect
-
-%D \macros
-%D {somekindoftab,kindoftabposition}
-%D
-%D This macro can be used to create tabs:
-%D
-%D \starttyping
-%D \setupheadertexts[{\somekindoftab[alternative=horizontal]{\framed{\kindoftabposition}}}]
-%D \setuptexttexts [{\somekindoftab[alternative=vertical] {\framed{\kindoftabposition}}}]
-%D
-%D \starttext
-%D \showframe \dorecurse{10}{test\page}
-%D \stoptext
-%D \stoptyping
-%D
-%D (This rather old but updated code used to be in \type {core-mis.mkiv}.)
-
-\let\kindoftabposition\!!zerocount
-
-\unexpanded\def\somekindoftab
- {\dosingleempty\typo_kindoftab}
-
-\def\typo_kindoftab[#1]%
- {\bgroup
- \getdummyparameters
- [\c!alternative=\v!vertical,
- \c!width=\textwidth,\c!height=\textheight,
- \c!n=\lastpage,\c!m=\realpageno,
- #1]%
- \doifelse{\directdummyparameter\c!alternative}\v!vertical
- {\typo_kindoftab_indeed\vbox\vskip\c!height}
- {\typo_kindoftab_indeed\hbox\hskip\c!width }}
-
-\def\typo_kindoftab_indeed#1#2#3#4%
- {#1 to \directdummyparameter#3 \bgroup
- \forgetall
- \scratchnx\directdummyparameter\c!n\relax
- \scratchmx\directdummyparameter\c!m\relax
- \edef\kindoftabposition{\the\scratchmx}%
- \ifnum\scratchmx>\plusone
- #2\zeropoint \s!plus \the\numexpr\scratchmx-\plusone \relax\s!fill\relax
- \fi
- #4% can use \kindoftabposition
- \ifnum\scratchmx<\scratchnx\relax
- #2\zeropoint \s!plus \the\numexpr\scratchnx-\scratchmx\relax\s!fill\relax
- \fi
- \egroup
- \egroup}
-
-%D The following paragraphs mechanism is probably one of the oldest of
-%D \CONTEXT\ and mostly served as a table mechanism capable of dealing
-%D with paragraphs. Nowadays one can also use tabulate or natural tables.
-%D
-%D \startbuffer
-%D \defineparagraphs[sample][n=2,rule=on]
-%D
-%D \startsample
-%D first \nextsample
-%D second \nextsample
-%D third
-%D \stopsample
-%D
-%D \startsample
-%D \input tufte \nextsample
-%D \input ward \nextsample
-%D \input davis \nextsample
-%D \input zapf
-%D \stopsample
-%D
-%D \startparagraphs[sample]
-%D first \nextsample
-%D second \nextsample
-%D third
-%D \stopparagraphs
-%D
-%D \startparagraphs[sample]
-%D \startparagraphscell
-%D first
-%D \stopparagraphscell
-%D \startparagraphscell
-%D second
-%D \stopparagraphscell
-%D \startparagraphscell
-%D third
-%D \stopparagraphscell
-%D \stopparagraphs
-%D \stopbuffer
-%D
-%D \typebuffer \getbuffer
-
-\installcorenamespace{paragraphs}
-
-\installcommandhandler \??paragraphs {paragraphs} \??paragraphs
-
-\setupparagraphs
- [\c!n=3,
- \c!before=\blank,
- \c!after=\blank,
- \c!distance=\emwidth,
- \c!height=\v!fit,
- \c!width=\availablehsize,
- \c!rule=\v!off,
- \c!command=,
- \c!align=,
- \c!tolerance=\v!tolerant, % obsolete
- \c!rulethickness=\linewidth,
- \c!rulecolor=,
- \c!style=,
- \c!color=,
- \c!top=\vss,
- \c!bottom=\vfill]
-
-\let\typo_paragraphs_setup_saved\setupparagraphs
-
-\unexpanded\def\setupparagraphs
- {\dotripleempty\typo_paragraphs_setup}
-
-\def\typo_paragraphs_setup[#1][#2][#3]% we are downward compatible with [each] and [1,3]
- {\ifthirdargument
- \doifelse{#2}\v!each
- {\typo_paragraphs_setup_saved[#1][#3]}
- {\def\typo_paragraphs_setup_step##1{\typo_paragraphs_setup_saved[#1:##1][#3]}%
- \processcommalist[#2]\typo_paragraphs_setup_step}%
- \else\ifsecondargument
- \typo_paragraphs_setup_saved[#1][#2]%
- \else\iffirstargument
- \typo_paragraphs_setup_saved[#1]%
- \fi\fi\fi}
-
-\appendtoks
- \letvalue{\e!next \currentparagraphs}\nextparagraphs
- \letvalue\currentparagraphs\nextparagraphs
- \setuevalue{\e!start\currentparagraphs}{\startparagraphs[\currentparagraphs]}%
- \letvalue{\e!stop \currentparagraphs}\stopparagraphs
- %setuevalue{\e!setup\currentparagraph\e!endsetup}{\typo_paragraphs_setup_saved[\currentparagraphs]}%
- \dorecurse{\paragraphsparameter\c!n}
- {\normalexpanded{\typo_paragraphs_setup_saved[\currentparagraphs:\recurselevel][\c!width=,\s!parent=\??paragraphs\currentparagraphs]}}%
- \typo_paragraphs_setup_saved[\currentparagraphs:1][\c!distance=\zeropoint]%
-\to \everydefineparagraphs
-
-\newcount\c_typo_paragraphs_n
-\newcount\c_typo_paragraphs_max
-\newdimen\d_typo_paragraphs_width
-\newdimen\d_typo_paragraphs_auto
-
-\unexpanded\def\startparagraphs[#1]% quite slow
- {\bgroup % (1)
- \edef\currentparagraphs{#1}%
- \paragraphsparameter\c!before
- \edef\p_width{\paragraphsparameter\c!width}%
- \ifx\p_width\empty
- \d_typo_paragraphs_width\availablehsize
- \else
- \d_typo_paragraphs_width\p_width\relax
- \fi
- \c_typo_paragraphs_max\paragraphsparameter\c!n\relax
- \d_typo_paragraphs_auto\d_typo_paragraphs_width\relax
- \scratchcounter\zerocount
- \dorecurse\c_typo_paragraphs_max
- {\edef\p_width{\namedparagraphsparameter{\currentparagraphs:\recurselevel}\c!width}%
- \ifx\p_width\empty
- \advance\scratchcounter\plusone
- \else
- \advance\d_typo_paragraphs_auto-\p_width\relax
- \fi
- \ifnum\recurselevel>\plusone
- \advance\d_typo_paragraphs_auto-\namedparagraphsparameter{\currentparagraphs:\recurselevel}\c!distance\relax
- \fi}%
- \ifnum\scratchcounter>\zerocount
- \divide\d_typo_paragraphs_auto\scratchcounter
- \else
- \d_typo_paragraphs_auto\zeropoint
- \fi
- \parindent\zeropoint
- \c_typo_paragraphs_n\zerocount
- \let\\=\typo_paragraphs_next % downward compatible
- \dontleavehmode\hbox
- \bgroup % (2)
- \forgetall
- \let\typo_paragraphs_start_cell\typo_paragraphs_start_cell_indeed
- \let\typo_paragraphs_stop_cell \typo_paragraphs_stop_cell_indeed
- \typo_paragraphs_start_cell_indeed}
-
-\unexpanded\def\stopparagraphs
- {\stopparagraphscell
- \egroup % (2)
- \paragraphsparameter\c!after
- \egroup} % (1)
-
-\unexpanded\def\nextparagraphs
- {\stopparagraphscell
- \startparagraphscell}
-
-\unexpanded\def\startparagraphscell
- {\typo_paragraphs_start_cell}
-
-\def\typo_paragraphs_start_cell_indeed
- {\removeunwantedspaces
- \advance\c_typo_paragraphs_n\plusone
- \ifnum\c_typo_paragraphs_n>\c_typo_paragraphs_max
- \expandafter\typo_paragraphs_start_cell_nop
- \else
- \expandafter\typo_paragraphs_start_cell_yes
- \fi}
-
-\def\typo_paragraphs_start_cell_nop
- {\begingroup
- % message: too many cells in paragraphs
- \let\typo_paragraphs_start_cell\relax
- \let\typo_paragraphs_stop_cell\typo_paragraphs_stop_cell_indeed
- \setbox\scratchbox\vbox\bgroup}
-
-\def\typo_paragraphs_start_cell_yes
- {\begingroup
- \let\typo_paragraphs_start_cell\relax
- \let\typo_paragraphs_stop_cell\typo_paragraphs_stop_cell_indeed
- \edef\currentparagraphs{\currentparagraphs:\the\c_typo_paragraphs_n}%
- \ifnum\c_typo_paragraphs_n>\plusone
- \typo_paragraphs_separator
- \fi
- \edef\p_height{\paragraphsparameter\c!height}%
- \edef\p_width {\paragraphsparameter\c!width }%
- \useparagraphsstyleandcolor\c!style\c!color
- \setbox\scratchbox\vtop \ifx\p_height\empty \else\ifx\p_height\v!fit \else to \p_height \fi\fi
- \bgroup % (2)
- \blank[\v!disable]%
- \paragraphsparameter\c!top
- \hsize\ifx\p_width\empty \d_typo_paragraphs_auto \else \p_width \fi \relax
- \usealignparameter\paragraphsparameter
- \paragraphsparameter\c!inner
- \everypar{\begstrut\everypar\emptytoks}%
- \ignorespaces
- \paragraphsparameter\c!command}
-
-\unexpanded\def\stopparagraphscell
- {\typo_paragraphs_stop_cell
- \let\typo_paragraphs_stop_cell\relax}
-
-\def\typo_paragraphs_stop_cell_indeed
- {\ifnum\c_typo_paragraphs_n>\c_typo_paragraphs_max
- \expandafter\typo_paragraphs_stop_cell_nop
- \else
- \expandafter\typo_paragraphs_stop_cell_yes
- \fi}
-
-\def\typo_paragraphs_stop_cell_nop
- {\egroup
- \endgroup}
-
-\def\typo_paragraphs_stop_cell_yes
- {\ifvmode
- \removelastskip
- \else
- \removeunwantedspaces
- \endstrut
- \endgraf
- \fi
- \paragraphsparameter\c!bottom
- \egroup % (2)
- \dontleavehmode\hbox{\raise\strutheight\box\scratchbox}%
- \endgroup}
-
-\def\typo_paragraphs_separator
- {\scratchdistance\paragraphsparameter\c!distance
- \doif{\paragraphsparameter\c!rule}\v!on
- {\scratchwidth\paragraphsparameter\c!rulethickness
- \scratchdistance\dimexpr(\scratchdistance-\scratchwidth)/2\relax
- \hskip\scratchdistance
- \color[\paragraphsparameter\c!rulecolor]{\vrule\s!width\scratchwidth}}%
- \hskip\scratchdistance}
-
-\protect \endinput