From 69d2352af4b60929b37fc49f3bdb263977016244 Mon Sep 17 00:00:00 2001 From: Marius Date: Fri, 19 Oct 2012 01:20:13 +0300 Subject: stable 2012.05.30 11:26 --- tex/context/base/tabl-mis.mkiv | 288 ----------------------------------------- 1 file changed, 288 deletions(-) delete mode 100644 tex/context/base/tabl-mis.mkiv (limited to 'tex/context/base/tabl-mis.mkiv') 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 -- cgit v1.2.3